path: root/830/CH3/EX3.1.0/3_1_0.sce

//Graphical//
function [Ztransfer]=ztransfer_new(sequence,n)
z = poly(0, 'z', 'r')
Ztransfer=sequence*(1/z)^n'
endfunction