13 lines
750 B
Text
13 lines
750 B
Text
deconv = # takes a number n to the n-dimensional deconvolution function
|
|
|
|
~&?\math..div! iota; ~&!*; @h|\; -+
|
|
//+ ~&al^?\~&ar @alh2faltPrXPRX @liX ~&arr2arl2arrh3falrbt2XPRXlrhPCrtPCPNfallrrPXXPRCQNNCq,
|
|
^^/-+~&B->NlC~&bt*+,gang@t,~~*+- (umf..di_a_trp^/~&DSLlrnPXrmPXS+num@lmS ^niK10mS/num@r ~&lnS)^^(
|
|
gang; ^|\~&; //+ -+
|
|
^niK10/~& @NnmlSPASX ~&r->lL @lrmK2K8SmtPK20PPPX ^/~&rrnS2lC ~&rnPrmPljASmF@rrmhPSPlD,
|
|
num+ ~&B^?a\~&Y@a -+
|
|
~&l?\~&r *=r ~&K7LS+ * (*D ^\~&rr sum@lrlPX)^*D\~&r product^|/~& successor@zhl,
|
|
^/~&alt @alh2faltPrDPMX -+
|
|
~&rFS+ num*rSS+ zipt^*D/~&r ^lrrSPT/~<K33tx zipt^/~&r ~&lSNyCK33+ zipp0,
|
|
^/~&rx ~&B->NlNSPC ~&bt+-+-+-,
|
|
@t =>~&l ~&L+@r)+-
|