Question: how to plot this graph?

would like to use point graph and line graph to show the graph

restart;

test1r3 := (1/2)*(-x+sqrt(x^2-4*y^2))/y;

n := 100;

for j from 1 to n do

aa[j] := subs(y=RandomTools[Generate](integer(range = 1 .. 10)),subs(x=RandomTools[Generate](integer(range = 1 .. 10)),test1r3));

od;

plot(<seq(1 .. n)>,<seq(aa[i], i = 1 .. n)>, style = point);

Please Wait...