This shows you the differences between two versions of the page.
graphicsimagejkfracfor [2016/01/01 22:37] |
graphicsimagejkfracfor [2020/02/28 10:46] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | {{: | ||
+ | Fractal Forces by Joel Kahn (June 2010) | ||
+ | < | ||
+ | # Contributed by Joel Kahn | ||
+ | cls | ||
+ | clg | ||
+ | graphsize 700,500 | ||
+ | dim f(8) | ||
+ | f[0]=0 | ||
+ | f[1]=0 | ||
+ | f[2]=50 | ||
+ | f[3]=0 | ||
+ | f[4]=50 | ||
+ | f[5]=1 | ||
+ | f[6]=0 | ||
+ | f[7]=1 | ||
+ | q=1.0 | ||
+ | qq=0.9997 | ||
+ | v=0.01 | ||
+ | vv=0.0004 | ||
+ | xs=750 | ||
+ | xm=650 | ||
+ | ys=730 | ||
+ | ym=180 | ||
+ | c=0 | ||
+ | br=-.7393 | ||
+ | bi=.117 | ||
+ | ar=0 | ||
+ | ai=0 | ||
+ | for d=1 to 150000 | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | color c | ||
+ | stamp x,y,q,v,f | ||
+ | ar=tr | ||
+ | ai=ti | ||
+ | next d | ||
+ | </ | ||