HTML

Zsebszámológép programok, forráskódok, hírek

Egy blog zsebszámológép programokról, algoritmusokról, érdekességekről.

Játék

Szabadon letölthető, megújult Gazdálkodj okosan! stratégiai társasjáték szabállyal együtt.

Friss topikok

Linkblog

Véletlenszámokkal előállított "művészi" ábrák, átmenetek Casio grafikus számológépen

2009.04.23. 05:50 Sany80

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;

 

 

1 komment

Címkék: program casio csiga számológép grafikus basic gömb spirál átmenet véletlenszám

A bejegyzés trackback címe:

http://szamologep.blog.hu/api/trackback/id/tr971081300

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben.

szöszkehölgy 2009.11.26. 13:22:30

ŐŐŐő én ez nem értem. :(
Gimiben még világos volt a sin, cos és a deg, rad is, de ez...