Post Reply 
Plotting on The HP Prime.
07-15-2021, 11:59 PM (This post was last modified: 07-16-2021 07:53 PM by matalog.)
Post: #1
Plotting on The HP Prime.
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.


Attached File(s) Thumbnail(s)
   
Find all posts by this user
Quote this message in a reply
07-18-2021, 12:33 PM
Post: #2
RE: Plotting on The HP Prime.
Is it a plasma fractal?

— Ian Abbott
Find all posts by this user
Quote this message in a reply
07-18-2021, 04:05 PM
Post: #3
RE: Plotting on The HP Prime.
(07-18-2021 12:33 PM)ijabbott Wrote:  Is it a plasma fractal?
That's just what I was going to guess.
Find all posts by this user
Quote this message in a reply
07-18-2021, 06:12 PM
Post: #4
RE: Plotting on The HP Prime.
(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.
Find all posts by this user
Quote this message in a reply
07-19-2021, 10:40 AM
Post: #5
RE: Plotting on The HP Prime.
Oups, m'y english is Bad.

I'm interested.
Find all posts by this user
Quote this message in a reply
07-19-2021, 08:40 PM
Post: #6
RE: Plotting on The HP Prime.
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.
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 2 Guest(s)