+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: HP Prime (/forum-5.html)
+--- Thread: Plotting on The HP Prime. (/thread-17253.html)
Plotting on The HP Prime. - matalog - 07-15-2021 11:59 PM
I have been exploring a part of the HP Prime that I guess makes it unique, and I will share the program that made this plot in this thread if anyone wants to know. In the meantime, can anyone guess what I may have used to create this plot, it was created by a program, with nothing input from outside the device, it only uses the HP Prime and it's abilities?
The image is attached.
RE: Plotting on The HP Prime. - ijabbott - 07-18-2021 12:33 PM
Is it a plasma fractal?
RE: Plotting on The HP Prime. - Wes Loewer - 07-18-2021 04:05 PM
(07-18-2021 12:33 PM)ijabbott Wrote: Is it a plasma fractal?That's just what I was going to guess.
RE: Plotting on The HP Prime. - albud44 - 07-18-2021 06:12 PM
(07-15-2021 11:59 PM)matalog Wrote: I have been exploring a part of the HP Prime that I guess makes it unique, and I will share the program that made this plot in this thread if anyone wants to know. In the meantime, can anyone guess what I may have used to create this plot, it was created by a program, with nothing input from outside the device, it only uses the HP Prime and it's abilities?
The image is attached.
Hello,
I'm very interesting.
RE: Plotting on The HP Prime. - albud44 - 07-19-2021 10:40 AM
Oups, m'y english is Bad.
I'm interested.
RE: Plotting on The HP Prime. - matalog - 07-19-2021 08:40 PM
I used this program, although it has been edited a few times since that particular result.
Changing most of the values will change the output considerably.
Code:
EXPORT Rndrw2()
BEGIN
RECT(RGB(0,0,0,0));
RANDSEED(1);
LOCAL R,X,Y,COL,XO,YO,GRY;
LOCAL J1,J2,J3;
X:=160;Y:=120;
FOR A FROM 1 TO 100000000 DO
R:=RANDINT(1,4);
XO:=X;YO:=Y;
IF R=1 THEN X:=X+1; END;
IF R=2 THEN X:=X-1; END;
IF R=3 THEN Y:=Y+1; END;
IF R=4 THEN Y:=Y-1; END;
IF X>320 OR X<0 THEN X:=XO;END;
IF Y>240 OR Y<0 THEN Y:=YO;END;
COL:=GETPIX_P(X,Y);
PIXON_P(X,Y,COL+50);
END;
J:=J+1;
AFiles("Rndrw"+J+".png"):=G0;
WAIT(-1);
END;It's basically just a 'random' plot, that limits the 'pen' from leaving the canvas.