
The Archimedean spiral is a spiral named after the Greek mathematician Archimedes.



An Archimedean spiral can be described by the equation:






r
=
a
+
b
θ


{\displaystyle \,r=a+b\theta }


with real numbers a and b.



Task
Draw an Archimedean spiral.




 
(use '(incanter core stats charts io))
 
(defn Arquimidean-function
  [a b theta]
  (+ a (* theta b)))
 
(defn transform-pl-xy [r theta]
  (let [x (* r (sin theta))
        y (* r (cos theta))]
    [x y]))
 
(defn arq-spiral [t] (transform-pl-xy (Arquimidean-function 0 7 t) t))
 
(view (parametric-plot arq-spiral 0 (* 10 Math/PI)))
 
 