-
Obtuse One-LinerFollowing a request in another thread, this could almost be crammed into one line. It uses a simple ON ERR CONTINUE to give a continuous display. [c…
... x+5,1:
INK RND*6:
POKE x+7 ... +RND:
CLS :
POKE x,PEEK x-2:
PLOT 255*RND ... ,176*RND:
DRAW 99*RND,99*RND,RND*3e5:
Obtuse One-LinerFollowing a request in another thread, this could almost be crammed into one line. It uses a simple ON ERR CONTINUE to give a continuous display. [c…
... LET v=23613:INK 6*RND:IF RND < .03 THEN CLS ... 3 POKE v, PEEK v-2: PLOT ...
255*RND,175*RND: DRAW 99*RND, 99*RND, v*RND:POKE v ...Obtuse One-LinerFollowing a request in another thread, this could almost be crammed into one line. It uses a simple ON ERR CONTINUE to give a continuous display. [c…
... LET v=23613:INK 6*RND:IF RND < .03 THEN CLS ... 3 POKE v, PEEK v-2: PLOT ...
255*RND,175*RND: DRAW 99*RND, 99*RND, v*RND:POKE v ...SpecOS progressOk, As you can all see, I'm back - and I've been working away on SpecOS for a while now. There's a few videos, which you can see on my blog: [url]h…
... FOR NEXT RETURN STOP IF PLOT PAUSE DRAW
And ... functions are implemented:
RND, INKEY$, PI, CODE, LEN, SIN ...RIP Benoit Mandelbrot[QUOTE]'Fractal' mathematician Benoit Mandelbrot dies aged 85 Mandelbrot had been highly critical of the world's banking system Benoit Mandelbrot, w…
... =b
50 PLOT a,b
60 PLOT c,d
70 PLOT e,f
90 PLOT x,y
100 LET z=INT (1+RND*3 ...Birthday PlotsHello all; When browsing the web, I stumbled across an oddity known as Birthday Plots. In effect somebody enters a numeric date and the computer prin…
... be multiplied by 176 / 256. "PLOT" on a plotter may actually ... negative, line 50 computes the RND of a negative number (maybe ... corner, which hints at how PLOT should work.Birthday PlotsHello all; When browsing the web, I stumbled across an oddity known as Birthday Plots. In effect somebody enters a numeric date and the computer prin…
...
60 LET I=INT (RND*10)+5
70 LET ... /> 100 LET R(J,1)=RND
110 IF R(J ... /> 150 LET R(J,2)=RND
160 IF R(J ... ,2)-L2)/(U2-L2)*170: PLOT P1,P2: DRAW Q1-P1 ...Birthday PlotsHello all; When browsing the web, I stumbled across an oddity known as Birthday Plots. In effect somebody enters a numeric date and the computer prin…
... to the minimum and maximum plot coordinates that are randomly ... />
[QUOTE=Alcoholics Anonymous;548529]"PLOT" on a plotter may actually ... thus I added an explicit PLOT command before each DRAW so ... negative, line 50 computes the RND of a negative number ( ...Birthday PlotsHello all; When browsing the web, I stumbled across an oddity known as Birthday Plots. In effect somebody enters a numeric date and the computer prin…
...
60 LET i=INT (RND*10)+5
70 LET ... /> 100 LET r(j,1)=RND
110 IF r(j ... /> 150 LET r(j,2)=RND
160 IF r(j ... y=r(k,2)*ymod: PLOT x,y: DRAW px-x ...3 lines of funHello! I'm looking for a tattoo to remember forever our fabulous 8 bit era. A part the pictures I posted here [url]http://www.worldofspectrum.org/for…
[html]
10 let x=int (rnd*255)
20 let y=int (rnd*175)
30 plot x,y: go to 10
[/html]3 lines of funHello! I'm looking for a tattoo to remember forever our fabulous 8 bit era. A part the pictures I posted here [url]http://www.worldofspectrum.org/for…
... LET v=23613:INK 6*RND:IF RND < .03 THEN CLS ... v-2: PLOT 255*RND,175*RND: DRAW 99*RND, 99*RND, v*RND:POKE v ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
... :
[CODE]
10 PLOT RND*128,RND*128
20 GOTO 10 ... like
[CODE]
10 PLOT USR 30000/2, USR 30000 ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
... :
[CODE]
10 PLOT RND*128,RND*128
20 GOTO 10 ... like
[CODE]
10 PLOT USR 30000/2, USR 30000 ... />
LET a=1+INT (RND*10)
Many thanks ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
... flawed or something (the scattered plot wasn't covering the entire ... covered. It depends on the RND multiplier. RND * 191 does not cover ...The Curlicue FractalSpotted a couple of fractal listings, that are new to me, over at [URL="http://oolong.co.uk/curlicue.htm"]http://oolong.co.uk/curlicue.htm[/URL] The …
... /2
50 LET seed=RND
60 LET df=0 ...
130 IF x0 THEN PLOT INK MIN(POINT(x,y ...The Curlicue FractalSpotted a couple of fractal listings, that are new to me, over at [URL="http://oolong.co.uk/curlicue.htm"]http://oolong.co.uk/curlicue.htm[/URL] The …
... /2
50 LET seed=RND
60 LET df=0 ...
130 IF x0 THEN PLOT x,y
140 LET ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
...
160 LET c=INT (RND*9)
170 LET n ... =INT (RND*20)
180 REM
220 LET d=INT (RND*4)
230 IF ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... Y: CLS
160 REM PLOT DOTS
170 FOR N ...
180 LET X=INT (RND*64)
190 LET Y ... =INT (RND*44)
200 INK INT ... (RND*8)
210 GO SUB ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... /randplot.zip]Random Plot[/url] routine. This will plot every point on ... nature of the Spectrum's RND function.WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... /randplot.zip"]Random Plot[/URL] routine. This will plot every point on ... nature of the Spectrum's RND function.[/QUOTE]
Hi ... I will use the random plot routine to show how much ...BIN2BAS (load BASIC text into emulator) utilityI've nearly finished testing this. It allows a BASIC program to be loaded from a text file in any emulator which has a "load binary" option. I was wo…
... : PAUSE 3: PLAY "ABCDE","abcde": PLOT INK 2;5,6
RND: LET c$=SCREEN$(7,8 ...generating a pre-defined list in an un-defined sequenceI've decided to become a drunkard, to which end I've been drinking a whole bottle of beer in one day (whereas normally I'd make it last 2 or 3 days).…
... wrote back in 2005, to plot all points on the Spectrum ... to duplicate plotting). Using plain RND for x,y doesn't ... used FRAMES to alter the RND value and then constrained it ...generating a pre-defined list in an un-defined sequenceI've decided to become a drunkard, to which end I've been drinking a whole bottle of beer in one day (whereas normally I'd make it last 2 or 3 days).…
... a perfect solution combining [B]RND[/B] and a 16 bits ... /> [LIST]
[*]First use [B]RND[/B] to generate a new ... may use the same [B]RND[/B] to do so.
PLOT a point at this position ...generating a pre-defined list in an un-defined sequenceI've decided to become a drunkard, to which end I've been drinking a whole bottle of beer in one day (whereas normally I'd make it last 2 or 3 days).…
A full 256*192 plot [b]can[/b] be done ... 've just copied the modified "RND+" function from my old routine ...generating a pre-defined list in an un-defined sequenceI've decided to become a drunkard, to which end I've been drinking a whole bottle of beer in one day (whereas normally I'd make it last 2 or 3 days).…
... /> [CODE]main() {
HL = RND()
DE = RND()
repeat 65536 times ...RND cyclical behaviourGood evening. I'm playing with RND function to show its cyclical behaviour, i.e. after 65536 calls to it, the next one will return the same value of …
... reset WORKSP, because the RND call from FP_CALC adds ... two bytes (RND + ENTER) but doesn' ... defw $023F ;address of "RND" code in key table
call $2da2 ;FP_TO_BC = PLOT coordinates
ld hl,$afff ...RND cyclical behaviourGood evening. I'm playing with RND function to show its cyclical behaviour, i.e. after 65536 calls to it, the next one will return the same value of …
...
15 LET r=INT (RND*n)
20 LET y ... PRINT n: STOP
50 PLOT x,y
60 NEXT ...
