nvm (guest) 30 May 2012 15:53
I was looking for the code to make this and I couldn't find it, but using some knowlege of ti-basic + using the code for the ti-83 gasket + reading the summary John Hanna's Gasket, which is probably almost exactly like mine's, just coded independently. I was able to find the code.
Define s(a)=
Prgm
"0""-> lx
"0" -> ly
0 -> x
0 -> y
For k,1,a
rand() -> n
if n =< 1/3 Then
0.5*x -> x
0.5*y -> y
ElseIf n > 1/3 and n =< 2/3 Then
0.5*(5+x) -> x
0.5*(5*(√3) + y) -> y
ElseIf n > 2/3 Then
0.5*(10+x) -> x
0.5*y -> y
EndIF
lx&","&string(x) ->lx
ly&","&string(y) ->ly
EndFor
expr("{"&lx&"}") -> gx
expr("{"&ly&"}") -> gy
EndPrgm
Open a new Document, Add a Calc, go to menu,9,1,1 Put the name s lowercase, click OK, type in the above code Click ctrl + B to save
Then click ctrl + Doc, click graph. In the new graph go to menu,3,4.
Go back to the calc and type s(a number) the higher number you put for the argument the more iterations/the darker the result