Code

#lang racket

(require "2.07.scm")
(require "2.10.scm")
(require "2.12.scm")

(define A (make-center-percent 100 0.01))
(define R (div-interval A A))

; tests

R
(width R)
(tolerance R)

Output

'(0.9801980198019802 . 1.0202020202020203)
0.020002000200020076
0.019998000199980076