Martin Map (a.k.a. hopalong).
- To: mathgroup at smc.vnet.net
- Subject: [mg52278] Martin Map (a.k.a. hopalong).
- From: Roger Bagula <tftn at earthlink.net>
- Date: Sat, 20 Nov 2004 03:41:56 -0500 (EST)
- Reply-to: tftn at earthlink.net
- Sender: owner-wri-mathgroup at wolfram.com
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 at earthlink.net, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 : alternative email: rlbtftn at netscape.net URL : http://home.earthlink.net/~tftn