Constrained random points on a circle: Difference between revisions

Content added Content deleted
No edit summary
m (→‎{{header|PureBasic}}: Optimized the code a little)
Line 314:
 
=={{header|PureBasic}}==
<lang PureBasic>Procedure is_inrangeCreateImage(x0,y31,minlimit.f=10,maxlimit.f=1531)
Protected.f z=Sqr(x*x+y*y)
If minlimit<=z And z <=maxlimit
ProcedureReturn 1
EndIf
EndProcedure
 
CreateImage(0,31,31)
StartDrawing(ImageOutput(0))
For i=1 To 100
Repeat
x=Random(30)-15: y x=Random(30)-15
y=Random(30)-15
Until is_inrange(x,y)
Plot R.f=Sqr(x*x+15,y+15,$0000FF*y)
Until 10<=R And R<=15
Next▼
Plot(x+15,y+15,#Red)
▲ Next
StopDrawing()
 
Line 334 ⟶ 329:
Flags=#PB_Window_SystemMenu
OpenWindow(0,#PB_Ignore,#PB_Ignore,ImageWidth(0),ImageHeight(0),Title$,Flags)
ImageGadget(0,0,0,30ImageWidth(0),30ImageHeight(0),ImageID(0))
Repeat: Event=Until WaitWindowEvent() =#PB_Event_CloseWindow</lang>
Until Event=#PB_Event_CloseWindow</lang>
[[File:PureBasic_Circle_plot.png‎|155px]]
 
Retrieved from "https://rosettacode.org/wiki/Constrained_random_points_on_a_circle"