6 lines
173 B
Text
6 lines
173 B
Text
#import std
|
|
#import nat
|
|
|
|
band = pad0+ ~&rSS+ zipt^*D(~&r,^lrrSPT/~<K33tx zipt^/~&r ~&lSNyCK33+ zipp0)^/~&rx ~&B->NlNSPC ~&bt
|
|
|
|
deconv = lapack..dgelsd^\~&l ~&||0.!**+ band
|