csharpfftfsharpintegrationinterpolationlinear-algebramathdifferentiationmatrixnumericsrandomregressionstatisticsmathnet
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
638 B
23 lines
638 B
open System
|
|
open System.Diagnostics
|
|
open MathNet.Numerics
|
|
open MathNet.Numerics.IntegralTransforms
|
|
open MathNet.Numerics.LinearAlgebra
|
|
|
|
type Complex = System.Numerics.Complex
|
|
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
|
|
// Code touching all providers
|
|
Control.UseNativeMKL()
|
|
let matrix : Matrix<Complex> = DenseMatrix.randomSeed 10 10 100
|
|
let vector = (matrix |> Matrix.svd).S
|
|
vector.AsArray() |> Fourier.Forward
|
|
printfn "%s" (Control.Describe())
|
|
printfn "DC=%f; Low=%f; Hight=%f" vector.[0].Magnitude vector.[1].Magnitude vector.[5].Magnitude
|
|
|
|
if Debugger.IsAttached then
|
|
Console.ReadKey() |> ignore
|
|
|
|
0
|
|
|