;; Problem 1:
(title "Problem 1, Quiz 2")
(func f(x y) x ^ 2 + y ^ 2 - 1)
(spin-domain -3 3 -3 3)
(contour-points 21)
(spin-points 21)
(contour f)
(send my-plot :showing-axes nil)


;; Problem 3:
(title "Problem 3, Quiz 2")
;; These are our vectors:
(def v1 (vector 1 4 5))
(def v2 (vector -2 2 0))
(def v (calc v2 - v1))
;; okay, the components of v are:
v
;; magnitude:
(calc sqrt (dot v v))
;; Here's a picture of them:
(plot '(1 -2) '(4 2) '(5 0))
(send my-plot :add-lines '((1 -2) (4 2) (5 0)))
(send my-plot :showing-axes nil)