fork download
  1. ; calculating derivatives
  2.  
  3. (define dx 0.0000001)
  4.  
  5. (define (deriv f)
  6. (define (f-prime x)
  7. (/ (- (f (+ x dx)) (f x))
  8. dx))
  9. f-prime)
  10.  
  11. (define (cube x) (* x x x))
  12.  
  13. (display ((deriv cube) 2)) (newline)
  14. (display ((deriv cube) 3)) (newline)
  15. (display ((deriv cube) 4)) (newline)
Success #stdin #stdout 0s 42848KB
stdin
Standard input is empty
stdout
12.000000584322379
27.000000848431682
48.00000141358396