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.
>
>