X
Size: a a a
X
g
X
X
X
X
AB
let xV = [|1.0;1.0;1.0;2.0;3.0;4.0;5.0;6.0;7.0;7.0;7.0;6.0;5.0;4.0;3.0;2.0|]
let yV = [|2.0;3.0;4.0;5.0;6.0;7.0;7.0;6.0;5.0;4.0;3.0;2.0;1.0;1.0;1.0;1.0|]
X
AB
AB
let cas x = cos x + sin x
let Encoding g =
let N = float (Array.length g)
seq { 0..g.Length - 1 }
|> Seq.map (fun v ->
g
|> Seq.mapi (fun n g_n ->
g_n * cas (2.0 * Math.PI * float v * float n / N))
|> Seq.sum)
|> Seq.toArray
AB
Vector x: 64.0000 -31.7157 0.0000 -1.6199 0.0000 0.2996 0.0000 -0.5198 0.0000 -1.2549 0.0000 -0.7232 0.0000 0.6710 0.0000 -13.1371
Vector y: 58.0000 6.5685 -2.4142 1.2122 0.0000 0.3616 1.0000 0.0517 0.0000 0.2599 0.4142 -0.2416 -2.0000 0.8100 1.0000 -33.0223
g
g
AB
AB
AB
AB
AB
g
g