#|
This is example 3 of Burden and Faires, 8th edition, which I've translated from
Maple. It's on page 13.
|#
(func f(x) cos(x))
(taylor f t2 2 0)
(taylor f t3 3 0)

(what t2)
(what t3)

(def y1 (f .01))
y1
(def y2 (t2 .01))
y2
(def err (abs (- y1 y2)))
err

(def q1 (integrate f 0 .1 1e-12))
q1
(def q2 (integrate t2 0 .1 1e-12))
q2
(def err (abs (- q1 q2)))
err

(xgobips "ex5.ps"
   1  ;; red   level 
   0  ;; green
   0  ;; blue
   (rseq -pi pi 100) 
   (f (rseq -pi pi 100))
   :x-axis t
   :y-axis t
   :morelines (list
	       (list 0 0 1 
		     (rseq -pi pi 100) 
		     (t2 (rseq -pi pi 100))
		     "lndashed"
		     )
	       )
   :xtics (rseq -pi pi 5)
   :xmin -pi
   :xmax pi
   )