M
Size: a a a
NM
let interpolate (x: byte[]) newSize seconds =
let sinc x =
let x = System.Math.PI * x
sin x / x
let T = 1. / (float x.Length / float seconds)
let nT = 1. / (float newSize / float seconds)
Array.init newSize (fun t ->
let t = float t
x |> Seq.sumBy (fun xn -> float xn * sinc (t - nT / T)) |> byte
)
VK
DB
I
DS
SN