MathGroup Archive 2002

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

Search the Archive

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>
  • Prev by Date: Quick question about Interval[]
  • Next by Date: Dynamic referencing AND hyperlinking for numbered equations(done)
  • Previous by thread: Question:
  • Next by thread: Re: Question: