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)
• 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