Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Newly Released Mathematica 5.1 Delivers Unmatched Performance for Handling Data
  • Next by Date: Complex plotting
  • Previous by thread: Re: Difference between scalar and vector inequality!
  • Next by thread: Re: Martin Map (a.k.a. hopalong).