source/statement.scm

;; This file contains initial data for «problem statement»
;; 
;; It must contain definition of a function (f x) preceded by one-line
;; `;;@ ` comments at top-level with TeX $n(x)$ function definition,
;; as well as definition of variables `right-bound`, `subintervals`
;; and `test-epsilon`. Example:
;;
;; ;;@ $n(x) = x^2$
;; (define (f x)
;;   (expt x 2))
;;   
;; (define right-bound 2)
;; (define subintervals 100)
;; (define test-epsilon 0.001)
;;
;; REAL INITIAL DATA STARTS BELOW:

;;@ $n(x) = \begin{cases} 35+3(x-1)^2 & 0<x<2\\ 36 & x \leq 0,\ x \geq 2 \end{cases}$
(define (f x)
  (if (and (> x 0) (< x 2))
      (+ 35 (* 3 (expt (- x 1) 2)))
      36))

(define right-bound 2)
(define subintervals 100)
(define test-epsilon 0.0001)