Feigenbaum constant calculation: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
|||
Line 634: | Line 634: | ||
=={{header|J}}== |
=={{header|J}}== |
||
Translated from the beautiful Fōrmulæ version. Rather than a verb, the conjunction pre-assigns m and n . |
|||
<pre> |
<pre> |
||
Feigenbaum =: conjunction define |
Feigenbaum =: conjunction define NB. use: n Feigenbaum m |
||
irange=: <. + i.@:>:@:|@:- NB. inclusive range |
irange=: <. + i.@:>:@:|@:- NB. inclusive range |
||
a=. 0 1 |
a=. 0 1 |
||
Line 650: | Line 650: | ||
end. |
end. |
||
a=. a , tmp |
a=. a , tmp |
||
delta=. delta , %/@:(-/"1) (- 2 3 ,: 1 2) |
delta=. delta , %/@:(-/"1) (- 2 3 ,: 1 2) { a |
||
end. |
end. |
||
2 14j6 14j6 ": (#\ i. # delta) ,. (}. a) ,. delta |
2 14j6 14j6 ": (#\ i. # delta) ,. (}. a) ,. delta |