MathGroup Archive 2005

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

Search the Archive

Re: Attempt to generalize a constant

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57703] Re: [mg57684] Attempt to generalize a constant
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 5 Jun 2005 04:17:46 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`"];

F[t_,mu_]:=mu*JacobiSN[t,mu^2];

data=Table[{mu/.FindRoot[F[t,mu]==1,
            {mu,1,1.5},MaxIterations->100],t},
      {t,Pi/6,Pi,Pi/96}];

ListPlot[data,Frame->True,Axes->False,
    PlotJoined->True,PlotRange->{{0.95,3.15},Automatic},
    Epilog->{AbsolutePointSize[4],Red,
        Point/@Select[data,IntegerQ[6*#[[2]]/Pi]&]},
    PlotStyle->Blue,ImageSize->360];


Bob Hanlon

> 
> From: "Narasimham" <mathma18 at hotmail.com>
To: mathgroup at smc.vnet.net
> Date: 2005/06/04 Sat AM 03:04:31 EDT
> Subject: [mg57703] [mg57684] Attempt to generalize a  constant
> 
> F[t_,mu_]= mu*JacobiSN[t,mu^2] is a function between +/- 1  extreme
> limits.
> 
> FindRoot[F[t,mu]==1, {mu,1,1.5},MaxIterations-> 100 ] works for given t
> = Pi/4, solution is (mu-> 2.1236).
> 
> But when it is attempted  to make t as a variable to plot solutions for
> a range of t values in:
> 
> ImplicitPlot[F[t,mu]==1,{mu,1,1.5},{t,Pi/6,Pi}], it does not compute
> fully.  TIA for any tips.
> 
> 


  • Prev by Date: Re: Mathematica uses only 50% of processor?
  • Next by Date: Re: Re: Constrained Optimization
  • Previous by thread: Re: Attempt to generalize a constant
  • Next by thread: Solving double integral without Error function