;; polynominal-package (define (=zero? p) (= 0 (coeff p))) (put '=zero? '(polynominal) (lambda (p) (=zero? p))) ;; 2.88 (define (negative x) (apply-generic 'negative x)) ;; scheme-number (define (negative-integer x) (- x)) (put 'negative '…

;; polynominal-package (define (=zero? p) (= 0 (coeff p))) (put '=zero? '(polynominal) (lambda (p) (=zero? p)))

(define (square x) (apply-generic 'square x)) (define (square-root x) (apply-generic 'square-root x)) (define (sine x) (apply-generic 'sine x)) (define (cosine x) (apply-generic 'cosine x)) (define (atangent x) (apply-generic 'atangent x))…