Anonymous user
Image noise: Difference between revisions
no edit summary
m (→{{header|REXX}}: added/changed comments and whitespace, changed indentations.) |
No edit summary |
||
Line 1,650:
close #w
end
</lang>
=={{header|Maple}}==
*Note, you will need to insert a plot component to get this to work.
<lang Maple>
a:=0;
t:=time[real]();
while a< 50 do
a:=a+1;
data := Matrix(`<|>`(`<,>`(Statistics:-Sample(Uniform(0, 1), [1000, 2])), LinearAlgebra:-RandomVector(1000, generator = rand(0 .. 2))));
f := plots:-pointplot(data[NULL .. NULL, 1], data[NULL .. NULL, 2], symbolsize = 20, symbol = solidbox, colorscheme = ["valuesplit", data[NULL .. NULL, 3], [0 = "Black", 1 = "White", 2 = "Grey"]], axes = none);
DocumentTools:-SetProperty('Plot0', 'value', plots:-display(f,plots:-textplot([0.5,0.5,sprintf("FPS: %a", (a/(time[real]()-t)))],color=red)), refresh=true);
end do:
</lang>
| |||