f

#### Re: Cirlce in 3D?

```c33 returns the center of a circle thru 3 points in 3 dimensions.

c33[{p1_,p2_,p3_}] := With[{q1 = p1-p3, q2 = p2-p3, q3 = p1-p2},
p3 + ((q2.q2)*(q3.q1)*q1 - (q1.q1)*(q3.q2)*q2)/(2 #.# & @ Cross[q1,q2])]

c33 is a closed-form version of c3n, which returns
the center of a circle thru 3 points in n dimensions.

c3n[{p1_,p2_,p3_}] := Block[{q1 = p1-p3, q2 = p2-p3, c,w1,w2},
c = w1*q1 + w2*q2; p3 + c /. Flatten@Solve[
{c.c == #.#&[q1-c], c.c == #.#&[q2-c]},{w1,w2}]]

> 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.)

``` 0 Ray
5/13/2014 2:27:33 AM comp.soft-sys.math.mathematica 28821 articles. 0 followers. 0 Replies 1857 Views Similar Articles

[PageSpeed] 2
{"ft_lang_label":"__label__en","ft_lang_prob":0.77176297,"math_prob":0.99555945,"size":853,"snap":"2021-21-2021-25","text_gpt3_token_len":322,"char_repetition_ratio":0.09305065,"word_repetition_ratio":0.10204082,"special_character_ratio":0.41852286,"punctuation_ratio":0.19806764,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.9799671,"pos_list":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20],"im_url_duplicate_count":[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2021-05-08T13:29:31Z\",\"WARC-Record-ID\":\"<urn:uuid:f61907b6-35b0-402c-b1db-95c2732c0b88>\",\"Content-Length\":\"12327\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:878dbc33-ae24-4ab5-8be9-8b0665c4e933>\",\"WARC-Concurrent-To\":\"<urn:uuid:9853a335-9bc3-43b9-bad8-be8b67cfbc63>\",\"WARC-IP-Address\":\"108.170.9.14\",\"WARC-Target-URI\":\"https://compgroups.net/comp.soft-sys.math.mathematica/re-cirlce-in-3d/2981142\",\"WARC-Payload-Digest\":\"sha1:2MKFG7S3RHZO3EMXHPGT53A4CZ5F56WR\",\"WARC-Block-Digest\":\"sha1:4PA3UHKJPA54MATXGC7PBOHEKKJXDU2O\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2021/CC-MAIN-2021-21/CC-MAIN-2021-21_segments_1620243988882.7_warc_CC-MAIN-20210508121446-20210508151446-00105.warc.gz\"}"}