getf("lois_discretes.sci")
x = ech_dist(10,10,["a","b","c"],[0.5,0.3,0.2])
x = ech_dist(1,1000,["a","b","c"],[0.5,0.3,0.2]);
[f,v] = freq_emp(x)
xset("window",0); xbasc();
plot2d3("gnn",[1:3]',f',5,"111","frequences",[0,0,4,1])
x = ech_dist(1,1000,[1:10],ones(1,10));
[f,v] = freq_emp(x)
xset("window",1); xbasc();
plot2d3("gnn",v',f',5,"111","frequences",[0,0,11,0.5])

