Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Cirlce in 3D?
Replies: 3   Last Post: May 14, 2014 5:25 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
David Park

Posts: 1,560
Registered: 5/19/07
Re: Cirlce in 3D?
Posted: May 12, 2014 10:26 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

Using John Browne's Grassmann algebra application and with the three points
at Cartesian coordinates {ax, ay, az}, {bx, by, bz}, and {cx, cy, cz} I
calculated the center of the circle at:

{x -> -(4 (az (by - cy) + bz cy - by cz +
ay (-bz +
cz)) (-(ax^2 + ay^2 + az^2 - bx^2 - by^2 - bz^2) (-by cx +
ay (-bx + cx) + ax (by - cy) + bx cy) -
2 (az - bz) (az by cx - ay bz cx - az bx cy + ax bz cy +
ay bx cz - ax by cz)) - (2 (ax^2 + ay^2 + az^2 - bx^2 -
by^2 - bz^2) (bz - cz) -
2 (az - bz) (bx^2 + by^2 + bz^2 - cx^2 - cy^2 -
cz^2)) (-2 (ay - by) (ay (bx - cx) + by cx - bx cy +
ax (-by + cy)) -
2 (az - bz) (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz))))/(-4 (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz)) (-2 (ay - by) (ay (bx - cx) + by cx - bx cy +
ax (-by + cy)) -
2 (az - bz) (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz))) +
4 (az (by - cy) + bz cy - by cz +
ay (-bz + cz)) (2 (ax - bx) (-by cx + ay (-bx + cx) +
ax (by - cy) + bx cy) +
2 (az - bz) (az (by - cy) + bz cy - by cz + ay (-bz + cz)))),
y -> (-2 (ax^2 + ay^2 + az^2 - bx^2 - by^2 - bz^2) (bz - cz) +
2 (az - bz) (bx^2 + by^2 + bz^2 - cx^2 - cy^2 -
cz^2) + (4 (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz)) (4 (az (by - cy) + bz cy - by cz +
ay (-bz +
cz)) (-(ax^2 + ay^2 + az^2 - bx^2 - by^2 -
bz^2) (-by cx + ay (-bx + cx) + ax (by - cy) +
bx cy) -
2 (az - bz) (az by cx - ay bz cx - az bx cy + ax bz cy +
ay bx cz - ax by cz)) - (2 (ax^2 + ay^2 + az^2 -
bx^2 - by^2 - bz^2) (bz - cz) -
2 (az - bz) (bx^2 + by^2 + bz^2 - cx^2 - cy^2 -
cz^2)) (-2 (ay - by) (ay (bx - cx) + by cx - bx cy +
ax (-by + cy)) -
2 (az - bz) (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz)))))/(-4 (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz)) (-2 (ay - by) (ay (bx - cx) + by cx -
bx cy + ax (-by + cy)) -
2 (az - bz) (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz))) +
4 (az (by - cy) + bz cy - by cz +
ay (-bz + cz)) (2 (ax - bx) (-by cx + ay (-bx + cx) +
ax (by - cy) + bx cy) +
2 (az - bz) (az (by - cy) + bz cy - by cz +
ay (-bz + cz)))))/(4 (az (by - cy) + bz cy - by cz +
ay (-bz + cz))),
z -> (-az^2 by + by cx^2 + az^2 cy - bx^2 cy - by^2 cy - bz^2 cy +
by cy^2 + ax^2 (-by + cy) + ay^2 (-by + cy) + by cz^2 +
ay (bx^2 + by^2 + bz^2 - cx^2 - cy^2 - cz^2))/(2 (-bz cy +
az (-by + cy) + ay (bz - cz) + by cz)) + ((-by cx +
ay (-bx + cx) + ax (by - cy) +
bx cy) (4 (az (by - cy) + bz cy - by cz +
ay (-bz +
cz)) (-(ax^2 + ay^2 + az^2 - bx^2 - by^2 -
bz^2) (-by cx + ay (-bx + cx) + ax (by - cy) +
bx cy) -
2 (az - bz) (az by cx - ay bz cx - az bx cy + ax bz cy +
ay bx cz - ax by cz)) - (2 (ax^2 + ay^2 + az^2 - bx^2 -
by^2 - bz^2) (bz - cz) -
2 (az - bz) (bx^2 + by^2 + bz^2 - cx^2 - cy^2 -
cz^2)) (-2 (ay - by) (ay (bx - cx) + by cx - bx cy +
ax (-by + cy)) -
2 (az - bz) (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz)))))/((az (by - cy) + bz cy - by cz +
ay (-bz + cz)) (-4 (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz)) (-2 (ay - by) (ay (bx - cx) + by cx -
bx cy + ax (-by + cy)) -

2 (az - bz) (az (bx - cx) + bz cx - bx cz +
ax (-bz + cz))) +
4 (az (by - cy) + bz cy - by cz +
ay (-bz + cz)) (2 (ax - bx) (-by cx + ay (-bx + cx) +
ax (by - cy) + bx cy) +
2 (az - bz) (az (by - cy) + bz cy - by cz +
ay (-bz + cz)))))}

I have a notebook on it but it uses the GrassmannCalculus and Presentations
Applications. Presentations has Circle3D and Disk3D primitives. The notebook
also calculates and displays random cases.


David Park
djmpark@comcast.net
http://home.comcast.net/~djmpark/index.html



From: Ste[hen Gray [mailto:stevebg@roadrunner.com]

I'm looking for a neat formula to find the center of a circle in 3D through
3 points. I also need a good way to display it, preferably thickened so I
can show several and see whether they are linked, etc. To my surprise I did
not find anything on the Wolfram sites about these problems. (I have
Mathematica 7, if that matters.)




Date Subject Author
5/12/14
Read Re: Cirlce in 3D?
David Park
5/14/14
Read Re: Cirlce in 3D?
Murray Eisenberg

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.