Commit eab06baf authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added equa2.

parent 97d74cda
......@@ -11,3 +11,10 @@
(x2 (+ (/ (+ s u) -2) (/ b -3 a) (* #C(0 1) (/ (sqrt 3) 2) (- s u))))
(x3 (+ (/ (+ s u) -2) (/ b -3 a) (* #C(0 1) (/ (sqrt 3) -2) (- s u)))))
(list x1 x2 x3)))
(defun equa2 (a b c)
(let ((delta (- (* b b) (* 4 a c))))
(list (/ (+ (- b) (sqrt delta)) 2 a )
(/ (- (- b) (sqrt delta)) 2 a ))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment