RE: Question:
- To: mathgroup at smc.vnet.net
- Subject: [mg34175] RE: [mg34165] Question:
- From: "Higinio Ramos" <higra at usal.es>
- Date: Wed, 8 May 2002 01:57:43 -0400 (EDT)
- References: <200205070754.DAA24321@smc.vnet.net>
- Reply-to: "Higinio Ramos" <higra at usal.es>
- Sender: owner-wri-mathgroup at wolfram.com
With
In[70]:=FindRoot[{(Cos[6 t])^2==(Cos[6 t1])^2,2Sin[7 t]==2Sin[7
t1]},{t,.4},{t1,.935},
WorkingPrecision->20]
Out[70]={t\[Rule]0.41139903797009203963,t1\[Rule]0.93499781356839048170}
we obtain the first multiple point.
Checking the accuracy :
In[71]:=Cos[6 t]^2-Cos[6
t1]^2/.{t\[Rule]0.411399037970092039626620765971499`20,
t1\[Rule]0.934997813568390481703409343074329`20}
Out[71]=\!\(2.521165444887002077`4.5053*^-15\)
In[72]:=2Sin[7 t]-2Sin[7
t1]/.{t\[Rule]0.411399037970092039626620765971499`20,
t1\[Rule]0.934997813568390481703409343074329`20}
Out[72]=\!\(3.991355656552`4.3409*^-15\)
The other values for the parameter for the next multiple points may be
obtained in a similar way.
----- Original Message -----
From: Per Lundgren <yesgoyes at ebox.tninet.se>
To: mathgroup at smc.vnet.net
Subject: [mg34175] [mg34165] Question:
>
> Hi,
>
> Here is my question: How do I calculate the t-values for the four points
(x,y) where the curve below intersects itself with an accuracy of 1x10^-7
>
> x==(Cos[6 t])^2
>
> y==2Sin[7 t]
>
> in the intervall: [0,2Pi/7]
>
> Thank you in advance
>
> Per Lundgren, Sweden
>
> (Plot the parametric curve and you will understand what I am asking for)
>
>
- References:
- Question:
- From: "Per Lundgren" <yesgoyes@ebox.tninet.se>
- Question: