Egy egyszerű "kaleidoszkóp" algoritmus és egy spirálminta (paraméteres függvénnyel) Casio CFX-9850GB Plus programozható grafikus zsebszámológépre:
CALEIDOS
ViewWindow 0,2,0,0,0,2,0;
AxesOff;
For 1->E To 15;
Ran#->A;
Ran#->B;
Ran#->C;
Ran#->D;
A*.1->A;
B*.1->B;
sqrt C->C;
sqrt D->D;
Plot A,B;
Plot 1,C;
Line;
Plot 2-A,B;
Line;
Plot 1+D,1;
Line;
Plot 2-A,2-B;
Line;
Plot 1,2-C;
Line;
Plot A,2-B;
Line;
Plot 1-D,1;
Line;
Plot A,B;
Line;
Next;
Spirál program:
SPIRAL
ViewWindow -6.3,6.3,0,-3.1,3.1,0,0,56,.3;
AxesOff;
Graph(X,Y)=((0.2+0.05T)sin T,(0.2+0.05T)cos T);