| Outputs |
|---|
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U)))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3)))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3)))))))))) |
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K)))))) |
#s(approx (* -2 J) #s(hole binary64 (* -2 J))) |
#s(approx J #s(hole binary64 J)) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2))) (pow J 2)) (pow J 2)))) |
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))) |
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K))))))) |
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K)))))) |
#s(approx (* 2 J) #s(hole binary64 (* 2 J))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K)))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1)) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 1)) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))) |
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (* -2 J))) |
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* 1/4 (* J (pow K 2)))))) |
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J)))))) |
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2)))))))))) |
#s(approx (cos (/ K 2)) #s(hole binary64 1)) |
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2))))) |
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8))))) |
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8))))) |
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K))) |
#s(approx K #s(hole binary64 K)) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))))) |
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2))))) |
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2)))))) |
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2)))))))) |
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))))))) |
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J)))) |
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J))))) |
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J))))))) |
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))))))))) |
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J))) |
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J)))) |
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2)))))))) |
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J)))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))) |
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K)))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K)))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K)))))))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K)))))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))) |
#s(approx U #s(hole binary64 U)) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))) |
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (/ 1 (pow U 2)))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U)) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))) |
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))) |
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))) |