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

Sierpinski háromszög Casio és TI grafikus számológépen

2010.04.27. 07:28 Sany80

Egy híres (és szép) fraktál, a Sierpinski háromszög Casio és Texas Instruments grafikus számológépekre (képernyőképet és további információkat itt találsz).

A meglepően rövid forráskód (Casio Basic):

ViewWindow 0,2,0,0,1,0;
Ran# -> A;
Ran# -> B;
{0,1,2 -> List 1;
{0,1,0 -> List 2;
For 1 -> J To 10.000;
1 + int( 3 * Ran# -> C;
0.5*(A + List 1[C] -> A;
0.5*(A + List 2[C] -> B;
Plot A,B;
Plot A,B;
Next;

és a TI Basic forráskód:

:ClrDraw
:0→Xmin:2→Xmax
:0→Ymin:1→Ymax
:rand→A:rand→B
:{0,1,2→L₁
:{0,1,0→L₂
:Repeat getKey
:randInt(1,3→C
:mean({A,L₁(C→A
:mean({B,L₂(C→B
:Pt-On(A,B
:End

 

 

 

Szólj hozzá!

A bejegyzés trackback címe:

https://szamologep.blog.hu/api/trackback/id/tr431954626

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 és az adatvédelmi tájékoztatóban.

Nincsenek hozzászólások.