Exploring Analyic Geometry with Mathematica®

Home Contents Commands Packages Explorations Reference
Tour Lines Circles Conics Analysis Tangents

Coordinates of Shoulder Point

shoulder.html

Exploration

Show that the coordinates of the shoulder point of a conic arc with control points "shoulder_1.gif", "shoulder_2.gif" and "shoulder_3.gif" and projective discriminant ρ are given by

"shoulder_4.gif"

where "shoulder_5.gif" is the midpoint of the conic arc's chord and has coordinates

"shoulder_6.gif" and "shoulder_7.gif".

Approach

Create the conic arc and construct the point at parameter t=1/2.

Initialize

To initialize Descarta2D, select the input cell bracket and press SHIFT-Enter.

This initialization assumes that the Descarta2D software has been copied into one of the standard directories for AddOns which are on the Mathematica search path, $Path.

<<Descarta2D`

Solution

Create the conic arc.

Clear[x0,y0,xA,yA,x1,y1,p];
ca1=ConicArc2D[{x0,y0},{xA,yA},{x1,y1},p];

Find the point at parameter t=1/2.

pt1=Point2D[ca1[1/2]] //Simplify

"shoulder_8.gif"

This is the same as the specified point, when simplified.

pt2=Point2D[
  (x0+x1)/2 + p (xA - (x0+x1)/2),
  (y0+y1)/2 + p (yA - (y0+y1)/2)] //Simplify

"shoulder_9.gif"

SameQ[pt1,pt2]

"shoulder_10.gif"


Copyright © 1999-2007 Donald L. Vossler, Descarta2D Publishing
www.Descarta2D.com