demo_complex.htm

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

  <font color="blue"><b>Operator</b></font> + (x <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x + y.re, y.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> + (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x.re + y, x.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  ' -
  <font color="blue"><b>Operator</b></font> - (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x.re - y.re, x.im - y.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> - (x <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x - y.re, - y.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> - (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x.re - y, x.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  ' unary -
  <font color="blue"><b>Operator</b></font> - (x <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (-x.re, -x.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  ' *
  <font color="blue"><b>Operator</b></font> * (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x.re * y.re - x.im * y.im, x.re * y.im + y.re * x.im)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> * (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x.re * y, x.im * y)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> * (x <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (y.re * x, y.im * x)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  ' /
  <font color="blue"><b>Operator</b></font> / (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> d <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font> = y.re * y.re + y.im * y.im
    result.re = (x.re * y.re + x.im * y.im) / d
    result.im = (x.im * y.re - x.re * y.im) / d
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> / (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex = (x.re / y, x.im / y)
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> / (x <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> result <font color="blue"><b>As</b></font> Complex
    <font color="blue"><b>Dim</b></font> d <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font> = y.re * y.re + y.im * y.im
    result.re = x * y.re / d
    result.im = - x * y.im / d
    <font color="blue"><b>return</b></font> result
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  ' =
  <font color="blue"><b>Operator</b></font> = (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
    <font color="blue"><b>return</b></font> (x.re = y.re) <font color="blue"><b>and</b></font> (x.im = y.im)
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> = (x <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
    <font color="blue"><b>return</b></font> (x = y.re) <font color="blue"><b>and</b></font> (0.0 = y.im)
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> = (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>) <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
    <font color="blue"><b>return</b></font> (x.re = y) <font color="blue"><b>and</b></font> (x.im = 0.0)
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  ' <>
  <font color="blue"><b>Operator</b></font> <> (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
    <font color="blue"><b>return</b></font> (x.re <> y.re) <font color="blue"><b>or</b></font> (x.im <> y.im)
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> <> (x <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>, y <font color="blue"><b>As</b></font> Complex) <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
    <font color="blue"><b>return</b></font> (x <> y.re) <font color="blue"><b>or</b></font> (0.0 <> y.im)
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
  <font color="blue"><b>Operator</b></font> <> (x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> <font color="blue"><b>Double</b></font>) <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
    <font color="blue"><b>return</b></font> (x.re <> y) <font color="blue"><b>or</b></font> (x.im <> 0.0)
  <font color="blue"><b>End</b></font> <font color="blue"><b>Operator</b></font>
<font color="blue"><b>End</b></font> <font color="blue"><b>Structure</b></font>

<font color="blue"><b>Dim</b></font> x <font color="blue"><b>As</b></font> Complex, y <font color="blue"><b>As</b></font> Complex, z <font color="blue"><b>As</b></font> Complex

<font color="blue"><b>println</b></font> Complex.i.re

x.re = 56.7
x.im = 8
y.re = 12
y.im = 22.2
z = x + y
<font color="blue"><b>println</b></font> x, y, z
</pre>
</blockquote>

<H4>
Grammar
</H4>
<blockquote>
<pre>
<font color="blue"><b>structure</b></font> Complex {
  <font color="blue"><b>double</b></font> re, im;
  <font color="blue"><b>static</b></font> Complex i = (0.0, 1.0);
  // +
  Complex <font color="blue"><b>operator</b></font> + (Complex x, Complex y) {
    Complex result = (x.re + y.re, x.im + y.im);
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> + (Complex x, <font color="blue"><b>double</b></font> y) {
    Complex result = (x.re + y, x.im);
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> + (<font color="blue"><b>double</b></font> x, Complex y) {
    Complex result = (x + y.re, y.im);
    <font color="blue"><b>return</b></font> result;
  }
  // -
  Complex <font color="blue"><b>operator</b></font> - (Complex x, Complex y) {
    Complex result = (x.re - y.re, x.im - y.im);
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> - (Complex x, <font color="blue"><b>double</b></font> y) {
    Complex result = (x.re - y, x.im);
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> - (<font color="blue"><b>double</b></font> x, Complex y) {
    Complex result = (x - y.re, - y.im);
    <font color="blue"><b>return</b></font> result;
  }
  // unary -
  Complex <font color="blue"><b>operator</b></font> - (Complex x) {
    Complex result = (-x.re, -x.im);
    <font color="blue"><b>return</b></font> result;
  }
  // *
  Complex <font color="blue"><b>operator</b></font> * (Complex x, Complex y) {
    Complex result = (x.re * y.re - x.im * y.im, x.re * y.im + y.re * x.im);
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> * (Complex x, <font color="blue"><b>double</b></font> y) {
    Complex result = (x.re * y, x.im * y);
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> * (<font color="blue"><b>double</b></font> x, Complex y) {
    Complex result = (y.re * x, y.im * x);
    <font color="blue"><b>return</b></font> result;
  }
  // /
  Complex <font color="blue"><b>operator</b></font> / (Complex x, Complex y) {
    Complex result;
    <font color="blue"><b>double</b></font> d;
    d = y.re * y.re + y.im * y.im;
    result.re = (x.re * y.re + x.im * y.im) / d;
    result.im = (x.im * y.re - x.re * y.im) / d;
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> / (Complex x, <font color="blue"><b>double</b></font> y) {
    Complex result;
    result.re = x.re / y;
    result.im = x.im / y;
    <font color="blue"><b>return</b></font> result;
  }
  Complex <font color="blue"><b>operator</b></font> / (<font color="blue"><b>double</b></font> x, Complex y) {
    Complex result;
    <font color="blue"><b>double</b></font> d;
    d = y.re * y.re + y.im * y.im;
    result.re = x * y.re / d;
    result.im = - x * y.im / d;
    <font color="blue"><b>return</b></font> result;
  }
  // ==
  <font color="blue"><b>bool</b></font> <font color="blue"><b>operator</b></font> == (Complex x, Complex y) {
    <font color="blue"><b>return</b></font> (x.re == y.re) && (x.im == y.im);
  }
  <font color="blue"><b>bool</b></font> <font color="blue"><b>operator</b></font> == (Complex x, <font color="blue"><b>double</b></font> y) {
    <font color="blue"><b>return</b></font> (x.re == y) && (x.im == 0.0);
  }
  <font color="blue"><b>bool</b></font> <font color="blue"><b>operator</b></font> == (<font color="blue"><b>double</b></font> x, Complex y) {
    <font color="blue"><b>return</b></font> (x == y.re) && (0.0 == y.im);
  }
  // !=
  <font color="blue"><b>bool</b></font> <font color="blue"><b>operator</b></font> != (Complex x, Complex y) {
    <font color="blue"><b>return</b></font> (x.re != y.re) || (x.im != y.im);
  }
  <font color="blue"><b>bool</b></font> <font color="blue"><b>operator</b></font> != (Complex x, <font color="blue"><b>double</b></font> y) {
    <font color="blue"><b>return</b></font> (x.re != y) || (x.im != 0.0);
  }
  <font color="blue"><b>bool</b></font> <font color="blue"><b>operator</b></font> != (<font color="blue"><b>double</b></font> x, Complex y) {
    <font color="blue"><b>return</b></font> (x != y.re) || (0.0 != y.im);
  }
}

Complex x, y, z;

<font color="blue"><b>println</b></font> Complex.i.re;

x.re = 16.3;
x.im = 7.5;
y.re = 106.7;
y.im = 13.4;
z = x + y;
<font color="blue"><b>println</b></font> z.re;
<font color="blue"><b>println</b></font> z.im;
<font color="blue"><b>println</b></font> x == y;
</pre>
</blockquote>

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