範例：嚴格的布林比較

程式 > 範例：嚴格的布林比較

範例：嚴格的布林比較

設定「近似等式」選項以控制布林比較與截斷函數中使用的精度。

1. 定義函數。

2. 編寫程式以實行 Newton's Method，並將其與內建函數 root 的結果進行比較。

root 函數會受 TOL 影響，但不會回應大於 10-5 的 TOL。

確定 TOL 使用「系統」標籤。

<region id="ID0E5WAKB" top="528" left="48" width="432.818333333333" height="308.169333557129" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math>
    <define xmlns="http://schemas.mathsoft.com/math50">
      <function>
        <id label="Variable">Newt</id>
        <boundVars>
          <id label="Variable">func</id>
          <id label="Variable">guess</id>
          <id label="Variable">iter</id>
        </boundVars>
      </function>
      <program>
        <localDefine>
          <apply>
            <indexer />
            <id label="Variable">t</id>
            <real>0</real>
          </apply>
          <id>guess</id>
        </localDefine>
        <localDefine>
          <id label="Variable">check</id>
          <apply>
            <id label="Keyword">root</id>
            <sequence>
              <apply>
                <id>func</id>
                <id>guess</id>
              </apply>
              <id>guess</id>
            </sequence>
          </apply>
        </localDefine>
        <for>
          <id>n</id>
          <range>
            <real>1</real>
            <id>iter</id>
          </range>
          <program>
            <localDefine>
              <id label="Variable">prev</id>
              <apply>
                <indexer />
                <id>t</id>
                <apply>
                  <minus />
                  <id>n</id>
                  <real>1</real>
                </apply>
              </apply>
            </localDefine>
            <localDefine>
              <apply>
                <indexer />
                <id label="Variable">t</id>
                <id label="None">n</id>
              </apply>
              <apply>
                <minus />
                <apply>
                  <indexer />
                  <id>t</id>
                  <apply>
                    <minus />
                    <id>n</id>
                    <real>1</real>
                  </apply>
                </apply>
                <apply>
                  <div />
                  <apply>
                    <id>y</id>
                    <id>prev</id>
                  </apply>
                  <apply>
                    <derivative />
                    <lambda>
                      <boundVars>
                        <id>prev</id>
                      </boundVars>
                      <apply>
                        <id>func</id>
                        <id>prev</id>
                      </apply>
                    </lambda>
                    <degree>
                      <placeholder />
                    </degree>
                  </apply>
                </apply>
              </apply>
            </localDefine>
            <if>
              <test>
                <apply>
                  <equal />
                  <apply>
                    <indexer />
                    <id>t</id>
                    <id>n</id>
                  </apply>
                  <id>check</id>
                </apply>
              </test>
              <then>
                <program>
                  <break />
                </program>
              </then>
            </if>
          </program>
        </for>
        <return>
          <matrix rows="3" cols="1">
            <id>check</id>
            <apply>
              <indexer />
              <id>t</id>
              <id>n</id>
            </apply>
            <id>n</id>
          </matrix>
        </return>
      </program>
    </define>
  </math>
</region>

3. 確定在「計算」標籤之「工作表設定」群組的「計算選項」下，未選取任何計算選項，然後呼叫 Newt，並為其指定函數的名稱、估值及疊代數上限。