Mercurial > projects > dstress
changeset 94:8fd629339db4
added basic creal tests
author | thomask |
---|---|
date | Tue, 02 Nov 2004 16:34:33 +0000 |
parents | 6da915adb81a |
children | f4dcf89f7796 |
files | run/creal_01.d run/creal_02.d run/creal_03.d run/creal_04.d |
diffstat | 4 files changed, 77 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/creal_01.d Tue Nov 02 16:34:33 2004 +0000 @@ -0,0 +1,18 @@ +module dstress.run.creal_01; + +int main(){ + real x1 = 2.0; + real y1 = 3.0; + real x2 = 5.0; + real y2 = 7.0; + ireal i = 1.0i; + + creal a = x1 + y1*i; + creal b = x2 + y2*i; + creal c = a + b; + + creal d = (x1+x2) + (y1*i+y2*i); + assert(c == d); + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/creal_02.d Tue Nov 02 16:34:33 2004 +0000 @@ -0,0 +1,18 @@ +module dstress.run.creal_02; + +int main(){ + real x1 = 2.0; + real y1 = 3.0; + real x2 = 5.0; + real y2 = 7.0; + ireal i = 1.0i; + + creal a = x1 + y1*i; + creal b = x2 + y2*i; + creal c = a - b; + + creal d = (x1-x2) + (y1*i-y2*i); + assert(c == d); + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/creal_03.d Tue Nov 02 16:34:33 2004 +0000 @@ -0,0 +1,18 @@ +module dstress.run.creal_03; + +int main(){ + real x1 = 2.0; + real y1 = 3.0; + real x2 = 5.0; + real y2 = 7.0; + ireal i = 1.0i; + + creal a = x1 + y1*i; + creal b = x2 + y2*i; + creal c = a * b; + + creal d = (x1*x2-y1*y2) + i*(x1*y2+x2*y1); + assert(c == d); + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/creal_04.d Tue Nov 02 16:34:33 2004 +0000 @@ -0,0 +1,23 @@ +module dstress.run.creal_04; + +import std.stdio; + +int main(){ + real x1 = 2.0; + real y1 = 3.0; + real x2 = 5.0; + real y2 = 7.0; + ireal i = 1.0i; + + creal a = x1 + y1*i; + creal b = x2 + y2*i; + creal c = a / b; + + creal d = ((x1*x2 + y1*y2) + i*(x2*y1 - x1*y2)) / (x2*x2 + y2*y2); + assert(c == d); + + d = ((x1 + i*y1)*(x2 - i*y2)) / ((x2 + i*y2)*(x2 - i*y2)); + assert(c == d); + + return 0; +}