|
|
 | | From: | Roger Bagula | | Subject: | Martin Map (a.k.a. hopalong) | | Date: | Fri, 19 Nov 2004 16:55:38 GMT |
|
|
 |
I only found one concrete link to this map on the web:
http://www.flex.com/~dimai/hopmarti.html
Clear[x,y,a,b,s,g,a0]
(* Martin map*)
b0=Cos[Pi/4]/(1.+Sqrt[3]/10 );
c0=Cos[Pi/4]/(1.+Sqrt[3]/10 );s=-1;
digits=10000;
x[n_]:=x[n]=y[n-1]+s*Sign[x[n-1]]*Sqrt[Abs[b0*x[n-1]+c0]]
y[n_]:=y[n]=1-x[n-1]
x[0]=.6135;y[0]=.6135;
a=Table[{x[n],y[n]},{n,0, digits}];
ListPlot[a, PlotRange->All]
Respectfully, Roger L. Bagula
tftn@earthlink.net, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
alternative email: rlbtftn@netscape.net
URL : http://home.earthlink.net/~tftn
|
|
| | From: | Jack Of TradeZ | | Subject: | Re: Martin Map (a.k.a. hopalong) | | Date: | 20 Nov 2004 09:35:27 -0800 |
|
|
| Here is a program that draws this (and many other) attractor maps:
http://www.sonic.net/~jot/sax25.zip
And go to the web site: http://www.sonic.net/~jot/
for more.
|
|
|
