Построить график

> y := Matrix(3000, 1000);
> with(RandomTools);
with(plots); 
> for l to 20 do 
for i to 3000 do 
for j to 120 do 
y[i, j] := Generate(choose({1, 2, 3, 4})) :
end do 
end do: 
for i to 3000 do 
y[i, 121] := 1:
 y[i, 122] := 2: 
y[i, 123] := 3 :
end do; 
for i to 3000 do 
for j from 124 to 642 do 
y[i, j] := Generate(choose({1, 2, 3, 4})) 
end do 
end do; 
for i to 3000 do 
y[i, 643] := 1; 
y[i, 644] := 3; 
y[i, 645] := 3 
end do; 
for i to 3000 do 
for j from 646 to 1000 do 
y[i, j] := Generate(choose({1, 2, 3, 4})) 
end do 
end do; 
for i to 1000 do
 t := Generate(float(range = 0.07 .. 10.0));
 if t > 0.2 then 
h := Generate(posint(range = 1000)); 
if y[i, h] = 1 then 
if `and`(t > .31861, t < .54288) then y[i, h] := 2
else
 if `and`(t > .54288, t < 2.27743) then y[i, h] := 3
else 
if t > 2.27743 then y[i, h] := 4
 end if 
end if 
end if
 end if;
 if y[i, h] = 3 then 
if `and`(t > .22844, t < 1.85795) then y[i, h] := 4 
else 
if `and`(t > 1.85795, t < 4.60051) then y[i, h] := 1 
else
 if t > 4.60051 then y[i, h] := 2
 end if
 end if
 end if
 end if;
 if y[i, h] = 4 then 
if `and`(t > .26199, t < .65504) then y[i, h] := 3 
else 
if `and`(t > .65504, t < 7.36089) then y[i, h] := 2 
else 
if t > 7.36089 then y[i, h] := 1 
end if 
end if
 end if
 end if;
 if y[i, h] = 2 then 
if `and`(t > .58021, t < .809504) then y[i, h] := 4 
else 
if `and`(t > .809504, t < 2.809301) then y[i, h] := 1 
else 
if t > 2.809301 then y[i, h] := 3 
end if 
end if 
end if
end if 
end if 
end do;
 p := 0;
 for i to 3000 do 
for k from i+1 to 3000 do 
for j to 1000 do
 if y[i, j] <> y[k, j] then 
p := p+1 
end if 
end do 
end do 
end do; 
s := 2*p/(3000*(3000-1))
 end do; 
plot(l, s);