Feigenbaum constant calculation: Difference between revisions
Content deleted Content added
No edit summary |
|||
| Line 1,249: | Line 1,249: | ||
for i = 2 to maxit |
for i = 2 to maxit |
||
a=a1+(a1-a2)/d1 |
a=a1+(a1-a2)/d1 |
||
for j = 1 to maxitj {x=0:y=0:for k=1 to 2&^i {y=1@-2@*y*x:x=a-x*x}:a-=x/y} |
for j = 1 to maxitj {x=0:y=0:for k=1 to 2&^i {y=1@-2@*y*x:x=a-x*x}:a-=x/y} |
||
maxitj-=c |
|||
d=(a1-a2)/(a-a1) |
d=(a1-a2)/(a-a1) |
||
print format$("{0::-7} {1:10:-12}",i, d) |
print format$("{0::-7} {1:10:-12}",i, d) |
||
| Line 1,278: | Line 1,279: | ||
18 4.6692016091 |
18 4.6692016091 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||