| Author |
Comment/Response |
pietro
|
 07/20/04 07:23am
I'm not so good at programming and at mathematica but can someone tell me how to implement an aggregation model and to make an example from the implementation below? please help me I mean a practical example so that I can see how this formula works
AEvolve[t_] := Nest[AStep, {{0, 0}}, t]
AStep[c_] := (if[! MemberQ[c, #], Append[
c, #], AStep[c]] &)[f[{{1, 0}, {0, 1}, {-1, 0}, {0, -1}}]]
f[a_] := a[Random[Integer, {1, Length[a]}]]
URL: , |
|
