gscreen(1000,700)
a=0
b=0
for a=0 to 640 step 0.8
if -0.001=<(a-150)^2+(b-150)^2-125^2 or 0.001>=(a-150)^2+(b-150)^2-125^2 then pset(a,b),14
next a
for b=0 to 320 step 0.8
if -0.001=<(a-150)^2+(b-150)^2-125^2 or 0.001>=(a-150)^2+(b-150)^2-125^2 then pset(a,b),14
next b
end
全然うまくいきません、ご助言お願いします。