graphicsimagejkfracfor
Differences
This shows you the differences between two versions of the page.
| — |
graphicsimagejkfracfor [2016/01/01 22:37] (current) |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| + | {{:en:kahn_joel_fractal_forces.png?200|}} | ||
| + | Fractal Forces by Joel Kahn (June 2010) | ||
| + | <code> | ||
| + | # 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 | ||
| + | tr=ar*ar-ai*ai+br | ||
| + | ti=2*ar*ai+bi | ||
| + | x=tr*xs+xm | ||
| + | y=ti*ys+ym | ||
| + | v=v+vv | ||
| + | q=q*qq | ||
| + | c=d^2.1 | ||
| + | color c | ||
| + | stamp x,y,q,v,f | ||
| + | ar=tr | ||
| + | ai=ti | ||
| + | next d | ||
| + | </code> | ||
graphicsimagejkfracfor.txt ยท Last modified: 2016/01/01 22:37 (external edit)
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
