MathGroup Archive 2007

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

Search the Archive

Re: Plot a simple function


The Entropy map type functions made me realize that there was a sequence 
of these
mapping functions and their Integrals formed an alternation of integers  
and irrationals sequence.
{2., 2.77259, 3., 3.14159, 4., 4.66667, 5., 5.1774, 6.}
After the tent map ( K=0)  the curvatures are negative.
I don't know if this is an actually quantum sequence or not!

Clear[e, f]
(* pulse : c[1] = 2*)
f[x_, 1] := 1
(* entropy of information*)
f[x_, 2] := -x*Log[2, x] - (1 - x)*Log[2, 1 - x] /; 0 <= x <= 1;
(* Logistic map*)
f[x_, 3] := 4*x*(1 - x)
(* Sine map*)
f[x_, 4] := Sin[Pi*x]
(* Tent Map*)
f[x_, 5] := 2*x /; 0 <= x <= 1/2
f[x_, 5] := (2 - 2*x) /; 1/2 < x <= 1
(* Square root tent map : equivalent to logistic*)
e[x_] := Sqrt[2*x] /; 0 <= x <= 1/2
e[x_] := Sqrt[(2 - 2*x)] /; 1/2 < x <= 1
(* 4/3 power tent map*)
ha := 4/3
f[x_, 6] := (2*x)^ha /; 0 <= x <= 1/2
f[x_, 6] := (2 - 2*x)^ha /; 1/2 < x <= 1
(* 3/2 power tent map*)
h0 := 3/2
f[x_, 7] := (2*x)^h0 /; 0 <= x <= 1/2
f[x_, 7] := (2 - 2*x)^h0 /; 1/2 < x <= 1
(* Farey map*)
f[x_, 8] := (x/(1 - x)) /; 0 <= x <= 1/2
f[x_, 8] := ((1 - x)/x) /; 1/2 < x <= 1
(*square tent map*)
h := 2;
f[x_, 9] := (2*x)^h /; 0 <= x <= 1/2
f[x_, 9] := (2 - 2*x)^h /; 1/2 < x <= 1
c = Table[1/Integrate[f[x, n], {x, 0, 1/2}], {n, 1, 9}];
N[c]
ListPlot[c,
 PlotJoined -> True]
b =
   Table[Plot[f[x, n], {x, 0, 1}, PlotRange -> {{0, 1}, {0, 1}}], {n, 1, 9}]
Show[b]


Respectfully, Roger L. Bagula
 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 
:http://www.geocities.com/rlbagulatftn/Index.html
alternative email: rlbagula at sbcglobal.net


  • Prev by Date: Re: NDSolve can't solve a complex ODE correctly?
  • Next by Date: Re: numerical inversion of laplace transform
  • Previous by thread: Re: Plot a simple function
  • Next by thread: Re: Plot a simple function