* [misc]progress:  [Phase 1 of 3] Setting up.
* * * [misc]progress:  [1/2] Preparing points
* * * * [misc]points:  Sampling 256 additional inputs, on iter 0 have 0 / 256
* * * * [misc]points:  Computing exacts on every 16 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 8 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 4 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 2 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts for 256 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 256 points with exact outputs
* * * [misc]progress:  [2/2] Setting up program.
* [misc]progress:  [Phase 2 of 3] Improving.
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (156 enodes)
* * [misc]simplify:  iters left: 2 (392 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 17 inf + 2
* * [misc]simplify:  Extracting #3: cost 21 inf + 45
* * [misc]simplify:  Extracting #4: cost 114 inf + 90
* * [misc]simplify:  Extracting #5: cost 159 inf + 1713
* * [misc]simplify:  Extracting #6: cost 58 inf + 22373
* * [misc]simplify:  Extracting #7: cost 2 inf + 35618
* * [misc]simplify:  Extracting #8: cost 0 inf + 36066
* [exit]simplify:  Simplified to (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]progress:  iteration 1 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1 2 2)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 2)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2)
* [misc]approximate:  Taking taylor expansion of (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (* -2 J)) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 (* -2 (* (cos (* 1/2 K)) J))) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (* -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (* -2 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (* -2 (* (cos (* 1/2 K)) J))))) into (- (* 1/4 (/ 1 (* (cos (* 1/2 K)) J))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 (* (cos (* 1/2 K)) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (cos (* 1/2 K)) J))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* 1/4 (/ 1 J)) into (/ 1/4 J)
* [misc]backup-simplify:  Simplify (- (/ 1/4 J)) into (- (* 1/4 (/ 1 J)))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1/4 1) into 1/4
* [misc]backup-simplify:  Simplify (- 1/4) into -1/4
* [misc]backup-simplify:  Simplify -1/4 into -1/4
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (+ (* -2 (- (* 1/8 J))) (+ (* 0 0) (* 0 J))) into (* 1/4 J)
* [misc]taylor:  Taking taylor expansion of (* 1/4 J) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* -2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 (- (* 1/8 J))) (+ (* 0 0) (* 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/4 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 (* J (* 1 1))) (* -1/4 (* (/ 1 J) (* 1 (pow U 2))))) into (- (+ (* 2 J) (* 1/4 (/ (pow U 2) J))))
* [misc]approximate:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (/ -2 J)) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* -2 (/ (cos (/ 1/2 K)) J))) into -1
* [misc]taylor:  Taking taylor expansion of -1 in K
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of -1 in J
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (/ -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* -2 (/ (cos (/ 1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (/ -2 J)))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* (/ (cos (/ 1/2 K)) J) (* -2 (/ (cos (/ 1/2 K)) J))))) into (- (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))
* [misc]taylor:  Taking taylor expansion of (- (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) into (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))
* [misc]backup-simplify:  Simplify (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) into (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (- (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))) into (- (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))
* [misc]taylor:  Taking taylor expansion of (- (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 2) 1) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ 1/2 K)) 2) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ 1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (+ (* (/ (cos (/ 1/2 K)) J) 0) (* 0 (* -2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ 1/2 K)) 2) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -1 (* 1 (* 1 (/ 1 (/ 1 U))))) into (* -1 U)
* [misc]approximate:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (/ 2 J)) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (/ (cos (/ -1/2 K)) J))) into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (/ 2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 2 (/ (cos (/ -1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (/ 2 J)))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* (/ (cos (/ -1/2 K)) J) (* 2 (/ (cos (/ -1/2 K)) J))))) into (* 2 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) into (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))
* [misc]backup-simplify:  Simplify (* 2 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) into (* 2 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 2) 1) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ -1/2 K)) 2) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (pow (cos (/ -1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ -1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (+ (* (/ (cos (/ -1/2 K)) J) 0) (* 0 (* 2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ -1/2 K)) 2) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 (* 1 (* 1 (/ 1 (/ 1 (- U)))))) into (* -1 U)
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1 2 2)
* [misc]approximate:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in (K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) 2))) into -1/4
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* -1/4 J))) into (- (* 1/4 J))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 J)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 J) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/4 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* 1/2 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* -1/4 0) (* 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 1) (* 0 0)) into 1/4
* [misc]backup-simplify:  Simplify (- 1/4) into -1/4
* [misc]backup-simplify:  Simplify -1/4 into -1/4
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* 1/2 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 1/2 4) 24)) 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 1/384
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (+ (* 0 0) (* 1/384 2))))) into 1/192
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* -1/4 0) (+ (* 0 0) (* 1/192 J))))) into (* 1/192 J)
* [misc]taylor:  Taking taylor expansion of (* 1/192 J) in J
* [misc]taylor:  Taking taylor expansion of 1/192 in J
* [misc]backup-simplify:  Simplify 1/192 into 1/192
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/192 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1/4 (* J (pow K 2))) (* 2 (* J 1))) into (- (* 2 J) (* 1/4 (* (pow K 2) J)))
* [misc]approximate:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in (K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (cos (/ 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 (/ 1 J)) 1)) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in (K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ (cos (/ -1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (/ 1 (- J))) 1)) into (* 2 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 2)
* [misc]approximate:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in (K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* 1 (* -2 J)) into (* -2 J)
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (* -2 J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) (* -2 J)))) into (* 1/4 J)
* [misc]taylor:  Taking taylor expansion of (* 1/4 J) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/4 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* 1/2 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 (* -2 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 1) (* 0 0)) into 1/4
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* 1/2 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 1/2 4) 24)) 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 1/384
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (+ (* 0 0) (* 1/384 (* -2 J)))))) into (- (* 1/192 J))
* [misc]taylor:  Taking taylor expansion of (- (* 1/192 J)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/192 J) in J
* [misc]taylor:  Taking taylor expansion of 1/192 in J
* [misc]backup-simplify:  Simplify 1/192 into 1/192
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/192 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 (* J (pow K 2))) (* -2 (* J 1))) into (- (* 1/4 (* (pow K 2) J)) (* 2 J))
* [misc]approximate:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in (K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (/ -2 J)) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ (cos (/ 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (/ -2 J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (/ -2 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -2 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 (/ 1 J)) 1)) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in (K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (/ 2 J)) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (cos (/ -1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (/ 2 J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (/ 2 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 2 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (/ 1 (- J))) 1)) into (* -2 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1 2)
* [misc]approximate:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (/ 1/2 J) into (/ 1/2 J)
* [misc]taylor:  Taking taylor expansion of (/ 1/2 J) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 J) (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 J) (/ (- (* 1/8 J)) J)) (* 0 (/ 0 J)))) into (* 1/16 (/ 1 J))
* [misc]taylor:  Taking taylor expansion of (* 1/16 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 J) (/ 0 J)) (* 0 (/ (- (* 1/8 J)) J)) (* (* 1/16 (/ 1 J)) (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 (* (/ 1 J) (* (pow K 2) U))) (* 1/2 (* (/ 1 J) (* 1 U)))) into (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
* [misc]approximate:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ J (cos (/ 1/2 K)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 (/ 1 (/ 1 U))))) into (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* [misc]approximate:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ J (cos (/ -1/2 K)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 (/ 1 (/ 1 (- U)))))) into (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 73 ] simplifiying candidate #<alt (λ (J K U) (log1p (expm1 (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 2 / 73 ] simplifiying candidate #<alt (λ (J K U) (expm1 (log1p (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 3 / 73 ] simplifiying candidate #<alt (λ (J K U) (pow (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) 1))>
* [enter]simplify:  Simplifying (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (89 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 16 inf + 2
* * [misc]simplify:  Extracting #3: cost 19 inf + 45
* * [misc]simplify:  Extracting #4: cost 20 inf + 48
* * [misc]simplify:  Extracting #5: cost 15 inf + 460
* * [misc]simplify:  Extracting #6: cost 8 inf + 1621
* * [misc]simplify:  Extracting #7: cost 2 inf + 3664
* * [misc]simplify:  Extracting #8: cost 0 inf + 4345
* [exit]simplify:  Simplified to (* (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J)) (* (* -2 J) (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J)) (* (* -2 J) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 4 / 73 ] simplifiying candidate #<alt (λ (J K U) (pow (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) 1))>
* [enter]simplify:  Simplifying (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (89 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 16 inf + 2
* * [misc]simplify:  Extracting #3: cost 19 inf + 45
* * [misc]simplify:  Extracting #4: cost 20 inf + 48
* * [misc]simplify:  Extracting #5: cost 15 inf + 460
* * [misc]simplify:  Extracting #6: cost 8 inf + 1621
* * [misc]simplify:  Extracting #7: cost 2 inf + 3664
* * [misc]simplify:  Extracting #8: cost 0 inf + 4345
* [exit]simplify:  Simplified to (* (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J)) (* (* -2 J) (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J)) (* (* -2 J) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 5 / 73 ] simplifiying candidate #<alt (λ (J K U) (pow (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) 1))>
* * * * [misc]progress:  [ 6 / 73 ] simplifiying candidate #<alt (λ (J K U) (exp (+ (log (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (+ (log (cos (/ K 2))) (log (* -2 J))))))>
* [enter]simplify:  Simplifying (+ (log (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (+ (log (cos (/ K 2))) (log (* -2 J))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (100 enodes)
* * [misc]simplify:  iters left: 1 (104 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 20 inf + 0
* * [misc]simplify:  Extracting #3: cost 21 inf + 2
* * [misc]simplify:  Extracting #4: cost 21 inf + 299
* * [misc]simplify:  Extracting #5: cost 21 inf + 446
* * [misc]simplify:  Extracting #6: cost 11 inf + 2044
* * [misc]simplify:  Extracting #7: cost 3 inf + 5273
* * [misc]simplify:  Extracting #8: cost 0 inf + 6874
* [exit]simplify:  Simplified to (+ (log (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (+ (log (* J -2)) (log (cos (/ K 2)))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (exp (+ (log (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (+ (log (* J -2)) (log (cos (/ K 2)))))))
* * * * [misc]progress:  [ 7 / 73 ] simplifiying candidate #<alt (λ (J K U) (exp (+ (log (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (log (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (+ (log (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (log (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (56 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (108 enodes)
* * [misc]simplify:  iters left: 1 (116 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 23 inf + 0
* * [misc]simplify:  Extracting #3: cost 23 inf + 44
* * [misc]simplify:  Extracting #4: cost 24 inf + 299
* * [misc]simplify:  Extracting #5: cost 23 inf + 446
* * [misc]simplify:  Extracting #6: cost 9 inf + 2727
* * [misc]simplify:  Extracting #7: cost 2 inf + 5820
* * [misc]simplify:  Extracting #8: cost 0 inf + 6741
* [exit]simplify:  Simplified to (+ (log (hypot 1 (/ U (* (* J (cos (/ K 2))) 2)))) (log (* (cos (/ K 2)) (* -2 J))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (exp (+ (log (hypot 1 (/ U (* (* J (cos (/ K 2))) 2)))) (log (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 8 / 73 ] simplifiying candidate #<alt (λ (J K U) (exp (log (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 9 / 73 ] simplifiying candidate #<alt (λ (J K U) (log (exp (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 10 / 73 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J))))))>
* [enter]simplify:  Simplifying (* (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (49 enodes)
* * [misc]simplify:  iters left: 4 (156 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 47 inf + 0
* * [misc]simplify:  Extracting #2: cost 156 inf + 44
* * [misc]simplify:  Extracting #3: cost 161 inf + 751
* * [misc]simplify:  Extracting #4: cost 152 inf + 2083
* * [misc]simplify:  Extracting #5: cost 115 inf + 10391
* * [misc]simplify:  Extracting #6: cost 25 inf + 51092
* * [misc]simplify:  Extracting #7: cost 0 inf + 64482
* [exit]simplify:  Simplified to (* (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (* (* (cos (/ K 2)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (* -2 J) (* (* -2 J) (* -2 J)))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (cbrt (* (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (* (* (cos (/ K 2)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (* -2 J) (* (* -2 J) (* -2 J)))))))
* * * * [misc]progress:  [ 11 / 73 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (* (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (44 enodes)
* * [misc]simplify:  iters left: 4 (132 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 34 inf + 0
* * [misc]simplify:  Extracting #2: cost 140 inf + 2
* * [misc]simplify:  Extracting #3: cost 154 inf + 382
* * [misc]simplify:  Extracting #4: cost 146 inf + 1111
* * [misc]simplify:  Extracting #5: cost 110 inf + 9076
* * [misc]simplify:  Extracting #6: cost 33 inf + 41122
* * [misc]simplify:  Extracting #7: cost 1 inf + 57673
* * [misc]simplify:  Extracting #8: cost 0 inf + 58194
* [exit]simplify:  Simplified to (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* (* J -2) (cos (/ K 2))) (* (* (* J -2) (cos (/ K 2))) (* (* J -2) (cos (/ K 2))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (cbrt (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* (* J -2) (cos (/ K 2))) (* (* (* J -2) (cos (/ K 2))) (* (* J -2) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 12 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (* (cbrt (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))) (cbrt (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 13 / 73 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 14 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))) (sqrt (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 15 / 73 ] simplifiying candidate #<alt (λ (J K U) (* 1 (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 16 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (cos (/ K 2))) (* -2 J)))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (cos (/ K 2))) (* -2 J)))
* * * * [misc]progress:  [ 17 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1891
* * [misc]simplify:  Extracting #11: cost 0 inf + 2291
* [exit]simplify:  Simplified to (* (cbrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (cbrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* (* (cbrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (cbrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 18 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 12 inf + 3
* * [misc]simplify:  Extracting #5: cost 11 inf + 46
* * [misc]simplify:  Extracting #6: cost 11 inf + 88
* * [misc]simplify:  Extracting #7: cost 6 inf + 519
* * [misc]simplify:  Extracting #8: cost 2 inf + 1251
* * [misc]simplify:  Extracting #9: cost 0 inf + 1851
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 19 / 73 ] simplifiying candidate #<alt (λ (J K U) (* 1 (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 20 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (* (cos (/ K 2)) (* -2 J)) (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))>
* * * * [misc]progress:  [ 21 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (log1p (expm1 (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 22 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (expm1 (log1p (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 23 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (pow (* (* (cos (/ K 2)) 2) J) 1))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 24 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (exp (log (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 25 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (log (exp (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 26 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cbrt (* (* (cos (/ K 2)) 2) J)) (cbrt (* (* (cos (/ K 2)) 2) J))) (cbrt (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 27 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (cbrt (* (* (* (* (cos (/ K 2)) 2) J) (* (* (cos (/ K 2)) 2) J)) (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 28 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (sqrt (* (* (cos (/ K 2)) 2) J)) (sqrt (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 29 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* 1 (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 30 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (cos (/ K 2)) (* 2 J)))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (cos (/ K 2))
* * [misc]simplify:  iters left: 3 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 2 inf + 2
* * [misc]simplify:  Extracting #4: cost 0 inf + 146
* [exit]simplify:  Simplified to (cos (/ K 2))
* [misc]simplify:  Simplified (2 1 2 2 1) to (λ (J K U) (* (hypot 1 (/ U (* (cos (/ K 2)) (* 2 J)))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 31 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* J (* (cos (/ K 2)) 2)))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 32 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (log1p (expm1 (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 33 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (expm1 (log1p (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 34 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (pow (* (cos (/ K 2)) (* -2 J)) 1)))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (* -2 J))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (12 enodes)
* * [misc]simplify:  iters left: 3 (18 enodes)
* * [misc]simplify:  iters left: 2 (19 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 5 inf + 44
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* -2 J))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (pow (* (cos (/ K 2)) (* -2 J)) 1)))
* * * * [misc]progress:  [ 35 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (pow (* (cos (/ K 2)) (* -2 J)) 1)))>
* * * * [misc]progress:  [ 36 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (exp (+ (log (cos (/ K 2))) (log (* -2 J))))))>
* [enter]simplify:  Simplifying (+ (log (cos (/ K 2))) (log (* -2 J)))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (20 enodes)
* * [misc]simplify:  iters left: 3 (24 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 11 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 298
* * [misc]simplify:  Extracting #4: cost 8 inf + 298
* * [misc]simplify:  Extracting #5: cost 6 inf + 300
* * [misc]simplify:  Extracting #6: cost 4 inf + 444
* * [misc]simplify:  Extracting #7: cost 1 inf + 1223
* * [misc]simplify:  Extracting #8: cost 0 inf + 1506
* [exit]simplify:  Simplified to (+ (log (* -2 J)) (log (cos (/ K 2))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (exp (+ (log (* -2 J)) (log (cos (/ K 2)))))))
* * * * [misc]progress:  [ 37 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (exp (log (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 38 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (log (exp (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 39 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (cbrt (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J))))))>
* [enter]simplify:  Simplifying (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (80 enodes)
* * [misc]simplify:  iters left: 3 (246 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 59 inf + 0
* * [misc]simplify:  Extracting #2: cost 101 inf + 168
* * [misc]simplify:  Extracting #3: cost 93 inf + 906
* * [misc]simplify:  Extracting #4: cost 66 inf + 6192
* * [misc]simplify:  Extracting #5: cost 8 inf + 21579
* * [misc]simplify:  Extracting #6: cost 0 inf + 24171
* [exit]simplify:  Simplified to (* (* J -2) (* (* (* J -2) (cos (/ K 2))) (* (cos (/ K 2)) (* (* J -2) (cos (/ K 2))))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (cbrt (* (* J -2) (* (* (* J -2) (cos (/ K 2))) (* (cos (/ K 2)) (* (* J -2) (cos (/ K 2)))))))))
* * * * [misc]progress:  [ 40 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 41 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (cbrt (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 42 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 43 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* 1 (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 44 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cos (/ K 2)) -2) J)))>
* * * * [misc]progress:  [ 45 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))>
* [enter]simplify:  Simplifying (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (6 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 6 inf + 0
* * [misc]simplify:  Extracting #5: cost 4 inf + 2
* * [misc]simplify:  Extracting #6: cost 0 inf + 550
* [exit]simplify:  Simplified to (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))
* * * * [misc]progress:  [ 46 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (cos (/ K 2)))
* * [misc]simplify:  iters left: 4 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 3 inf + 2
* * [misc]simplify:  Extracting #5: cost 0 inf + 288
* [exit]simplify:  Simplified to (sqrt (cos (/ K 2)))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))
* * * * [misc]progress:  [ 47 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* 1 (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 48 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* -2 J) (cos (/ K 2)))))>
* * * * [misc]progress:  [ 49 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (log1p (expm1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 50 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (expm1 (log1p (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 51 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (pow (/ U (* (* (cos (/ K 2)) 2) J)) 1)) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 52 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (exp (log (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 53 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (log (exp (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 54 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (* (* (cbrt (/ U (* (* (cos (/ K 2)) 2) J))) (cbrt (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 55 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (cbrt (* (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 56 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (* (sqrt (/ U (* (* (cos (/ K 2)) 2) J))) (sqrt (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 57 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ (- U) (- (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 58 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (* 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 59 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (* U (/ 1 (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 60 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ 1 (/ (* (* (cos (/ K 2)) 2) J) U))) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 61 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J)) (* (cos (/ K 2)) (* -2 J))))>
* * * * [misc]progress:  [ 62 / 73 ] simplifiying candidate #<alt (λ (J K U) (- (+ (* 2 J) (* 1/4 (/ (pow U 2) J)))))>
* [enter]simplify:  Simplifying (- (+ (* 2 J) (* 1/4 (/ (pow U 2) J))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (115 enodes)
* * [misc]simplify:  iters left: 1 (154 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 14 inf + 0
* * [misc]simplify:  Extracting #2: cost 35 inf + 5
* * [misc]simplify:  Extracting #3: cost 22 inf + 667
* * [misc]simplify:  Extracting #4: cost 2 inf + 2508
* * [misc]simplify:  Extracting #5: cost 0 inf + 2714
* [exit]simplify:  Simplified to (fma J -2 (/ -1/4 (/ J (* U U))))
* [misc]simplify:  Simplified (2) to (λ (J K U) (fma J -2 (/ -1/4 (/ J (* U U)))))
* * * * [misc]progress:  [ 63 / 73 ] simplifiying candidate #<alt (λ (J K U) (* -1 U))>
* [enter]simplify:  Simplifying (* -1 U)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 0 inf + 43
* [exit]simplify:  Simplified to (- U)
* [misc]simplify:  Simplified (2) to (λ (J K U) (- U))
* * * * [misc]progress:  [ 64 / 73 ] simplifiying candidate #<alt (λ (J K U) (* -1 U))>
* [enter]simplify:  Simplifying (* -1 U)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 0 inf + 43
* [exit]simplify:  Simplified to (- U)
* [misc]simplify:  Simplified (2) to (λ (J K U) (- U))
* * * * [misc]progress:  [ 65 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (- (* 2 J) (* 1/4 (* (pow K 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (- (* 2 J) (* 1/4 (* (pow K 2) J)))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (99 enodes)
* * [misc]simplify:  iters left: 2 (162 enodes)
* * [misc]simplify:  iters left: 1 (177 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 20 inf + 0
* * [misc]simplify:  Extracting #2: cost 21 inf + 46
* * [misc]simplify:  Extracting #3: cost 14 inf + 378
* * [misc]simplify:  Extracting #4: cost 0 inf + 1560
* [exit]simplify:  Simplified to (* J (fma (* K K) -1/4 2))
* [misc]simplify:  Simplified (2 1 2 2) to (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 66 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* 2 (* (cos (* 1/2 K)) J)))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (* 2 (* (cos (* 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 2
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (* K 1/2)) (* J 2))
* [misc]simplify:  Simplified (2 1 2 2) to (λ (J K U) (* (hypot 1 (/ U (* (cos (* K 1/2)) (* J 2)))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 67 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* 2 (* (cos (* 1/2 K)) J)))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (* 2 (* (cos (* 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 2
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (* K 1/2)) (* J 2))
* [misc]simplify:  Simplified (2 1 2 2) to (λ (J K U) (* (hypot 1 (/ U (* (cos (* K 1/2)) (* J 2)))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 68 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (- (* 1/4 (* (pow K 2) J)) (* 2 J))))>
* [enter]simplify:  Simplifying (- (* 1/4 (* (pow K 2) J)) (* 2 J))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (69 enodes)
* * [misc]simplify:  iters left: 2 (88 enodes)
* * [misc]simplify:  iters left: 1 (94 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 18 inf + 0
* * [misc]simplify:  Extracting #2: cost 8 inf + 253
* * [misc]simplify:  Extracting #3: cost 0 inf + 944
* * [misc]simplify:  Extracting #4: cost 0 inf + 904
* [exit]simplify:  Simplified to (* J (fma 1/4 (* K K) -2))
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* J (fma 1/4 (* K K) -2))))
* * * * [misc]progress:  [ 69 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* -2 (* (cos (* 1/2 K)) J))))>
* [enter]simplify:  Simplifying (* -2 (* (cos (* 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 2
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (* K 1/2)) (* J -2))
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (* K 1/2)) (* J -2))))
* * * * [misc]progress:  [ 70 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* -2 (* (cos (* 1/2 K)) J))))>
* [enter]simplify:  Simplifying (* -2 (* (cos (* 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 2
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (* K 1/2)) (* J -2))
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (cos (* K 1/2)) (* J -2))))
* * * * [misc]progress:  [ 71 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (153 enodes)
* * [misc]simplify:  iters left: 1 (253 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 32 inf + 0
* * [misc]simplify:  Extracting #2: cost 46 inf + 46
* * [misc]simplify:  Extracting #3: cost 26 inf + 1616
* * [misc]simplify:  Extracting #4: cost 4 inf + 3737
* * [misc]simplify:  Extracting #5: cost 0 inf + 4553
* [exit]simplify:  Simplified to (* (/ U J) (+ (* (* K K) 1/16) 1/2))
* [misc]simplify:  Simplified (2 1 2) to (λ (J K U) (* (hypot 1 (* (/ U J) (+ (* (* K K) 1/16) 1/2))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 72 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (* 1/2 (/ U (* (cos (* 1/2 K)) J)))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (16 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (68 enodes)
* * [misc]simplify:  iters left: 1 (81 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 21 inf + 0
* * [misc]simplify:  Extracting #2: cost 19 inf + 3
* * [misc]simplify:  Extracting #3: cost 14 inf + 296
* * [misc]simplify:  Extracting #4: cost 12 inf + 339
* * [misc]simplify:  Extracting #5: cost 2 inf + 1929
* * [misc]simplify:  Extracting #6: cost 0 inf + 2295
* [exit]simplify:  Simplified to (/ (* 1/2 (/ U J)) (cos (* 1/2 K)))
* [misc]simplify:  Simplified (2 1 2) to (λ (J K U) (* (hypot 1 (/ (* 1/2 (/ U J)) (cos (* 1/2 K)))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 73 / 73 ] simplifiying candidate #<alt (λ (J K U) (* (hypot 1 (* 1/2 (/ U (* (cos (* 1/2 K)) J)))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (16 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (68 enodes)
* * [misc]simplify:  iters left: 1 (81 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 21 inf + 0
* * [misc]simplify:  Extracting #2: cost 19 inf + 3
* * [misc]simplify:  Extracting #3: cost 14 inf + 296
* * [misc]simplify:  Extracting #4: cost 12 inf + 339
* * [misc]simplify:  Extracting #5: cost 2 inf + 1929
* * [misc]simplify:  Extracting #6: cost 0 inf + 2295
* [exit]simplify:  Simplified to (/ (* 1/2 (/ U J)) (cos (* 1/2 K)))
* [misc]simplify:  Simplified (2 1 2) to (λ (J K U) (* (hypot 1 (/ (* 1/2 (/ U J)) (cos (* 1/2 K)))) (* (cos (/ K 2)) (* -2 J))))
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 2 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 2 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 1/16 in K
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (* 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* 1 (pow J 2)) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ 1/16 (pow J 2)) into (/ 1/16 (pow J 2))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ 1/16 (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ 1/2 K)))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ 1/2 K))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) J) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ 1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ -1/2 K)))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ -1/2 K))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) J) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ -1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 1/16 in K
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (* 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* 1 (pow J 2)) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ 1/16 (pow J 2)) into (/ 1/16 (pow J 2))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ 1/16 (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ 1/2 K)))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ 1/2 K))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) J) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ 1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ -1/2 K)))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ -1/2 K))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) J) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ -1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2)
* [misc]approximate:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (* -2 J)) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 (* -2 (* (cos (* 1/2 K)) J))) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 (* -2 (* (cos (* 1/2 K)) J))) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (* -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (* -2 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (* -2 (* (cos (* 1/2 K)) J))))) into (- (* 1/8 (/ 1 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ (* 1 (- (* 1/8 (/ 1 (* (cos (* 1/2 K)) J))))) (+ (* 0 0) (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (* -2 (* (cos (* 1/2 K)) J))))) into (- (* 1/4 (/ 1 (* (cos (* 1/2 K)) J))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 (* (cos (* 1/2 K)) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (cos (* 1/2 K)) J))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* 1/4 (/ 1 J)) into (/ 1/4 J)
* [misc]backup-simplify:  Simplify (- (/ 1/4 J)) into (- (* 1/4 (/ 1 J)))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (+ (* -2 (- (* 1/8 J))) (+ (* 0 0) (* 0 J))) into (* 1/4 J)
* [misc]taylor:  Taking taylor expansion of (* 1/4 J) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* -2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 (- (* 1/8 (/ 1 (* (cos (* 1/2 K)) J))))) (+ (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 (- (* 1/8 J))) (+ (* 0 0) (* 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/4 1) into 1/4
* [misc]backup-simplify:  Simplify (- 1/4) into -1/4
* [misc]backup-simplify:  Simplify -1/4 into -1/4
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* -2 J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (+ (* 0 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 2) (+ (* 2 (* 0 0)))) (* 2 1)) into (/ -1/128 (* (pow (cos (* 1/2 K)) 4) (pow J 4)))
* [misc]backup-simplify:  Simplify (/ (- (/ -1/128 (* (pow (cos (* 1/2 K)) 4) (pow J 4))) (pow (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 2) (+ (* 2 (* 0 0)))) (* 2 1)) into (/ -3/512 (* (pow (cos (* 1/2 K)) 4) (pow J 4)))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 0) (+ (* 0 0) (* (/ -3/512 (* (pow (cos (* 1/2 K)) 4) (pow J 4))) (* -2 (* (cos (* 1/2 K)) J))))))) into (* 3/256 (/ 1 (* (pow (cos (* 1/2 K)) 3) (pow J 3))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))) (* 0 (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (+ (* 0 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 2) (+ (* 2 (* 0 0)))) (* 2 1)) into (/ -1/128 (* (pow (cos (* 1/2 K)) 4) (pow J 4)))
* [misc]backup-simplify:  Simplify (/ (- (/ -1/128 (* (pow (cos (* 1/2 K)) 4) (pow J 4))) (pow (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 2) (+ (* 2 (* 0 0)))) (* 2 1)) into (/ -3/512 (* (pow (cos (* 1/2 K)) 4) (pow J 4)))
* [misc]backup-simplify:  Simplify (+ (* 1 (* 3/256 (/ 1 (* (pow (cos (* 1/2 K)) 3) (pow J 3))))) (+ (* 0 0) (+ (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (- (* 1/8 (/ 1 (* (cos (* 1/2 K)) J))))) (+ (* 0 0) (* (/ -3/512 (* (pow (cos (* 1/2 K)) 4) (pow J 4))) (* -2 (* (cos (* 1/2 K)) J))))))) into (* 1/64 (/ 1 (* (pow (cos (* 1/2 K)) 3) (pow J 3))))
* [misc]taylor:  Taking taylor expansion of (* 1/64 (/ 1 (* (pow (cos (* 1/2 K)) 3) (pow J 3)))) in K
* [misc]taylor:  Taking taylor expansion of 1/64 in K
* [misc]backup-simplify:  Simplify 1/64 into 1/64
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (pow (cos (* 1/2 K)) 3) (pow J 3))) in K
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (* 1/2 K)) 3) (pow J 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* 1 (pow J 3)) into (pow J 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow J 3)) into (/ 1 (pow J 3))
* [misc]backup-simplify:  Simplify (* 1/64 (/ 1 (pow J 3))) into (/ 1/64 (pow J 3))
* [misc]taylor:  Taking taylor expansion of (/ 1/64 (pow J 3)) in J
* [misc]taylor:  Taking taylor expansion of 1/64 in J
* [misc]backup-simplify:  Simplify 1/64 into 1/64
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/64 1) into 1/64
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/64 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ (- (* 1/8 J)) J)) (* 0 (/ 0 J)))) into (* 1/8 (/ 1 J))
* [misc]backup-simplify:  Simplify (+ (* 1/4 (* 1/8 (/ 1 J))) (+ (* 0 0) (* 0 (/ 1 J)))) into (* 1/32 (/ 1 J))
* [misc]backup-simplify:  Simplify (- (* 1/32 (/ 1 J))) into (- (* 1/32 (/ 1 J)))
* [misc]taylor:  Taking taylor expansion of (- (* 1/32 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/32 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/32 in J
* [misc]backup-simplify:  Simplify 1/32 into 1/32
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 1/2 4) 24)) 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 1/384
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (+ (* 0 0) (* 1/384 J))))) into (* 1/384 J)
* [misc]backup-simplify:  Simplify (+ (* -2 (* 1/384 J)) (+ (* 0 0) (+ (* 0 (- (* 1/8 J))) (+ (* 0 0) (* 0 J))))) into (- (* 1/192 J))
* [misc]taylor:  Taking taylor expansion of (- (* 1/192 J)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/192 J) in J
* [misc]taylor:  Taking taylor expansion of 1/192 in J
* [misc]backup-simplify:  Simplify 1/192 into 1/192
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/4 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 (* J (* 1 1))) (* -1/4 (* (/ 1 J) (* 1 (pow U 2))))) into (- (+ (* 2 J) (* 1/4 (/ (pow U 2) J))))
* [misc]approximate:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (/ -2 J)) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 0 (* -2 (/ (cos (/ 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (/ -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* -2 (/ (cos (/ 1/2 K)) J)))) into (- +nan.0)
* [misc]backup-simplify:  Simplify (+ (* 0 (- +nan.0)) (* (* +nan.0 (/ J (cos (/ 1/2 K)))) 0)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (/ -2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ 1/2 K)))) 0) (* (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (* -2 (/ (cos (/ 1/2 K)) J))))) into (- (* +nan.0 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ (* 0 (- (* +nan.0 (/ J (cos (/ 1/2 K)))))) (+ (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (- +nan.0)) (* (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) 0))) into (- (* +nan.0 (/ J (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ J (cos (/ 1/2 K))))) into (- (* +nan.0 (/ J (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -2 J))))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ 1/2 K)))) 0) (+ (* (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) 0) (* (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) (* -2 (/ (cos (/ 1/2 K)) J)))))) into (- (+ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (+ (* 0 (- (+ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))))) (+ (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (- (* +nan.0 (/ J (cos (/ 1/2 K)))))) (+ (* (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- +nan.0)) (* (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) 0)))) into (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]approximate:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (/ 2 J)) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 0 (* 2 (/ (cos (/ -1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (/ 2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* 2 (/ (cos (/ -1/2 K)) J)))) into (- +nan.0)
* [misc]backup-simplify:  Simplify (+ (* 0 (- +nan.0)) (* (* +nan.0 (/ J (cos (/ -1/2 K)))) 0)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (/ 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ -1/2 K)))) 0) (* (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) (* 2 (/ (cos (/ -1/2 K)) J))))) into (- (* +nan.0 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ (* 0 (- (* +nan.0 (/ J (cos (/ -1/2 K)))))) (+ (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (- +nan.0)) (* (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) 0))) into (- (* +nan.0 (/ J (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ J (cos (/ -1/2 K))))) into (- (* +nan.0 (/ J (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 2 J))))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ -1/2 K)))) 0) (+ (* (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) 0) (* (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) (* 2 (/ (cos (/ -1/2 K)) J)))))) into (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (+ (* 0 (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (+ (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (- (* +nan.0 (/ J (cos (/ -1/2 K)))))) (+ (* (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) (- +nan.0)) (* (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) 0)))) into (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 2)
* [misc]approximate:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (* -2 J)) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 (* -2 (* (cos (* 1/2 K)) J))) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (* -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (* -2 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (* -2 (* (cos (* 1/2 K)) J))))) into (- (* 1/8 (/ 1 (* (cos (* 1/2 K)) J))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/8 (/ 1 (* (cos (* 1/2 K)) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ 1 (* (cos (* 1/2 K)) J))) in K
* [misc]taylor:  Taking taylor expansion of 1/8 in K
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* 1/8 (/ 1 J)) into (/ 1/8 J)
* [misc]backup-simplify:  Simplify (- (/ 1/8 J)) into (- (* 1/8 (/ 1 J)))
* [misc]taylor:  Taking taylor expansion of (- (* 1/8 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/8 in J
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1/8 1) into 1/8
* [misc]backup-simplify:  Simplify (- 1/8) into -1/8
* [misc]backup-simplify:  Simplify -1/8 into -1/8
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (+ (* -2 (- (* 1/8 J))) (+ (* 0 0) (* 0 J))) into (* 1/4 J)
* [misc]taylor:  Taking taylor expansion of (* 1/4 J) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* -2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/8 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 (- (* 1/8 J))) (+ (* 0 0) (* 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/8 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/4 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 (* J (* 1 1))) (* -1/8 (* (/ 1 J) (* 1 (pow U 2))))) into (- (+ (* 2 J) (* 1/8 (/ (pow U 2) J))))
* [misc]approximate:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (/ -2 J)) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 0 (* -2 (/ (cos (/ 1/2 K)) J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (/ -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* -2 (/ (cos (/ 1/2 K)) J)))) into (- +nan.0)
* [misc]taylor:  Taking taylor expansion of (- +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]taylor:  Taking taylor expansion of (- +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (/ -2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ 1/2 K)))) 0) (* (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (* -2 (/ (cos (/ 1/2 K)) J))))) into (- (* +nan.0 (/ J (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ J (cos (/ 1/2 K))))) into (- (* +nan.0 (/ J (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -2 J))))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ 1/2 K)))) 0) (+ (* (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) 0) (* (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) (* -2 (/ (cos (/ 1/2 K)) J)))))) into (- (+ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) into (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) into (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))))) into (- (+ (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))
* [misc]backup-simplify:  Simplify (- (- (+ (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) into (- (+ (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow (cos (/ 1/2 K)) 2) (pow J 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ 1/2 K)) 2) (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 2) 1) into (pow (cos (/ 1/2 K)) 2)
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ 1/2 K)) 2) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]approximate:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (/ 2 J)) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 0 (* 2 (/ (cos (/ -1/2 K)) J))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (/ 2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* 2 (/ (cos (/ -1/2 K)) J)))) into (- +nan.0)
* [misc]taylor:  Taking taylor expansion of (- +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]taylor:  Taking taylor expansion of (- +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (/ 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ -1/2 K)))) 0) (* (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) (* 2 (/ (cos (/ -1/2 K)) J))))) into (- (* +nan.0 (/ J (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ J (cos (/ -1/2 K))))) into (- (* +nan.0 (/ J (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ J (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 2 J))))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (/ J (cos (/ -1/2 K)))) 0) (+ (* (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) 0) (* (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) (* 2 (/ (cos (/ -1/2 K)) J)))))) into (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) into (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) into (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))) into (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))
* [misc]backup-simplify:  Simplify (- (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) into (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow (cos (/ -1/2 K)) 2) (pow J 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ -1/2 K)) 2) (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 2) 1) into (pow (cos (/ -1/2 K)) 2)
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ -1/2 K)) 2) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (pow (cos (/ -1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- +nan.0) into (- +nan.0)
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (log1p (expm1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 2 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (expm1 (log1p (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 3 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (pow (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) 1/2) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 4 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (pow (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) 1) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 5 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (exp (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 6 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (log (exp (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 7 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 8 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cbrt (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 9 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 10 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 11 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt 1) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 12 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 13 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (fabs (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 12 inf + 3
* * [misc]simplify:  Extracting #5: cost 11 inf + 46
* * [misc]simplify:  Extracting #6: cost 11 inf + 88
* * [misc]simplify:  Extracting #7: cost 6 inf + 519
* * [misc]simplify:  Extracting #8: cost 2 inf + 1251
* * [misc]simplify:  Extracting #9: cost 0 inf + 1851
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (fabs (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 14 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 15 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (log1p (expm1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 16 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (expm1 (log1p (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 17 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (pow (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) 1/2) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 18 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (pow (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) 1) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 19 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (exp (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 20 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (log (exp (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 21 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 22 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (cbrt (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 23 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 24 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 25 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt 1) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 26 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 27 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (fabs (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 12 inf + 3
* * [misc]simplify:  Extracting #5: cost 11 inf + 46
* * [misc]simplify:  Extracting #6: cost 11 inf + 88
* * [misc]simplify:  Extracting #7: cost 6 inf + 519
* * [misc]simplify:  Extracting #8: cost 2 inf + 1251
* * [misc]simplify:  Extracting #9: cost 0 inf + 1851
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (fabs (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 28 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* * * * [misc]progress:  [ 29 / 89 ] simplifiying candidate #<alt (λ (J K U) (log1p (expm1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 30 / 89 ] simplifiying candidate #<alt (λ (J K U) (expm1 (log1p (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 31 / 89 ] simplifiying candidate #<alt (λ (J K U) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) 1))>
* [enter]simplify:  Simplifying (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (124 enodes)
* * [misc]simplify:  iters left: 2 (180 enodes)
* * [misc]simplify:  iters left: 1 (186 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 23 inf + 0
* * [misc]simplify:  Extracting #2: cost 24 inf + 2
* * [misc]simplify:  Extracting #3: cost 27 inf + 45
* * [misc]simplify:  Extracting #4: cost 25 inf + 335
* * [misc]simplify:  Extracting #5: cost 16 inf + 1621
* * [misc]simplify:  Extracting #6: cost 11 inf + 3344
* * [misc]simplify:  Extracting #7: cost 3 inf + 6228
* * [misc]simplify:  Extracting #8: cost 0 inf + 7389
* [exit]simplify:  Simplified to (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 32 / 89 ] simplifiying candidate #<alt (λ (J K U) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) 1))>
* [enter]simplify:  Simplifying (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (124 enodes)
* * [misc]simplify:  iters left: 2 (180 enodes)
* * [misc]simplify:  iters left: 1 (186 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 23 inf + 0
* * [misc]simplify:  Extracting #2: cost 24 inf + 2
* * [misc]simplify:  Extracting #3: cost 27 inf + 45
* * [misc]simplify:  Extracting #4: cost 25 inf + 335
* * [misc]simplify:  Extracting #5: cost 16 inf + 1621
* * [misc]simplify:  Extracting #6: cost 11 inf + 3344
* * [misc]simplify:  Extracting #7: cost 3 inf + 6228
* * [misc]simplify:  Extracting #8: cost 0 inf + 7389
* [exit]simplify:  Simplified to (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 33 / 89 ] simplifiying candidate #<alt (λ (J K U) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) 1))>
* [enter]simplify:  Simplifying (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (124 enodes)
* * [misc]simplify:  iters left: 2 (180 enodes)
* * [misc]simplify:  iters left: 1 (186 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 23 inf + 0
* * [misc]simplify:  Extracting #2: cost 24 inf + 2
* * [misc]simplify:  Extracting #3: cost 27 inf + 45
* * [misc]simplify:  Extracting #4: cost 25 inf + 335
* * [misc]simplify:  Extracting #5: cost 16 inf + 1621
* * [misc]simplify:  Extracting #6: cost 11 inf + 3344
* * [misc]simplify:  Extracting #7: cost 3 inf + 6228
* * [misc]simplify:  Extracting #8: cost 0 inf + 7389
* [exit]simplify:  Simplified to (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 34 / 89 ] simplifiying candidate #<alt (λ (J K U) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) 1))>
* * * * [misc]progress:  [ 35 / 89 ] simplifiying candidate #<alt (λ (J K U) (exp (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (cos (/ K 2))) (log (* -2 J)))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (cos (/ K 2))) (log (* -2 J)))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (39 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (119 enodes)
* * [misc]simplify:  iters left: 2 (190 enodes)
* * [misc]simplify:  iters left: 1 (239 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 23 inf + 0
* * [misc]simplify:  Extracting #2: cost 28 inf + 0
* * [misc]simplify:  Extracting #3: cost 24 inf + 298
* * [misc]simplify:  Extracting #4: cost 28 inf + 298
* * [misc]simplify:  Extracting #5: cost 25 inf + 617
* * [misc]simplify:  Extracting #6: cost 26 inf + 1508
* * [misc]simplify:  Extracting #7: cost 19 inf + 2386
* * [misc]simplify:  Extracting #8: cost 18 inf + 2610
* * [misc]simplify:  Extracting #9: cost 14 inf + 4211
* * [misc]simplify:  Extracting #10: cost 2 inf + 10907
* * [misc]simplify:  Extracting #11: cost 0 inf + 12138
* [exit]simplify:  Simplified to (+ (+ (log (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (log (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (+ (log (cos (/ K 2))) (log (* -2 J))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (exp (+ (+ (log (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (log (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (+ (log (cos (/ K 2))) (log (* -2 J))))))
* * * * [misc]progress:  [ 36 / 89 ] simplifiying candidate #<alt (λ (J K U) (exp (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (* (cos (/ K 2)) (* -2 J)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (64 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (161 enodes)
* * [misc]simplify:  iters left: 1 (212 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 23 inf + 0
* * [misc]simplify:  Extracting #2: cost 31 inf + 0
* * [misc]simplify:  Extracting #3: cost 30 inf + 73
* * [misc]simplify:  Extracting #4: cost 31 inf + 298
* * [misc]simplify:  Extracting #5: cost 29 inf + 445
* * [misc]simplify:  Extracting #6: cost 23 inf + 2245
* * [misc]simplify:  Extracting #7: cost 11 inf + 5769
* * [misc]simplify:  Extracting #8: cost 0 inf + 11755
* [exit]simplify:  Simplified to (+ (+ (log (sqrt (hypot 1 (/ U (* (* J (cos (/ K 2))) 2))))) (log (sqrt (hypot 1 (/ U (* (* J (cos (/ K 2))) 2)))))) (log (* (* J -2) (cos (/ K 2)))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (exp (+ (+ (log (sqrt (hypot 1 (/ U (* (* J (cos (/ K 2))) 2))))) (log (sqrt (hypot 1 (/ U (* (* J (cos (/ K 2))) 2)))))) (log (* (* J -2) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 37 / 89 ] simplifiying candidate #<alt (λ (J K U) (exp (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (76 enodes)
* * [misc]simplify:  iters left: 3 (138 enodes)
* * [misc]simplify:  iters left: 2 (225 enodes)
* * [misc]simplify:  iters left: 1 (264 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 23 inf + 0
* * [misc]simplify:  Extracting #2: cost 38 inf + 0
* * [misc]simplify:  Extracting #3: cost 37 inf + 73
* * [misc]simplify:  Extracting #4: cost 38 inf + 298
* * [misc]simplify:  Extracting #5: cost 36 inf + 445
* * [misc]simplify:  Extracting #6: cost 35 inf + 1088
* * [misc]simplify:  Extracting #7: cost 25 inf + 2727
* * [misc]simplify:  Extracting #8: cost 11 inf + 8702
* * [misc]simplify:  Extracting #9: cost 0 inf + 14069
* [exit]simplify:  Simplified to (+ (log (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (+ (log (* (* J -2) (cos (/ K 2)))) (log (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (exp (+ (log (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (+ (log (* (* J -2) (cos (/ K 2)))) (log (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))))))
* * * * [misc]progress:  [ 38 / 89 ] simplifiying candidate #<alt (λ (J K U) (exp (log (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 39 / 89 ] simplifiying candidate #<alt (λ (J K U) (log (exp (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 40 / 89 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J)))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (56 enodes)
* * [misc]simplify:  iters left: 4 (198 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 55 inf + 0
* * [misc]simplify:  Extracting #2: cost 221 inf + 2
* * [misc]simplify:  Extracting #3: cost 237 inf + 841
* * [misc]simplify:  Extracting #4: cost 207 inf + 7058
* * [misc]simplify:  Extracting #5: cost 166 inf + 19413
* * [misc]simplify:  Extracting #6: cost 81 inf + 62680
* * [misc]simplify:  Extracting #7: cost 8 inf + 102607
* * [misc]simplify:  Extracting #8: cost 0 inf + 106814
* * [misc]simplify:  Extracting #9: cost 0 inf + 106734
* [exit]simplify:  Simplified to (* (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))) (* (* (* (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))) (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (* (cos (/ K 2)) (cos (/ K 2)))) (* (* 4 (* (* J J) -2)) (* J (cos (/ K 2))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (cbrt (* (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))) (* (* (* (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))) (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (* (cos (/ K 2)) (cos (/ K 2)))) (* (* 4 (* (* J J) -2)) (* J (cos (/ K 2))))))))
* * * * [misc]progress:  [ 41 / 89 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J)))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (51 enodes)
* * [misc]simplify:  iters left: 4 (172 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 46 inf + 0
* * [misc]simplify:  Extracting #2: cost 188 inf + 2
* * [misc]simplify:  Extracting #3: cost 225 inf + 130
* * [misc]simplify:  Extracting #4: cost 211 inf + 2938
* * [misc]simplify:  Extracting #5: cost 165 inf + 14445
* * [misc]simplify:  Extracting #6: cost 111 inf + 37584
* * [misc]simplify:  Extracting #7: cost 14 inf + 86734
* * [misc]simplify:  Extracting #8: cost 0 inf + 93794
* * [misc]simplify:  Extracting #9: cost 0 inf + 93754
* [exit]simplify:  Simplified to (* (* (hypot 1 (/ U (* (* J (cos (/ K 2))) 2))) (hypot 1 (/ U (* (* J (cos (/ K 2))) 2)))) (* (* (* (* 4 (* J (cos (/ K 2)))) (* J (cos (/ K 2)))) (* J (cos (/ K 2)))) (* -2 (hypot 1 (/ U (* (* J (cos (/ K 2))) 2))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (cbrt (* (* (hypot 1 (/ U (* (* J (cos (/ K 2))) 2))) (hypot 1 (/ U (* (* J (cos (/ K 2))) 2)))) (* (* (* (* 4 (* J (cos (/ K 2)))) (* J (cos (/ K 2)))) (* J (cos (/ K 2)))) (* -2 (hypot 1 (/ U (* (* J (cos (/ K 2))) 2))))))))
* * * * [misc]progress:  [ 42 / 89 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (49 enodes)
* * [misc]simplify:  iters left: 4 (155 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 42 inf + 0
* * [misc]simplify:  Extracting #2: cost 172 inf + 44
* * [misc]simplify:  Extracting #3: cost 218 inf + 300
* * [misc]simplify:  Extracting #4: cost 207 inf + 2509
* * [misc]simplify:  Extracting #5: cost 189 inf + 6060
* * [misc]simplify:  Extracting #6: cost 183 inf + 8167
* * [misc]simplify:  Extracting #7: cost 118 inf + 38071
* * [misc]simplify:  Extracting #8: cost 10 inf + 95129
* * [misc]simplify:  Extracting #9: cost 0 inf + 100859
* [exit]simplify:  Simplified to (* (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (* -2 J) (cos (/ K 2)))) (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (* -2 J) (cos (/ K 2)))))) (* (* -2 J) (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (cbrt (* (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (* -2 J) (cos (/ K 2)))) (* (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)) (* (* -2 J) (cos (/ K 2)))))) (* (* -2 J) (cos (/ K 2))))))
* * * * [misc]progress:  [ 43 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (cbrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))) (cbrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))) (cbrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 44 / 89 ] simplifiying candidate #<alt (λ (J K U) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 45 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))) (sqrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 46 / 89 ] simplifiying candidate #<alt (λ (J K U) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 47 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (* -2 J))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (12 enodes)
* * [misc]simplify:  iters left: 3 (18 enodes)
* * [misc]simplify:  iters left: 2 (19 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 5 inf + 44
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* -2 J))
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))
* * * * [misc]progress:  [ 48 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (22 enodes)
* * [misc]simplify:  iters left: 4 (32 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 6 inf + 0
* * [misc]simplify:  Extracting #5: cost 9 inf + 1
* * [misc]simplify:  Extracting #6: cost 14 inf + 3
* * [misc]simplify:  Extracting #7: cost 13 inf + 46
* * [misc]simplify:  Extracting #8: cost 13 inf + 88
* * [misc]simplify:  Extracting #9: cost 8 inf + 519
* * [misc]simplify:  Extracting #10: cost 4 inf + 1251
* * [misc]simplify:  Extracting #11: cost 2 inf + 1851
* * [misc]simplify:  Extracting #12: cost 0 inf + 2691
* [exit]simplify:  Simplified to (* (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* (* (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 49 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 50 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 51 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt 1) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 52 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 53 / 89 ] simplifiying candidate #<alt (λ (J K U) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 54 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))>
* * * * [misc]progress:  [ 55 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (log1p (expm1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 56 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (expm1 (log1p (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 57 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) 1)))>
* [enter]simplify:  Simplifying (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (82 enodes)
* * [misc]simplify:  iters left: 2 (92 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 14 inf + 44
* * [misc]simplify:  Extracting #3: cost 18 inf + 44
* * [misc]simplify:  Extracting #4: cost 18 inf + 47
* * [misc]simplify:  Extracting #5: cost 19 inf + 192
* * [misc]simplify:  Extracting #6: cost 9 inf + 1621
* * [misc]simplify:  Extracting #7: cost 3 inf + 3782
* * [misc]simplify:  Extracting #8: cost 0 inf + 4945
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* -2 J)) (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (pow (* (* (cos (/ K 2)) (* -2 J)) (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) 1)))
* * * * [misc]progress:  [ 58 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) 1)))>
* [enter]simplify:  Simplifying (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (82 enodes)
* * [misc]simplify:  iters left: 2 (92 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 14 inf + 44
* * [misc]simplify:  Extracting #3: cost 18 inf + 44
* * [misc]simplify:  Extracting #4: cost 18 inf + 47
* * [misc]simplify:  Extracting #5: cost 19 inf + 192
* * [misc]simplify:  Extracting #6: cost 9 inf + 1621
* * [misc]simplify:  Extracting #7: cost 3 inf + 3782
* * [misc]simplify:  Extracting #8: cost 0 inf + 4945
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* -2 J)) (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (pow (* (* (cos (/ K 2)) (* -2 J)) (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) 1)))
* * * * [misc]progress:  [ 59 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (pow (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) 1)))>
* * * * [misc]progress:  [ 60 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (exp (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (cos (/ K 2))) (log (* -2 J)))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (+ (log (cos (/ K 2))) (log (* -2 J))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (81 enodes)
* * [misc]simplify:  iters left: 2 (102 enodes)
* * [misc]simplify:  iters left: 1 (109 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 20 inf + 0
* * [misc]simplify:  Extracting #3: cost 18 inf + 115
* * [misc]simplify:  Extracting #4: cost 20 inf + 298
* * [misc]simplify:  Extracting #5: cost 17 inf + 617
* * [misc]simplify:  Extracting #6: cost 18 inf + 1508
* * [misc]simplify:  Extracting #7: cost 10 inf + 2610
* * [misc]simplify:  Extracting #8: cost 5 inf + 4710
* * [misc]simplify:  Extracting #9: cost 0 inf + 7514
* [exit]simplify:  Simplified to (+ (log (sqrt (hypot 1 (/ U (* (* 2 J) (cos (/ K 2))))))) (+ (log (cos (/ K 2))) (log (* -2 J))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (exp (+ (log (sqrt (hypot 1 (/ U (* (* 2 J) (cos (/ K 2))))))) (+ (log (cos (/ K 2))) (log (* -2 J)))))))
* * * * [misc]progress:  [ 61 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (exp (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (111 enodes)
* * [misc]simplify:  iters left: 1 (117 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 23 inf + 0
* * [misc]simplify:  Extracting #3: cost 23 inf + 2
* * [misc]simplify:  Extracting #4: cost 23 inf + 298
* * [misc]simplify:  Extracting #5: cost 21 inf + 445
* * [misc]simplify:  Extracting #6: cost 18 inf + 1555
* * [misc]simplify:  Extracting #7: cost 11 inf + 2544
* * [misc]simplify:  Extracting #8: cost 6 inf + 4218
* * [misc]simplify:  Extracting #9: cost 0 inf + 7381
* [exit]simplify:  Simplified to (+ (log (* (* (cos (/ K 2)) -2) J)) (log (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (exp (+ (log (* (* (cos (/ K 2)) -2) J)) (log (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))))))
* * * * [misc]progress:  [ 62 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (exp (log (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 63 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (log (exp (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 64 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (50 enodes)
* * [misc]simplify:  iters left: 4 (158 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 46 inf + 0
* * [misc]simplify:  Extracting #2: cost 152 inf + 2
* * [misc]simplify:  Extracting #3: cost 156 inf + 962
* * [misc]simplify:  Extracting #4: cost 148 inf + 2099
* * [misc]simplify:  Extracting #5: cost 112 inf + 9804
* * [misc]simplify:  Extracting #6: cost 77 inf + 22672
* * [misc]simplify:  Extracting #7: cost 24 inf + 49220
* * [misc]simplify:  Extracting #8: cost 1 inf + 61759
* * [misc]simplify:  Extracting #9: cost 0 inf + 62360
* [exit]simplify:  Simplified to (* (* (sqrt (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J))) (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J))) (* (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* J -2)) (* (* J -2) (* J -2))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (* (* (sqrt (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J))) (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J))) (* (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* J -2)) (* (* J -2) (* J -2)))))))
* * * * [misc]progress:  [ 65 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (45 enodes)
* * [misc]simplify:  iters left: 4 (134 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 34 inf + 0
* * [misc]simplify:  Extracting #2: cost 140 inf + 44
* * [misc]simplify:  Extracting #3: cost 153 inf + 293
* * [misc]simplify:  Extracting #4: cost 143 inf + 1750
* * [misc]simplify:  Extracting #5: cost 106 inf + 10167
* * [misc]simplify:  Extracting #6: cost 80 inf + 18834
* * [misc]simplify:  Extracting #7: cost 22 inf + 45812
* * [misc]simplify:  Extracting #8: cost 0 inf + 56436
* * [misc]simplify:  Extracting #9: cost 0 inf + 56396
* [exit]simplify:  Simplified to (* (* (* (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (* (* (* J (cos (/ K 2))) (* 4 (* J (cos (/ K 2))))) (* J (cos (/ K 2))))) -2)
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (* (* (* J (cos (/ K 2))) (* 4 (* J (cos (/ K 2))))) (* J (cos (/ K 2))))) -2))))
* * * * [misc]progress:  [ 66 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (cbrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))) (cbrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 67 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (* (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 68 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))) (sqrt (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 69 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 70 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cos (/ K 2))) (* -2 J))))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cos (/ K 2))) (* -2 J))))
* * * * [misc]progress:  [ 71 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (22 enodes)
* * [misc]simplify:  iters left: 4 (32 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 6 inf + 0
* * [misc]simplify:  Extracting #5: cost 9 inf + 1
* * [misc]simplify:  Extracting #6: cost 14 inf + 3
* * [misc]simplify:  Extracting #7: cost 13 inf + 46
* * [misc]simplify:  Extracting #8: cost 13 inf + 88
* * [misc]simplify:  Extracting #9: cost 8 inf + 519
* * [misc]simplify:  Extracting #10: cost 4 inf + 1251
* * [misc]simplify:  Extracting #11: cost 2 inf + 1851
* * [misc]simplify:  Extracting #12: cost 0 inf + 2691
* [exit]simplify:  Simplified to (* (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 72 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 73 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 74 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt 1) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 75 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 76 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 77 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (* (cos (/ K 2)) (* -2 J)) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))))>
* * * * [misc]progress:  [ 78 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* 1 (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying 1
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* 1 (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 79 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (/ +nan.0 (* (cos (* 1/2 K)) J)) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* +nan.0 (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 80 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (/ +nan.0 (* (cos (* 1/2 K)) J)) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* +nan.0 (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 81 / 89 ] simplifiying candidate #<alt (λ (J K U) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying 1
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* 1 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 82 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (/ +nan.0 (* (cos (* 1/2 K)) J)) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* +nan.0 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 83 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (/ +nan.0 (* (cos (* 1/2 K)) J)) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* +nan.0 (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))
* * * * [misc]progress:  [ 84 / 89 ] simplifiying candidate #<alt (λ (J K U) (- (+ (* 2 J) (* 1/4 (/ (pow U 2) J)))))>
* [enter]simplify:  Simplifying (- (+ (* 2 J) (* 1/4 (/ (pow U 2) J))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (115 enodes)
* * [misc]simplify:  iters left: 1 (154 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 14 inf + 0
* * [misc]simplify:  Extracting #2: cost 35 inf + 5
* * [misc]simplify:  Extracting #3: cost 22 inf + 667
* * [misc]simplify:  Extracting #4: cost 2 inf + 2508
* * [misc]simplify:  Extracting #5: cost 0 inf + 2714
* [exit]simplify:  Simplified to (fma J -2 (/ -1/4 (/ J (* U U))))
* [misc]simplify:  Simplified (2) to (λ (J K U) (fma J -2 (/ -1/4 (/ J (* U U)))))
* * * * [misc]progress:  [ 85 / 89 ] simplifiying candidate #<alt (λ (J K U) 0)>
* [enter]simplify:  Simplifying 0
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 0
* [misc]simplify:  Simplified (2) to (λ (J K U) 0)
* * * * [misc]progress:  [ 86 / 89 ] simplifiying candidate #<alt (λ (J K U) 0)>
* [enter]simplify:  Simplifying 0
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 0
* [misc]simplify:  Simplified (2) to (λ (J K U) 0)
* * * * [misc]progress:  [ 87 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (- (+ (* 2 J) (* 1/8 (/ (pow U 2) J))))))>
* [enter]simplify:  Simplifying (- (+ (* 2 J) (* 1/8 (/ (pow U 2) J))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (115 enodes)
* * [misc]simplify:  iters left: 1 (154 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 14 inf + 0
* * [misc]simplify:  Extracting #2: cost 35 inf + 5
* * [misc]simplify:  Extracting #3: cost 22 inf + 667
* * [misc]simplify:  Extracting #4: cost 2 inf + 2508
* * [misc]simplify:  Extracting #5: cost 0 inf + 2714
* [exit]simplify:  Simplified to (fma J -2 (/ -1/8 (/ J (* U U))))
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (fma J -2 (/ -1/8 (/ J (* U U))))))
* * * * [misc]progress:  [ 88 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (- +nan.0)))>
* [enter]simplify:  Simplifying (- +nan.0)
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) +nan.0))
* * * * [misc]progress:  [ 89 / 89 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (- +nan.0)))>
* [enter]simplify:  Simplifying (- +nan.0)
* [misc]simplify:  Simplified (2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) +nan.0))
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 3 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 1 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1 1 2 2 1)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 1)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1 1 2 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 1 1)
* [misc]approximate:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in (J U K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (/ U 2) into (* 1/2 U)
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (* 1/2 U) J) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (/ U 2) into (* 1/2 U)
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (* 1/2 U) J) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 U) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (* 1/2 (/ U J)) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 U) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (* 1/2 (/ U J)) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (* 1/2 K))) J) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (* 1/2 K))) J) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (- (/ U (cos (* 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (* 1/2 K))) into (/ 1 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (/ (cos (* 1/2 K)) U)
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 (/ (cos (* 1/2 K)) U)) (+ (* -2 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 1 (cos (* 1/2 K)))) into (- (/ 1 (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (- (/ 1 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (* 1/2 K)) U))))) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 (/ (cos (* 1/2 K)) U)) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))))) into (- (* 2 (/ (cos (* 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (- (* 2 (/ (cos (* 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (cos (* 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (cos (* 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (* 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (* 1/2 K))) (+ (* (/ 1 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -1 (* 1 (* U 1))) into (* -1 U)
* [misc]approximate:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in (J U K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1 J)) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1 J)) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (/ 1/2 K))) (/ 1 J)) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (/ 1/2 K))) (/ 1 J)) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1/2 (* U (cos (/ 1/2 K))))) into (/ 1/4 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) (+ (* 0 0) (* 0 1))) into (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of 1/4 in U
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* (pow U 2) (pow (cos (/ 1/2 K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (pow U 2) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* 1 (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) 0) (* 0 (/ 1/2 (* U (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) (+ (* 0 0) (* 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))) (* 0 (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -2 (* 1 (* 1 (/ 1 (/ 1 J))))) into (* -2 J)
* [misc]approximate:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in (J U K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ -1 J)) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ -1 J)) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (cos (/ -1/2 K))) (/ -1 J)) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (cos (/ -1/2 K))) (/ -1 J)) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ -1/2 K)) U)) (/ 1/2 (* (cos (/ -1/2 K)) U))) into (/ 1/4 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) into (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (+ (* 0 0) (* 0 1))) into (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) in U
* [misc]taylor:  Taking taylor expansion of 1/4 in U
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))) in U
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (/ -1/2 K)) 2) (pow U 2)) in U
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow U 2) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (pow (cos (/ -1/2 K)) 2) 1) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow (cos (/ -1/2 K)) 2) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 -1) (+ (* (/ 1/2 (* (cos (/ -1/2 K)) U)) (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 -1) (+ (* (/ 1/2 (* (cos (/ -1/2 K)) U)) (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (/ -1/2 K)) U)) 0) (* 0 (/ 1/2 (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (+ (* 0 0) (* 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow (cos (/ -1/2 K)) 2) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))) (* 0 (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 2 (* 1 (* 1 (/ 1 (/ 1 (- J)))))) into (* -2 J)
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1 1 2 2 1)
* [misc]approximate:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in (U K) around 0
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (/ U 2) into (* 1/2 U)
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ (- 1/8) 1)) (* 0 (/ 0 1)))) into 1/16
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ 0 1)) (* 0 (/ (- 1/8) 1)) (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 (* (pow K 2) U)) (* 1/2 (* 1 U))) into (+ (* 1/16 (* (pow K 2) U)) (* 1/2 U))
* [misc]approximate:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in (U K) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ 1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ 1/2 (/ 1 K)))) (* 1 (/ 1 (/ 1 U)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]approximate:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in (U K) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ -1/2 K))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ -1/2 K))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ -1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ -1/2 (cos (/ -1/2 (/ 1 (- K))))) (* 1 (/ 1 (/ 1 (- U))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 1)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) in (J U K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (/ U 2) into (* 1/2 U)
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (* 1/2 U) J) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (/ U 2) into (* 1/2 U)
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (* 1/2 U) J) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 U) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (* 1/2 (/ U J)) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 U) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (* 1/2 (/ U J)) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (* 1/2 K))) J) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (* 1/2 K))) J) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (- (/ U (cos (* 1/2 K)))) (cos (* 1/2 K)))) into (- U)
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (/ (cos (* 1/2 K)) U)
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 (/ (cos (* 1/2 K)) U)) (+ (* -2 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (- (/ U (cos (* 1/2 K)))) 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]taylor:  Taking taylor expansion of -1 in K
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (* 1/2 K)) U))))) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 (/ (cos (* 1/2 K)) U)) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))))) into (- (* 2 (/ (cos (* 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (- (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (* (- (* 2 (/ (cos (* 1/2 K)) U))) (cos (* 1/2 K)))))) into (- (* 2 (/ (pow (cos (* 1/2 K)) 2) U)))
* [misc]taylor:  Taking taylor expansion of (- (* 2 (/ (pow (cos (* 1/2 K)) 2) U))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (pow (cos (* 1/2 K)) 2) U)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (* 1/2 K)) 2) U) in U
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (pow (cos (* 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow (cos (* 1/2 K)) 2) 1) into (pow (cos (* 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (* 1/2 K)) 2) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (pow (cos (* 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -1 (* 1 (* U 1))) into (* -1 U)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) (cos (/ (/ 1 K) 2))) in (J U K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1 J)) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1 J)) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (/ 1/2 K))) (/ 1 J)) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (/ 1/2 K))) (/ 1 J)) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1/2 (* U (cos (/ 1/2 K))))) into (/ 1/4 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) (+ (* 0 0) (* 0 1))) into (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))))
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) (cos (/ 1/2 K))))) into (- (* 1/4 (/ 1 (* (pow U 2) (cos (/ 1/2 K))))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 (* (pow U 2) (cos (/ 1/2 K)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (pow U 2) (cos (/ 1/2 K))))) in U
* [misc]taylor:  Taking taylor expansion of 1/4 in U
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (pow U 2) (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* (pow U 2) (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (pow U 2) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 (cos (/ 1/2 K))) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* U (cos (/ 1/2 K)))) 0) (* 0 (/ 1/2 (* U (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 (/ 1/8 (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* (- (* 1/4 (/ 1 (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 (/ 1 K)))) (* 1 (* 1 (/ 1 (/ 1 J))))) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) (cos (/ (/ 1 (- K)) 2))) in (J U K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ -1 J)) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ -1 J)) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (cos (/ -1/2 K))) (/ -1 J)) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (cos (/ -1/2 K))) (/ -1 J)) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ -1/2 K)) U)) (/ 1/2 (* (cos (/ -1/2 K)) U))) into (/ 1/4 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) into (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (+ (* 0 0) (* 0 1))) into (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (cos (/ -1/2 K))))) into (* 1/4 (/ 1 (* (cos (/ -1/2 K)) (pow U 2))))
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (cos (/ -1/2 K)) (pow U 2)))) in U
* [misc]taylor:  Taking taylor expansion of 1/4 in U
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (/ -1/2 K)) (pow U 2))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ -1/2 K)) (pow U 2)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow U 2) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 -1) (+ (* (/ 1/2 (* (cos (/ -1/2 K)) U)) (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 -1) (+ (* (/ 1/2 (* (cos (/ -1/2 K)) U)) (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (/ -1/2 K)) U)) 0) (* 0 (/ 1/2 (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 (/ 1/8 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* (* 1/4 (/ 1 (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 (/ 1 (- K))))) (* 1 (* 1 (/ 1 (/ 1 (- J)))))) into (* -2 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1 1 2 2)
* [misc]approximate:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) 1) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (/ U 2) into (* 1/2 U)
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (* 1/2 U) J) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (* 1/2 K))) J) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ (/ U (* 2 (cos (/ K 2)))) J) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* 2 (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (* 1/2 K)))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (* 1/2 K))) J) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (/ 1/2 J) into (/ 1/2 J)
* [misc]taylor:  Taking taylor expansion of (/ 1/2 J) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 J) (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 J) (/ (- (* 1/8 J)) J)) (* 0 (/ 0 J)))) into (* 1/16 (/ 1 J))
* [misc]taylor:  Taking taylor expansion of (* 1/16 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/2 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* (- 1/8) 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ 1/2 J) (/ 0 J)) (* 0 (/ (- (* 1/8 J)) J)) (* (* 1/16 (/ 1 J)) (/ 0 J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 (* (/ 1 J) (* (pow K 2) U))) (* 1/2 (* (/ 1 J) (* 1 U)))) into (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
* [misc]approximate:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) 1) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (* U (cos (/ 1/2 K)))) (/ 1 J)) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (/ 1/2 K))) (/ 1 J)) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* 2 (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (/ (/ 1/2 (cos (/ 1/2 K))) (/ 1 J)) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ J (cos (/ 1/2 K)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (/ 1 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (* 2 (cos (/ 1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ 1 J)) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (/ 1 J))) (* 0 (/ 0 (/ 1 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 (/ 1 (/ 1 U))))) into (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* [misc]approximate:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) -1) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (* (cos (/ -1/2 K)) U)) (/ -1 J)) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (cos (/ -1/2 K))) (/ -1 J)) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* 2 (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (cos (/ -1/2 K)))) into (/ -1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (/ (/ -1/2 (cos (/ -1/2 K))) (/ -1 J)) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ J (cos (/ -1/2 K)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (/ -1 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ -1/2 K)))) (+ (* (/ -1/2 (cos (/ -1/2 K))) (/ 0 (* 2 (cos (/ -1/2 K))))) (* 0 (/ 0 (* 2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (/ -1 J)) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (/ -1 J))) (* 0 (/ 0 (/ -1 J))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 (/ 1 (/ 1 (- U)))))) into (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (log1p (expm1 (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 2 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (expm1 (log1p (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 3 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (pow (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) 1) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (38 enodes)
* * [misc]simplify:  iters left: 3 (44 enodes)
* * [misc]simplify:  iters left: 2 (54 enodes)
* * [misc]simplify:  iters left: 1 (56 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 7 inf + 2
* * [misc]simplify:  Extracting #3: cost 16 inf + 45
* * [misc]simplify:  Extracting #4: cost 16 inf + 89
* * [misc]simplify:  Extracting #5: cost 14 inf + 256
* * [misc]simplify:  Extracting #6: cost 7 inf + 1012
* * [misc]simplify:  Extracting #7: cost 1 inf + 2564
* * [misc]simplify:  Extracting #8: cost 0 inf + 2885
* [exit]simplify:  Simplified to (* -2 (* J (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))
* [misc]simplify:  Simplified (2 1 1 1) to (λ (J K U) (pow (* (pow (* -2 (* J (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) 1) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 4 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (pow (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) 1) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 5 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (exp (+ (log (* -2 J)) (log (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (+ (log (* -2 J)) (log (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (28 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (49 enodes)
* * [misc]simplify:  iters left: 2 (59 enodes)
* * [misc]simplify:  iters left: 1 (61 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 11 inf + 0
* * [misc]simplify:  Extracting #3: cost 9 inf + 115
* * [misc]simplify:  Extracting #4: cost 17 inf + 299
* * [misc]simplify:  Extracting #5: cost 18 inf + 301
* * [misc]simplify:  Extracting #6: cost 15 inf + 510
* * [misc]simplify:  Extracting #7: cost 12 inf + 655
* * [misc]simplify:  Extracting #8: cost 4 inf + 2137
* * [misc]simplify:  Extracting #9: cost 0 inf + 3909
* [exit]simplify:  Simplified to (+ (log (hypot 1 (/ U (* (* 2 J) (cos (/ K 2)))))) (log (* -2 J)))
* [misc]simplify:  Simplified (2 1 1 1) to (λ (J K U) (pow (* (exp (+ (log (hypot 1 (/ U (* (* 2 J) (cos (/ K 2)))))) (log (* -2 J)))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 6 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (exp (log (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 7 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (log (exp (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 8 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (39 enodes)
* * [misc]simplify:  iters left: 4 (99 enodes)
* * [misc]simplify:  iters left: 3 (271 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 65 inf + 0
* * [misc]simplify:  Extracting #2: cost 123 inf + 45
* * [misc]simplify:  Extracting #3: cost 121 inf + 1355
* * [misc]simplify:  Extracting #4: cost 117 inf + 1846
* * [misc]simplify:  Extracting #5: cost 113 inf + 2138
* * [misc]simplify:  Extracting #6: cost 110 inf + 2264
* * [misc]simplify:  Extracting #7: cost 53 inf + 24505
* * [misc]simplify:  Extracting #8: cost 6 inf + 45261
* * [misc]simplify:  Extracting #9: cost 0 inf + 48189
* [exit]simplify:  Simplified to (* (* (* (hypot 1 (/ (/ U (* J 2)) (cos (/ K 2)))) (hypot 1 (/ (/ U (* J 2)) (cos (/ K 2))))) (hypot 1 (/ (/ U (* J 2)) (cos (/ K 2))))) (* (* J (* J J)) -8))
* [misc]simplify:  Simplified (2 1 1 1) to (λ (J K U) (pow (* (cbrt (* (* (* (hypot 1 (/ (/ U (* J 2)) (cos (/ K 2)))) (hypot 1 (/ (/ U (* J 2)) (cos (/ K 2))))) (hypot 1 (/ (/ U (* J 2)) (cos (/ K 2))))) (* (* J (* J J)) -8))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 9 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 10 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 11 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (sqrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (sqrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 12 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* 1 (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 13 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (* -2 J) (* (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (26 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  iters left: 2 (41 enodes)
* * [misc]simplify:  iters left: 1 (43 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 15 inf + 1
* * [misc]simplify:  Extracting #4: cost 15 inf + 4
* * [misc]simplify:  Extracting #5: cost 12 inf + 213
* * [misc]simplify:  Extracting #6: cost 11 inf + 214
* * [misc]simplify:  Extracting #7: cost 7 inf + 765
* * [misc]simplify:  Extracting #8: cost 0 inf + 2200
* [exit]simplify:  Simplified to (cbrt (hypot 1 (/ (/ (/ U J) 2) (cos (/ K 2)))))
* [misc]simplify:  Simplified (2 1 1 2) to (λ (J K U) (pow (* (* (* (* -2 J) (* (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (hypot 1 (/ (/ (/ U J) 2) (cos (/ K 2)))))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 14 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (* -2 J) (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (26 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  iters left: 2 (41 enodes)
* * [misc]simplify:  iters left: 1 (43 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 15 inf + 1
* * [misc]simplify:  Extracting #4: cost 15 inf + 4
* * [misc]simplify:  Extracting #5: cost 12 inf + 213
* * [misc]simplify:  Extracting #6: cost 11 inf + 214
* * [misc]simplify:  Extracting #7: cost 7 inf + 765
* * [misc]simplify:  Extracting #8: cost 0 inf + 2160
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U J) 2) (cos (/ K 2)))))
* [misc]simplify:  Simplified (2 1 1 2) to (λ (J K U) (pow (* (* (* (* -2 J) (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (sqrt (hypot 1 (/ (/ (/ U J) 2) (cos (/ K 2)))))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 15 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (* -2 J) 1) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (25 enodes)
* * [misc]simplify:  iters left: 3 (30 enodes)
* * [misc]simplify:  iters left: 2 (40 enodes)
* * [misc]simplify:  iters left: 1 (42 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 14 inf + 1
* * [misc]simplify:  Extracting #3: cost 12 inf + 88
* * [misc]simplify:  Extracting #4: cost 11 inf + 213
* * [misc]simplify:  Extracting #5: cost 10 inf + 214
* * [misc]simplify:  Extracting #6: cost 4 inf + 1091
* * [misc]simplify:  Extracting #7: cost 0 inf + 1840
* [exit]simplify:  Simplified to (hypot 1 (/ (/ (/ U J) 2) (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1 1 2) to (λ (J K U) (pow (* (* (* (* -2 J) 1) (hypot 1 (/ (/ (/ U J) 2) (cos (/ K 2))))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 16 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* -2 (* J (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 17 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (* -2 J)) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 18 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (log1p (expm1 (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 19 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (expm1 (log1p (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 20 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (pow (/ U (* 2 (cos (/ K 2)))) 1) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 21 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (exp (log (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 22 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (log (exp (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 23 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* (* (cbrt (/ U (* 2 (cos (/ K 2))))) (cbrt (/ U (* 2 (cos (/ K 2)))))) (cbrt (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 24 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (cbrt (* (* (/ U (* 2 (cos (/ K 2)))) (/ U (* 2 (cos (/ K 2))))) (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 25 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* (sqrt (/ U (* 2 (cos (/ K 2))))) (sqrt (/ U (* 2 (cos (/ K 2)))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 26 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ (- U) (- (* 2 (cos (/ K 2))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 27 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* 1 (/ U (* 2 (cos (/ K 2))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 28 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* U (/ 1 (* 2 (cos (/ K 2))))) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 29 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ 1 (/ (* 2 (cos (/ K 2))) U)) J))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 30 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (cos (/ K 2))
* * [misc]simplify:  iters left: 3 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 2 inf + 2
* * [misc]simplify:  Extracting #4: cost 0 inf + 146
* [exit]simplify:  Simplified to (cos (/ K 2))
* [misc]simplify:  Simplified (2 1 1 2 2 1 2) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 31 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (log1p (expm1 (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 32 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (expm1 (log1p (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 33 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (29 enodes)
* * [misc]simplify:  iters left: 4 (56 enodes)
* * [misc]simplify:  iters left: 3 (83 enodes)
* * [misc]simplify:  iters left: 2 (97 enodes)
* * [misc]simplify:  iters left: 1 (99 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 16 inf + 2
* * [misc]simplify:  Extracting #3: cost 24 inf + 45
* * [misc]simplify:  Extracting #4: cost 23 inf + 48
* * [misc]simplify:  Extracting #5: cost 14 inf + 829
* * [misc]simplify:  Extracting #6: cost 4 inf + 3292
* * [misc]simplify:  Extracting #7: cost 0 inf + 4654
* [exit]simplify:  Simplified to (* -2 (* (* (cos (/ K 2)) J) (hypot 1 (/ (/ (/ U J) (cos (/ K 2))) 2))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (pow (* -2 (* (* (cos (/ K 2)) J) (hypot 1 (/ (/ (/ U J) (cos (/ K 2))) 2)))) 1) 1))
* * * * [misc]progress:  [ 34 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (29 enodes)
* * [misc]simplify:  iters left: 4 (56 enodes)
* * [misc]simplify:  iters left: 3 (83 enodes)
* * [misc]simplify:  iters left: 2 (97 enodes)
* * [misc]simplify:  iters left: 1 (99 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 16 inf + 2
* * [misc]simplify:  Extracting #3: cost 24 inf + 45
* * [misc]simplify:  Extracting #4: cost 23 inf + 48
* * [misc]simplify:  Extracting #5: cost 14 inf + 829
* * [misc]simplify:  Extracting #6: cost 4 inf + 3292
* * [misc]simplify:  Extracting #7: cost 0 inf + 4654
* [exit]simplify:  Simplified to (* -2 (* (* (cos (/ K 2)) J) (hypot 1 (/ (/ (/ U J) (cos (/ K 2))) 2))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (pow (* -2 (* (* (cos (/ K 2)) J) (hypot 1 (/ (/ (/ U J) (cos (/ K 2))) 2)))) 1) 1))
* * * * [misc]progress:  [ 35 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1) 1))>
* * * * [misc]progress:  [ 36 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (exp (+ (+ (log (* -2 J)) (log (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (log (cos (/ K 2))))) 1))>
* [enter]simplify:  Simplifying (+ (+ (log (* -2 J)) (log (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (log (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (107 enodes)
* * [misc]simplify:  iters left: 1 (113 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 20 inf + 0
* * [misc]simplify:  Extracting #3: cost 21 inf + 2
* * [misc]simplify:  Extracting #4: cost 27 inf + 299
* * [misc]simplify:  Extracting #5: cost 23 inf + 589
* * [misc]simplify:  Extracting #6: cost 11 inf + 2309
* * [misc]simplify:  Extracting #7: cost 0 inf + 7183
* [exit]simplify:  Simplified to (+ (+ (log (hypot 1 (/ (/ U 2) (* J (cos (/ K 2)))))) (log (* -2 J))) (log (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (exp (+ (+ (log (hypot 1 (/ (/ U 2) (* J (cos (/ K 2)))))) (log (* -2 J))) (log (cos (/ K 2))))) 1))
* * * * [misc]progress:  [ 37 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (exp (+ (log (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (log (cos (/ K 2))))) 1))>
* [enter]simplify:  Simplifying (+ (log (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (log (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (54 enodes)
* * [misc]simplify:  iters left: 3 (83 enodes)
* * [misc]simplify:  iters left: 2 (118 enodes)
* * [misc]simplify:  iters left: 1 (126 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 23 inf + 0
* * [misc]simplify:  Extracting #3: cost 22 inf + 144
* * [misc]simplify:  Extracting #4: cost 30 inf + 299
* * [misc]simplify:  Extracting #5: cost 27 inf + 386
* * [misc]simplify:  Extracting #6: cost 22 inf + 839
* * [misc]simplify:  Extracting #7: cost 12 inf + 2953
* * [misc]simplify:  Extracting #8: cost 0 inf + 7765
* [exit]simplify:  Simplified to (+ (log (* (* -2 J) (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (log (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (exp (+ (log (* (* -2 J) (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (log (cos (/ K 2))))) 1))
* * * * [misc]progress:  [ 38 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (exp (log (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 39 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (log (exp (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 40 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (cbrt (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))))) 1))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (48 enodes)
* * [misc]simplify:  iters left: 4 (150 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 51 inf + 0
* * [misc]simplify:  Extracting #2: cost 168 inf + 1
* * [misc]simplify:  Extracting #3: cost 164 inf + 661
* * [misc]simplify:  Extracting #4: cost 153 inf + 1574
* * [misc]simplify:  Extracting #5: cost 126 inf + 7904
* * [misc]simplify:  Extracting #6: cost 62 inf + 34799
* * [misc]simplify:  Extracting #7: cost 6 inf + 62350
* * [misc]simplify:  Extracting #8: cost 0 inf + 65398
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* (* -2 J) (* (* -2 J) (* (* (* (hypot 1 (/ (/ U J) (* 2 (cos (/ K 2))))) (hypot 1 (/ (/ U J) (* 2 (cos (/ K 2)))))) (hypot 1 (/ (/ U J) (* 2 (cos (/ K 2)))))) (* (* -2 J) (* (cos (/ K 2)) (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (cbrt (* (cos (/ K 2)) (* (* -2 J) (* (* -2 J) (* (* (* (hypot 1 (/ (/ U J) (* 2 (cos (/ K 2))))) (hypot 1 (/ (/ U J) (* 2 (cos (/ K 2)))))) (hypot 1 (/ (/ U J) (* 2 (cos (/ K 2)))))) (* (* -2 J) (* (cos (/ K 2)) (cos (/ K 2))))))))) 1))
* * * * [misc]progress:  [ 41 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (cbrt (* (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))))) 1))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (43 enodes)
* * [misc]simplify:  iters left: 4 (123 enodes)
* * [misc]simplify:  iters left: 3 (461 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 146 inf + 0
* * [misc]simplify:  Extracting #2: cost 451 inf + 248
* * [misc]simplify:  Extracting #3: cost 453 inf + 945
* * [misc]simplify:  Extracting #4: cost 313 inf + 55020
* * [misc]simplify:  Extracting #5: cost 20 inf + 195031
* * [misc]simplify:  Extracting #6: cost 0 inf + 204014
* * [misc]simplify:  Extracting #7: cost 0 inf + 203974
* [exit]simplify:  Simplified to (* (* (* (* (* (* -2 J) (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J))) (* (* -2 J) (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J)))) (cos (/ K 2))) (* (cos (/ K 2)) (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (cbrt (* (* (* (* (* (* -2 J) (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J))) (* (* -2 J) (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* (cos (/ K 2)) 2)) J)))) (cos (/ K 2))) (* (cos (/ K 2)) (cos (/ K 2))))) 1))
* * * * [misc]progress:  [ 42 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (cbrt (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))) (cbrt (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) (cbrt (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 43 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (cbrt (* (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))) (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 44 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (sqrt (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))) (sqrt (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))))) 1))>
* * * * [misc]progress:  [ 45 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* 1 (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2)))) 1))>
* * * * [misc]progress:  [ 46 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))>
* [enter]simplify:  Simplifying (cbrt (cos (/ K 2)))
* * [misc]simplify:  iters left: 4 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 3 inf + 2
* * [misc]simplify:  Extracting #5: cost 0 inf + 328
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* [misc]simplify:  Simplified (2 1 2) to (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 47 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (sqrt (cos (/ K 2)))) (sqrt (cos (/ K 2)))) 1))>
* [enter]simplify:  Simplifying (sqrt (cos (/ K 2)))
* * [misc]simplify:  iters left: 4 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 3 inf + 2
* * [misc]simplify:  Extracting #5: cost 0 inf + 288
* [exit]simplify:  Simplified to (sqrt (cos (/ K 2)))
* [misc]simplify:  Simplified (2 1 2) to (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (sqrt (cos (/ K 2)))) (sqrt (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 48 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) 1) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (cos (/ K 2))
* * [misc]simplify:  iters left: 3 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 2 inf + 2
* * [misc]simplify:  Extracting #4: cost 0 inf + 146
* [exit]simplify:  Simplified to (cos (/ K 2))
* [misc]simplify:  Simplified (2 1 2) to (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) 1) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 49 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* -2 J) (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (cos (/ K 2)))) 1))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (* (* -2 J) (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 50 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (cos (/ K 2)) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) 1))>
* * * * [misc]progress:  [ 51 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (log1p (expm1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 52 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (expm1 (log1p (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 53 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (pow (/ (/ U (* 2 (cos (/ K 2)))) J) 1))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 54 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (exp (log (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 55 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (log (exp (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 56 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* (* (cbrt (/ (/ U (* 2 (cos (/ K 2)))) J)) (cbrt (/ (/ U (* 2 (cos (/ K 2)))) J))) (cbrt (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 57 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (cbrt (* (* (/ (/ U (* 2 (cos (/ K 2)))) J) (/ (/ U (* 2 (cos (/ K 2)))) J)) (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 58 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* (sqrt (/ (/ U (* 2 (cos (/ K 2)))) J)) (sqrt (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 59 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (- (/ U (* 2 (cos (/ K 2))))) (- J)))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 60 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 61 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* (/ U (* 2 (cos (/ K 2)))) (/ 1 J)))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 62 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ 1 (/ J (/ U (* 2 (cos (/ K 2)))))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 63 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* (cbrt (/ U (* 2 (cos (/ K 2))))) (cbrt (/ U (* 2 (cos (/ K 2)))))) (/ J (cbrt (/ U (* 2 (cos (/ K 2))))))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* (cbrt (/ U (* 2 (cos (/ K 2))))) (cbrt (/ U (* 2 (cos (/ K 2))))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 7 inf + 44
* * [misc]simplify:  Extracting #6: cost 0 inf + 1080
* [exit]simplify:  Simplified to (* (cbrt (/ (/ U 2) (cos (/ K 2)))) (cbrt (/ (/ U 2) (cos (/ K 2)))))
* [misc]simplify:  Simplified (2 1 1 2 2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* (cbrt (/ (/ U 2) (cos (/ K 2)))) (cbrt (/ (/ U 2) (cos (/ K 2))))) (/ J (cbrt (/ U (* 2 (cos (/ K 2))))))))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 64 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (sqrt (/ U (* 2 (cos (/ K 2))))) (/ J (sqrt (/ U (* 2 (cos (/ K 2))))))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (sqrt (/ U (* 2 (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (11 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 6 inf + 44
* * [misc]simplify:  Extracting #5: cost 0 inf + 737
* [exit]simplify:  Simplified to (sqrt (/ (/ U 2) (cos (/ K 2))))
* [misc]simplify:  Simplified (2 1 1 2 2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (sqrt (/ (/ U 2) (cos (/ K 2)))) (/ J (sqrt (/ U (* 2 (cos (/ K 2))))))))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 65 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ 1 (/ J (/ U (* 2 (cos (/ K 2)))))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 66 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ U (/ J (/ 1 (* 2 (cos (/ K 2)))))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 67 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))) (cos (/ K 2))) 1))>
* * * * [misc]progress:  [ 68 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* -1 U) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* -1 U)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 0 inf + 43
* [exit]simplify:  Simplified to (- U)
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 69 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* -2 J) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (* (* -2 J) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 70 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* -2 J) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (pow (* (* -2 J) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 71 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (+ (* 1/16 (* (pow K 2) U)) (* 1/2 U)) J))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (+ (* 1/16 (* (pow K 2) U)) (* 1/2 U))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (38 enodes)
* * [misc]simplify:  iters left: 3 (61 enodes)
* * [misc]simplify:  iters left: 2 (75 enodes)
* * [misc]simplify:  iters left: 1 (76 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 10 inf + 127
* * [misc]simplify:  Extracting #3: cost 1 inf + 738
* * [misc]simplify:  Extracting #4: cost 0 inf + 821
* [exit]simplify:  Simplified to (* U (fma 1/16 (* K K) 1/2))
* [misc]simplify:  Simplified (2 1 1 2 2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* U (fma 1/16 (* K K) 1/2)) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 72 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* 1/2 (/ U (cos (* 1/2 K)))) J))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* 1/2 (/ U (cos (* 1/2 K))))
* * [misc]simplify:  iters left: 6 (7 enodes)
* * [misc]simplify:  iters left: 5 (11 enodes)
* * [misc]simplify:  iters left: 4 (15 enodes)
* * [misc]simplify:  iters left: 3 (17 enodes)
* * [misc]simplify:  iters left: 2 (19 enodes)
* * [misc]simplify:  iters left: 1 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 9 inf + 0
* * [misc]simplify:  Extracting #2: cost 8 inf + 2
* * [misc]simplify:  Extracting #3: cost 8 inf + 44
* * [misc]simplify:  Extracting #4: cost 7 inf + 45
* * [misc]simplify:  Extracting #5: cost 1 inf + 800
* * [misc]simplify:  Extracting #6: cost 0 inf + 942
* [exit]simplify:  Simplified to (* (/ U (cos (* 1/2 K))) 1/2)
* [misc]simplify:  Simplified (2 1 1 2 2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* (/ U (cos (* 1/2 K))) 1/2) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 73 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* 1/2 (/ U (cos (* 1/2 K)))) J))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* 1/2 (/ U (cos (* 1/2 K))))
* * [misc]simplify:  iters left: 6 (7 enodes)
* * [misc]simplify:  iters left: 5 (11 enodes)
* * [misc]simplify:  iters left: 4 (15 enodes)
* * [misc]simplify:  iters left: 3 (17 enodes)
* * [misc]simplify:  iters left: 2 (19 enodes)
* * [misc]simplify:  iters left: 1 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 9 inf + 0
* * [misc]simplify:  Extracting #2: cost 8 inf + 2
* * [misc]simplify:  Extracting #3: cost 8 inf + 44
* * [misc]simplify:  Extracting #4: cost 7 inf + 45
* * [misc]simplify:  Extracting #5: cost 1 inf + 800
* * [misc]simplify:  Extracting #6: cost 0 inf + 942
* [exit]simplify:  Simplified to (* (/ U (cos (* 1/2 K))) 1/2)
* [misc]simplify:  Simplified (2 1 1 2 2 1) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* (/ U (cos (* 1/2 K))) 1/2) J))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 74 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* -1 U) 1))>
* [enter]simplify:  Simplifying (* -1 U)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 0 inf + 43
* [exit]simplify:  Simplified to (- U)
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (- U) 1))
* * * * [misc]progress:  [ 75 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* -2 (* (cos (* 1/2 K)) J)) 1))>
* [enter]simplify:  Simplifying (* -2 (* (cos (* 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 2
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (* K 1/2)) (* J -2))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (cos (* K 1/2)) (* J -2)) 1))
* * * * [misc]progress:  [ 76 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* -2 (* (cos (* 1/2 K)) J)) 1))>
* [enter]simplify:  Simplifying (* -2 (* (cos (* 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 7 inf + 0
* * [misc]simplify:  Extracting #2: cost 6 inf + 2
* * [misc]simplify:  Extracting #3: cost 7 inf + 44
* * [misc]simplify:  Extracting #4: cost 5 inf + 46
* * [misc]simplify:  Extracting #5: cost 0 inf + 660
* [exit]simplify:  Simplified to (* (cos (* K 1/2)) (* J -2))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (pow (* (cos (* K 1/2)) (* J -2)) 1))
* * * * [misc]progress:  [ 77 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (153 enodes)
* * [misc]simplify:  iters left: 1 (253 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 32 inf + 0
* * [misc]simplify:  Extracting #2: cost 46 inf + 46
* * [misc]simplify:  Extracting #3: cost 26 inf + 1616
* * [misc]simplify:  Extracting #4: cost 4 inf + 3737
* * [misc]simplify:  Extracting #5: cost 0 inf + 4553
* [exit]simplify:  Simplified to (* (/ U J) (+ (* (* K K) 1/16) 1/2))
* [misc]simplify:  Simplified (2 1 1 2 2) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* (/ U J) (+ (* (* K K) 1/16) 1/2)))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 78 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* 1/2 (/ U (* (cos (* 1/2 K)) J))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (16 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (68 enodes)
* * [misc]simplify:  iters left: 1 (81 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 21 inf + 0
* * [misc]simplify:  Extracting #2: cost 19 inf + 3
* * [misc]simplify:  Extracting #3: cost 14 inf + 296
* * [misc]simplify:  Extracting #4: cost 12 inf + 339
* * [misc]simplify:  Extracting #5: cost 2 inf + 1929
* * [misc]simplify:  Extracting #6: cost 0 inf + 2295
* [exit]simplify:  Simplified to (/ (* 1/2 (/ U J)) (cos (* 1/2 K)))
* [misc]simplify:  Simplified (2 1 1 2 2) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* 1/2 (/ U J)) (cos (* 1/2 K))))) (cos (/ K 2))) 1))
* * * * [misc]progress:  [ 79 / 79 ] simplifiying candidate #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (* 1/2 (/ U (* (cos (* 1/2 K)) J))))) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* 1/2 (/ U (* (cos (* 1/2 K)) J)))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (16 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (68 enodes)
* * [misc]simplify:  iters left: 1 (81 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 21 inf + 0
* * [misc]simplify:  Extracting #2: cost 19 inf + 3
* * [misc]simplify:  Extracting #3: cost 14 inf + 296
* * [misc]simplify:  Extracting #4: cost 12 inf + 339
* * [misc]simplify:  Extracting #5: cost 2 inf + 1929
* * [misc]simplify:  Extracting #6: cost 0 inf + 2295
* [exit]simplify:  Simplified to (/ (* 1/2 (/ U J)) (cos (* 1/2 K)))
* [misc]simplify:  Simplified (2 1 1 2 2) to (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (* 1/2 (/ U J)) (cos (* 1/2 K))))) (cos (/ K 2))) 1))
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 4 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 2 2 1 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 2 1 1)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 1)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 2 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 2 2 1 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 1/16 in K
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (* 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* 1 (pow J 2)) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ 1/16 (pow J 2)) into (/ 1/16 (pow J 2))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ 1/16 (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ 1/2 K)))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ 1/2 K))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) J) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ 1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ -1/2 K)))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ -1/2 K))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) J) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ -1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 2 1 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 1/16 in K
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (* 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* 1 (pow J 2)) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ 1/16 (pow J 2)) into (/ 1/16 (pow J 2))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ 1/16 (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ 1/2 K)))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ 1/2 K))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) J) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ 1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ -1/2 K)))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ -1/2 K))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) J) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ -1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) in K
* [misc]taylor:  Taking taylor expansion of 1/16 in K
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (* (pow (cos (* 1/2 K)) 2) (pow J 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (* 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* 1 (pow J 2)) into (pow J 2)
* [misc]backup-simplify:  Simplify (/ 1/16 (pow J 2)) into (/ 1/16 (pow J 2))
* [misc]taylor:  Taking taylor expansion of (/ 1/16 (pow J 2)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/16 1) into 1/16
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (* 1/2 K)) J)) 0) (* 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 2)) (+ (* (/ 1/16 (pow J 2)) (/ 0 (pow J 2))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/16 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ 1/2 K)))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 2)) into (/ 1 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ 1/2 K)))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ 1/2 K))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) J) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ 1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)) (/ 0 (pow (cos (/ 1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ 1/2 (/ 1 K)))) (* (/ 1 J) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ J (cos (/ -1/2 K)))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 2) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) into (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 2) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 2)) into (/ 1 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ J (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* +nan.0 (/ 1 (cos (/ -1/2 K)))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ +nan.0 (cos (/ -1/2 K))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) J) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) into (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (+ (/ (cos (/ -1/2 K)) J) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))
* [misc]backup-simplify:  Simplify (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 2)) (+ (* (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)) (/ 0 (pow (cos (/ -1/2 K)) 2))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (+ (* 0 0) (* 0 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ +nan.0 (cos (/ -1/2 (/ 1 (- K))))) (* (/ 1 (- J)) (* 1 1))) into (/ +nan.0 (* (cos (* 1/2 K)) J))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 2 2)
* [misc]approximate:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 1) (* 0 0)) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (* 1/2 K))) 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ U (cos (* 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (sqrt (* +nan.0 (/ U (cos (* 1/2 K))))) into (* (sqrt (/ U (cos (* 1/2 K)))) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ U (cos (* 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow U 2) (pow (cos (* 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (/ (* +nan.0 (/ (pow U 2) (pow (cos (* 1/2 K)) 2))) (* 2 (sqrt (* +nan.0 (/ U (cos (* 1/2 K))))))) into (* +nan.0 (* (sqrt (/ (pow U 3) (pow (cos (* 1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 2) into 2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (pow U 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) into (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)) into (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)) into (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/8)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (pow (+ (* 1/4 (/ (pow U 2) (pow J 2))) 1) 1/4)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ U (* (* (cos (/ K 2)) 2) J)) (/ U (* (* (cos (/ K 2)) 2) J))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (/ U (* (* (cos (/ K 2)) 2) J)) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ K 2)) 2) J) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 2) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (* 1/2 K))) J) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ K 2)) (* -2 J)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (* -2 J)) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* 1 (* -2 (* (cos (* 1/2 K)) J))) into (* -2 (* (cos (* 1/2 K)) J))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (* -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 (* -2 (* (cos (* 1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 J)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (* -2 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 1/2 (* (cos (* 1/2 K)) J))) into (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) into (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))) (pow 0 2) (+)) (* 2 1)) into (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/8 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (/ (- (/ 1/16 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (pow 0 2) (+)) (* 2 1)) into (/ 1/32 (* (pow (cos (* 1/2 K)) 2) (pow J 2)))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (/ 1/32 (* (pow (cos (* 1/2 K)) 2) (pow J 2))) (* -2 (* (cos (* 1/2 K)) J))))) into (- (* 1/16 (/ 1 (* (cos (* 1/2 K)) J))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/16 (/ 1 (* (cos (* 1/2 K)) J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/16 (/ 1 (* (cos (* 1/2 K)) J))) in K
* [misc]taylor:  Taking taylor expansion of 1/16 in K
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (* 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* 1 J) into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* 1/16 (/ 1 J)) into (/ 1/16 J)
* [misc]backup-simplify:  Simplify (- (/ 1/16 J)) into (- (* 1/16 (/ 1 J)))
* [misc]taylor:  Taking taylor expansion of (- (* 1/16 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/16 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 1/16 in J
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 0) (* (- 1/8) J))) into (- (* 1/8 J))
* [misc]backup-simplify:  Simplify (+ (* -2 (- (* 1/8 J))) (+ (* 0 0) (* 0 J))) into (* 1/4 J)
* [misc]taylor:  Taking taylor expansion of (* 1/4 J) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/4 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -2 (* J (* 1 1))) into (* -2 J)
* [misc]approximate:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) 1) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* U (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (* 1/2 (/ J (* U (cos (/ 1/2 K)))))) into (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2))))) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/8)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (sqrt (* +nan.0 (/ J (cos (/ 1/2 K))))) into (* (sqrt (/ J (cos (/ 1/2 K)))) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (/ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (* 2 (sqrt (* +nan.0 (/ J (cos (/ 1/2 K))))))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 K) 2)) 2) (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 2) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (/ 1 J)) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ 1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (sqrt (* +nan.0 (/ J (cos (/ 1/2 K))))) into (* (sqrt (/ J (cos (/ 1/2 K)))) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ 1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (/ (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))) (* 2 (sqrt (* +nan.0 (/ J (cos (/ 1/2 K))))))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 K) 2)) (* -2 (/ 1 J))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (/ -2 J)) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (* (* (sqrt (/ J (cos (/ 1/2 K)))) (sqrt +nan.0)) (* -2 (/ (cos (/ 1/2 K)) J))) into (* -2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0)))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (cos (/ 1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) J) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (sqrt (/ (cos (/ 1/2 K)) J)) into (sqrt (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ (cos (/ 1/2 K)) J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (cos (/ 1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0)) into (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (* -2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0))) into (* -2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0)))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (cos (/ 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) (* 2 (sqrt 0))) into (* +nan.0 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* 0 (sqrt +nan.0)) into 0
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (/ -2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* (sqrt (/ J (cos (/ 1/2 K)))) (sqrt +nan.0)) 0) (* (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (* -2 (/ (cos (/ 1/2 K)) J)))) into (- (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ J (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ 1/2 K))) into (/ J (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (sqrt (/ J (cos (/ 1/2 K)))) into (sqrt (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ J (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))) into (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0)))) into (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))))) into (- (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (/ 1 (cos (/ 1/2 K))) (* 2 (sqrt 0))) into (/ +nan.0 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (+ (* (sqrt (/ (cos (/ 1/2 K)) J)) 0) (* 0 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (cos (/ 1/2 K))) (sqrt +nan.0))) into (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -2 (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 K)))))) (* 0 0)) into (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 K))))) into (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (/ -2 J)))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ 1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ 1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ 1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (/ (- (* +nan.0 (- (/ (cos (/ 1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) (pow (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) 2) (+)) (* 2 (* (sqrt (/ J (cos (/ 1/2 K)))) (sqrt +nan.0)))) into (* -1/2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (/ (+ (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (- (+ (* +nan.0 (/ (cos (/ 1/2 K)) J)) (- (* +nan.0 (/ (pow J 3) (* (pow (sqrt +nan.0) 2) (pow (cos (/ 1/2 K)) 3)))))))) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* (* (sqrt (/ J (cos (/ 1/2 K)))) (sqrt +nan.0)) 0) (+ (* (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) 0) (* (* -1/2 (* (sqrt (/ (cos (/ 1/2 K)) J)) (/ (+ (* +nan.0 (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (- (+ (* +nan.0 (/ (cos (/ 1/2 K)) J)) (- (* +nan.0 (/ (pow J 3) (* (pow (sqrt +nan.0) 2) (pow (cos (/ 1/2 K)) 3)))))))) (sqrt +nan.0)))) (* -2 (/ (cos (/ 1/2 K)) J))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) in K
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ 1/2 K)) 5) (pow J 5)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 5) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 5) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (pow (cos (/ 1/2 K)) 2) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 4)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 4)) into (pow (cos (/ 1/2 K)) 5)
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (pow J 2) (pow J 2)) into (pow J 4)
* [misc]backup-simplify:  Simplify (* J (pow J 4)) into (pow J 5)
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 5) (pow J 5)) into (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))
* [misc]backup-simplify:  Simplify (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) into (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5)))
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow (cos (/ 1/2 K)) 2) 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (pow (cos (/ 1/2 K)) 4))) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow J 2) 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 (pow J 4))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 5)) (+ (* (/ (pow (cos (/ 1/2 K)) 5) (pow J 5)) (/ 0 (pow J 5))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 3)) (+ (* (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) (/ 0 (pow (cos (/ 1/2 K)) 3))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) into (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ 1/2 K)) 3)) (+ (* (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) (/ 0 (pow (cos (/ 1/2 K)) 3))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (pow (sqrt +nan.0) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow (sqrt +nan.0) 3) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (sqrt +nan.0)) into (pow (sqrt +nan.0) 2)
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (pow (sqrt +nan.0) 2)) into (pow (sqrt +nan.0) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (sqrt +nan.0) 3)) into (/ 1 (pow (sqrt +nan.0) 3))
* [misc]backup-simplify:  Simplify (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))) into (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) into (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0))) into (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))) into (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))) into (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))
* [misc]backup-simplify:  Simplify (- (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))))
* [misc]backup-simplify:  Simplify (- (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (/ 1 (pow (cos (/ 1/2 K)) 3)) (* 2 (sqrt 0))) into (/ +nan.0 (pow (cos (/ 1/2 K)) 3))
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow (cos (/ 1/2 K)) 5) (pow J 5))) in J
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ 1/2 K)) 5) (pow J 5)) in J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 5) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 5) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (pow (cos (/ 1/2 K)) 2) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 4)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 4)) into (pow (cos (/ 1/2 K)) 5)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 5) 1) into (pow (cos (/ 1/2 K)) 5)
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ 1/2 K)) 5) (* 2 (sqrt 0))) into (* +nan.0 (pow (cos (/ 1/2 K)) 5))
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ 1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ 1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ 1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (pow (cos (/ 1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (pow (cos (/ 1/2 K)) 2)) into (pow (cos (/ 1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ 1/2 K)) 3)) into (/ 1 (pow (cos (/ 1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (/ 1 (pow (cos (/ 1/2 K)) 3)) (* 2 (sqrt 0))) into (/ +nan.0 (pow (cos (/ 1/2 K)) 3))
* [misc]taylor:  Taking taylor expansion of (/ 1 (pow (sqrt +nan.0) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow (sqrt +nan.0) 3) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (sqrt +nan.0)) into (pow (sqrt +nan.0) 2)
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (pow (sqrt +nan.0) 2)) into (pow (sqrt +nan.0) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (sqrt +nan.0) 3)) into (/ 1 (pow (sqrt +nan.0) 3))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (sqrt +nan.0)) (/ 0 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (sqrt +nan.0)) (/ 0 (sqrt +nan.0))) (* 0 (/ 0 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow (cos (/ 1/2 K)) 2) 0) (* 0 (pow (cos (/ 1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (pow (cos (/ 1/2 K)) 4))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ 1/2 K)) 5) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (pow (cos (/ 1/2 K)) 5)) 2) (+)) (* 2 0)) into (* +nan.0 (pow (cos (/ 1/2 K)) 10))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (pow (cos (/ 1/2 K)) 5)) 0) (* (* +nan.0 (pow (cos (/ 1/2 K)) 10)) (/ 1 (sqrt +nan.0))))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (pow (cos (/ 1/2 K)) 5)) (/ 1 (sqrt +nan.0)))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 5) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (* 0 (/ 1 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))) (+ (* 0 (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 5) (sqrt +nan.0))))) (* 0 0))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0)))) 0) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ 0 (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0)))) into (- (* +nan.0 (/ (pow (cos (/ 1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (sqrt +nan.0)) (/ 0 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqrt (/ J (cos (/ 1/2 K)))) 0) (* 0 (/ 1 (sqrt +nan.0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (* (sqrt (/ J (cos (/ 1/2 K)))) (/ 1 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ (cos (/ 1/2 K)) J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt (/ (cos (/ 1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqrt (/ (cos (/ 1/2 K)) J)) 0) (+ (* 0 0) (* 0 (sqrt +nan.0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (* (sqrt (/ (cos (/ 1/2 K)) J)) (sqrt +nan.0))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 0 (/ 1 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* +nan.0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (cos (/ 1/2 K))) 2) (+)) (* 2 0)) into (* +nan.0 (pow (cos (/ 1/2 K)) 2))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (cos (/ 1/2 K))) 0) (* (* +nan.0 (pow (cos (/ 1/2 K)) 2)) (sqrt +nan.0)))) into (- (* +nan.0 (* (sqrt +nan.0) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ (* -2 (- (* +nan.0 (* (sqrt +nan.0) (pow (cos (/ 1/2 K)) 2))))) (+ (* 0 (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 K)))))) (* 0 0))) into (- (* +nan.0 (* (sqrt +nan.0) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (sqrt +nan.0) (pow (cos (/ 1/2 K)) 2)))) into (- (* +nan.0 (* (sqrt +nan.0) (pow (cos (/ 1/2 K)) 2))))
* [misc]backup-simplify:  Simplify (+ (* (- (* +nan.0 (* (sqrt +nan.0) (pow (cos (/ 1/2 (/ 1 K))) 2)))) (* (/ 1 J) (* 1 1))) (+ (* (- (* +nan.0 (/ (pow (cos (/ 1/2 (/ 1 K))) 10) (sqrt +nan.0)))) (* (/ 1 (/ 1 J)) (* 1 (pow (/ 1 U) 2)))) (- (* +nan.0 (* (sqrt +nan.0) (cos (/ 1/2 (/ 1 K)))))))) into (- (+ (* +nan.0 (* (cos (* 1/2 K)) (sqrt +nan.0))) (- (+ (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 10) J) (* (pow U 2) (sqrt +nan.0)))) (- (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 2) (sqrt +nan.0)) J)))))))
* [misc]approximate:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in (U K J) around 0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1 1) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) -1) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* (cos (/ -1/2 K)) U))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1 1) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) into (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))) into (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)) into (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/8)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (pow (+ 1 (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2))))) 1/4)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (sqrt (* +nan.0 (/ J (cos (/ -1/2 K))))) into (* (sqrt (/ J (cos (/ -1/2 K)))) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (/ (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) (* 2 (sqrt (* +nan.0 (/ J (cos (/ -1/2 K))))))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (* (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (hypot 1 (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Rewrote expression to (sqrt (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))))
* [misc]taylor:  Taking taylor expansion of (+ (* 1 1) (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1 1) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* (cos (/ (/ 1 (- K)) 2)) 2) (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) 2) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 2) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (/ -1 J)) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 2)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))))) into 0
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (* 1/2 (/ J (cos (/ -1/2 K)))) (* 2 (sqrt 0))) into (* +nan.0 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (sqrt (* +nan.0 (/ J (cos (/ -1/2 K))))) into (* (sqrt (/ J (cos (/ -1/2 K)))) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (/ J (cos (/ -1/2 K)))) 2) (+)) (* 2 0)) into (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2)))
* [misc]backup-simplify:  Simplify (/ (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))) (* 2 (sqrt (* +nan.0 (/ J (cos (/ -1/2 K))))))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]taylor:  Taking taylor expansion of (* (cos (/ (/ 1 (- K)) 2)) (* -2 (/ 1 (- J)))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (/ 2 J)) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (* (* (sqrt (/ J (cos (/ -1/2 K)))) (sqrt +nan.0)) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0)))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (cos (/ -1/2 K)) J)) in K
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) J) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (sqrt (/ (cos (/ -1/2 K)) J)) into (sqrt (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ (cos (/ -1/2 K)) J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (cos (/ -1/2 K)) J)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0)) into (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (* 2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0))) into (* 2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0)))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (cos (/ -1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) (* 2 (sqrt 0))) into (* +nan.0 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* 0 (sqrt +nan.0)) into 0
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (/ 2 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* (sqrt (/ J (cos (/ -1/2 K)))) (sqrt +nan.0)) 0) (* (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (* 2 (/ (cos (/ -1/2 K)) J)))) into (- (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ J (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ J (cos (/ -1/2 K))) into (/ J (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (sqrt (/ J (cos (/ -1/2 K)))) into (sqrt (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ J (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))) into (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0)))) into (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))))) into (- (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0)))))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (/ 1 (cos (/ -1/2 K))) (* 2 (sqrt 0))) into (/ +nan.0 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (+ (* (sqrt (/ (cos (/ -1/2 K)) J)) 0) (* 0 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (cos (/ -1/2 K))) (sqrt +nan.0))) into (- (* +nan.0 (* (cos (/ -1/2 K)) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* 2 (- (* +nan.0 (* (cos (/ -1/2 K)) (sqrt +nan.0))))) (* 0 0)) into (- (* +nan.0 (* (cos (/ -1/2 K)) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (cos (/ -1/2 K)) (sqrt +nan.0)))) into (- (* +nan.0 (* (cos (/ -1/2 K)) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (/ 2 J)))) into 0
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (pow 0 2) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (- (/ (cos (/ -1/2 K)) J) (+ (* 2 (* (* +nan.0 (/ J (cos (/ -1/2 K)))) (* +nan.0 (/ (pow J 2) (pow (cos (/ -1/2 K)) 2))))))) (* 2 0)) into (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))))
* [misc]backup-simplify:  Simplify (/ (- (* +nan.0 (- (/ (cos (/ -1/2 K)) J) (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) (pow (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) 2) (+)) (* 2 (* (sqrt (/ J (cos (/ -1/2 K)))) (sqrt +nan.0)))) into (* -1/2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (/ (+ (* +nan.0 (/ (pow J 3) (* (pow (cos (/ -1/2 K)) 3) (pow (sqrt +nan.0) 2)))) (- (+ (* +nan.0 (/ (cos (/ -1/2 K)) J)) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))))) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* (* (sqrt (/ J (cos (/ -1/2 K)))) (sqrt +nan.0)) 0) (+ (* (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) 0) (* (* -1/2 (* (sqrt (/ (cos (/ -1/2 K)) J)) (/ (+ (* +nan.0 (/ (pow J 3) (* (pow (cos (/ -1/2 K)) 3) (pow (sqrt +nan.0) 2)))) (- (+ (* +nan.0 (/ (cos (/ -1/2 K)) J)) (- (* +nan.0 (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))))) (sqrt +nan.0)))) (* 2 (/ (cos (/ -1/2 K)) J))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) in K
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ -1/2 K)) 5) (pow J 5)) in K
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 5) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 5) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (pow (cos (/ -1/2 K)) 2) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 4)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 4)) into (pow (cos (/ -1/2 K)) 5)
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* (pow J 2) (pow J 2)) into (pow J 4)
* [misc]backup-simplify:  Simplify (* J (pow J 4)) into (pow J 5)
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 5) (pow J 5)) into (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))
* [misc]backup-simplify:  Simplify (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) into (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5)))
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow (cos (/ -1/2 K)) 2) 0) (* 0 (pow (cos (/ -1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (pow (cos (/ -1/2 K)) 4))) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow J 2) 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 (pow J 4))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow J 5)) (+ (* (/ (pow (cos (/ -1/2 K)) 5) (pow J 5)) (/ 0 (pow J 5))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (pow (cos (/ -1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 3)) (+ (* (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) (/ 0 (pow (cos (/ -1/2 K)) 3))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))) in K
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in K
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow J 3) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* J J) into (pow J 2)
* [misc]backup-simplify:  Simplify (* J (pow J 2)) into (pow J 3)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) into (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) into (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)))
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* J 0) (* 0 (pow J 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (pow (cos (/ -1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (pow (cos (/ -1/2 K)) 3)) (+ (* (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) (/ 0 (pow (cos (/ -1/2 K)) 3))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))))) into 0
* [misc]taylor:  Taking taylor expansion of (/ 1 (pow (sqrt +nan.0) 3)) in K
* [misc]taylor:  Taking taylor expansion of (pow (sqrt +nan.0) 3) in K
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in K
* [misc]taylor:  Taking taylor expansion of +nan.0 in K
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (sqrt +nan.0)) into (pow (sqrt +nan.0) 2)
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (pow (sqrt +nan.0) 2)) into (pow (sqrt +nan.0) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (sqrt +nan.0) 3)) into (/ 1 (pow (sqrt +nan.0) 3))
* [misc]backup-simplify:  Simplify (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))) into (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) into (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))) into (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))) into (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))
* [misc]backup-simplify:  Simplify (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) into (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))))) into (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))
* [misc]backup-simplify:  Simplify (- (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))))
* [misc]backup-simplify:  Simplify (- (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))))) into (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) (/ 1 (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow (cos (/ -1/2 K)) 5) (pow J 5))) in J
* [misc]taylor:  Taking taylor expansion of (/ (pow (cos (/ -1/2 K)) 5) (pow J 5)) in J
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 5) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (pow J 5) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (pow (cos (/ -1/2 K)) 2) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 4)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 4)) into (pow (cos (/ -1/2 K)) 5)
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 5) 1) into (pow (cos (/ -1/2 K)) 5)
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (pow (cos (/ -1/2 K)) 5) (* 2 (sqrt 0))) into (* +nan.0 (pow (cos (/ -1/2 K)) 5))
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]taylor:  Taking taylor expansion of (- (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (pow (sqrt +nan.0) 3))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (/ 1 (pow (cos (/ -1/2 K)) 3)) (* 2 (sqrt 0))) into (/ +nan.0 (pow (cos (/ -1/2 K)) 3))
* [misc]taylor:  Taking taylor expansion of (/ 1 (pow (sqrt +nan.0) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow (sqrt +nan.0) 3) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (sqrt +nan.0)) into (pow (sqrt +nan.0) 2)
* [misc]backup-simplify:  Simplify (* (sqrt +nan.0) (pow (sqrt +nan.0) 2)) into (pow (sqrt +nan.0) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (sqrt +nan.0) 3)) into (/ 1 (pow (sqrt +nan.0) 3))
* [misc]taylor:  Taking taylor expansion of (- (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))))) in J
* [misc]taylor:  Taking taylor expansion of (* +nan.0 (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0)))) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]taylor:  Taking taylor expansion of (* (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) (/ 1 (sqrt +nan.0))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (/ (pow J 3) (pow (cos (/ -1/2 K)) 3))) in J
* [misc]taylor:  Taking taylor expansion of (/ (pow J 3) (pow (cos (/ -1/2 K)) 3)) in J
* [misc]taylor:  Taking taylor expansion of (pow J 3) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (cos (/ -1/2 K)) 3) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (pow (cos (/ -1/2 K)) 2)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (pow (cos (/ -1/2 K)) 2)) into (pow (cos (/ -1/2 K)) 3)
* [misc]backup-simplify:  Simplify (/ 1 (pow (cos (/ -1/2 K)) 3)) into (/ 1 (pow (cos (/ -1/2 K)) 3))
* [misc]backup-simplify:  Simplify (sqrt 0) into 0
* [misc]backup-simplify:  Simplify (/ (/ 1 (pow (cos (/ -1/2 K)) 3)) (* 2 (sqrt 0))) into (/ +nan.0 (pow (cos (/ -1/2 K)) 3))
* [misc]taylor:  Taking taylor expansion of (/ 1 (sqrt +nan.0)) in J
* [misc]taylor:  Taking taylor expansion of (sqrt +nan.0) in J
* [misc]taylor:  Taking taylor expansion of +nan.0 in J
* [misc]backup-simplify:  Simplify +nan.0 into +nan.0
* [misc]backup-simplify:  Simplify (sqrt +nan.0) into (sqrt +nan.0)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (/ 1 (sqrt +nan.0)) into (/ 1 (sqrt +nan.0))
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (sqrt +nan.0)) (/ 0 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (sqrt +nan.0)) (/ 0 (sqrt +nan.0))) (* 0 (/ 0 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (pow (cos (/ -1/2 K)) 2) 0) (* 0 (pow (cos (/ -1/2 K)) 2))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (pow (cos (/ -1/2 K)) 4))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (pow (cos (/ -1/2 K)) 5) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (pow (cos (/ -1/2 K)) 5)) 2) (+)) (* 2 0)) into (* +nan.0 (pow (cos (/ -1/2 K)) 10))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (pow (cos (/ -1/2 K)) 5)) 0) (* (* +nan.0 (pow (cos (/ -1/2 K)) 10)) (/ 1 (sqrt +nan.0))))) into (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (* +nan.0 (pow (cos (/ -1/2 K)) 5)) (/ 1 (sqrt +nan.0)))) into (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 5) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (* 0 (/ 1 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))) (+ (* 0 (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 5) (sqrt +nan.0))))) (* 0 0))) into (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0)))) 0) into (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))) into (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0)))) into (- (* +nan.0 (/ (pow (cos (/ -1/2 K)) 10) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (sqrt +nan.0)) (/ 0 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqrt (/ J (cos (/ -1/2 K)))) 0) (* 0 (/ 1 (sqrt +nan.0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* +nan.0 0) (* 0 (* (sqrt (/ J (cos (/ -1/2 K)))) (/ 1 (sqrt +nan.0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 J) (+ (* (/ (cos (/ -1/2 K)) J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt (/ (cos (/ -1/2 K)) J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqrt (/ (cos (/ -1/2 K)) J)) 0) (+ (* 0 0) (* 0 (sqrt +nan.0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (* (sqrt (/ (cos (/ -1/2 K)) J)) (sqrt +nan.0))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 0 (/ 1 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (* +nan.0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow 0 2) (+)) (* 2 (sqrt +nan.0))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (pow (* +nan.0 (cos (/ -1/2 K))) 2) (+)) (* 2 0)) into (* +nan.0 (pow (cos (/ -1/2 K)) 2))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* (* +nan.0 (cos (/ -1/2 K))) 0) (* (* +nan.0 (pow (cos (/ -1/2 K)) 2)) (sqrt +nan.0)))) into (- (* +nan.0 (* (pow (cos (/ -1/2 K)) 2) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* 2 (- (* +nan.0 (* (pow (cos (/ -1/2 K)) 2) (sqrt +nan.0))))) (+ (* 0 (- (* +nan.0 (* (cos (/ -1/2 K)) (sqrt +nan.0))))) (* 0 0))) into (- (* +nan.0 (* (pow (cos (/ -1/2 K)) 2) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (- (* +nan.0 (* (pow (cos (/ -1/2 K)) 2) (sqrt +nan.0)))) into (- (* +nan.0 (* (pow (cos (/ -1/2 K)) 2) (sqrt +nan.0))))
* [misc]backup-simplify:  Simplify (+ (* (- (* +nan.0 (* (pow (cos (/ -1/2 (/ 1 (- K)))) 2) (sqrt +nan.0)))) (* (/ 1 (- J)) (* 1 1))) (+ (* (- (* +nan.0 (/ (pow (cos (/ -1/2 (/ 1 (- K)))) 10) (sqrt +nan.0)))) (* (/ 1 (/ 1 (- J))) (* 1 (pow (/ 1 (- U)) 2)))) (- (* +nan.0 (* (cos (/ -1/2 (/ 1 (- K)))) (sqrt +nan.0)))))) into (- (+ (* +nan.0 (* (cos (* 1/2 K)) (sqrt +nan.0))) (- (+ (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 10) J) (* (pow U 2) (sqrt +nan.0)))) (- (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 2) (sqrt +nan.0)) J)))))))
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (log1p (expm1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 2 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (expm1 (log1p (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 3 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (pow (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) 1/2)) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 4 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (pow (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) 1)) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 5 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (exp (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 6 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (log (exp (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 7 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 8 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (cbrt (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 9 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 10 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 11 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (sqrt 1) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 12 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 13 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (fabs (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 12 inf + 3
* * [misc]simplify:  Extracting #5: cost 11 inf + 46
* * [misc]simplify:  Extracting #6: cost 11 inf + 88
* * [misc]simplify:  Extracting #7: cost 6 inf + 519
* * [misc]simplify:  Extracting #8: cost 2 inf + 1251
* * [misc]simplify:  Extracting #9: cost 0 inf + 1851
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))
* [misc]simplify:  Simplified (2 2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (fabs (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 14 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 15 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (log1p (expm1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 16 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (expm1 (log1p (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 17 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (pow (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) 1/2)) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 18 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (pow (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) 1)) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 19 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (exp (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 20 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (log (exp (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 21 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 22 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (cbrt (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 23 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 24 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 25 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (sqrt 1) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 26 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 27 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (fabs (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 12 inf + 3
* * [misc]simplify:  Extracting #5: cost 11 inf + 46
* * [misc]simplify:  Extracting #6: cost 11 inf + 88
* * [misc]simplify:  Extracting #7: cost 6 inf + 519
* * [misc]simplify:  Extracting #8: cost 2 inf + 1251
* * [misc]simplify:  Extracting #9: cost 0 inf + 1851
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))
* [misc]simplify:  Simplified (2 2 1 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (fabs (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 28 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 29 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (log1p (expm1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 30 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (expm1 (log1p (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 31 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (pow (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) 1/2) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 32 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (pow (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) 1) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 33 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (exp (log (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 34 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (log (exp (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 35 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (* (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 36 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (cbrt (* (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 37 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 6 inf + 0
* * [misc]simplify:  Extracting #4: cost 9 inf + 1
* * [misc]simplify:  Extracting #5: cost 14 inf + 3
* * [misc]simplify:  Extracting #6: cost 14 inf + 4
* * [misc]simplify:  Extracting #7: cost 13 inf + 88
* * [misc]simplify:  Extracting #8: cost 10 inf + 233
* * [misc]simplify:  Extracting #9: cost 4 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 2291
* * [misc]simplify:  Extracting #11: cost 0 inf + 2691
* [exit]simplify:  Simplified to (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 38 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 8 inf + 1
* * [misc]simplify:  Extracting #5: cost 13 inf + 3
* * [misc]simplify:  Extracting #6: cost 12 inf + 46
* * [misc]simplify:  Extracting #7: cost 12 inf + 88
* * [misc]simplify:  Extracting #8: cost 9 inf + 233
* * [misc]simplify:  Extracting #9: cost 3 inf + 1251
* * [misc]simplify:  Extracting #10: cost 1 inf + 1851
* * [misc]simplify:  Extracting #11: cost 0 inf + 2211
* [exit]simplify:  Simplified to (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 39 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt 1) (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 40 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 41 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (fabs (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 7 inf + 1
* * [misc]simplify:  Extracting #4: cost 12 inf + 3
* * [misc]simplify:  Extracting #5: cost 11 inf + 46
* * [misc]simplify:  Extracting #6: cost 11 inf + 88
* * [misc]simplify:  Extracting #7: cost 6 inf + 519
* * [misc]simplify:  Extracting #8: cost 2 inf + 1251
* * [misc]simplify:  Extracting #9: cost 0 inf + 1851
* [exit]simplify:  Simplified to (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))
* [misc]simplify:  Simplified (2 1 1) to (λ (J K U) (* (fabs (sqrt (hypot 1 (/ (/ (/ U 2) (cos (/ K 2))) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 42 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (* 1 (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* * * * [misc]progress:  [ 43 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log1p (expm1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 44 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (expm1 (log1p (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 45 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (pow (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) 1))))>
* [enter]simplify:  Simplifying (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (82 enodes)
* * [misc]simplify:  iters left: 2 (91 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 15 inf + 2
* * [misc]simplify:  Extracting #3: cost 17 inf + 44
* * [misc]simplify:  Extracting #4: cost 17 inf + 46
* * [misc]simplify:  Extracting #5: cost 16 inf + 375
* * [misc]simplify:  Extracting #6: cost 15 inf + 1069
* * [misc]simplify:  Extracting #7: cost 4 inf + 3863
* * [misc]simplify:  Extracting #8: cost 0 inf + 5505
* [exit]simplify:  Simplified to (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* J (cos (/ K 2)))) -2)
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (pow (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* J (cos (/ K 2)))) -2) 1))))
* * * * [misc]progress:  [ 46 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (pow (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) 1))))>
* [enter]simplify:  Simplifying (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (82 enodes)
* * [misc]simplify:  iters left: 2 (91 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 15 inf + 2
* * [misc]simplify:  Extracting #3: cost 17 inf + 44
* * [misc]simplify:  Extracting #4: cost 17 inf + 46
* * [misc]simplify:  Extracting #5: cost 16 inf + 375
* * [misc]simplify:  Extracting #6: cost 15 inf + 1069
* * [misc]simplify:  Extracting #7: cost 4 inf + 3863
* * [misc]simplify:  Extracting #8: cost 0 inf + 5505
* [exit]simplify:  Simplified to (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* J (cos (/ K 2)))) -2)
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (pow (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* J (cos (/ K 2)))) -2) 1))))
* * * * [misc]progress:  [ 47 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (pow (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) 1))))>
* * * * [misc]progress:  [ 48 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (exp (+ (log (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (+ (log (cos (/ K 2))) (log (* -2 J))))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (+ (log (cos (/ K 2))) (log (* -2 J))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (83 enodes)
* * [misc]simplify:  iters left: 2 (104 enodes)
* * [misc]simplify:  iters left: 1 (110 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 16 inf + 0
* * [misc]simplify:  Extracting #2: cost 21 inf + 0
* * [misc]simplify:  Extracting #3: cost 21 inf + 2
* * [misc]simplify:  Extracting #4: cost 20 inf + 298
* * [misc]simplify:  Extracting #5: cost 18 inf + 444
* * [misc]simplify:  Extracting #6: cost 17 inf + 1224
* * [misc]simplify:  Extracting #7: cost 20 inf + 1508
* * [misc]simplify:  Extracting #8: cost 12 inf + 2610
* * [misc]simplify:  Extracting #9: cost 7 inf + 4650
* * [misc]simplify:  Extracting #10: cost 0 inf + 8845
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* -2 J))) (log (sqrt (sqrt (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J))))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (exp (+ (+ (log (cos (/ K 2))) (log (* -2 J))) (log (sqrt (sqrt (hypot 1 (/ (/ (/ U (cos (/ K 2))) 2) J))))))))))
* * * * [misc]progress:  [ 49 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (exp (+ (log (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (log (* (cos (/ K 2)) (* -2 J))))))))>
* [enter]simplify:  Simplifying (+ (log (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (log (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (88 enodes)
* * [misc]simplify:  iters left: 2 (111 enodes)
* * [misc]simplify:  iters left: 1 (121 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 15 inf + 0
* * [misc]simplify:  Extracting #2: cost 23 inf + 0
* * [misc]simplify:  Extracting #3: cost 23 inf + 2
* * [misc]simplify:  Extracting #4: cost 22 inf + 298
* * [misc]simplify:  Extracting #5: cost 17 inf + 943
* * [misc]simplify:  Extracting #6: cost 15 inf + 1837
* * [misc]simplify:  Extracting #7: cost 17 inf + 1951
* * [misc]simplify:  Extracting #8: cost 11 inf + 2727
* * [misc]simplify:  Extracting #9: cost 7 inf + 4117
* * [misc]simplify:  Extracting #10: cost 0 inf + 8061
* [exit]simplify:  Simplified to (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (exp (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))))))))
* * * * [misc]progress:  [ 50 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (exp (log (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 51 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (log (exp (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 52 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (* (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J))))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))) (* (* (* -2 J) (* -2 J)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (51 enodes)
* * [misc]simplify:  iters left: 4 (159 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 46 inf + 0
* * [misc]simplify:  Extracting #2: cost 151 inf + 2
* * [misc]simplify:  Extracting #3: cost 159 inf + 383
* * [misc]simplify:  Extracting #4: cost 146 inf + 2062
* * [misc]simplify:  Extracting #5: cost 120 inf + 9052
* * [misc]simplify:  Extracting #6: cost 99 inf + 13908
* * [misc]simplify:  Extracting #7: cost 78 inf + 23793
* * [misc]simplify:  Extracting #8: cost 26 inf + 52008
* * [misc]simplify:  Extracting #9: cost 0 inf + 67360
* [exit]simplify:  Simplified to (* (* (* (cos (/ K 2)) (cos (/ K 2))) (* (* (* (* J 4) (* -2 J)) (* J (cos (/ K 2)))) (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))) (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (* (* (* (cos (/ K 2)) (cos (/ K 2))) (* (* (* (* J 4) (* -2 J)) (* J (cos (/ K 2)))) (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))))) (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))))))))
* * * * [misc]progress:  [ 53 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (* (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J))))))))>
* [enter]simplify:  Simplifying (* (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (* (* (cos (/ K 2)) (* -2 J)) (* (cos (/ K 2)) (* -2 J))) (* (cos (/ K 2)) (* -2 J))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (46 enodes)
* * [misc]simplify:  iters left: 4 (135 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 34 inf + 0
* * [misc]simplify:  Extracting #2: cost 138 inf + 44
* * [misc]simplify:  Extracting #3: cost 150 inf + 422
* * [misc]simplify:  Extracting #4: cost 140 inf + 1920
* * [misc]simplify:  Extracting #5: cost 110 inf + 9977
* * [misc]simplify:  Extracting #6: cost 77 inf + 20647
* * [misc]simplify:  Extracting #7: cost 23 inf + 47814
* * [misc]simplify:  Extracting #8: cost 0 inf + 59314
* * [misc]simplify:  Extracting #9: cost 0 inf + 59313
* [exit]simplify:  Simplified to (* (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (* (* J (cos (/ K 2))) -2))) (* (* (* J (cos (/ K 2))) -2) (* J (cos (/ K 2))))) -2)
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (* (* (* (sqrt (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2)))))))) (* (sqrt (hypot 1 (/ U (* 2 (* J (cos (/ K 2))))))) (* (* J (cos (/ K 2))) -2))) (* (* (* J (cos (/ K 2))) -2) (* J (cos (/ K 2))))) -2)))))
* * * * [misc]progress:  [ 54 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (cbrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))) (cbrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 55 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (* (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 56 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))) (sqrt (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))))>
* * * * [misc]progress:  [ 57 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* 1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 58 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cos (/ K 2))) (* -2 J)))))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 2 2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cos (/ K 2))) (* -2 J)))))
* * * * [misc]progress:  [ 59 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (cbrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (cbrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (cbrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 5 inf + 0
* * [misc]simplify:  Extracting #5: cost 7 inf + 0
* * [misc]simplify:  Extracting #6: cost 10 inf + 1
* * [misc]simplify:  Extracting #7: cost 15 inf + 3
* * [misc]simplify:  Extracting #8: cost 15 inf + 4
* * [misc]simplify:  Extracting #9: cost 14 inf + 88
* * [misc]simplify:  Extracting #10: cost 11 inf + 233
* * [misc]simplify:  Extracting #11: cost 5 inf + 1251
* * [misc]simplify:  Extracting #12: cost 3 inf + 1851
* * [misc]simplify:  Extracting #13: cost 1 inf + 2651
* * [misc]simplify:  Extracting #14: cost 0 inf + 3131
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))) (cbrt (sqrt (sqrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (cbrt (sqrt (sqrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2))))))))) (cbrt (sqrt (sqrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))))) (* (cbrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 60 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (34 enodes)
* * [misc]simplify:  iters left: 3 (35 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 7 inf + 0
* * [misc]simplify:  Extracting #5: cost 10 inf + 1
* * [misc]simplify:  Extracting #6: cost 15 inf + 3
* * [misc]simplify:  Extracting #7: cost 14 inf + 46
* * [misc]simplify:  Extracting #8: cost 14 inf + 88
* * [misc]simplify:  Extracting #9: cost 10 inf + 376
* * [misc]simplify:  Extracting #10: cost 5 inf + 1251
* * [misc]simplify:  Extracting #11: cost 3 inf + 1851
* * [misc]simplify:  Extracting #12: cost 0 inf + 3131
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (fabs (cbrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (sqrt (cbrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 61 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))) (* (sqrt (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (34 enodes)
* * [misc]simplify:  iters left: 3 (35 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 4 inf + 0
* * [misc]simplify:  Extracting #3: cost 5 inf + 0
* * [misc]simplify:  Extracting #4: cost 7 inf + 0
* * [misc]simplify:  Extracting #5: cost 10 inf + 1
* * [misc]simplify:  Extracting #6: cost 15 inf + 3
* * [misc]simplify:  Extracting #7: cost 14 inf + 46
* * [misc]simplify:  Extracting #8: cost 14 inf + 88
* * [misc]simplify:  Extracting #9: cost 10 inf + 376
* * [misc]simplify:  Extracting #10: cost 5 inf + 1251
* * [misc]simplify:  Extracting #11: cost 2 inf + 2291
* * [misc]simplify:  Extracting #12: cost 0 inf + 3131
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (fabs (cbrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (sqrt (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 62 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (22 enodes)
* * [misc]simplify:  iters left: 4 (32 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 6 inf + 0
* * [misc]simplify:  Extracting #5: cost 9 inf + 1
* * [misc]simplify:  Extracting #6: cost 14 inf + 3
* * [misc]simplify:  Extracting #7: cost 13 inf + 46
* * [misc]simplify:  Extracting #8: cost 13 inf + 88
* * [misc]simplify:  Extracting #9: cost 8 inf + 519
* * [misc]simplify:  Extracting #10: cost 4 inf + 1251
* * [misc]simplify:  Extracting #11: cost 2 inf + 1851
* * [misc]simplify:  Extracting #12: cost 0 inf + 2611
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 63 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt 1)) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* 1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 64 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (22 enodes)
* * [misc]simplify:  iters left: 4 (32 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 6 inf + 0
* * [misc]simplify:  Extracting #5: cost 9 inf + 1
* * [misc]simplify:  Extracting #6: cost 14 inf + 3
* * [misc]simplify:  Extracting #7: cost 13 inf + 46
* * [misc]simplify:  Extracting #8: cost 13 inf + 88
* * [misc]simplify:  Extracting #9: cost 8 inf + 519
* * [misc]simplify:  Extracting #10: cost 4 inf + 1251
* * [misc]simplify:  Extracting #11: cost 2 inf + 1851
* * [misc]simplify:  Extracting #12: cost 0 inf + 2611
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 65 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt 1) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* 1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 66 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (22 enodes)
* * [misc]simplify:  iters left: 4 (32 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 2 inf + 0
* * [misc]simplify:  Extracting #2: cost 3 inf + 0
* * [misc]simplify:  Extracting #3: cost 4 inf + 0
* * [misc]simplify:  Extracting #4: cost 6 inf + 0
* * [misc]simplify:  Extracting #5: cost 9 inf + 1
* * [misc]simplify:  Extracting #6: cost 14 inf + 3
* * [misc]simplify:  Extracting #7: cost 13 inf + 46
* * [misc]simplify:  Extracting #8: cost 13 inf + 88
* * [misc]simplify:  Extracting #9: cost 8 inf + 519
* * [misc]simplify:  Extracting #10: cost 4 inf + 1251
* * [misc]simplify:  Extracting #11: cost 2 inf + 1851
* * [misc]simplify:  Extracting #12: cost 0 inf + 2611
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))))
* [misc]simplify:  Simplified (2 2 2 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (* (sqrt (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))) (* (cos (/ K 2)) (* -2 J)))))))
* * * * [misc]progress:  [ 67 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* 1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J)))))))>
* * * * [misc]progress:  [ 68 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (* (cos (/ K 2)) (* -2 J)) (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))))))))>
* * * * [misc]progress:  [ 69 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt 1) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying 1
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt 1) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 70 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (/ +nan.0 (* (cos (* 1/2 K)) J))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt +nan.0) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 71 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (/ +nan.0 (* (cos (* 1/2 K)) J))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt +nan.0) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 72 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt 1) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying 1
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt 1) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 73 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (/ +nan.0 (* (cos (* 1/2 K)) J))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt +nan.0) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 74 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (/ +nan.0 (* (cos (* 1/2 K)) J))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 2 1 1) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt +nan.0) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 75 / 80 ] simplifiying candidate #<alt (λ (J K U) (* 1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying 1
* * [misc]simplify:  iters left: 0 (1 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 0 inf + 1
* [exit]simplify:  Simplified to 1
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* 1 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 76 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (/ +nan.0 (* (cos (* 1/2 K)) J)) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* +nan.0 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 77 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (/ +nan.0 (* (cos (* 1/2 K)) J)) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))>
* [enter]simplify:  Simplifying (/ +nan.0 (* (cos (* 1/2 K)) J))
* [misc]simplify:  Simplified (2 1) to (λ (J K U) (* +nan.0 (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))
* * * * [misc]progress:  [ 78 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* -2 J))))>
* [enter]simplify:  Simplifying (* -2 J)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 3 inf + 0
* * [misc]simplify:  Extracting #2: cost 1 inf + 2
* * [misc]simplify:  Extracting #3: cost 0 inf + 44
* [exit]simplify:  Simplified to (* -2 J)
* [misc]simplify:  Simplified (2 2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* -2 J))))
* * * * [misc]progress:  [ 79 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (- (+ (* +nan.0 (* (cos (* 1/2 K)) (sqrt +nan.0))) (- (+ (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 10) J) (* (pow U 2) (sqrt +nan.0)))) (- (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 2) (sqrt +nan.0)) J))))))))))>
* [enter]simplify:  Simplifying (- (+ (* +nan.0 (* (cos (* 1/2 K)) (sqrt +nan.0))) (- (+ (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 10) J) (* (pow U 2) (sqrt +nan.0)))) (- (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 2) (sqrt +nan.0)) J)))))))
* [misc]simplify:  Simplified (2 2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) +nan.0)))
* * * * [misc]progress:  [ 80 / 80 ] simplifiying candidate #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (- (+ (* +nan.0 (* (cos (* 1/2 K)) (sqrt +nan.0))) (- (+ (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 10) J) (* (pow U 2) (sqrt +nan.0)))) (- (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 2) (sqrt +nan.0)) J))))))))))>
* [enter]simplify:  Simplifying (- (+ (* +nan.0 (* (cos (* 1/2 K)) (sqrt +nan.0))) (- (+ (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 10) J) (* (pow U 2) (sqrt +nan.0)))) (- (* +nan.0 (/ (* (pow (cos (* 1/2 K)) 2) (sqrt +nan.0)) J)))))))
* [misc]simplify:  Simplified (2 2 2) to (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) +nan.0)))
* * * [misc]progress:  adding candidates to table
* [misc]progress:  [Phase 3 of 3] Extracting.
* * [misc]regime:  Finding splitpoints for: (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * [misc]regime-changes:  Trying 5 branch expressions: (U K (/ K 2) (cos (/ K 2)) J)
* * * * [misc]regimes:  Trying to branch on U from (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * * [misc]regimes:  Trying to branch on K from (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * * [misc]regimes:  Trying to branch on (/ K 2) from (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * * [misc]regimes:  Trying to branch on (cos (/ K 2)) from (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * * [misc]regimes:  Trying to branch on J from (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * [misc]regime:  Found split indices: #<option (#s(si 10 127) #s(si 9 141) #s(si 10 256))>
* [misc]binary-search:  Improving bounds with binary search for J and (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* * * * [misc]points:  Sampling 16 additional inputs, on iter 0 have 0 / 16
* * * * [misc]points:  Computing exacts for 16 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 16 points with exact outputs
* [misc]regimes:  Found splitpoints: (#s(sp 10 J -8.757656270012445e-272) #s(sp 9 J 4.7060693406199846e-272) #s(sp 10 J +nan.0)) , with alts (#<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (* (cos (/ K 2)) (* -2 J))) (sqrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (* (* (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cbrt (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (cbrt (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)))) (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (pow (* (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2)))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (sqrt (cos (/ K 2))) (* (sqrt (cos (/ K 2))) (* -2 J)))))> #<alt (λ (J K U) (* (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))) (* (* (cbrt (* (cos (/ K 2)) (* -2 J))) (cbrt (* (cos (/ K 2)) (* -2 J)))) (cbrt (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J)))))> #<alt (λ (J K U) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (- U))> #<alt (λ (J K U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1))> #<alt (λ (J K U) (* (hypot 1 (/ U (* J (fma (* K K) -1/4 2)))) (* (cos (/ K 2)) (* -2 J))))> #<alt (λ (J K U) (* (fabs (cbrt (hypot 1 (/ U (* J (* 2 (cos (/ K 2)))))))) (* (sqrt (cbrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J))))) (* (sqrt (hypot 1 (/ U (* (* (cos (/ K 2)) 2) J)))) (* (cos (/ K 2)) (* -2 J))))))> #<alt (λ (J K U) (pow (* (- U) (cos (/ K 2))) 1))>)
* [enter]simplify:  Simplifying (if (<= J -8.757656270012445e-272) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1) (if (<= J 4.7060693406199846e-272) (- U) (pow (* (* (* -2 J) (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J))) (cos (/ K 2))) 1)))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  Extracting #0: cost 1 inf + 0
* * [misc]simplify:  Extracting #1: cost 6 inf + 0
* * [misc]simplify:  Extracting #2: cost 14 inf + 0
* * [misc]simplify:  Extracting #3: cost 13 inf + 45
* * [misc]simplify:  Extracting #4: cost 15 inf + 113
* * [misc]simplify:  Extracting #5: cost 9 inf + 610
* * [misc]simplify:  Extracting #6: cost 8 inf + 754
* * [misc]simplify:  Extracting #7: cost 5 inf + 1303
* * [misc]simplify:  Extracting #8: cost 1 inf + 2917
* * [misc]simplify:  Extracting #9: cost 0 inf + 3620
* [exit]simplify:  Simplified to (if (<= J -8.757656270012445e-272) (* (cos (/ K 2)) (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (* -2 J))) (if (<= J 4.7060693406199846e-272) (- U) (* (cos (/ K 2)) (* (hypot 1 (/ (/ U (* 2 (cos (/ K 2)))) J)) (* -2 J)))))
* * * * [misc]points:  Sampling 8000 additional inputs, on iter 0 have 0 / 8000
* * * * [misc]points:  Computing exacts on every 500 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 250 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 125 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 62 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 31 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 15 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 7 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 3 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts for 8000 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Setting MPFR precision to 576
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [misc]points:  Sampling 4 additional inputs, on iter 1 have 7998 / 8000
* * * * [misc]points:  Computing exacts for 4 points
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Setting MPFR precision to 576
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 8002 points with exact outputs