1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
_require "basis.smi"
_require "./libm.smi"
_require "./libgsl.smi"
functor PowerSpectrum
(
A : sig
val numSamples : int
val samplingFreq : real
end
) =
struct
val numSamples : int
val samplingFreq : real
val samplingCycle : real
val interval : real
val samples : real array
val spectrum : real array
val calc : unit -> unit
end
functor SpectrumAnalyzer
(
A : sig
val numSamples : int
val samplingFreq : real
end
) =
struct
val minSample : real
val minPower : real
val powerToHeight : real array -> unit
val summarize : real array * int * int * real array -> unit
val toMonoral : word array * real array -> unit
val readBlockPulse : real array -> bool
val readSineWave : real * real array -> bool
val printAry : real array -> unit
end
|
