Multiple Zifi
clear all;
clc;

a=67;
m=2048;
z0=129;
n=4;
z=[];
u=[];
for i=1:n,
    zi = mod((a*z0),m);
    z0 = zi
    un = zi/m; %untuk membangkitkan (edo tensei)
    u = [u un];
    z = [z zi];
end,
z
u

Multiple Tsani
clc;
clear all;

Z0=129;
m=2048;
a=67;
n=20;
ZN=[];
UI=[];

for i=1:n
    x=(a*Z0);
    zn=(x/m-floor(x/m))*m;
    Ui=zn/m;
    UI=[UI Ui];
    ZN=[ZN zn];
    Z0=zn;
end,
ZN
UI