area under a parametric curve

• To: mathgroup at smc.vnet.net
• Subject: [mg74983] area under a parametric curve
• From: Roger Bagula <rlbagula at sbcglobal.net>
• Date: Fri, 13 Apr 2007 02:08:33 -0400 (EDT)

```In working with unit square "curves"
I came up with the idea of using a Lemnicape  ( quarter of a curve):

x = Sqrt[Abs[Cos[t]]]*Sin[t]
y = Sqrt[Abs[Cos[t]]]*Cos[t]
x1 = x*Sin[ArcCos[-1/2^((2/3))]] + 1/2
y1 = y + 1/2
Solve[1/2 + Sqrt[Abs[Cos[t]]Cos[t] == 0, t]
ParametricPlot[{x1, 2*y1}, {t, 0, 2*Pi}, PlotRange -> {{0, 1}, {0, 1}}]

My question is how to get the area under such a curve?
Since the curve is symmetrical only {x,0,1/2} is actually necessary.

A second question is how to get rid of the curve "in" part
that comes about because the Lemnicape isn't exactly symmetrical:
what is the maximum x  to y instead of the "2" I've used in this as the
scaling.
Here a try at a better curve:
x = Sqrt[Abs[Cos[t]]]*Sin[t]
y = Sqrt[Abs[Cos[t]]]*Cos[t]
x1 = x*Sin[2.226604043204] + 1/2
y1 = y + 1/2
Solve[1/2 + 2.1 Sqrt[ Abs[Cos[t]] Cos[t]/2 == 0, t]
ParametricPlot[{x1, 2.1*y + 1}, {t, 0, 2*Pi}, PlotRange -> {{0, 1}, {
0, 1.0}}]

```

• Prev by Date: Re: About Table
• Next by Date: Re: About Table
• Previous by thread: Units of MaxBend?
• Next by thread: Re: area under a parametric curve