# SICP-1.3.4节练习

lispor posted @ Feb 23, 2011 03:52:52 PM in Scheme with tags SICP , 1923 阅读

```Define a procedure cubic that can be used together with the newtons-method procedure in expressions
of the form
(newtons-method (cubic a b c) 1)
to approximate zeros of the cubic x^3 + ax^2 + bx + c.
```

```(define (square x)
(* x x))

(define (cube x)
(* x x x))

(define (cubic a b c)
(lambda (x)
(+ (cube x)
(* a (square x))
(* b x)
c)))```

```Define a procedure double that takes a procedure of one argument as argument and returns a procedure
that applies the original procedure twice. For example, if inc is a procedure that adds 1 to its
argument, then (double inc) should be a procedure that adds 2. What value is returned by
(((double (double double)) inc) 5)```

```(define (double f)
(lambda (x)
(f (f x))))
(define (inc x)
(+ x 1))

scheme@(guile-user)> (((double (double double)) inc) 5)
21```

```Let f and g be two one-argument functions. The composition f after g is defined to be the function x
|-> f(g(x)). Define a procedure compose that implements composition. For example, if inc is a
procedure that adds 1 to its argument,
((compose square inc) 6)
49
```

```(define (compose f g)
(lambda (x)
(f (g x))))```

```If f is a numerical function and n is a positive integer, then we can form the nth repeated
application of f, which is defined to be the function whose value at x is f(f(...(f(x))...)). For
example, if f is the function x |-> x + 1, then the nth repeated application of f is the function x
|-> x + n. If f is the operation of squaring a number, then the nth repeated application of f is the
function that raises its argument to the 2^nth power. Write a procedure that takes as inputs a
procedure that computes f and a positive integer n and returns the procedure that computes the nth
repeated application of f. Your procedure should be able to be used as follows:
((repeated square 2) 5)
625
Hint: You may find it convenient to use compose from Exercise 1-42.
```

```(define (compose f g)
(lambda (x)
(f (g x))))

(define (repeated f count)
(if (= count 0)
identity
(compose f (repeated f (- count 1)))))
```

```The idea of smoothing a function is an important concept in signal processing. If f is a function
and dx is some small number, then the smoothed version of f is the function whose value at a point x
is the average of f(x - dx), f(x), and f(x + dx). Write a procedure smooth that takes as input a
procedure that computes f and returns a procedure that computes the smoothed f. It is sometimes
valuable to repeatedly smooth a function (that is, smooth the smoothed function, and so on) to
obtained the n-fold smoothed function. Show how to generate the n-fold smoothed function of any
given function using smooth and repeated from Exercise 1-43.```

```(define (smooth f)
(let ((dx 0.00001))
(lambda (x)
(/ (+ (f (+ x dx))
(f x)
(f (- x dx)))
3.0))))

(define (n-times-smooth f n)
((repeated smooth n) f))
```

```We saw in section 1-3-3 that attempting to compute square roots by naively finding a fixed point of
y |-> x/y does not converge, and that this can be fixed by average damping. The same method works
for finding cube roots as fixed points of the average-damped y |-> x/y^2. Unfortunately, the process
does not work for fourth roots—a single average damp is not enough to make a fixed-point search for
y |-> x/y^3 converge. On the other hand, if we average damp twice (i.e., use the average damp of the
average damp of y |-> x/y^3) the fixed-point search does converge. Do some experiments to determine
how many average damps are required to compute nth roots as a fixed-point search based upon repeated
average damping of y |-> x/y^(n-1). Use this to implement a simple procedure for computing nth roots
using fixed-point, average-damp, and the repeated procedure of Exercise 1-43. Assume that any
arithmetic operations you need are available as primitives.
```

```(define (nth-root n x)
(define (get-repeated-times n)
(inexact->exact (floor (/ (log n)
(log 2)))))
(fixed-point ((repeated average-damp (get-repeated-times n))
(lambda (y) (/ x (expt y (- n 1)))))
1.0))```

```Several of the numerical methods described in this chapter are instances of an extremely general
computational strategy known as iterative improvement. Iterative improvement says that, to compute
something, we start with an initial guess for the answer, test if the guess is good enough, and
otherwise improve the guess and continue the process using the improved guess as the new
guess. Write a procedure iterative-improve that takes two procedures as arguments: a method for
telling whether a guess is good enough and a method for improving a guess. Iterative-improve should
return as its value a procedure that takes a guess as argument and keeps improving the guess until
it is good enough. Rewrite the sqrt procedure of section 1-1-7 and the fixed-point procedure of
section 1-3-3 in terms of iterative-improve.
```

```(define (iterative-improve good-enough? improve)
(lambda (guess)
(define (iter guess)
(if (good-enough? guess)
guess
(iter (improve guess))))
(iter guess)))

(define (sqrt x)
(define (good-enough? guess)
(< (abs (- (square guess)
x))
0.001))
(define (improve guess)
(average guess (/ x guess)))
((iterative-improve good-enough? improve) 1.0))

(define (fixed-point f first-guess)
(define (good-enough? guess)
(< (abs (- guess
(f guess)))
0.00001))
(define improve f)
((iterative-improve good-enough? improve) first-guess))
``` (输入验证码)
or Ctrl+Enter