Commit 61ad38e8 authored by simonmar's avatar simonmar

[project @ 2005-04-28 10:52:59 by simonmar]

mode=slow
parent e3619d0c
......@@ -3,28 +3,24 @@
> import Fourier -- Amoco Production Research, Sep 1992
> import Complex_Vectors
> import Complex--1.3
> import System.Environment
> main = putStr
> ("result1 = " ++ show result1 ++ "\n" ++
> "result2 = " ++ show result2 ++ "\n" ++
> "result3 = " ++ show result3 ++ "\n")
> main = do
> (n:_) <- getArgs
> let m = read n :: Double
> putStr
> ("result1 = " ++ show (result1 m) ++ "\n" ++
> "result2 = " ++ show (result2 m) ++ "\n" ++
> "result3 = " ++ show (result3 m) ++ "\n")
> result1 =
> result1 m =
> tstfft(rmwC m)
> -- tstfft(rmwC 256)
> tstfft(rmwC 512)
> -- tstfft(rmwC 1024)
> result2 =
> -- tstdft(rmwC 256)
> tstdft(rmwC 512)
> -- tstdft(rmwC 1024)
> result3 =
> -- tstsct(rampWave 256)
> tstsct(rampWave 512)
> -- tstsct(rampWave 1024)
> result2 m =
> tstdft(rmwC m)
> result3 m =
> tstsct(rampWave m)
Test Apparatus
......
......@@ -2,3 +2,6 @@ TOP = ../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/target.mk
FAST_OPTS = 512
NORM_OPTS = 512
SLOW_OPTS = 1500
result1 = 21167.208319565725
result2 = 2.5448319287502744e-11
result3 = 2.2515175714943325e-6
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment