1 2 3 4 5
//symsum// exec ztransfer.sce; sequence=[0 2 0 0 -3 0 0 8] y=ztransfer(sequence); disp(y,"ans=")
