RosettaCodeData/Task/Deconvolution-1D/Ursala/deconvolution-1d-2.ursala
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

11 lines
254 B
Text

h = <-8.,-9.,-3.,-1.,-6.,7.>
f = <-3.,-6.,-1.,8.,-6.,3.,-1.,-9.,-9.,3.,-2.,5.,2.,-2.,-7.,-1.>
g = <24.,75.,71.,-34.,3.,22.,-45.,23.,245.,25.,52.,25.,-67.,-96.,96.,31.,55.,36.,29.,-43.,-7.>
#cast %eLm
test =
<
'h': deconv(g,f),
'f': deconv(g,h)>