x
if x is
sufficiently small, and the trigonometric identity聽(tīng)聽(tīng)聽(tīng)
to reduce the size of the argument of sin. (For purposes of this exercise an angle is considered ``sufficiently small'' if its magnitude is not greater than 0.1 radians.) These ideas are incorporated in the following procedures:
聽(tīng)聽(tīng)聽(tīng) (define聽(tīng)(cube聽(tīng)x)聽(tīng)(*聽(tīng)x聽(tīng)x聽(tīng)x))
聽(tīng)聽(tīng)聽(tīng) (define聽(tīng)(p聽(tīng)x)聽(tīng)(-聽(tīng)(*聽(tīng)3聽(tīng)x)聽(tīng)(*聽(tīng)4聽(tīng)(cube聽(tīng)x))))
聽(tīng)聽(tīng)聽(tīng) (define聽(tīng)(sine聽(tīng)angle)
聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (if聽(tīng)(not聽(tīng)(>聽(tīng)(abs聽(tīng)angle)聽(tīng)0.1))
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) angle
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (p聽(tīng)(sine聽(tīng)(/聽(tīng)angle聽(tīng)3.0)))))
]]>
鎬誨叡鏈夊灝戠鏂瑰紡?
鍒嗘垚涓ゆ:
聽(tīng)聽(tīng)聽(tīng) 1.璁＄畻浣跨敤50緹庡垎鎵鵑浂鐨勬柟娉曟暟.
聽(tīng)聽(tīng)聽(tīng) 2.涓婇潰鏁扮洰鍔犱笂闄や簡(jiǎn)浣跨敤50緹庡垎鎵鵑浂鐨勬柟娉曟暟浠ュ鐨勬暟鐩?
(define (count-change amount)
聽(tīng) (cc amount 6))
(define (first-denomination kinds-of-coins)
聽(tīng) (cond ((= kinds-of-coins 1) 1)
聽(tīng)聽(tīng)聽(tīng) ((= kinds-of-coins 2) 2)
聽(tīng)聽(tīng)聽(tīng) ((= kinds-of-coins 3) 5)
聽(tīng)聽(tīng)聽(tīng) ((= kinds-of-coins 4) 10)
聽(tīng)聽(tīng)聽(tīng) ((= kinds-of-coins 5) 20)
聽(tīng)聽(tīng)聽(tīng) ((= kinds-of-coins 6) 50)))
(define (cc amount kinds-of-coins)
聽(tīng) (cond ((= amount 0) 1)
聽(tīng)聽(tīng)聽(tīng) ((or (< amount 0)
聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (= kinds-of-coins 0))
聽(tīng)聽(tīng)聽(tīng) 聽(tīng)0)
聽(tīng)聽(tīng)聽(tīng) (else (+ (cc (- amount聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) ;絎竴姝?br />聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (first-denomination kinds-of-coins))
聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng)聽(tīng) kinds-of-coins)
聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) 聽(tīng)(cc amount聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) ;絎簩姝?br />聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng) 聽(tīng)聽(tīng)聽(tīng)聽(tīng) (- kinds-of-coins 1))))))
]]>
(define聽(tīng)(A聽(tīng)x聽(tīng)y)
聽(tīng)聽(tīng)(cond聽(tīng)((=聽(tīng)y聽(tīng)0)聽(tīng)0)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)((=聽(tīng)x聽(tīng)0)聽(tīng)(*聽(tīng)2聽(tīng)y))
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)((=聽(tīng)y聽(tīng)1)聽(tīng)2)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)(else聽(tīng)(A聽(tīng)(-聽(tīng)x聽(tīng)1)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)(A聽(tīng)x聽(tīng)(-聽(tīng)y聽(tīng)1))))))
]]>
]]>
| Guess | Quotient | Average |
| 聽(tīng)聽(tīng) | ||
| 1 | (2/1) = 2 | ((2 + 1)/2) = 1.5 |
| 聽(tīng)聽(tīng) | ||
| 1.5 | (2/1.5) = 1.3333 | ((1.3333 + 1.5)/2) = 1.4167 |
| 聽(tīng)聽(tīng) | ||
| 1.4167 | (2/1.4167) = 1.4118 | ((1.4167 + 1.4118)/2) = 1.4142 |
| 聽(tīng)聽(tīng) | ||
| 1.4142 | ... | ... |
涓.緇欏嚭涓涓猻cheme鐨勮繃紼?br />(define聽(tīng)(sqrt-iter聽(tīng)guess聽(tīng)x)
聽(tīng)聽(tīng)(if聽(tīng)(good-enough?聽(tīng)guess聽(tīng)x)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)guess
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)(sqrt-iter聽(tīng)(improve聽(tīng)guess聽(tīng)x)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)x)))
浜?鏀硅繘鐚滅殑鏁?x闄や互鐚滅殑鏁板拰鐚滅殑鏁扮殑騫沖潎鍊?br />聽(tīng)聽(tīng)聽(tīng) (define聽(tīng)(average聽(tīng)x聽(tīng)y)
聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (/聽(tīng)(+聽(tīng)x聽(tīng)y)聽(tīng)2))
聽(tīng)聽(tīng)聽(tīng) (define聽(tīng)(improve聽(tīng)guess聽(tīng)x)
聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (average聽(tīng)guess聽(tīng)(/聽(tīng)x聽(tīng)guess)))
涓?濡備綍寰楀埌姣旇緝閫傚悎鐨勫?榪欓噷鍋氫簡(jiǎn)涓涓亣璁?鐚滅殑鍊肩殑騫蟲(chóng)柟鍑忓幓x涓嶅皬浜?.001
聽(tīng)聽(tīng)聽(tīng) (define聽(tīng)(good-enough?聽(tīng)guess聽(tīng)x)
聽(tīng) 聽(tīng)聽(tīng)聽(tīng) (<聽(tīng)(abs聽(tīng)(-聽(tīng)(square聽(tīng)guess)聽(tīng)x))聽(tīng)0.001))
娉?濡備綍鐢ㄥ唴閮ㄨ繃紼嬫潵浣跨敤涓婇潰鐨勯儴鍒?
(define (sqrt x)
聽(tīng) (define (good-enough? guess)
聽(tīng)聽(tīng)聽(tīng) (define (square)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) (* guess guess))
聽(tīng)聽(tīng)聽(tīng) (< (abs (- (square) x)) 0.001))
聽(tīng) (define (improve guess)
聽(tīng)聽(tīng)聽(tīng) (define (average y)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) (/ (+ guess y)
聽(tīng)聽(tīng)聽(tīng) 聽(tīng)2))
聽(tīng)聽(tīng)聽(tīng) (average (/ x guess)))
聽(tīng) (define (sqrt-iter guess)
聽(tīng)聽(tīng)聽(tīng) (if (good-enough? guess)
聽(tīng)聽(tīng)聽(tīng) guess
聽(tīng)聽(tīng)聽(tīng) (sqrt-iter (improve guess))))
聽(tīng) (sqrt-iter 1.0))
]]>
#include <stdio.h>
#include <stdlib.h>
#include <libguile.h>
int main (int argc, char *argv[])
{
SCM func_symbol;
SCM func;
scm_init_guile();
// Load the scheme function definitions
scm_c_primitive_load ("script.scm");
func_symbol = scm_c_lookup("do-hello");
func = scm_variable_ref(func_symbol);
scm_call_0 (func);
exit(EXIT_SUCCESS);
}
Makefile:
CC = gcc
GUILE_CFLAGS = `guile-config compile`
GUILE_LIBS = `guile-config link`
all:
$(CC) $(GUILE_CFLAGS) -c main.c
$(CC) $(GUILE_LIBS) -o main main.o
濡傛灉榪炴帴鏈夐敊璇殑璇?鎶?br>$(CC) $(GUILE_LIBS) -o main main.o
鏀規(guī)垚
$(CC) main.o$(GUILE_LIBS)-o main
娉ㄦ剰:鍥犱負(fù)榪欓噷gcc涓鑸兘鏄妸-l鍙傛暟鏀懼湪鏈鍚庝竴涓?o鍙傛暟涔嬪墠鐨?
]]>