<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    ivaneeo's blog

    自由的力量,自由的生活。

      BlogJava :: 首頁 :: 聯系 :: 聚合  :: 管理
      669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks

    例子:求2的平方根

    Guess Quotient Average
    ??
    1 (2/1) = 2 ((2 + 1)/2) = 1.5
    ??
    1.5 (2/1.5) = 1.3333 ((1.3333 + 1.5)/2) = 1.4167
    ??
    1.4167 (2/1.4167) = 1.4118 ((1.4167 + 1.4118)/2) = 1.4142
    ??
    1.4142 ... ...

    一.給出一個scheme的過程
    (define?(sqrt-iter?guess?x)
    ??(if?(good-enough??guess?x)
    ??????guess
    ??????(sqrt-iter?(improve?guess?x)
    ?????????????????x)))
    二.改進猜的數(x除以猜的數和猜的數的平均值
    ???
    (define?(average?x?y)
    ? ??? (/?(+?x?y)?2))

    ??? (define?(improve?guess?x)
    ? ??? (average?guess?(/?x?guess)))
    三.如何得到比較適合的值.這里做了一個假設,猜的值的平方減去x不小于0.001
    ???
    (define?(good-enough??guess?x)
    ? ??? (<?(abs?(-?(square?guess)?x))?0.001))

    注:如何用內部過程來使用上面的部分:
    (define (sqrt x)
    ? (define (good-enough? guess)
    ??? (define (square)
    ????? (* guess guess))
    ??? (< (abs (- (square) x)) 0.001))
    ? (define (improve guess)
    ??? (define (average y)
    ????? (/ (+ guess y)
    ??? ?2))
    ??? (average (/ x guess)))
    ? (define (sqrt-iter guess)
    ??? (if (good-enough? guess)
    ??? guess
    ??? (sqrt-iter (improve guess))))
    ? (sqrt-iter 1.0))

    posted on 2006-07-29 22:12 ivaneeo 閱讀(592) 評論(0)  編輯  收藏 所屬分類: scheme-語言之母
    主站蜘蛛池模板: 亚洲AV无码精品色午夜果冻不卡| 男人天堂免费视频| 亚洲日本在线播放| 亚洲国产精品久久久久网站 | 国产成人精品日本亚洲语音| 免费观看亚洲人成网站| 国产免费MV大全视频网站| 98精品全国免费观看视频| 无码少妇一区二区浪潮免费| 国产a不卡片精品免费观看 | 久久久久亚洲精品成人网小说| 亚洲经典千人经典日产| 成人无码视频97免费| 91在线视频免费看| 亚洲中文无码永久免费| gogo免费在线观看| 我想看一级毛片免费的| 亚洲高清国产拍精品26U| 亚洲精品亚洲人成在线| 久久免费看黄a级毛片| 亚洲日本中文字幕天堂网| 亚洲欧洲精品视频在线观看| 一级毛片免费全部播放| 搡女人免费视频大全| 亚洲国产成人精品无码区花野真一| 国产jizzjizz免费看jizz| 美女无遮挡拍拍拍免费视频| 亚洲激情中文字幕| 免费黄色app网站| 久久精品亚洲一区二区三区浴池| 一级毛片**免费看试看20分钟| 亚洲精品国产美女久久久| 国产亚洲美女精品久久久久| 久久久久亚洲精品无码网址 | 成人毛片免费观看视频大全| 免费一级毛suv好看的国产网站| 久久久久免费看黄A片APP| 亚洲欧洲日韩在线电影| 国产亚洲精品免费| 99在线免费观看视频| 亚洲AV成人片无码网站|