demo_basic_diff.htm

来自「Delphi脚本控件」· HTM 代码 · 共 450 行 · 第 1/3 页

        <font color="blue"><b>If</b></font>      IsConstant(X1(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1(2), X1(1) - X2]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X1(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1(1), X1(2) - X2] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsAdd(X2) <font color="blue"><b>And</b></font> IsConstant(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font>      IsConstant(X2(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X2(2), X1 - X2(1)]
        <font color="blue"><b>ElseIf</b></font> IsConstant( X2[ 3 ] ) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X2(1), X1 - X2(2)] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsSub(X1) <font color="blue"><b>And</b></font> IsConstant(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font>      IsConstant(X1(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_SUB, X1(1) - X2, X1(2)]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X1(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_SUB, X1(1), X2 + X1(2)] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsSub(X2) <font color="blue"><b>And</b></font> IsConstant(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font>      IsConstant(X2(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1 - X2(1), X2(2)]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X2(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_SUB, X1 - X2(2), X2(1)] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>ElseIf</b></font> Oper = OP_MULT <font color="blue"><b>Then</b></font>
      <font color="blue"><b>If</b></font> Ground  <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1 * X2
      <font color="blue"><b>ElseIf</b></font> IsZero(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = 0
      <font color="blue"><b>ElseIf</b></font> IsZero(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = 0
      <font color="blue"><b>ElseIf</b></font> IsNeg(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_MULT, -1, [OP_MULT, X1(1), X2]]
      <font color="blue"><b>ElseIf</b></font> IsNeg(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_MULT, -1, [OP_MULT, X2(1), X1]]
      <font color="blue"><b>ElseIf</b></font> IsUnit(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X2
      <font color="blue"><b>ElseIf</b></font> IsUnit(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1
      <font color="blue"><b>ElseIf</b></font> X1 = X2 <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_POW, X1, 2]
      <font color="blue"><b>ElseIf</b></font> IsPow(X1) <font color="blue"><b>And</b></font> IsPow(X2) <font color="blue"><b>And</b></font> (X1(1) = X2(1)) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_POW, X1(1), [OP_ADD, X1(2), X2(2)]]
      <font color="blue"><b>ElseIf</b></font> IsPow(X1) <font color="blue"><b>And</b></font> (X1(1) = X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_POW, X1(1), [OP_ADD, X1(2), 1]]
      <font color="blue"><b>ElseIf</b></font> IsPow(X2) <font color="blue"><b>And</b></font> (X2(1) = X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_POW, X2(1), [OP_ADD, X2(2), 1]]
      <font color="blue"><b>ElseIf</b></font> IsMult(X1) <font color="blue"><b>And</b></font> IsPow(X2) <font color="blue"><b>Then</b></font>
        U = <font color="blue"><b>AddressOf</b></font> X2(1)
        V = <font color="blue"><b>AddressOf</b></font> X2(2)
        <font color="blue"><b>If</b></font> X1(1) = U <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(2), [OP_POW, U, [OP_ADD, V, 1]]]
        <font color="blue"><b>ElseIf</b></font> X1(2) = U <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(1), [OP_POW, U, [OP_ADD, V, 1]]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X1(1)) <font color="blue"><b>And</b></font> (X1(1)(1) = U) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(2), [OP_POW, U, [OP_ADD, V, X1(1)(2)]]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X1(2)) <font color="blue"><b>And</b></font> (X1(2)(1) = U) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(1), [OP_POW, U, [OP_ADD, V, X1(2)(2)]]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X2) <font color="blue"><b>And</b></font> IsPow(X1) <font color="blue"><b>Then</b></font>
        U = <font color="blue"><b>AddressOf</b></font> X1(1)
        V = <font color="blue"><b>AddressOf</b></font> X1(2)
        <font color="blue"><b>If</b></font> X2(1) = U <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(2), [OP_POW, U, [OP_ADD, V, 1]]]
        <font color="blue"><b>ElseIf</b></font> X2(2) = U <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(1), [OP_POW, U, [OP_ADD, V, 1]]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X2(1)) <font color="blue"><b>And</b></font> (X2(1)(1) = U) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(2), [OP_POW, U, [OP_ADD, V, X2(1)(2)]]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X2(2)) <font color="blue"><b>And</b></font> (X2(2)(1) = U) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(1), [OP_POW, U, [OP_ADD, V, X2(2)(2)]]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> X1(1) = X2 <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(2), [OP_POW, X2, 2]]
        <font color="blue"><b>ElseIf</b></font> X1(2) = X2 <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(1), [OP_POW, X2, 2 ]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X1(1)) <font color="blue"><b>And</b></font> (X1(1)(1) = X2) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(2), [OP_POW, X2, [OP_ADD, X1(1)(2), 1]]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X1(2)) <font color="blue"><b>And</b></font> (X1(2)(1) = X2) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(1), [OP_POW, X2, [OP_ADD, X1(2)(2), 1]]] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> X2(1) = X1 <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(2), [OP_POW, X1, 2]]
        <font color="blue"><b>ElseIf</b></font> X2(2) = X1 <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(1), [OP_POW, X1, 2]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X2(1)) <font color="blue"><b>And</b></font> (X2(1)(1) = X1) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(2), [OP_POW, X1, [OP_ADD, X2(1)(2), 1]]]
        <font color="blue"><b>ElseIf</b></font> IsPow(X2(2)) <font color="blue"><b>And</b></font> (X2(2)(1) = X1) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2(1), [OP_POW, X1, [OP_ADD, X2(2)(2), 1]]] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>ElseIf</b></font> Oper = OP_DIV <font color="blue"><b>Then</b></font>
      <font color="blue"><b>If</b></font> IsUnit(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1
      <font color="blue"><b>ElseIf</b></font> IsZero(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1
      <font color="blue"><b>ElseIf</b></font> IsPow(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1, [OP_POW, X2(1), [OP_UN, X2(2)]]]
      <font color="blue"><b>ElseIf</b></font> IsZero(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>println</b></font> <font color="Red">"Division by zero"</font>
      <font color="blue"><b>Else</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1, [OP_POW, X2, -1]]
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>ElseIf</b></font> Oper = OP_POW <font color="blue"><b>Then</b></font>
      <font color="blue"><b>If</b></font>      IsUnit(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1
      <font color="blue"><b>ElseIf</b></font> IsZero(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = 1
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
  <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
<font color="blue"><b>End</b></font> <font color="blue"><b>Sub</b></font>

<font color="blue"><b>Dim</b></font> E, D
E = [<font color="Red">"^"</font>,2,X]

<font color="blue"><b>println</b></font> <font color="Red">"Source expression in prefix notation:"</font>
<font color="blue"><b>println</b></font> E

<font color="blue"><b>println</b></font> <font color="Red">"Source expression in infix notation:"</font>
<font color="blue"><b>println</b></font> InOrder(E) 

D = Diff(E)

<font color="blue"><b>println</b></font> <font color="Red">"Derivative in prefix notation:"</font>
<font color="blue"><b>println</b></font> D 

<font color="blue"><b>println</b></font> <font color="Red">"Derivative in infix notation:"</font>
<font color="blue"><b>println</b></font> InOrder(D) 

Compress(<font color="blue"><b>AddressOf</b></font> D)

<font color="blue"><b>println</b></font> <font color="Red">"Finally result in prefix notation:"</font>
<font color="blue"><b>println</b></font> D 

<font color="blue"><b>println</b></font> <font color="Red">"Finally result in infix notation:"</font>
<font color="blue"><b>println</b></font> InOrder(D)
</pre>
</blockquote>

<p>
<HR>
<font size = 1 color ="gray">
Copyright &copy; 1999-2005
VIRT Laboratory. All rights reserved.
</font>
</body>
</html>