cubic quarternion group

• To: mathgroup at smc.vnet.net
• Subject: [mg53464] cubic quarternion group
• From: "Roger L. Bagula" <rlbtftn at netscape.net>
• Date: Thu, 13 Jan 2005 03:12:07 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```(* cubic quarternion group: *)
(* the fourth dimension without leaving the complex plane*)
(* a cyclotomic x^3+1=0 type of group  *)
(* angles are {0,Pi,-2*Pi/3.Pi/6}*)
(* it is possible to map Hamilton quaternions to the complex plane using
this type of group*)
(* using a substitution conformal map: i->icube,j->jcube,k->kcube*)
(* this group owes it's origin to number theory quadratic fields and
Pell equations*)
(* when taken as polygon in the plane , it's "moment" as a center of
rotation is not zero *)
(* it is a boomerang type group for this reason*)
(* Roger L. Bagula 11 Jan 2005*)
i=-1
j=1+(-1)^(1/3)
k=-(-1)^(1/3)
Simplify[ExpandAll[(1+i+j+k)^3]]
N[j]
N[k]
(* group average/ center*)
N[(1+i+j+k)/4]
(* subgroup centers*)
N[(1+i)/2]
N[(j+k)/2]
Clear[i,j,k]
Solve[{ (1+i+j+k)^3-1==0,i^3+1==0,j^3+1==0,k^3+1==0},{i,j,k}]
Simplify[Expand[(z-1)*(z+1)*(z+(-1)^(1/3))*(z-(1+(-1)^(1/3)))]]
Solve[(-1+z^2)*(-I*Sqrt-z-z^2)==0,z]
Arg
Arg[-1]
Arg[1+(-1)^(1/3)]
Arg[-(-1)^(1/3)]

```

• Prev by Date: Re: Mathematica Graphics output in an ASP.NET WebApplication
• Next by Date: [Admin] Moderated newsgroup forged posts
• Previous by thread: Re: importing mat format doesn't import variable names
• Next by thread: Re: cubic quarternion group
{"ft_lang_label":"__label__en","ft_lang_prob":0.6633943,"math_prob":0.9954512,"size":1227,"snap":"2020-45-2020-50","text_gpt3_token_len":459,"char_repetition_ratio":0.1210139,"word_repetition_ratio":0.0,"special_character_ratio":0.42705786,"punctuation_ratio":0.11111111,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.99897695,"pos_list":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14],"im_url_duplicate_count":[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2020-10-28T09:47:41Z\",\"WARC-Record-ID\":\"<urn:uuid:8081bdfc-e828-4edb-855f-83cd11c19270>\",\"Content-Length\":\"44509\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:c76beccd-8d90-4d1a-b80a-75fe0774177a>\",\"WARC-Concurrent-To\":\"<urn:uuid:a8986546-c7cc-46bc-8b46-971d69015ca3>\",\"WARC-IP-Address\":\"140.177.205.73\",\"WARC-Target-URI\":\"http://forums.wolfram.com/mathgroup/archive/2005/Jan/msg00247.html\",\"WARC-Payload-Digest\":\"sha1:6SSSDRJLKKTJMKMADAKBIAETPGMMEOW3\",\"WARC-Block-Digest\":\"sha1:SIWKLAKJSC3TZXQLQVZ7HJDPVVUJD5YN\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2020/CC-MAIN-2020-45/CC-MAIN-2020-45_segments_1603107897022.61_warc_CC-MAIN-20201028073614-20201028103614-00657.warc.gz\"}"}