Gömb, vonal-átmenetek és "spirál" alakú átmenet Casio CFX-9850GB Plus grafikus számológépen. A három program mellett az azok "vetítésére" szolgáló program is megtalálható a bejegyzés végén.
A grafikák előállítása hosszadalmas, akár 10 percig is tarthat a kalkulátoron.
Poszt, képernyőkép és YouTube videó link a programokról
Gömb program
ViewWindow 0,2,0,0,1,0;
For 1->A To 15000;
.5+Ran#->X;
Ran#->Y;
.5>sqrt((X-1)(X-1)+(Y-.5)(Y-.5)->B;
.5>sqrt((X-1)(X-1)+(Y-.5)(Y-.5)->C;
.5>sqrt((X-1)(X-1)+(Y-.5)(Y-.5)->D;
BCD=>Plot X,Y;
BCD=>Plot X,Y;
Next;
Átmenet program
ViewWindow 0,1,0,0,1,0;
For 1->A To 18000;
Ran#->X;
Ran#->Y;
Ran#>X->B;
Ran#>X->C;
0->D;
Y<.25=>1->D;
(Y<.75)(Y>.5)=>1->D;
D=>1-X->X;
BC=>Plot X,Y;
BC=>Plot X,Y;
Next;
Csiga program
ViewWindow 0,2,0,0,1,0;
{.5,.75,1,1.25,1.25,1.25,1.25,1,.75,.5,.5,.5,.75,1,1,.75->List 1;
{.75,.75,.75,.75,.5,.25,0,0,0,0,.25,.5,.5,.5,.25,.25->List 2;
For 1->B To 15;
For 1->C To B*B*2;
List 1[B]+.25Ran#->X;
List 2[B]+.25Ran#->Y;
Plot X,Y;
Plot X,Y;
Next;
Next;
Vetítő program
(Használatához előtte Pict 1, Pict 2 és Pict 3 képmemóriába el kell menteni a programok futásának végeredményét.)
Cls;
750->B;
For 1->D To 100;
Cls;
RclPict 1;
Plot -1,-1;
For 1->A To B:Next;
Cls;
RclPict 2;
Plot -1,-1;
For 1->A To B:Next;
Cls;
RclPict 3;
Plot -1,-1;
For 1->A To B:Next;
Next;