Conformal-3D-Exterior.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    319033,       9681]
NotebookOptionsPosition[    296428,       9260]
NotebookOutlinePosition[    296863,       9277]
CellTagsIndexPosition[    296820,       9274]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Get", "[", 
  RowBox[{
   RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
   "\"\<Packages\\\\ConformalAlgebra3D.wl\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.9447034126676207`*^9, 3.944703430120678*^9}, {
  3.9447575279080076`*^9, 3.944757530037926*^9}, {3.9447577887980185`*^9, 
  3.9447577897364893`*^9}, {3.94485338674105*^9, 3.9448533878960667`*^9}, {
  3.9448536876614194`*^9, 3.944853688517932*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"a7d79b4c-8ac3-49dc-931a-f2ce114ed620"],

Cell[BoxData[
 RowBox[{"p", ":=", 
  RowBox[{
   RowBox[{"px", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"py", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"pz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"pw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "5"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.944787641334447*^9, 3.9447876529059086`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"bd61b23e-b47f-46f0-bb3f-56c48aa7a131"],

Cell[BoxData[
 RowBox[{"q", ":=", 
  RowBox[{
   RowBox[{"qx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"qy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"qz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"qw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "5"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9447876577157617`*^9, 3.94478766158508*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"fb8495f8-a6b0-44aa-864c-890354895ce4"],

Cell[BoxData[
 RowBox[{"l", ":=", 
  RowBox[{
   RowBox[{"lvx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"lvy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"lvz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"lmx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"lmy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"lmz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9447876646769094`*^9, 3.9447876849580536`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"0242acc9-3e30-4ba5-bf45-84b06ccd993b"],

Cell[BoxData[
 RowBox[{"k", ":=", 
  RowBox[{
   RowBox[{"kvx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"kvy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"kvz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"kmx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"kmy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"kmz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9447876890494413`*^9, 3.9447876979977307`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"47d937f7-312b-464f-98de-561641cbde5e"],

Cell[BoxData[
 RowBox[{"g", ":=", 
  RowBox[{
   RowBox[{"gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1", ",", "5"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9447876112669377`*^9, 3.9447876265718803`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"bd1c64b0-a7c3-4895-bab2-8001fd704f29"],

Cell[BoxData[
 RowBox[{"h", ":=", 
  RowBox[{
   RowBox[{"hx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"hy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"hz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"hw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1", ",", "5"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9447876309113855`*^9, 3.94478763600062*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"2706d749-162f-4dbf-882d-d41e26ae5cd0"],

Cell[BoxData[
 RowBox[{"a", ":=", 
  RowBox[{
   RowBox[{"ax", " ", 
    RowBox[{"e", "[", "1", "]"}]}], "+", 
   RowBox[{"ay", " ", 
    RowBox[{"e", "[", "2", "]"}]}], "+", 
   RowBox[{"az", " ", 
    RowBox[{"e", "[", "3", "]"}]}], "+", 
   RowBox[{"aw", " ", 
    RowBox[{"e", "[", "4", "]"}]}], "+", 
   RowBox[{"au", " ", 
    RowBox[{"e", "[", "5", "]"}]}]}]}]], "Input",
 CellLabel->"In[8]:=",ExpressionUUID->"397fd500-3ab5-4414-9a13-83a863d6ab5b"],

Cell[BoxData[
 RowBox[{"b", ":=", 
  RowBox[{
   RowBox[{"bx", " ", 
    RowBox[{"e", "[", "1", "]"}]}], "+", 
   RowBox[{"by", " ", 
    RowBox[{"e", "[", "2", "]"}]}], "+", 
   RowBox[{"bz", " ", 
    RowBox[{"e", "[", "3", "]"}]}], "+", 
   RowBox[{"bw", " ", 
    RowBox[{"e", "[", "4", "]"}]}], "+", 
   RowBox[{"bu", " ", 
    RowBox[{"e", "[", "5", "]"}]}]}]}]], "Input",
 CellLabel->"In[9]:=",ExpressionUUID->"1a51dbba-880e-4c16-8ebf-4f74329c6234"],

Cell[BoxData[
 RowBox[{"d", ":=", 
  RowBox[{
   RowBox[{"dvx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1"}], "]"}]}], "+", 
   RowBox[{"dvy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2"}], "]"}]}], "+", 
   RowBox[{"dvz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3"}], "]"}]}], "+", 
   RowBox[{"dmx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3"}], "]"}]}], "+", 
   RowBox[{"dmy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1"}], "]"}]}], "+", 
   RowBox[{"dmz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2"}], "]"}]}], "+", 
   RowBox[{"dpx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dpy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dpz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dpw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "5"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[10]:=",ExpressionUUID->"8812e8c5-3c0a-4182-b26b-2051604241bf"],

Cell[BoxData[
 RowBox[{"f", ":=", 
  RowBox[{
   RowBox[{"fvx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1"}], "]"}]}], "+", 
   RowBox[{"fvy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2"}], "]"}]}], "+", 
   RowBox[{"fvz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3"}], "]"}]}], "+", 
   RowBox[{"fmx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3"}], "]"}]}], "+", 
   RowBox[{"fmy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1"}], "]"}]}], "+", 
   RowBox[{"fmz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2"}], "]"}]}], "+", 
   RowBox[{"fpx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"fpy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"fpz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"fpw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "5"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[11]:=",ExpressionUUID->"5744a901-bb53-4c52-b554-b433a9c5023c"],

Cell[BoxData[
 RowBox[{"c", ":=", 
  RowBox[{
   RowBox[{"cgx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3"}], "]"}]}], "+", 
   RowBox[{"cgy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1"}], "]"}]}], "+", 
   RowBox[{"cgz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}]}], "+", 
   RowBox[{"cgw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}]}], "+", 
   RowBox[{"cvx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"cvy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"cvz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"cmx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"cmy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"cmz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[12]:=",ExpressionUUID->"5adbc090-07d9-4035-87e6-be50237e5692"],

Cell[BoxData[
 RowBox[{"o", ":=", 
  RowBox[{
   RowBox[{"ogx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3"}], "]"}]}], "+", 
   RowBox[{"ogy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1"}], "]"}]}], "+", 
   RowBox[{"ogz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}]}], "+", 
   RowBox[{"ogw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}]}], "+", 
   RowBox[{"ovx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"ovy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"ovz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"omx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"omy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"omz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[13]:=",ExpressionUUID->"4b54ab04-84b3-4ba8-acd4-222fd328dbfa"],

Cell[BoxData[
 RowBox[{"s", ":=", 
  RowBox[{
   RowBox[{"su", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "]"}]}], "+", 
   RowBox[{"sx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"sy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"sz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"sw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1", ",", "5"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[14]:=",ExpressionUUID->"3790c46f-3bf9-4a59-9eda-3cce189dc542"],

Cell[BoxData[
 RowBox[{"t", ":=", 
  RowBox[{
   RowBox[{"tu", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "]"}]}], "+", 
   RowBox[{"tx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"ty", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"tz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"tw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1", ",", "5"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[15]:=",ExpressionUUID->"73eb1068-4f56-458f-bea0-24591e4a8d1c"],

Cell[CellGroupData[{

Cell["Join and Meet", "Section",
 CellChangeTimes->{{3.944789783015143*^9, 
  3.9447897847444267`*^9}},ExpressionUUID->"a0ceac80-4dd7-4a0f-831c-\
3dfa5e4432fe"],

Cell[CellGroupData[{

Cell["Join of two round points", "Subsection",
 CellChangeTimes->{{3.944791005801881*^9, 
  3.94479100639894*^9}},ExpressionUUID->"f0115398-a80c-4a99-9ddb-\
69a4d9591cb4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", "b"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9447898141260557`*^9, 3.9447898152089105`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"108893ac-1add-4cfa-a54c-ba81d7cb4e06"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"12\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "by"}], "-", 
      RowBox[{"ay", " ", "bx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "bu"}], "-", 
      RowBox[{"au", " ", "bx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"23\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "bz"}], "-", 
      RowBox[{"az", " ", "by"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "bu"}], "-", 
      RowBox[{"au", " ", "by"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"31\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"az", " ", "bx"}], "-", 
      RowBox[{"ax", " ", "bz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"az", " ", "bu"}], "-", 
      RowBox[{"au", " ", "bz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"41\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "bx"}], "-", 
      RowBox[{"ax", " ", "bw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"42\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "by"}], "-", 
      RowBox[{"ay", " ", "bw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"43\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "bz"}], "-", 
      RowBox[{"az", " ", "bw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "bu"}], "-", 
      RowBox[{"au", " ", "bw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.9447898098423347`*^9, 3.944789815725273*^9}, 
   3.944845257368332*^9, 3.9449376631866674`*^9, 3.944959738852434*^9},
 CellLabel->
  "Out[16]//TraditionalForm=",ExpressionUUID->"cfd23bb8-0a56-460d-a173-\
7f4aa787e372"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1.5"}], "]"}]}], 
       ",", 
       RowBox[{"p2", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"x", ",", "0", ",", "0", ",", "1", ",", "r"}], "]"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawRoundPoint", "[", "p1", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "p2", "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"p1", "\[And]", "p2"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", "0.1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "3"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944789835310293*^9, 3.944789841747664*^9}, 
   3.9447899632164445`*^9, 3.9447900563398285`*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"c1a2515f-9904-4f69-9ca8-de1ab7b5c16a"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, 0.1, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 3}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`p1 = 
         ConformalAlgebra3D`RoundPoint[0, 0, 0, 1, 1.5], $CellContext`p2 = 
         ConformalAlgebra3D`RoundPoint[$CellContext`x$$, 0, 0, 
           1, $CellContext`r$$]}, 
        Show[
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`p1], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`p2], 
         ConformalAlgebra3D`DrawDipole[
          ConformalAlgebra3D`WedgeProduct[$CellContext`p1, $CellContext`p2]], 
         PlotRange -> {{-2, 7}, {-4, 4}, {-4, 4}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, 0.1, 
         5}, {{$CellContext`r$$, 1}, 0, 3}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.9447898486665363`*^9, 3.944790057286823*^9, {3.9447902237504096`*^9, 
   3.944790248590622*^9}, 3.944845257426343*^9, 3.9449376632197495`*^9, 
   3.9449597388905644`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"9127b73b-ba11-4458-b83e-9f9deeb73fef"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Join of flat point and round point", "Subsection",ExpressionUUID->"40a501f7-dce4-431e-9a9f-8be0ac5c861c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "\[And]", "a"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447903392900248`*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"cc3c9d54-f9b5-47d3-b76d-778694202861"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "py"}], "-", 
      RowBox[{"ay", " ", "px"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "pz"}], "-", 
      RowBox[{"az", " ", "py"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"az", " ", "px"}], "-", 
      RowBox[{"ax", " ", "pz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "px"}], "-", 
      RowBox[{"ax", " ", "pw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "py"}], "-", 
      RowBox[{"ay", " ", "pw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "pz"}], "-", 
      RowBox[{"az", " ", "pw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447903399201202`*^9, 3.9448452574678717`*^9, 
  3.9449376632862988`*^9, 3.9449597389405975`*^9},
 CellLabel->
  "Out[18]//TraditionalForm=",ExpressionUUID->"c7b8f80f-6f3a-4a5c-a927-\
b9c0b8e0b755"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Join of dipole and round point", "Subsection",
 CellChangeTimes->{{3.944791009371338*^9, 
  3.944791009932066*^9}},ExpressionUUID->"5de58225-37f1-4093-b925-\
407c7f234177"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", "a"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447903547596483`*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"df80e6fb-3948-431b-894f-a221aa8b19c2"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dmz"}], "+", 
      RowBox[{"ax", " ", "dpy"}], "-", 
      RowBox[{"ay", " ", "dpx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dmx"}], "+", 
      RowBox[{"ay", " ", "dpz"}], "-", 
      RowBox[{"az", " ", "dpy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dmy"}], "-", 
      RowBox[{"ax", " ", "dpz"}], "+", 
      RowBox[{"az", " ", "dpx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"321\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"ax", " ", "dmx"}]}], "-", 
      RowBox[{"ay", " ", "dmy"}], "-", 
      RowBox[{"az", " ", "dmz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"412\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "dmz"}], "-", 
      RowBox[{"ax", " ", "dvy"}], "+", 
      RowBox[{"ay", " ", "dvx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dvx"}], "+", 
      RowBox[{"aw", " ", "dpx"}], "-", 
      RowBox[{"ax", " ", "dpw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"423\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "dmx"}], "-", 
      RowBox[{"ay", " ", "dvz"}], "+", 
      RowBox[{"az", " ", "dvy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dvy"}], "+", 
      RowBox[{"aw", " ", "dpy"}], "-", 
      RowBox[{"ay", " ", "dpw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"431\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "dmy"}], "+", 
      RowBox[{"ax", " ", "dvz"}], "-", 
      RowBox[{"az", " ", "dvx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dvz"}], "+", 
      RowBox[{"aw", " ", "dpz"}], "-", 
      RowBox[{"az", " ", "dpw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447903549895763`*^9, 3.9448452574898896`*^9, 
  3.9449376633113127`*^9, 3.9449597389691205`*^9},
 CellLabel->
  "Out[19]//TraditionalForm=",ExpressionUUID->"b5dcba02-7d4e-440d-98ab-\
302d2fb23867"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1"}], "]"}]}], ",", 
       RowBox[{"p2", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"4", ",", "0", ",", "0", ",", "1", ",", "3"}], "]"}]}], ",", 
       RowBox[{"p3", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"2", ",", "0", ",", "z", ",", "1", ",", 
          RowBox[{"-", "r"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawRoundPoint", "[", "p1", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "p2", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "p3", "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"p1", "\[And]", "p2"}], "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"p2", "\[And]", "p3"}], "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"p3", "\[And]", "p1"}], "]"}], ",", 
       RowBox[{"DrawCircle", "[", 
        RowBox[{"p1", "\[And]", "p2", "\[And]", "p3"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "4"}], "}"}], ",", "0.1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "3"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9447903870771537`*^9, 3.944790391195866*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"4d214a2e-63fc-4499-81df-636788817dbb"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`z$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`z$$], 4}, 0.1, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 3}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`z$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`p1 = 
         ConformalAlgebra3D`RoundPoint[0, 0, 0, 1, 1], $CellContext`p2 = 
         ConformalAlgebra3D`RoundPoint[4, 0, 0, 1, 3], $CellContext`p3 = 
         ConformalAlgebra3D`RoundPoint[
          2, 0, $CellContext`z$$, 1, -$CellContext`r$$]}, 
        Show[
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`p1], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`p2], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`p3], 
         ConformalAlgebra3D`DrawDipole[
          ConformalAlgebra3D`WedgeProduct[$CellContext`p1, $CellContext`p2]], 
         ConformalAlgebra3D`DrawDipole[
          ConformalAlgebra3D`WedgeProduct[$CellContext`p2, $CellContext`p3]], 
         ConformalAlgebra3D`DrawDipole[
          ConformalAlgebra3D`WedgeProduct[$CellContext`p3, $CellContext`p1]], 
         ConformalAlgebra3D`DrawCircle[
          ConformalAlgebra3D`WedgeProduct[
           
           ConformalAlgebra3D`WedgeProduct[$CellContext`p1, $CellContext`p2], \
$CellContext`p3]], PlotRange -> {{-2, 8}, {-4, 4}, {-2, 8}}, Boxed -> False, 
         ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`z$$, 4}, 0.1, 
         5}, {{$CellContext`r$$, 1}, 0, 3}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447903950157485`*^9, 3.9448452575204134`*^9, 
  3.944937663357339*^9, 3.9449597389881563`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"bb0ce24f-70fa-407d-9b1a-4911d443a2bb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Join of dipole and flat point", "Subsection",ExpressionUUID->"033fd2c4-b93d-4994-84b8-7bec6bc0960a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", "p"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944790440530467*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"4368b40c-5e27-4951-b8f4-78de78dd8097"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "px"}]}], "-", 
      RowBox[{"dmy", " ", "py"}], "-", 
      RowBox[{"dmz", " ", "pz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmz", " ", "pw"}], "+", 
      RowBox[{"dvx", " ", "py"}], "-", 
      RowBox[{"dvy", " ", "px"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmx", " ", "pw"}], "+", 
      RowBox[{"dvy", " ", "pz"}], "-", 
      RowBox[{"dvz", " ", "py"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmy", " ", "pw"}], "-", 
      RowBox[{"dvx", " ", "pz"}], "+", 
      RowBox[{"dvz", " ", "px"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944790441327461*^9, 3.9448452577336893`*^9, 
  3.944937663582608*^9, 3.9449597391222467`*^9},
 CellLabel->
  "Out[21]//TraditionalForm=",ExpressionUUID->"df72ade5-868a-44b9-aaf2-\
779adf6d1ecf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Join of line and round point", "Subsection",
 CellChangeTimes->{{3.9447910143358955`*^9, 
  3.944791014890256*^9}},ExpressionUUID->"9a78a5e2-c80d-43db-b407-\
e914d7c7b189"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"l", "\[And]", "a"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447904543581676`*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"81c509e0-1d5b-4e0a-b1ef-7fa5f69d95c8"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "lmx"}], "+", 
      RowBox[{"ay", " ", "lmy"}], "+", 
      RowBox[{"az", " ", "lmz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "lmz"}]}], "+", 
      RowBox[{"ax", " ", "lvy"}], "-", 
      RowBox[{"ay", " ", "lvx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "lmx"}]}], "+", 
      RowBox[{"ay", " ", "lvz"}], "-", 
      RowBox[{"az", " ", "lvy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "lmy"}]}], "-", 
      RowBox[{"ax", " ", "lvz"}], "+", 
      RowBox[{"az", " ", "lvx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447904545575027`*^9, 3.944845257757702*^9, 
  3.944937663603117*^9, 3.944959739141762*^9},
 CellLabel->
  "Out[22]//TraditionalForm=",ExpressionUUID->"306b9cb9-33eb-4cbb-805f-\
597106c992d7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Join of circle and round point", "Subsection",
 CellChangeTimes->{{3.9447910168988633`*^9, 
  3.9447910174718513`*^9}},ExpressionUUID->"3d76248f-0249-4916-8665-\
5a95d7199fc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "\[And]", "a"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447904706252766`*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"f402bcc8-73ce-4f4c-bb88-a16c233d4509"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "cgw"}]}], "-", 
      RowBox[{"ax", " ", "cgx"}], "-", 
      RowBox[{"ay", " ", "cgy"}], "-", 
      RowBox[{"az", " ", "cgz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "cgw"}], "+", 
      RowBox[{"ax", " ", "cmx"}], "+", 
      RowBox[{"ay", " ", "cmy"}], "+", 
      RowBox[{"az", " ", "cmz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "cgz"}], "-", 
      RowBox[{"aw", " ", "cmz"}], "+", 
      RowBox[{"ax", " ", "cvy"}], "-", 
      RowBox[{"ay", " ", "cvx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "cgx"}], "-", 
      RowBox[{"aw", " ", "cmx"}], "+", 
      RowBox[{"ay", " ", "cvz"}], "-", 
      RowBox[{"az", " ", "cvy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "cgy"}], "-", 
      RowBox[{"aw", " ", "cmy"}], "-", 
      RowBox[{"ax", " ", "cvz"}], "+", 
      RowBox[{"az", " ", "cvx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447904708903227`*^9, 3.944845257778866*^9, 
  3.944937663624702*^9, 3.9449597391582766`*^9},
 CellLabel->
  "Out[23]//TraditionalForm=",ExpressionUUID->"71dd2b4c-0d2f-4da7-bb10-\
2c6bf5709052"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "z", ",", "1", ",", "r"}], "]"}]}], ",", 
       RowBox[{"cir", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "4", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawRoundPoint", "[", "p1", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "cir", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"p1", "\[And]", "cir"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "4"}], "}"}], ",", "0.1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "3"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.94479048134554*^9, 3.9447905070892982`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"01995092-e30c-41da-81b4-733b159efbc4"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`z$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`z$$], 4}, 0.1, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 3}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`z$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`p1 = 
         ConformalAlgebra3D`RoundPoint[
          0, 0, $CellContext`z$$, 1, $CellContext`r$$], $CellContext`cir = 
         ConformalAlgebra3D`RoundCircle[4, 0, 0, 0, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`p1], 
         ConformalAlgebra3D`DrawCircle[$CellContext`cir], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`p1, $CellContext`cir]],
          PlotRange -> {{-4, 4}, {-4, 4}, {-4, 6}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`z$$, 4}, 0.1, 
         5}, {{$CellContext`r$$, 1}, 0, 3}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447904833281364`*^9, 3.9447905144438667`*^9, 
  3.944845257806393*^9, 3.9449376636473923`*^9, 3.94495973917929*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"031387b7-358b-4ad0-a8b0-063aea47e15b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Join of two dipoles", "Subsection",ExpressionUUID->"e1032aaf-c6e0-4e77-8f08-b091cabecb39"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", "f"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944790547740529*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"43195e83-9491-40c8-a2d1-86c615e878fd"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "fvx"}]}], "-", 
      RowBox[{"dmy", " ", "fvy"}], "-", 
      RowBox[{"dmz", " ", "fvz"}], "-", 
      RowBox[{"dvx", " ", "fmx"}], "-", 
      RowBox[{"dvy", " ", "fmy"}], "-", 
      RowBox[{"dvz", " ", "fmz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "fpx"}]}], "-", 
      RowBox[{"dmy", " ", "fpy"}], "-", 
      RowBox[{"dmz", " ", "fpz"}], "-", 
      RowBox[{"dpx", " ", "fmx"}], "-", 
      RowBox[{"dpy", " ", "fmy"}], "-", 
      RowBox[{"dpz", " ", "fmz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmz", " ", "fpw"}], "+", 
      RowBox[{"dpw", " ", "fmz"}], "-", 
      RowBox[{"dpx", " ", "fvy"}], "+", 
      RowBox[{"dpy", " ", "fvx"}], "+", 
      RowBox[{"dvx", " ", "fpy"}], "-", 
      RowBox[{"dvy", " ", "fpx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmx", " ", "fpw"}], "+", 
      RowBox[{"dpw", " ", "fmx"}], "-", 
      RowBox[{"dpy", " ", "fvz"}], "+", 
      RowBox[{"dpz", " ", "fvy"}], "+", 
      RowBox[{"dvy", " ", "fpz"}], "-", 
      RowBox[{"dvz", " ", "fpy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmy", " ", "fpw"}], "+", 
      RowBox[{"dpw", " ", "fmy"}], "+", 
      RowBox[{"dpx", " ", "fvz"}], "-", 
      RowBox[{"dpz", " ", "fvx"}], "-", 
      RowBox[{"dvx", " ", "fpz"}], "+", 
      RowBox[{"dvz", " ", "fpx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447905479947214`*^9, 3.9448452578599424`*^9, 
  3.9449376637024746`*^9, 3.9449597392328176`*^9},
 CellLabel->
  "Out[25]//TraditionalForm=",ExpressionUUID->"91609bd2-2ad1-487d-94fa-\
85f7ebe5e6b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"d1", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], 
         "]"}]}], ",", 
       RowBox[{"d2", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "r", ",", "x", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawDipole", "[", "d1", "]"}], ",", 
       RowBox[{"DrawDipole", "[", "d2", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"d1", "\[And]", "d2"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", "0.1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "4"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9447905606852784`*^9, 3.9447905660737143`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"49067b85-4bc9-4e44-82b4-452c65750d18"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, 0.1, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`d1 = 
         ConformalAlgebra3D`RoundDipole[2, 0, 0, 0, 0, 1, 0], $CellContext`d2 = 
         ConformalAlgebra3D`RoundDipole[$CellContext`r$$, $CellContext`x$$, 0,
            0, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawDipole[$CellContext`d1], 
         ConformalAlgebra3D`DrawDipole[$CellContext`d2], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`d1, $CellContext`d2]], 
         PlotRange -> {{-2, 8}, {-4, 4}, {-4, 4}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, 0.1, 
         5}, {{$CellContext`r$$, 1}, 0, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.94479056867233*^9, 3.9448452578885174`*^9, 
  3.944937663723487*^9, 3.944959739251827*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"c1491356-74c6-4aba-bc0e-7f7c76c394b1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of two planes", "Subsection",ExpressionUUID->"f0b6fe72-a4dd-480d-b89c-cc6f016b68b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "\[Or]", "h"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447906109318237`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"71975030-8ee9-441f-a1ba-3f12b31b6427"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gz", " ", "hw"}], "-", 
      RowBox[{"gw", " ", "hz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gx", " ", "hw"}], "-", 
      RowBox[{"gw", " ", "hx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gy", " ", "hw"}], "-", 
      RowBox[{"gw", " ", "hy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gz", " ", "hy"}], "-", 
      RowBox[{"gy", " ", "hz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gx", " ", "hz"}], "-", 
      RowBox[{"gz", " ", "hx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gy", " ", "hx"}], "-", 
      RowBox[{"gx", " ", "hy"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447906111480503`*^9, 3.944845257927552*^9, 
  3.944937663770713*^9, 3.9449597392953625`*^9},
 CellLabel->
  "Out[27]//TraditionalForm=",ExpressionUUID->"f7a7f362-8462-43e3-95e6-\
93d8deb013e3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of plane and line", "Subsection",ExpressionUUID->"f3e4d2b0-3b98-49e1-88f5-84167d97f722"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "\[Or]", "l"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447906250244927`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"7de30c5a-3950-4be5-870c-03653046fcef"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gw", " ", "lvx"}], "-", 
      RowBox[{"gy", " ", "lmz"}], "+", 
      RowBox[{"gz", " ", "lmy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gw", " ", "lvy"}], "+", 
      RowBox[{"gx", " ", "lmz"}], "-", 
      RowBox[{"gz", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gw", " ", "lvz"}], "-", 
      RowBox[{"gx", " ", "lmy"}], "+", 
      RowBox[{"gy", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"gx", " ", "lvx"}]}], "-", 
      RowBox[{"gy", " ", "lvy"}], "-", 
      RowBox[{"gz", " ", "lvz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447906253255816`*^9, 3.9448452579535756`*^9, 
  3.9449376637892323`*^9, 3.9449597393123674`*^9},
 CellLabel->
  "Out[28]//TraditionalForm=",ExpressionUUID->"497ebd7e-5815-40ba-b05c-\
bc95db666b91"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of two spheres", "Subsection",ExpressionUUID->"8c19b77e-66a6-46c6-a7f1-7dc21ad32aa4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s", "\[Or]", "t"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944790636707748*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"f0178fb8-240c-4cef-bc2d-b6b2329a420f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sz", " ", "tw"}], "-", 
      RowBox[{"sw", " ", "tz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sx", " ", "tw"}], "-", 
      RowBox[{"sw", " ", "tx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sy", " ", "tw"}], "-", 
      RowBox[{"sw", " ", "ty"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"321\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"su", " ", "tw"}], "-", 
      RowBox[{"sw", " ", "tu"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"412\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"su", " ", "tz"}], "-", 
      RowBox[{"sz", " ", "tu"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sz", " ", "ty"}], "-", 
      RowBox[{"sy", " ", "tz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"423\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"su", " ", "tx"}], "-", 
      RowBox[{"sx", " ", "tu"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sx", " ", "tz"}], "-", 
      RowBox[{"sz", " ", "tx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"431\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"su", " ", "ty"}], "-", 
      RowBox[{"sy", " ", "tu"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sy", " ", "tx"}], "-", 
      RowBox[{"sx", " ", "ty"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944790636946268*^9, 3.9448452579730897`*^9, 
  3.9449376638102455`*^9, 3.944959739332377*^9},
 CellLabel->
  "Out[29]//TraditionalForm=",ExpressionUUID->"c949cb10-fe5c-44c9-b1e2-\
4cd187f67fb6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r1", "=", "4"}], ",", 
       RowBox[{"r2", "=", "1"}], ",", "s1", ",", "s2"}], "}"}], ",", 
     RowBox[{
      RowBox[{"s1", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r1", ",", "0", ",", "0", ",", "0"}], "]"}]}], ";", 
      RowBox[{"s2", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r2", ",", "x", ",", "0", ",", "0"}], "]"}]}], ";", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"DrawSphere", "[", "s1", "]"}], ",", 
        RowBox[{"DrawSphere", "[", "s2", "]"}], ",", 
        RowBox[{"DrawCircle", "[", 
         RowBox[{"s1", "\[Or]", "s2"}], "]"}], ",", 
        RowBox[{"PlotRange", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Boxed", "->", "False"}], ",", 
        RowBox[{"ViewAngle", "->", 
         RowBox[{"20", "\[Degree]"}]}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9447906565443277`*^9, 3.94479065790324*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"5a0580e2-0350-4a35-adbe-600f469bf607"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2}, -4, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`r1$ = 4, $CellContext`r2$ = 
         1, $CellContext`s1$, $CellContext`s2$}, $CellContext`s1$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r1$, 0, 0, 
           0]; $CellContext`s2$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r2$, $CellContext`x$$, 0,
            0]; Show[
          ConformalAlgebra3D`DrawSphere[$CellContext`s1$], 
          ConformalAlgebra3D`DrawSphere[$CellContext`s2$], 
          ConformalAlgebra3D`DrawCircle[
           
           ConformalAlgebra3D`AntiwedgeProduct[$CellContext`s1$, \
$CellContext`s2$]], PlotRange -> {{-4, 4}, {-4, 4}, {-4, 4}}, Boxed -> False, 
          ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2}, -4, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {221.134033203125, 226.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944790660565566*^9, 3.9448452579961023`*^9, 
  3.944937663833758*^9, 3.9449597393508863`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"cff3238a-6d47-487c-bd3b-88b0ce01f89e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r1", "=", "4"}], ",", 
       RowBox[{"r2", "=", 
        RowBox[{"-", "2"}]}], ",", "s1", ",", "s2"}], "}"}], ",", 
     RowBox[{
      RowBox[{"s1", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r1", ",", 
         RowBox[{"-", "2.5"}], ",", "0", ",", "0"}], "]"}]}], ";", 
      RowBox[{"s2", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r2", ",", "x", ",", "0", ",", "0"}], "]"}]}], ";", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"DrawSphere", "[", "s1", "]"}], ",", 
        RowBox[{"DrawSphere", "[", "s2", "]"}], ",", 
        RowBox[{"DrawCircle", "[", 
         RowBox[{"s1", "\[Or]", "s2"}], "]"}], ",", 
        RowBox[{"DrawSphere", "[", 
         RowBox[{"Container", "[", 
          RowBox[{"s1", "\[Or]", "s2"}], "]"}], "]"}], ",", 
        RowBox[{"PlotRange", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Boxed", "->", "False"}], ",", 
        RowBox[{"ViewAngle", "->", 
         RowBox[{"20", "\[Degree]"}]}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[31]:=",ExpressionUUID->"99acede1-d0bc-4856-a715-c62121f4888a"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2}, -4, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`r1$ = 
         4, $CellContext`r2$ = -2, $CellContext`s1$, $CellContext`s2$}, \
$CellContext`s1$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r1$, -2.5, 0, 
           0]; $CellContext`s2$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r2$, $CellContext`x$$, 0,
            0]; Show[
          ConformalAlgebra3D`DrawSphere[$CellContext`s1$], 
          ConformalAlgebra3D`DrawSphere[$CellContext`s2$], 
          ConformalAlgebra3D`DrawCircle[
           
           ConformalAlgebra3D`AntiwedgeProduct[$CellContext`s1$, \
$CellContext`s2$]], 
          ConformalAlgebra3D`DrawSphere[
           ConformalAlgebra3D`Container[
            
            ConformalAlgebra3D`AntiwedgeProduct[$CellContext`s1$, \
$CellContext`s2$]]], PlotRange -> {{-4, 4}, {-4, 4}, {-4, 4}}, Boxed -> False,
           ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2}, -4, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {221.134033203125, 226.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944790709180252*^9, 3.9448452580350785`*^9, 
  3.9449376638857994`*^9, 3.9449597394009094`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"f39f4681-870f-4412-bb72-931f9c9ab053"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r1", "=", 
        RowBox[{"-", "4"}]}], ",", 
       RowBox[{"r2", "=", 
        RowBox[{"-", "1"}]}], ",", "s1", ",", "s2"}], "}"}], ",", 
     RowBox[{
      RowBox[{"s1", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r1", ",", "0", ",", "0", ",", "0"}], "]"}]}], ";", 
      RowBox[{"s2", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r2", ",", "x", ",", "0", ",", "0"}], "]"}]}], ";", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"DrawSphere", "[", "s1", "]"}], ",", 
        RowBox[{"DrawSphere", "[", "s2", "]"}], ",", 
        RowBox[{"DrawCircle", "[", 
         RowBox[{"s1", "\[Or]", "s2"}], "]"}], ",", 
        RowBox[{"PlotRange", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Boxed", "->", "False"}], ",", 
        RowBox[{"ViewAngle", "->", 
         RowBox[{"20", "\[Degree]"}]}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[32]:=",ExpressionUUID->"33a38129-e766-4b5f-af40-3564ebc608d5"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2}, -4, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`r1$ = -4, $CellContext`r2$ = -1, $CellContext`s1$, \
$CellContext`s2$}, $CellContext`s1$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r1$, 0, 0, 
           0]; $CellContext`s2$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r2$, $CellContext`x$$, 0,
            0]; Show[
          ConformalAlgebra3D`DrawSphere[$CellContext`s1$], 
          ConformalAlgebra3D`DrawSphere[$CellContext`s2$], 
          ConformalAlgebra3D`DrawCircle[
           
           ConformalAlgebra3D`AntiwedgeProduct[$CellContext`s1$, \
$CellContext`s2$]], PlotRange -> {{-4, 4}, {-4, 4}, {-4, 4}}, Boxed -> False, 
          ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2}, -4, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {221.134033203125, 226.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944790737008586*^9, 3.9448452580749054`*^9, 
  3.944937663935836*^9, 3.9449597394479303`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"8c2f2faa-6a6c-462d-b834-a9183cedadb1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of sphere and plane", "Subsection",ExpressionUUID->"e9ddbedb-807b-4ec1-ad9c-504ed52b9ea9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s", "\[Or]", "g"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.944790760847273*^9, 3.944790761886104*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"1eda2bc0-c4cd-4fc2-96b8-d5b9d5282d99"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gw", " ", "sz"}], "-", 
      RowBox[{"gz", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gw", " ", "sx"}], "-", 
      RowBox[{"gx", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gw", " ", "sy"}], "-", 
      RowBox[{"gy", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{"gw", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"321\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"gz", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"412\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gy", " ", "sz"}], "-", 
      RowBox[{"gz", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{"gx", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"423\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gz", " ", "sx"}], "-", 
      RowBox[{"gx", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{"gy", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"431\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gx", " ", "sy"}], "-", 
      RowBox[{"gy", " ", "sx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447907624186993`*^9, 3.944845258132467*^9, 
  3.9449376639868755`*^9, 3.9449597394979515`*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"93488e80-e3d0-4d2c-9132-\
df3bec4f4eb9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r1", "=", "4"}], ",", "s1"}], "}"}], ",", 
     RowBox[{
      RowBox[{"s1", "=", 
       RowBox[{"RoundSphere", "[", 
        RowBox[{"r1", ",", "0", ",", "0", ",", "z"}], "]"}]}], ";", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"DrawSphere", "[", "s1", "]"}], ",", 
        RowBox[{"DrawPlane", "[", 
         RowBox[{"e", "[", 
          RowBox[{"4", ",", "1", ",", "2", ",", "5"}], "]"}], "]"}], ",", 
        RowBox[{"DrawCircle", "[", 
         RowBox[{"s1", "\[Or]", 
          RowBox[{"e", "[", 
           RowBox[{"4", ",", "1", ",", "2", ",", "5"}], "]"}]}], "]"}], ",", 
        RowBox[{"PlotRange", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Boxed", "->", "False"}], ",", 
        RowBox[{"ViewAngle", "->", 
         RowBox[{"20", "\[Degree]"}]}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.944790782950162*^9, 3.944790803371561*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"14302f66-1553-46bd-a60b-800dfae62116"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`z$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`z$$], 1}, -4, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`z$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`r1$ = 4, $CellContext`s1$}, $CellContext`s1$ = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r1$, 0, 
           0, $CellContext`z$$]; Show[
          ConformalAlgebra3D`DrawSphere[$CellContext`s1$], 
          ConformalAlgebra3D`DrawPlane[
           ConformalAlgebra3D`e[4, 1, 2, 5]], 
          ConformalAlgebra3D`DrawCircle[
           ConformalAlgebra3D`AntiwedgeProduct[$CellContext`s1$, 
            ConformalAlgebra3D`e[4, 1, 2, 5]]], 
          PlotRange -> {{-4, 4}, {-4, 4}, {-4, 4}}, Boxed -> False, ViewAngle -> 
          20 Degree]], "Specifications" :> {{{$CellContext`z$$, 1}, -4, 4}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{408., {221.134033203125, 226.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.9447907691858845`*^9, 3.9447908036569223`*^9}, 
   3.944845258154063*^9, 3.9449376640083914`*^9, 3.944959739517461*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"3e38dad9-9e67-4314-a6d8-f5aea782fe19"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of sphere and circle", "Subsection",ExpressionUUID->"3387bb0c-5644-412b-9244-833941b4974d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s", "\[Or]", "c"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944790826584667*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"b80f2fa2-ba72-4b8f-b138-e012480b1336"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"12\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgw", " ", "sz"}]}], "+", 
      RowBox[{"cgz", " ", "sw"}], "+", 
      RowBox[{"cmz", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cmy", " ", "sz"}], "-", 
      RowBox[{"cmz", " ", "sy"}], "+", 
      RowBox[{"cvx", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"23\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgw", " ", "sx"}]}], "+", 
      RowBox[{"cgx", " ", "sw"}], "+", 
      RowBox[{"cmx", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cmx", " ", "sz"}]}], "+", 
      RowBox[{"cmz", " ", "sx"}], "+", 
      RowBox[{"cvy", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"31\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgw", " ", "sy"}]}], "+", 
      RowBox[{"cgy", " ", "sw"}], "+", 
      RowBox[{"cmy", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cmx", " ", "sy"}], "-", 
      RowBox[{"cmy", " ", "sx"}], "+", 
      RowBox[{"cvz", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"41\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgy", " ", "sz"}]}], "+", 
      RowBox[{"cgz", " ", "sy"}], "+", 
      RowBox[{"cvx", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"42\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgx", " ", "sz"}], "-", 
      RowBox[{"cgz", " ", "sx"}], "+", 
      RowBox[{"cvy", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"43\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "sy"}]}], "+", 
      RowBox[{"cgy", " ", "sx"}], "+", 
      RowBox[{"cvz", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cvx", " ", "sx"}]}], "-", 
      RowBox[{"cvy", " ", "sy"}], "-", 
      RowBox[{"cvz", " ", "sz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447908268129334`*^9, 3.944845258211604*^9, 
  3.944937664067428*^9, 3.944959739575991*^9},
 CellLabel->
  "Out[35]//TraditionalForm=",ExpressionUUID->"6de697bf-4226-4f16-8a76-\
092bc26694ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"s1", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"9", ",", "0", ",", "0", ",", "0"}], "]"}]}], ",", 
       RowBox[{"c1", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{"r", ",", "x", ",", "1", ",", "0", ",", "0", ",", 
          RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], ",", 
          RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "s1", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "c1", "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"c1", "\[Or]", "s1"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "9"}], ",", "9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9447908432731504`*^9, 3.9447908439268007`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"530b6ab4-8a99-4a84-b592-d44f3c3dad5d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 
    4, $CellContext`\[CurlyPhi]$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -7, 7}, {{
       Hold[$CellContext`r$$], 1}, 0, 9}, {
      Hold[$CellContext`\[CurlyPhi]$$], 0, Pi}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 
        4, $CellContext`\[CurlyPhi]$$ = 0}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`s1 = 
         ConformalAlgebra3D`RoundSphere[9, 0, 0, 0], $CellContext`c1 = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, $CellContext`x$$, 1,
            0, 0, 
           Cos[$CellContext`\[CurlyPhi]$$], 
           Sin[$CellContext`\[CurlyPhi]$$]]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`s1], 
         ConformalAlgebra3D`DrawCircle[$CellContext`c1], 
         ConformalAlgebra3D`DrawDipole[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`c1, \
$CellContext`s1]], PlotRange -> {{-9, 9}, {-4, 4}, {-4, 4}}, Boxed -> False, 
         Axes -> False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -7, 
         7}, {{$CellContext`r$$, 1}, 0, 9}, {$CellContext`\[CurlyPhi]$$, 0, 
         Pi}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{408., {245.134033203125, 250.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447908512099085`*^9, 3.944790891739358*^9, 
  3.944845258233614*^9, 3.9449376640899534`*^9, 3.9449597395964994`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"f5b92d7b-678b-44b5-b0d5-5c9aef9e0b02"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of sphere and line", "Subsection",ExpressionUUID->"8fcb7771-44fb-49ad-ad14-721ee20c1b6c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s", "\[Or]", "l"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944790908553156*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"95db12e7-0d72-4053-9402-c7078c42208e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"lmz", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"12\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lmy", " ", "sz"}], "-", 
      RowBox[{"lmz", " ", "sy"}], "+", 
      RowBox[{"lvx", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{"lmx", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"23\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"lmx", " ", "sz"}]}], "+", 
      RowBox[{"lmz", " ", "sx"}], "+", 
      RowBox[{"lvy", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{"lmy", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"31\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lmx", " ", "sy"}], "-", 
      RowBox[{"lmy", " ", "sx"}], "+", 
      RowBox[{"lvz", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{"lvx", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"41\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"lvy", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"42\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"lvz", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"43\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"lvx", " ", "sx"}]}], "-", 
      RowBox[{"lvy", " ", "sy"}], "-", 
      RowBox[{"lvz", " ", "sz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447909087984395`*^9, 3.9448452582876406`*^9, 
  3.9449376641484885`*^9, 3.9449597396535234`*^9},
 CellLabel->
  "Out[37]//TraditionalForm=",ExpressionUUID->"f3cbb5ed-6937-434b-baab-\
e12d70d6f974"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of sphere and dipole", "Subsection",ExpressionUUID->"15212fba-e0e5-4d70-a207-9438762f5724"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s", "\[Or]", "d"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447909182421055`*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"dde37d66-166f-43c5-8954-1b0b87ce99d3"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmy", " ", "sz"}]}], "+", 
      RowBox[{"dmz", " ", "sy"}], "+", 
      RowBox[{"dpx", " ", "su"}], "-", 
      RowBox[{"dvx", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"2\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmx", " ", "sz"}], "-", 
      RowBox[{"dmz", " ", "sx"}], "+", 
      RowBox[{"dpy", " ", "su"}], "-", 
      RowBox[{"dvy", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "sy"}]}], "+", 
      RowBox[{"dmy", " ", "sx"}], "+", 
      RowBox[{"dpz", " ", "su"}], "-", 
      RowBox[{"dvz", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dpw", " ", "su"}], "+", 
      RowBox[{"dvx", " ", "sx"}], "+", 
      RowBox[{"dvy", " ", "sy"}], "+", 
      RowBox[{"dvz", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"5\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "sw"}]}], "-", 
      RowBox[{"dpx", " ", "sx"}], "-", 
      RowBox[{"dpy", " ", "sy"}], "-", 
      RowBox[{"dpz", " ", "sz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447909184518147`*^9, 3.944845258308653*^9, 
  3.944937664167498*^9, 3.94495973967103*^9},
 CellLabel->
  "Out[38]//TraditionalForm=",ExpressionUUID->"8de80135-bdc5-4d54-9b96-\
02de3006a36d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "r", ",", "0", ",", "0.5", ",", "z", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", 
        RowBox[{"dip", "\[Or]", "sph"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "2"}], "}"}], ",", "0.1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "3"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9447909277196927`*^9, 3.9447909360341167`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"62dbd353-a52c-43db-8170-ff4c2abafd09"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`z$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`z$$], 2}, 0.1, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 3}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`z$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[$CellContext`r$$, 0, 
           0.5, $CellContext`z$$, 0, 0, 1], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[2, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawRoundPoint[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`dip, \
$CellContext`sph]], PlotRange -> {{-3, 3}, {-3, 3}, {-2, 5}}, Boxed -> False, 
         ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`z$$, 2}, 0.1, 
         5}, {{$CellContext`r$$, 1}, 0, 3}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447909371780925`*^9, 3.9448452583586864`*^9, 
  3.9449376641895247`*^9, 3.944959739691038*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"0d7cafbe-6dbb-494e-8a37-e777dba69333"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of sphere and flat point", "Subsection",
 CellChangeTimes->{{3.944790987336912*^9, 
  3.9447909877859063`*^9}},ExpressionUUID->"6f07702e-6ec6-4a88-ab3c-\
1b91584ee310"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s", "\[Or]", "p"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.944790955697381*^9, 3.9447909567157593`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"0dadb8f6-fc98-4570-98b8-25a80226d13a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"px", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"py", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"2\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"pz", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"pw", " ", "su", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"5\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"pw", " ", "sw"}]}], "-", 
      RowBox[{"px", " ", "sx"}], "-", 
      RowBox[{"py", " ", "sy"}], "-", 
      RowBox[{"pz", " ", "sz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447909572263546`*^9, 3.9448452583942056`*^9, 
  3.944937664235551*^9, 3.9449597397750797`*^9},
 CellLabel->
  "Out[40]//TraditionalForm=",ExpressionUUID->"cb987364-e474-4298-922a-\
d01600c54291"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"FlatPoint", "[", 
         RowBox[{"0", ",", "0", ",", "z"}], "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"r", ",", "0", ",", "0", ",", "1"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawFlatPoint", "[", "dip", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", 
        RowBox[{"dip", "\[Or]", "sph"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "2"}], "}"}], ",", "0.1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "4"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944790970068476*^9, 3.9447909706092815`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"69c3cef3-82db-449c-985f-a7df42b57761"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`z$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`z$$], 2}, 0.1, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`z$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`FlatPoint[
          0, 0, $CellContext`z$$], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r$$, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawFlatPoint[$CellContext`dip], 
         ConformalAlgebra3D`DrawRoundPoint[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`dip, \
$CellContext`sph]], PlotRange -> {{-3, 3}, {-3, 3}, {-2, 5}}, Boxed -> False, 
         ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`z$$, 2}, 0.1, 
         5}, {{$CellContext`r$$, 1}, 0, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447909722216587`*^9, 3.9448452584162397`*^9, 
  3.944937664256564*^9, 3.9449597397940893`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"ed6c46b6-e39c-4b54-82a1-e731a5eeda52"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of circle and plane", "Subsection",ExpressionUUID->"aa6981a0-1eaa-4533-8474-8c40d0271631"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "\[Or]", "c"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.944791067933749*^9, 3.944791068941087*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"feeac765-11d6-4694-bcca-f4a9a8cbc0c2"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"12\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgz", " ", "gw"}], "-", 
      RowBox[{"cgw", " ", "gz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cmy", " ", "gz"}], "-", 
      RowBox[{"cmz", " ", "gy"}], "+", 
      RowBox[{"cvx", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"23\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgx", " ", "gw"}], "-", 
      RowBox[{"cgw", " ", "gx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cmx", " ", "gz"}]}], "+", 
      RowBox[{"cmz", " ", "gx"}], "+", 
      RowBox[{"cvy", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"31\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgy", " ", "gw"}], "-", 
      RowBox[{"cgw", " ", "gy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cmx", " ", "gy"}], "-", 
      RowBox[{"cmy", " ", "gx"}], "+", 
      RowBox[{"cvz", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"41\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgz", " ", "gy"}], "-", 
      RowBox[{"cgy", " ", "gz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"42\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgx", " ", "gz"}], "-", 
      RowBox[{"cgz", " ", "gx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"43\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgy", " ", "gx"}], "-", 
      RowBox[{"cgx", " ", "gy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cvx", " ", "gx"}]}], "-", 
      RowBox[{"cvy", " ", "gy"}], "-", 
      RowBox[{"cvz", " ", "gz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944791069474245*^9, 3.9448452584617815`*^9, 
  3.944937664303157*^9, 3.944959739840108*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"71a0d95d-63a4-4e27-bfbc-\
80b96e0f5c0c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of two circles", "Subsection",ExpressionUUID->"85ec0ea9-0f60-4905-a4ad-16249ec1f438"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "\[Or]", "o"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944791079335953*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"5689e500-5934-406c-93d1-c9218da61693"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "ovx"}], "-", 
      RowBox[{"cgy", " ", "omz"}], "+", 
      RowBox[{"cgz", " ", "omy"}], "+", 
      RowBox[{"cmy", " ", "ogz"}], "-", 
      RowBox[{"cmz", " ", "ogy"}], "+", 
      RowBox[{"cvx", " ", "ogw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"2\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "ovy"}], "+", 
      RowBox[{"cgx", " ", "omz"}], "-", 
      RowBox[{"cgz", " ", "omx"}], "-", 
      RowBox[{"cmx", " ", "ogz"}], "+", 
      RowBox[{"cmz", " ", "ogx"}], "+", 
      RowBox[{"cvy", " ", "ogw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "ovz"}], "-", 
      RowBox[{"cgx", " ", "omy"}], "+", 
      RowBox[{"cgy", " ", "omx"}], "+", 
      RowBox[{"cmx", " ", "ogy"}], "-", 
      RowBox[{"cmy", " ", "ogx"}], "+", 
      RowBox[{"cvz", " ", "ogw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "ovx"}]}], "-", 
      RowBox[{"cgy", " ", "ovy"}], "-", 
      RowBox[{"cgz", " ", "ovz"}], "-", 
      RowBox[{"cvx", " ", "ogx"}], "-", 
      RowBox[{"cvy", " ", "ogy"}], "-", 
      RowBox[{"cvz", " ", "ogz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"5\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cmx", " ", "ovx"}]}], "-", 
      RowBox[{"cmy", " ", "ovy"}], "-", 
      RowBox[{"cmz", " ", "ovz"}], "-", 
      RowBox[{"cvx", " ", "omx"}], "-", 
      RowBox[{"cvy", " ", "omy"}], "-", 
      RowBox[{"cvz", " ", "omz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447910795827703`*^9, 3.9448452584847937`*^9, 
  3.9449376643286753`*^9, 3.9449597398626213`*^9},
 CellLabel->
  "Out[43]//TraditionalForm=",ExpressionUUID->"9c02865f-9918-422d-940d-\
53ebd9011bf5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c1", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "9", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"c2", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "r", ",", "x", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawCircle", "[", "c1", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "c2", "]"}], ",", 
       RowBox[{"DrawPlane", "[", 
        RowBox[{"Carrier", "[", "c1", "]"}], "]"}], ",", 
       RowBox[{"DrawPlane", "[", 
        RowBox[{"Carrier", "[", "c2", "]"}], "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", 
        RowBox[{"c1", "\[Or]", "c2"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "9"}], ",", "9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "9"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9447910867560325`*^9, 3.9447911006163054`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"90b3f1b8-477f-417c-94bd-cf8fddcf56bd"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -7, 7}, {{
       Hold[$CellContext`r$$], 1}, 0, 9}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`c1 = 
         ConformalAlgebra3D`RoundCircle[9, 0, 0, 0, 0, 0, 1], $CellContext`c2 = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, $CellContext`x$$, 0,
            0, 0, 1, 0]}, 
        Show[
         ConformalAlgebra3D`DrawCircle[$CellContext`c1], 
         ConformalAlgebra3D`DrawCircle[$CellContext`c2], 
         ConformalAlgebra3D`DrawPlane[
          ConformalAlgebra3D`Carrier[$CellContext`c1]], 
         ConformalAlgebra3D`DrawPlane[
          ConformalAlgebra3D`Carrier[$CellContext`c2]], 
         ConformalAlgebra3D`DrawRoundPoint[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`c1, \
$CellContext`c2]], PlotRange -> {{-9, 9}, {-6, 6}, {-6, 6}}, Boxed -> False, 
         Axes -> False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -7, 
         7}, {{$CellContext`r$$, 1}, 0, 9}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.944791093473693*^9, 3.944791101114159*^9}, 
   3.9448452585063086`*^9, 3.9449376643771973`*^9, 3.944959739881135*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"d1816913-f306-4cc4-b489-6000c75003ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c1", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "9", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"c2", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "4", ",", "x", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawCircle", "[", "c1", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "c2", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", 
        RowBox[{"c1", "\[Or]", "c2"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewCenter", "->", 
        RowBox[{"{", 
         RowBox[{"0.5", ",", "0.5", ",", "0.5"}], "}"}]}], ",", 
       RowBox[{"ViewPoint", "->", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "2"}], ",", "1"}], "}"}]}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8.9"}], ",", "9", ",", 
     RowBox[{"18", "/", 
      RowBox[{"(", 
       RowBox[{"20", "*", "30"}], ")"}]}]}], "}"}], ",", 
   RowBox[{"AnimationRate", "->", "20"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.944791520195318*^9, {3.9447915548144445`*^9, 3.9447915773660154`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"bd1e2b9a-8840-47fa-ba0d-54a233da0bf7"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 5.979999999999999, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -8.9, 9, 
      Rational[3, 100]}}, Typeset`size$$ = {360., {178., 182.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -8.9}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`c1 = 
         ConformalAlgebra3D`RoundCircle[9, 0, 0, 0, 0, 0, 1], $CellContext`c2 = 
         ConformalAlgebra3D`RoundCircle[4, $CellContext`x$$, 0, 1, 0, 1, 0]}, 
        Show[
         ConformalAlgebra3D`DrawCircle[$CellContext`c1], 
         ConformalAlgebra3D`DrawCircle[$CellContext`c2], 
         ConformalAlgebra3D`DrawRoundPoint[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`c1, \
$CellContext`c2]], PlotRange -> {{-10, 10}, {-10, 10}, {-10, 10}}, Boxed -> 
         False, Axes -> False, ViewCenter -> {0.5, 0.5, 0.5}, 
         ViewPoint -> {0, -2, 1}, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{$CellContext`x$$, -8.9, 9, 
         Rational[3, 100], AnimationRate -> 20, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{408., {213.134033203125, 218.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.9447915600855694`*^9, 3.9447915778737745`*^9}, 
   3.9448452585508413`*^9, 3.944937664437228*^9, 3.9449597399396667`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"97d136e4-d8fa-4788-a8b0-67212aa82d84"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of circle and line", "Subsection",ExpressionUUID->"2bf6ca2b-5184-42dd-8c50-33bd99c2ae1e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "\[Or]", "l"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9447916293974237`*^9, 3.9447916304696665`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"50003458-8ed5-41c3-ae7d-16889d0a5d6d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "lvx"}], "-", 
      RowBox[{"cgy", " ", "lmz"}], "+", 
      RowBox[{"cgz", " ", "lmy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"2\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "lvy"}], "+", 
      RowBox[{"cgx", " ", "lmz"}], "-", 
      RowBox[{"cgz", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "lvz"}], "-", 
      RowBox[{"cgx", " ", "lmy"}], "+", 
      RowBox[{"cgy", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "lvx"}]}], "-", 
      RowBox[{"cgy", " ", "lvy"}], "-", 
      RowBox[{"cgz", " ", "lvz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"5\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cmx", " ", "lvx"}]}], "-", 
      RowBox[{"cmy", " ", "lvy"}], "-", 
      RowBox[{"cmz", " ", "lvz"}], "-", 
      RowBox[{"cvx", " ", "lmx"}], "-", 
      RowBox[{"cvy", " ", "lmy"}], "-", 
      RowBox[{"cvz", " ", "lmz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447916318902655`*^9, 3.9448452586017838`*^9, 
  3.9449376644892597`*^9, 3.944959740002722*^9},
 CellLabel->
  "Out[46]//TraditionalForm=",ExpressionUUID->"840c1937-6101-4071-8cd4-\
9031273d8b70"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c1", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "r", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"l1", "=", 
        RowBox[{"FlatLine", "[", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", 
          RowBox[{"-", "x"}], ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawCircle", "[", "c1", "]"}], ",", 
       RowBox[{"DrawLine", "[", "l1", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", 
        RowBox[{"c1", "\[Or]", "l1"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "8"}], "}"}], ",", "0", ",", "16"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944791656311401*^9, 3.944791700254496*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"a8ff138e-9a12-4240-af29-1a3065e90d7c"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 8, $CellContext`x$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2}, -7, 7}, {{
       Hold[$CellContext`r$$], 8}, 0, 16}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 8, $CellContext`x$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`c1 = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, 0, 0, 0, 0, 0, 
           1], $CellContext`l1 = 
         ConformalAlgebra3D`FlatLine[0, 0, 1, 0, -$CellContext`x$$, 0]}, 
        Show[
         ConformalAlgebra3D`DrawCircle[$CellContext`c1], 
         ConformalAlgebra3D`DrawLine[$CellContext`l1], 
         ConformalAlgebra3D`DrawRoundPoint[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`c1, \
$CellContext`l1]], PlotRange -> {{-7, 7}, {-4, 4}, {-4, 4}}, Boxed -> False, 
         Axes -> False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2}, -7, 
         7}, {{$CellContext`r$$, 8}, 0, 16}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.944791667100498*^9, 3.9447917006655273`*^9}, 
   3.9448452586238527`*^9, 3.94493766451085*^9, 3.9449597400237393`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"55523d26-8f84-4efc-a102-5fdb047097f3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of two lines", "Subsection",ExpressionUUID->"67412d82-f4dc-4cb1-86d5-d818f8c101ac"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"l", "\[Or]", "k"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9447917154066715`*^9, 3.944791716488597*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"3d775a61-229e-498c-82ea-975e6034db65"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    TagBox[
     SubscriptBox[
      StyleBox["\<\"e\"\>",
       StripOnInput->False,
       FontFamily->"Times New Roman",
       FontSize->16,
       FontWeight->Bold], 
      StyleBox["\<\"5\"\>",
       StripOnInput->False,
       FontFamily->"Times New Roman",
       FontSize->9]],
     DisplayForm],
    TraditionalForm], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"kmx", " ", "lvx"}]}], "-", 
     RowBox[{"kmy", " ", "lvy"}], "-", 
     RowBox[{"kmz", " ", "lvz"}], "-", 
     RowBox[{"kvx", " ", "lmx"}], "-", 
     RowBox[{"kvy", " ", "lmy"}], "-", 
     RowBox[{"kvz", " ", "lmz"}]}], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944791716983923*^9, 3.9448452586688957`*^9, 
  3.9449376645704913`*^9, 3.9449597400810895`*^9},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"6a64a222-f47b-4103-aa57-\
b217eeb108a5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Meet of plane and dipole", "Subsection",
 CellChangeTimes->{{3.9447917333052044`*^9, 
  3.9447917375940924`*^9}},ExpressionUUID->"f5ed03b5-a492-4919-9db3-\
1649e1c4a3a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "\[Or]", "d"}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.9447917322303753`*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"c7d202fa-2197-4d6b-bbca-d5511f569278"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmy", " ", "gz"}]}], "+", 
      RowBox[{"dmz", " ", "gy"}], "-", 
      RowBox[{"dvx", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"2\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmx", " ", "gz"}], "-", 
      RowBox[{"dmz", " ", "gx"}], "-", 
      RowBox[{"dvy", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "gy"}]}], "+", 
      RowBox[{"dmy", " ", "gx"}], "-", 
      RowBox[{"dvz", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dvx", " ", "gx"}], "+", 
      RowBox[{"dvy", " ", "gy"}], "+", 
      RowBox[{"dvz", " ", "gz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"5\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "gw"}]}], "-", 
      RowBox[{"dpx", " ", "gx"}], "-", 
      RowBox[{"dpy", " ", "gy"}], "-", 
      RowBox[{"dpz", " ", "gz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447917400005593`*^9, 3.9448452586889052`*^9, 
  3.944937664590516*^9, 3.944959740097598*^9},
 CellLabel->
  "Out[49]//TraditionalForm=",ExpressionUUID->"4c98a136-b9f8-4253-beb6-\
24470d9b553d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "r", ",", "0", ",", "0", ",", "z", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"pln", "=", 
        RowBox[{"FlatPlane", "[", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawPlane", "[", "pln", "]"}], ",", 
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", 
        RowBox[{"dip", "\[Or]", "pln"}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "9"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944791751834319*^9, 3.9447917566785927`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"615f91a9-02e8-4771-be48-1325f6d7b4a7"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`z$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`z$$], 2}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 9}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`z$$ = 2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[$CellContext`r$$, 0, 
           0, $CellContext`z$$, 0, 0, 1], $CellContext`pln = 
         ConformalAlgebra3D`FlatPlane[0, 0, 1, 0]}, 
        Show[
         ConformalAlgebra3D`DrawPlane[$CellContext`pln], 
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawRoundPoint[
          
          ConformalAlgebra3D`AntiwedgeProduct[$CellContext`dip, \
$CellContext`pln]], PlotRange -> {{-5, 5}, {-5, 5}, {-5, 5}}, Boxed -> False, 
         ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`z$$, 2}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 9}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447917581562905`*^9, 3.944791808509919*^9, 
  3.9448452587089176`*^9, 3.944937664612523*^9, 3.9449597401161165`*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"d71ac0be-9722-4035-bccd-d07274ba3471"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expansion", "Section",
 CellChangeTimes->{{3.944791855632355*^9, 
  3.944791856645961*^9}},ExpressionUUID->"9e0e619e-e4aa-4cce-bba6-\
1d638874f2e4"],

Cell[CellGroupData[{

Cell["Expand round point onto sphere", "Subsection",
 CellChangeTimes->{{3.9447946937109194`*^9, 
  3.944794697825727*^9}},ExpressionUUID->"565923ff-10bd-4cce-975a-\
57397b206ecd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", 
   RowBox[{"Antidual", "[", "s", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9447947014429035`*^9, 3.9447947025863323`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"55488060-6a4b-4f97-9c7c-3d7d5b3515b5"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"12\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "sy"}], "-", 
      RowBox[{"ay", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "sx"}]}], "-", 
      RowBox[{"ax", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"23\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "sz"}], "-", 
      RowBox[{"az", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "sy"}]}], "-", 
      RowBox[{"ay", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"31\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"az", " ", "sx"}], "-", 
      RowBox[{"ax", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "sz"}]}], "-", 
      RowBox[{"az", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"41\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "sx"}], "+", 
      RowBox[{"ax", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"42\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "sy"}], "+", 
      RowBox[{"ay", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"43\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aw", " ", "sz"}], "+", 
      RowBox[{"az", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "su"}], "-", 
      RowBox[{"aw", " ", "sw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447947033211727`*^9, 3.9448452587549567`*^9, 
  3.9449376646610518`*^9, 3.9449597401611457`*^9},
 CellLabel->
  "Out[51]//TraditionalForm=",ExpressionUUID->"a1d3246f-8b3d-4832-a6a8-\
35f8f7ea9111"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1"}], "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"r", ",", "x", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944794726156559*^9, 3.944794726706372*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"c29e21a7-c2e0-4203-83a3-c91247c3802b"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`RoundPoint[0, 0, 0, 1, 1], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r$$, $CellContext`x$$, 0,
            0]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawDipole[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944794727457593*^9, 3.944845258776473*^9, 
  3.944937664684074*^9, 3.944959740179662*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"5c8a64b0-7620-4eac-84fd-5a83a471bc95"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand round point onto plane", "Subsection",
 CellChangeTimes->{{3.944794749224778*^9, 
  3.944794752028057*^9}},ExpressionUUID->"72418cae-3e3e-4ef7-8d7d-\
3680cdbc9f32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", 
   RowBox[{"Antidual", "[", "g", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944794755638657*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"a18d5b7b-0c32-4a23-bbe9-774702aa822b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"12\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "gy"}], "-", 
      RowBox[{"ay", " ", "gx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"15\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "gx"}]}], "-", 
      RowBox[{"ax", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"23\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ay", " ", "gz"}], "-", 
      RowBox[{"az", " ", "gy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"25\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "gy"}]}], "-", 
      RowBox[{"ay", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"31\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"az", " ", "gx"}], "-", 
      RowBox[{"ax", " ", "gz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"35\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "gz"}]}], "-", 
      RowBox[{"az", " ", "gw"}]}], ")"}]}], "+", 
   RowBox[{"aw", " ", "gx", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"41\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"aw", " ", "gy", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"42\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"aw", " ", "gz", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"43\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"aw", " ", "gw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"45\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944794755850953*^9, 3.94484525882302*^9, 
  3.944937664730611*^9, 3.9449597402241983`*^9},
 CellLabel->
  "Out[53]//TraditionalForm=",ExpressionUUID->"15c3bb5e-489e-44d6-a051-\
fabcb303f52e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "r"}], "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"FlatPlane", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "x"}], "]"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawPlane", "[", "sph", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawDipole", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944794762344982*^9, 3.944794762889638*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"bb28ad5e-967f-4b02-aa13-b9fba29cba2b"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`RoundPoint[
          0, 0, 0, 1, $CellContext`r$$], $CellContext`sph = 
         ConformalAlgebra3D`FlatPlane[-1, 0, 0, $CellContext`x$$]}, 
        Show[
         ConformalAlgebra3D`DrawPlane[$CellContext`sph], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawDipole[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9447947633217945`*^9, 3.944845258844531*^9, 
  3.9449376647541256`*^9, 3.9449597402442102`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"f9250233-be57-4e24-9414-12d4f770d99c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand dipole onto sphere", "Subsection",
 CellChangeTimes->{{3.9447947783021717`*^9, 
  3.944794780952101*^9}},ExpressionUUID->"4bdcee00-2e5d-44ce-9e7a-\
00ed756a1fc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", 
   RowBox[{"Antidual", "[", "s", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944794785689474*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"f99725e0-2740-467e-b76d-befe286cd20f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmz", " ", "sw"}]}], "-", 
      RowBox[{"dpx", " ", "sy"}], "+", 
      RowBox[{"dpy", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "sw"}]}], "-", 
      RowBox[{"dpy", " ", "sz"}], "+", 
      RowBox[{"dpz", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmy", " ", "sw"}]}], "+", 
      RowBox[{"dpx", " ", "sz"}], "-", 
      RowBox[{"dpz", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"321\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "sx"}]}], "-", 
      RowBox[{"dmy", " ", "sy"}], "-", 
      RowBox[{"dmz", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"412\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmz", " ", "su"}]}], "+", 
      RowBox[{"dvx", " ", "sy"}], "-", 
      RowBox[{"dvy", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "sx"}]}], "-", 
      RowBox[{"dpx", " ", "su"}], "-", 
      RowBox[{"dvx", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"423\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmx", " ", "su"}]}], "+", 
      RowBox[{"dvy", " ", "sz"}], "-", 
      RowBox[{"dvz", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "sy"}]}], "-", 
      RowBox[{"dpy", " ", "su"}], "-", 
      RowBox[{"dvy", " ", "sw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"431\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dmy", " ", "su"}]}], "-", 
      RowBox[{"dvx", " ", "sz"}], "+", 
      RowBox[{"dvz", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "sz"}]}], "-", 
      RowBox[{"dpz", " ", "su"}], "-", 
      RowBox[{"dvz", " ", "sw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9447947859451942`*^9, 3.944845258894068*^9, 
  3.944937664807166*^9, 3.944959740295252*^9},
 CellLabel->
  "Out[55]//TraditionalForm=",ExpressionUUID->"21734003-b4f9-43d0-bcd1-\
8caf909017c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"r", ",", "x", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawCircle", "[", 
        RowBox[{"dip", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9447948019251842`*^9, 3.9447948036885324`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"a94d9912-c724-4993-b0ff-80c7876b5d78"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[
          1, 0, 0, 0, 0, 0, 1], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r$$, $CellContext`x$$, 0,
            0]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawCircle[
          ConformalAlgebra3D`WedgeProduct[$CellContext`dip, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.944794798432042*^9, 3.944794804540598*^9}, 
   3.9448452589165955`*^9, 3.944937664830184*^9, 3.944959740313759*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"be7ad322-e82a-4167-b2b7-4bd7c4ea41da"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand dipole onto plane", "Subsection",
 CellChangeTimes->{{3.9447948286860237`*^9, 
  3.9447948348762445`*^9}},ExpressionUUID->"c7d03c2e-a507-4d34-bc0a-\
30ef4ba278ab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", 
   RowBox[{"Antidual", "[", "g", "]"}]}], "//", "GCollect"}]], "Input",
 CellLabel->"In[57]:=",ExpressionUUID->"a79f2629-4c43-4bc4-a96c-19a92e3b7ef2"],

Cell[BoxData[
 RowBox[{"GCollect", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "dmz"}], " ", "gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dpy", " ", "gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dpx", " ", "gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"1", ",", "2", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dmx", " ", "gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dpz", " ", "gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dpy", " ", "gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dmy", " ", "gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dpz", " ", "gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dpx", " ", "gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "1", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dmx", " ", "gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}]}], "-", 
   RowBox[{"dmy", " ", "gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}]}], "-", 
   RowBox[{"dmz", " ", "gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}]}], "-", 
   RowBox[{"dvy", " ", "gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}]}], "+", 
   RowBox[{"dvx", " ", "gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}]}], "-", 
   RowBox[{"dvx", " ", "gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dpw", " ", "gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "1", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dvz", " ", "gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3"}], "]"}]}], "+", 
   RowBox[{"dvy", " ", "gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "3"}], "]"}]}], "-", 
   RowBox[{"dvy", " ", "gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dpw", " ", "gy", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "2", ",", "5"}], "]"}]}], "+", 
   RowBox[{"dvz", " ", "gx", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1"}], "]"}]}], "-", 
   RowBox[{"dvx", " ", "gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "1"}], "]"}]}], "-", 
   RowBox[{"dvz", " ", "gw", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "5"}], "]"}]}], "-", 
   RowBox[{"dpw", " ", "gz", " ", 
    RowBox[{"e", "[", 
     RowBox[{"4", ",", "3", ",", "5"}], "]"}]}]}], "]"}]], "Output",
 CellChangeTimes->{3.9448452589796476`*^9, 3.94493766489509*^9, 
  3.9449597403743005`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"8ecc0bb9-1a93-4e5e-8b6a-c94f731ec95e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "r", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"FlatPlane", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "x"}], "]"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawPlane", "[", "sph", "]"}], ",", 
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawCircle", "[", 
        RowBox[{"dip", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9447948404460497`*^9, 3.9447948549045553`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"85a5ce47-ca64-4663-9ed3-7c2f9bf288d0"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[$CellContext`r$$, 0, 0, 0, 0, 0, 
           1], $CellContext`sph = 
         ConformalAlgebra3D`FlatPlane[-1, 0, 0, $CellContext`x$$]}, 
        Show[
         ConformalAlgebra3D`DrawPlane[$CellContext`sph], 
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawCircle[
          ConformalAlgebra3D`WedgeProduct[$CellContext`dip, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.9447948440418262`*^9, 3.9447948553585415`*^9}, 
   3.9448452590022755`*^9, 3.944937664917101*^9, 3.9449597403928103`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"5955a930-5aec-4cfa-b3fe-57266432ecfc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand flat point onto sphere", "Subsection",
 CellChangeTimes->{{3.944836100476162*^9, 
  3.9448361038334007`*^9}},ExpressionUUID->"a9534adf-dea5-45a2-9fe0-\
eca3e594414c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "\[And]", 
   RowBox[{"Antidual", "[", "s", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448361060800333`*^9, 3.944836107107106*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"072602a3-295f-48ff-b957-2a452d7baf22"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"py", " ", "sx"}], "-", 
      RowBox[{"px", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"pz", " ", "sy"}], "-", 
      RowBox[{"py", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"px", " ", "sz"}], "-", 
      RowBox[{"pz", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"pw", " ", "sx"}]}], "-", 
      RowBox[{"px", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"pw", " ", "sy"}]}], "-", 
      RowBox[{"py", " ", "su"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"pw", " ", "sz"}]}], "-", 
      RowBox[{"pz", " ", "su"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944836107624414*^9, 3.944845259059822*^9, 
  3.9449376649761467`*^9, 3.944959740448849*^9},
 CellLabel->
  "Out[59]//TraditionalForm=",ExpressionUUID->"de44c830-0df4-4fe2-9fae-\
35be2f3aee93"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"e", "[", 
         RowBox[{"4", ",", "5"}], "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"r", ",", "x", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawFlatPoint", "[", "dip", "]"}], ",", 
       RowBox[{"DrawLine", "[", 
        RowBox[{"dip", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellLabel->"In[60]:=",ExpressionUUID->"5ceb454d-da6a-45db-bfb1-23ace0d4248f"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = ConformalAlgebra3D`e[4, 5], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r$$, $CellContext`x$$, 0,
            0]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawFlatPoint[$CellContext`dip], 
         ConformalAlgebra3D`DrawLine[
          ConformalAlgebra3D`WedgeProduct[$CellContext`dip, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944836116824959*^9, 3.944845259083127*^9, 
  3.944937664997168*^9, 3.9449597404673643`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"97f6fe93-9b7c-4075-94a8-63cc6df40404"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand flat point onto plane", "Subsection",
 CellChangeTimes->{{3.944836170620982*^9, 
  3.9448361732597833`*^9}},ExpressionUUID->"63b1fe38-19fb-4c17-a8b9-\
ec7d36cf45dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "\[And]", 
   RowBox[{"Antidual", "[", "g", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.944836175441242*^9, 3.94483617659649*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"6ebe02b8-b4c0-4a62-a0ff-26dd5ea2283c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gx", " ", "py"}], "-", 
      RowBox[{"gy", " ", "px"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gy", " ", "pz"}], "-", 
      RowBox[{"gz", " ", "py"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gz", " ", "px"}], "-", 
      RowBox[{"gx", " ", "pz"}]}], ")"}]}], "-", 
   RowBox[{"gx", " ", "pw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"gy", " ", "pw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"gz", " ", "pw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944836177107036*^9, 3.944845259128153*^9, 
  3.944937665044003*^9, 3.9449597405083923`*^9},
 CellLabel->
  "Out[61]//TraditionalForm=",ExpressionUUID->"56498e5c-de0e-423b-9eb5-\
f7b45f87aa7b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand circle onto sphere", "Subsection",
 CellChangeTimes->{{3.9448361867992954`*^9, 
  3.944836188580428*^9}},ExpressionUUID->"3646a913-55af-4028-bbd0-\
cff692122109"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "\[And]", 
   RowBox[{"Antidual", "[", "s", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.94483619198225*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"e53e2401-a391-4c28-8373-f06726fd60a5"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "su"}], "-", 
      RowBox[{"cgx", " ", "sx"}], "-", 
      RowBox[{"cgy", " ", "sy"}], "-", 
      RowBox[{"cgz", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgw", " ", "sw"}]}], "+", 
      RowBox[{"cmx", " ", "sx"}], "+", 
      RowBox[{"cmy", " ", "sy"}], "+", 
      RowBox[{"cmz", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgz", " ", "sw"}]}], "+", 
      RowBox[{"cmz", " ", "su"}], "-", 
      RowBox[{"cvx", " ", "sy"}], "+", 
      RowBox[{"cvy", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "sw"}]}], "+", 
      RowBox[{"cmx", " ", "su"}], "-", 
      RowBox[{"cvy", " ", "sz"}], "+", 
      RowBox[{"cvz", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgy", " ", "sw"}]}], "+", 
      RowBox[{"cmy", " ", "su"}], "+", 
      RowBox[{"cvx", " ", "sz"}], "-", 
      RowBox[{"cvz", " ", "sx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448361921868806`*^9, 3.944845259148662*^9, 
  3.9449376650640154`*^9, 3.9449597405269065`*^9},
 CellLabel->
  "Out[62]//TraditionalForm=",ExpressionUUID->"d094fc44-fa57-4755-81ce-\
fb7e0d91910e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cir", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], 
         "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"r", ",", "x", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "cir", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"cir", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "4"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944836208261236*^9, 3.944836209079895*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"77ed43e2-60ed-48be-a260-38f58baa9315"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`cir = 
         ConformalAlgebra3D`RoundCircle[
          1, 0, 0, 0, 1, 0, 0], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r$$, $CellContext`x$$, 0,
            0]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawCircle[$CellContext`cir], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`cir, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 6}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9448362109438667`*^9, 3.9448452591706905`*^9, 
  3.9449376650850368`*^9, 3.9449597405459237`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"41b59b51-4b39-4444-8855-1c24ce0defec"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand circle onto plane", "Subsection",
 CellChangeTimes->{{3.9448362297748375`*^9, 
  3.9448362326226954`*^9}},ExpressionUUID->"d9c24ea2-2433-4a8c-bf35-\
7f7638f48c1f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "\[And]", 
   RowBox[{"Antidual", "[", "g", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944836236291808*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"7f538346-6138-49ad-8fbe-284c2d9f528b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "gx"}]}], "-", 
      RowBox[{"cgy", " ", "gy"}], "-", 
      RowBox[{"cgz", " ", "gz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgw", " ", "gw"}]}], "+", 
      RowBox[{"cmx", " ", "gx"}], "+", 
      RowBox[{"cmy", " ", "gy"}], "+", 
      RowBox[{"cmz", " ", "gz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgz", " ", "gw"}]}], "-", 
      RowBox[{"cvx", " ", "gy"}], "+", 
      RowBox[{"cvy", " ", "gx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "gw"}]}], "-", 
      RowBox[{"cvy", " ", "gz"}], "+", 
      RowBox[{"cvz", " ", "gy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgy", " ", "gw"}]}], "+", 
      RowBox[{"cvx", " ", "gz"}], "-", 
      RowBox[{"cvz", " ", "gx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448362364952483`*^9, 3.944845259220727*^9, 
  3.9449376651386905`*^9, 3.9449597405950413`*^9},
 CellLabel->
  "Out[64]//TraditionalForm=",ExpressionUUID->"012cf437-d7c8-49d1-910b-\
1600f0a4fdaa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cir", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{"r", ",", "0", ",", "0", ",", 
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", "0", ",", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}]}], "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"FlatPlane", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "x"}], "]"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawPlane", "[", "sph", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "cir", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"cir", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "1.8"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "4"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944836246035279*^9, 3.944836267909995*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"c8057d7f-fbac-417e-b133-f971ebce8889"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 1.8, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 1.8}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 1.8}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`cir = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, 0, 0, 1/2, Sqrt[3]/
           2, 0, (-1)/2], $CellContext`sph = 
         ConformalAlgebra3D`FlatPlane[-1, 0, 0, $CellContext`x$$]}, 
        Show[
         ConformalAlgebra3D`DrawPlane[$CellContext`sph], 
         ConformalAlgebra3D`DrawCircle[$CellContext`cir], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`cir, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-2, 6}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 1.8}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.944836252032978*^9, 3.9448362695677*^9}, 
   3.9448452592427435`*^9, 3.9449376651596994`*^9, 3.9449597406135483`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"e3c3fa08-75fc-4484-a516-9fa58882a2fa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand line onto sphere", "Subsection",
 CellChangeTimes->{{3.9448362829530897`*^9, 
  3.9448362853842306`*^9}},ExpressionUUID->"4b95cc44-3464-4336-b528-\
63bf64925814"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"l", "\[And]", 
   RowBox[{"Antidual", "[", "s", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448362927916803`*^9, 3.9448362938507814`*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"61b30925-a0f3-4556-9751-f45f0f268542"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lmx", " ", "sx"}], "+", 
      RowBox[{"lmy", " ", "sy"}], "+", 
      RowBox[{"lmz", " ", "sz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lmz", " ", "su"}], "-", 
      RowBox[{"lvx", " ", "sy"}], "+", 
      RowBox[{"lvy", " ", "sx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lmx", " ", "su"}], "-", 
      RowBox[{"lvy", " ", "sz"}], "+", 
      RowBox[{"lvz", " ", "sy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lmy", " ", "su"}], "+", 
      RowBox[{"lvx", " ", "sz"}], "-", 
      RowBox[{"lvz", " ", "sx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448362942999306`*^9, 3.9448452593153543`*^9, 
  3.9449376652327323`*^9, 3.9449597406845875`*^9},
 CellLabel->
  "Out[66]//TraditionalForm=",ExpressionUUID->"cbe59847-66e2-4d9d-947c-\
5e309ba844dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cir", "=", 
        RowBox[{"FlatLine", "[", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], 
         "]"}]}], ",", 
       RowBox[{"sph", "=", 
        RowBox[{"RoundSphere", "[", 
         RowBox[{"r", ",", "x", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawSphere", "[", "sph", "]"}], ",", 
       RowBox[{"DrawLine", "[", "cir", "]"}], ",", 
       RowBox[{"DrawPlane", "[", 
        RowBox[{"cir", "\[And]", 
         RowBox[{"Antidual", "[", "sph", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "4"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9448363143664303`*^9, 3.9448363226445065`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"565cd06b-12a0-4549-aa24-3426c1c449b9"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 4}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`cir = 
         ConformalAlgebra3D`FlatLine[0, 0, 1, 0, 0, 0], $CellContext`sph = 
         ConformalAlgebra3D`RoundSphere[$CellContext`r$$, $CellContext`x$$, 0,
            0]}, 
        Show[
         ConformalAlgebra3D`DrawSphere[$CellContext`sph], 
         ConformalAlgebra3D`DrawLine[$CellContext`cir], 
         ConformalAlgebra3D`DrawPlane[
          ConformalAlgebra3D`WedgeProduct[$CellContext`cir, 
           ConformalAlgebra3D`Antidual[$CellContext`sph]]], 
         PlotRange -> {{-1, 5}, {-3, 3}, {-3, 3}}, Boxed -> False, ViewAngle -> 
         20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944836299519657*^9, 3.9448363403277235`*^9, 
  3.9448452593368673`*^9, 3.9449376652547407`*^9, 3.9449597407025924`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"a4b51d21-53a3-4b78-a7e4-e246dfa3bea5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand line onto plane", "Subsection",
 CellChangeTimes->{{3.944836351043064*^9, 
  3.94483635385937*^9}},ExpressionUUID->"362006fb-6a4f-43a2-810e-\
688580e9424a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"l", "\[And]", 
   RowBox[{"Antidual", "[", "g", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.944836355543798*^9, 3.944836356650734*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"28ff46de-1c48-4f8c-aa10-5d67ce0ed2c0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gx", " ", "lmx"}], "+", 
      RowBox[{"gy", " ", "lmy"}], "+", 
      RowBox[{"gz", " ", "lmz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gx", " ", "lvy"}], "-", 
      RowBox[{"gy", " ", "lvx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gy", " ", "lvz"}], "-", 
      RowBox[{"gz", " ", "lvy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gz", " ", "lvx"}], "-", 
      RowBox[{"gx", " ", "lvz"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448363571657662`*^9, 3.9448452593919106`*^9, 
  3.944937665300893*^9, 3.9449597407576294`*^9},
 CellLabel->
  "Out[68]//TraditionalForm=",ExpressionUUID->"6fd22313-892a-44b7-92f6-\
2a7a0a069de5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand round point onto circle", "Subsection",
 CellChangeTimes->{{3.9448363657868667`*^9, 
  3.944836367435789*^9}},ExpressionUUID->"2b9d3e18-cc8c-4a11-ab51-\
f8a11043270e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", 
   RowBox[{"Antidual", "[", "c", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448363694773674`*^9, 3.944836371037632*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"da068a66-4d38-40f3-9dcf-7d54663faf2e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "cvz"}]}], "-", 
      RowBox[{"ax", " ", "cmy"}], "+", 
      RowBox[{"ay", " ", "cmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "cvx"}]}], "-", 
      RowBox[{"ay", " ", "cmz"}], "+", 
      RowBox[{"az", " ", "cmy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "cvy"}]}], "+", 
      RowBox[{"ax", " ", "cmz"}], "-", 
      RowBox[{"az", " ", "cmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"321\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "cvx"}], "+", 
      RowBox[{"ay", " ", "cvy"}], "+", 
      RowBox[{"az", " ", "cvz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"412\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "cvz"}]}], "+", 
      RowBox[{"ax", " ", "cgy"}], "-", 
      RowBox[{"ay", " ", "cgx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "cgx"}]}], "-", 
      RowBox[{"aw", " ", "cmx"}], "-", 
      RowBox[{"ax", " ", "cgw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"423\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "cvx"}]}], "+", 
      RowBox[{"ay", " ", "cgz"}], "-", 
      RowBox[{"az", " ", "cgy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "cgy"}]}], "-", 
      RowBox[{"aw", " ", "cmy"}], "-", 
      RowBox[{"ay", " ", "cgw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"431\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "cvy"}]}], "-", 
      RowBox[{"ax", " ", "cgz"}], "+", 
      RowBox[{"az", " ", "cgx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "cgz"}]}], "-", 
      RowBox[{"aw", " ", "cmz"}], "-", 
      RowBox[{"az", " ", "cgw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944836371797757*^9, 3.944845259414933*^9, 
  3.944937665327403*^9, 3.944959740782835*^9},
 CellLabel->
  "Out[69]//TraditionalForm=",ExpressionUUID->"3ab94885-65e9-4c6a-b571-\
7e248017a6cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "2", ",", "1", ",", "1"}], "]"}]}], ",", 
       RowBox[{"cir", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "r", ",", "x", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawCircle", "[", "cir", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawCircle", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "cir", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944836379889241*^9, 3.9448363842728*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"2e6b01b0-4638-4eb4-8b9f-203335f7d039"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`RoundPoint[0, 0, 2, 1, 1], $CellContext`cir = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, $CellContext`x$$, 0,
            0, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawCircle[$CellContext`cir], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawCircle[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`cir]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944836387801076*^9, 3.944845259436448*^9, 
  3.944937665350416*^9, 3.944959740801882*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"36ae6d95-c833-40dd-b671-3b99666e2797"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand round point onto line", "Subsection",
 CellChangeTimes->{{3.944836404383173*^9, 
  3.9448364077478943`*^9}},ExpressionUUID->"33346389-7c40-4339-973d-\
db6bf79f2686"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", 
   RowBox[{"Antidual", "[", "l", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944836412336423*^9},
 CellLabel->"In[71]:=",ExpressionUUID->"79b66f54-8f65-40c2-8a58-08db29870b01"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "lvz"}]}], "-", 
      RowBox[{"ax", " ", "lmy"}], "+", 
      RowBox[{"ay", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "lvx"}]}], "-", 
      RowBox[{"ay", " ", "lmz"}], "+", 
      RowBox[{"az", " ", "lmy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "lvy"}]}], "+", 
      RowBox[{"ax", " ", "lmz"}], "-", 
      RowBox[{"az", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"321\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ax", " ", "lvx"}], "+", 
      RowBox[{"ay", " ", "lvy"}], "+", 
      RowBox[{"az", " ", "lvz"}]}], ")"}]}], "-", 
   RowBox[{"aw", " ", "lvz", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"412\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"aw", " ", "lmx", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"415\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"aw", " ", "lvx", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"423\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"aw", " ", "lmy", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"425\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"aw", " ", "lvy", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"431\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"aw", " ", "lmz", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"435\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448364125795403`*^9, 3.9448452595043564`*^9, 
  3.944937665433461*^9, 3.9449597408674154`*^9},
 CellLabel->
  "Out[71]//TraditionalForm=",ExpressionUUID->"0ba048be-38e2-4179-854b-\
5b657d86cc0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "r"}], "]"}]}], ",", 
       RowBox[{"cir", "=", 
        RowBox[{"FlatLine", "[", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "x"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawLine", "[", "cir", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawCircle", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "cir", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2.2"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944836419588189*^9, 3.9448364419242973`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"66aca54c-ade4-4564-9385-b00f9f4f8241"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 2.2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2.2}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 2.2}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`RoundPoint[
          0, 0, 1, 1, $CellContext`r$$], $CellContext`cir = 
         ConformalAlgebra3D`FlatLine[0, 1, 0, 0, 0, $CellContext`x$$]}, 
        Show[
         ConformalAlgebra3D`DrawLine[$CellContext`cir], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawCircle[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`cir]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2.2}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.9448364224732103`*^9, 3.944836443208186*^9}, 
   3.944845259526873*^9, 3.944937665455476*^9, 3.944959740887925*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"67b256d9-c16e-486e-9850-451a3b2a1a9a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand flat point onto circle", "Subsection",
 CellChangeTimes->{{3.9448364629875145`*^9, 
  3.944836466256419*^9}},ExpressionUUID->"ab1f3419-0d8f-4792-8967-\
2e5eab30beb6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "\[And]", 
   RowBox[{"Antidual", "[", "c", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.944836468473982*^9, 3.9448364698780212`*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"df2abe91-2de0-42e3-b9d2-dfe6b219ac27"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cvx", " ", "px"}], "+", 
      RowBox[{"cvy", " ", "py"}], "+", 
      RowBox[{"cvz", " ", "pz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgx", " ", "py"}]}], "+", 
      RowBox[{"cgy", " ", "px"}], "-", 
      RowBox[{"cvz", " ", "pw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"cgy", " ", "pz"}]}], "+", 
      RowBox[{"cgz", " ", "py"}], "-", 
      RowBox[{"cvx", " ", "pw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgx", " ", "pz"}], "-", 
      RowBox[{"cgz", " ", "px"}], "-", 
      RowBox[{"cvy", " ", "pw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944836470338441*^9, 3.944845259578896*^9, 
  3.9449376655090075`*^9, 3.9449597409379463`*^9},
 CellLabel->
  "Out[73]//TraditionalForm=",ExpressionUUID->"ff0faca6-fa47-448c-86c4-\
77802f5f7c7a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"FlatPoint", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", 
          RowBox[{"-", "1"}]}], "]"}]}], ",", 
       RowBox[{"cir", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "r", ",", "x", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawCircle", "[", "cir", "]"}], ",", 
       RowBox[{"DrawFlatPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawPlane", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "cir", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.94483647872733*^9, 3.9448364891781344`*^9}, {
  3.9448365416788187`*^9, 3.944836547140561*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"7a834771-1fc8-41a8-ad8b-6b3027fbb45e"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`FlatPoint[-1, 0, -1], $CellContext`cir = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, $CellContext`x$$, 0,
            0, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawCircle[$CellContext`cir], 
         ConformalAlgebra3D`DrawFlatPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawPlane[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`cir]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.9448365493694515`*^9, 3.9448452596013436`*^9, 
  3.944937665529519*^9, 3.9449597409559555`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"f8b3fe09-f194-48ec-bcb8-914c43dc2938"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand flat point onto line", "Subsection",
 CellChangeTimes->{{3.9448365887961683`*^9, 
  3.9448365916631565`*^9}},ExpressionUUID->"e22859b4-66a0-41cb-bef0-\
87b13313897e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "\[And]", 
   RowBox[{"Antidual", "[", "l", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448365936378174`*^9, 3.9448365963806095`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"62d96456-3010-47ea-8b1d-41a2bfc38ca8"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lvx", " ", "px"}], "+", 
      RowBox[{"lvy", " ", "py"}], "+", 
      RowBox[{"lvz", " ", "pz"}]}], ")"}]}], "-", 
   RowBox[{"lvz", " ", "pw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"lvx", " ", "pw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "-", 
   RowBox[{"lvy", " ", "pw", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448365969260006`*^9, 3.944845259652382*^9, 
  3.944937665582546*^9, 3.9449597410044813`*^9},
 CellLabel->
  "Out[75]//TraditionalForm=",ExpressionUUID->"f31859bf-5fe1-4ac9-80b8-\
8be293e3cffe"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand dipole onto circle", "Subsection",
 CellChangeTimes->{{3.9448366047992086`*^9, 
  3.9448366077192907`*^9}},ExpressionUUID->"f264de0b-0b84-4343-ad26-\
0e7139334930"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", 
   RowBox[{"Antidual", "[", "c", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{3.944836610871566*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"83301ad0-efd5-40b9-90ad-240af066e21a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgx", " ", "dmx"}], "+", 
      RowBox[{"cgy", " ", "dmy"}], "+", 
      RowBox[{"cgz", " ", "dmz"}], "+", 
      RowBox[{"cvx", " ", "dvx"}], "+", 
      RowBox[{"cvy", " ", "dvy"}], "+", 
      RowBox[{"cvz", " ", "dvz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cmx", " ", "dmx"}], "+", 
      RowBox[{"cmy", " ", "dmy"}], "+", 
      RowBox[{"cmz", " ", "dmz"}], "+", 
      RowBox[{"cvx", " ", "dpx"}], "+", 
      RowBox[{"cvy", " ", "dpy"}], "+", 
      RowBox[{"cvz", " ", "dpz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "dmz"}], "-", 
      RowBox[{"cgx", " ", "dpy"}], "+", 
      RowBox[{"cgy", " ", "dpx"}], "+", 
      RowBox[{"cmx", " ", "dvy"}], "-", 
      RowBox[{"cmy", " ", "dvx"}], "-", 
      RowBox[{"cvz", " ", "dpw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "dmx"}], "-", 
      RowBox[{"cgy", " ", "dpz"}], "+", 
      RowBox[{"cgz", " ", "dpy"}], "+", 
      RowBox[{"cmy", " ", "dvz"}], "-", 
      RowBox[{"cmz", " ", "dvy"}], "-", 
      RowBox[{"cvx", " ", "dpw"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cgw", " ", "dmy"}], "+", 
      RowBox[{"cgx", " ", "dpz"}], "-", 
      RowBox[{"cgz", " ", "dpx"}], "-", 
      RowBox[{"cmx", " ", "dvz"}], "+", 
      RowBox[{"cmz", " ", "dvx"}], "-", 
      RowBox[{"cvy", " ", "dpw"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448366110834026`*^9, 3.9448452596734486`*^9, 
  3.944937665606062*^9, 3.94495974102749*^9},
 CellLabel->
  "Out[76]//TraditionalForm=",ExpressionUUID->"6b69cf14-bc51-416d-8337-\
da48bdde418e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"cir", "=", 
        RowBox[{"RoundCircle", "[", 
         RowBox[{
         "r", ",", "x", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawCircle", "[", "cir", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"dip", "\[And]", 
         RowBox[{"Antidual", "[", "cir", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9448366203574996`*^9, 3.9448366245202284`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"b9161b5a-be5c-4454-b4d0-abe7aed866e3"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[
          1, 0, 0, 0, 0, 0, 1], $CellContext`cir = 
         ConformalAlgebra3D`RoundCircle[$CellContext`r$$, $CellContext`x$$, 0,
            0, 0, 1, 0]}, 
        Show[
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawCircle[$CellContext`cir], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`dip, 
           ConformalAlgebra3D`Antidual[$CellContext`cir]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944836625189266*^9, 3.9448452596959686`*^9, 
  3.9449376656370783`*^9, 3.9449597410474997`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"1c003445-e793-4c2e-bcf4-164561bcec8c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand dipole onto line", "Subsection",
 CellChangeTimes->{{3.944836639580432*^9, 
  3.944836642198656*^9}},ExpressionUUID->"36489c95-62d4-455c-8f6a-\
f3f8d8e6b796"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "\[And]", 
   RowBox[{"Antidual", "[", "l", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448366441853*^9, 3.9448366452274647`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"e2b56927-4861-411e-b81d-b8f179453379"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dvx", " ", "lvx"}], "+", 
      RowBox[{"dvy", " ", "lvy"}], "+", 
      RowBox[{"dvz", " ", "lvz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dmx", " ", "lmx"}], "+", 
      RowBox[{"dmy", " ", "lmy"}], "+", 
      RowBox[{"dmz", " ", "lmz"}], "+", 
      RowBox[{"dpx", " ", "lvx"}], "+", 
      RowBox[{"dpy", " ", "lvy"}], "+", 
      RowBox[{"dpz", " ", "lvz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "lvz"}]}], "-", 
      RowBox[{"dvx", " ", "lmy"}], "+", 
      RowBox[{"dvy", " ", "lmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "lvx"}]}], "-", 
      RowBox[{"dvy", " ", "lmz"}], "+", 
      RowBox[{"dvz", " ", "lmy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"dpw", " ", "lvy"}]}], "+", 
      RowBox[{"dvx", " ", "lmz"}], "-", 
      RowBox[{"dvz", " ", "lmx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.944836645716673*^9, 3.9448452597487307`*^9, 
  3.944937665688734*^9, 3.9449597410975227`*^9},
 CellLabel->
  "Out[78]//TraditionalForm=",ExpressionUUID->"83bd7bd5-db82-45a2-a899-\
99e79382c6a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}], ",", 
       RowBox[{"cir", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}], 
            RowBox[{"e", "[", "2", "]"}]}], "+", 
           RowBox[{
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], 
            RowBox[{"e", "[", "3", "]"}]}]}], ")"}], "\[And]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", " ", 
            RowBox[{"e", "[", 
             RowBox[{"1", ",", "5"}], "]"}]}], "+", 
           RowBox[{"e", "[", 
            RowBox[{"4", ",", "5"}], "]"}]}], ")"}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawLine", "[", "cir", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"dip", "\[And]", 
         RowBox[{"Antidual", "[", "cir", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2.5"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}], ",", 
     RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9448366521627684`*^9, 3.9448366531962996`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"c7939f29-e696-4822-9f55-b463c10e7822"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 2.5, $CellContext`\[CurlyPhi]$$ = 
    Rational[1, 2] Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2.5}, -2, 5}, {{
       Hold[$CellContext`\[CurlyPhi]$$], Rational[1, 2] Pi}, -Pi, Pi}}, 
    Typeset`size$$ = {360., {178., 182.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`x$$ = 2.5, $CellContext`\[CurlyPhi]$$ = 
        Rational[1, 2] Pi}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[
          1, 0, 0, 0, 0, 0, 1], $CellContext`cir = 
         ConformalAlgebra3D`WedgeProduct[
          Cos[$CellContext`\[CurlyPhi]$$] ConformalAlgebra3D`e[2] + 
           Sin[$CellContext`\[CurlyPhi]$$] 
            ConformalAlgebra3D`e[3], $CellContext`x$$ 
            ConformalAlgebra3D`e[1, 5] + ConformalAlgebra3D`e[4, 5]]}, 
        Show[
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawLine[$CellContext`cir], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`dip, 
           ConformalAlgebra3D`Antidual[$CellContext`cir]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2.5}, -2, 
         5}, {{$CellContext`\[CurlyPhi]$$, Rational[1, 2] Pi}, -Pi, Pi}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944836655990712*^9, 3.9448452597717447`*^9, 
  3.9449376657107444`*^9, 3.9449597411170335`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"1d0b792a-c685-4a9e-83e7-52be1a168e80"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand round point onto dipole", "Subsection",
 CellChangeTimes->{{3.9448366751031337`*^9, 
  3.944836678291832*^9}},ExpressionUUID->"9e1c087b-26cf-4244-aec9-\
c5c4114e0248"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", 
   RowBox[{"Antidual", "[", "d", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448366801691217`*^9, 3.944836681295767*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"787948e2-490a-4990-b54d-702ab99985cb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"1234\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"aw", " ", "dpw"}]}], "+", 
      RowBox[{"ax", " ", "dvx"}], "+", 
      RowBox[{"ay", " ", "dvy"}], "+", 
      RowBox[{"az", " ", "dvz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "dpw"}], "-", 
      RowBox[{"ax", " ", "dpx"}], "-", 
      RowBox[{"ay", " ", "dpy"}], "-", 
      RowBox[{"az", " ", "dpz"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "dvz"}]}], "+", 
      RowBox[{"aw", " ", "dpz"}], "-", 
      RowBox[{"ax", " ", "dmy"}], "+", 
      RowBox[{"ay", " ", "dmx"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "dvx"}]}], "+", 
      RowBox[{"aw", " ", "dpx"}], "-", 
      RowBox[{"ay", " ", "dmz"}], "+", 
      RowBox[{"az", " ", "dmy"}]}], ")"}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"au", " ", "dvy"}]}], "+", 
      RowBox[{"aw", " ", "dpy"}], "+", 
      RowBox[{"ax", " ", "dmz"}], "-", 
      RowBox[{"az", " ", "dmx"}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448366817910185`*^9, 3.9448452598202767`*^9, 
  3.944937665758443*^9, 3.944959741272606*^9},
 CellLabel->
  "Out[80]//TraditionalForm=",ExpressionUUID->"1b8b83ce-3b01-4ed1-81a9-\
a88c4148d416"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0.5"}], "]"}]}], 
       ",", 
       RowBox[{"dip", "=", 
        RowBox[{"RoundDipole", "[", 
         RowBox[{
         "r", ",", "x", ",", "0", ",", "2", ",", "0", ",", "0", ",", "1"}], 
         "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawDipole", "[", "dip", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "dip", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.944836691138452*^9, 3.9448366968615646`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"97c0c2f9-090b-4ac2-bc27-014a72216825"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 4, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 4}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 4}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`RoundPoint[0, 0, 0, 1, 0.5], $CellContext`dip = 
         ConformalAlgebra3D`RoundDipole[$CellContext`r$$, $CellContext`x$$, 0,
            2, 0, 0, 1]}, 
        Show[
         ConformalAlgebra3D`DrawDipole[$CellContext`dip], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`dip]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 4}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.944836697232895*^9, 3.944845259842786*^9, 
  3.9449376657864604`*^9, 3.9449597412916245`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"1cc3abc8-430f-4c04-8a9a-03812ef4a48a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expand round point onto flat point", "Subsection",
 CellChangeTimes->{{3.9448367218012104`*^9, 
  3.944836724603549*^9}},ExpressionUUID->"d9c9ab81-6496-4ad1-837a-\
4431a7d938bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[And]", 
   RowBox[{"Antidual", "[", "p", "]"}]}], "//", "BasisForm"}]], "Input",
 CellChangeTimes->{{3.9448367266780148`*^9, 3.944836727765039*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"88f426cc-90a8-4815-b00d-938f32f5bea8"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{"aw", " ", "pw", " ", 
     FormBox[
      TagBox[
       SubscriptBox[
        StyleBox["\<\"e\"\>",
         StripOnInput->False,
         FontFamily->"Times New Roman",
         FontSize->16,
         FontWeight->Bold], 
        StyleBox["\<\"1234\"\>",
         StripOnInput->False,
         FontFamily->"Times New Roman",
         FontSize->9]],
       DisplayForm],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"3215\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"au", " ", "pw"}], "-", 
      RowBox[{"ax", " ", "px"}], "-", 
      RowBox[{"ay", " ", "py"}], "-", 
      RowBox[{"az", " ", "pz"}]}], ")"}]}], "+", 
   RowBox[{"aw", " ", "pz", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4125\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"aw", " ", "px", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4235\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}], "+", 
   RowBox[{"aw", " ", "py", " ", 
    FormBox[
     TagBox[
      SubscriptBox[
       StyleBox["\<\"e\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->16,
        FontWeight->Bold], 
       StyleBox["\<\"4315\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->9]],
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.9448367282587924`*^9, 3.9448452598873067`*^9, 
  3.9449376658330483`*^9, 3.9449597413376627`*^9},
 CellLabel->
  "Out[82]//TraditionalForm=",ExpressionUUID->"5e8cefc1-3896-4c0b-a7f0-\
9979be4603f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pnt", "=", 
        RowBox[{"RoundPoint", "[", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "r"}], "]"}]}], ",", 
       RowBox[{"dip", "=", 
        RowBox[{"FlatPoint", "[", 
         RowBox[{"x", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"DrawFlatPoint", "[", "dip", "]"}], ",", 
       RowBox[{"DrawRoundPoint", "[", "pnt", "]"}], ",", 
       RowBox[{"DrawSphere", "[", 
        RowBox[{"pnt", "\[And]", 
         RowBox[{"Antidual", "[", "dip", "]"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Boxed", "->", "False"}], ",", 
       RowBox[{"Axes", "->", "False"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"20", "\[Degree]"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "2.5"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1"}], "}"}], ",", "0", ",", "6"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9448367422118845`*^9, 3.944836775868851*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"c2795863-02d5-4af2-917c-99b3cd3e5dbc"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 1, $CellContext`x$$ = 2.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x$$], 2.5}, -2, 5}, {{
       Hold[$CellContext`r$$], 1}, 0, 6}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1, $CellContext`x$$ = 2.5}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`pnt = 
         ConformalAlgebra3D`RoundPoint[
          0, 0, 0, 1, $CellContext`r$$], $CellContext`dip = 
         ConformalAlgebra3D`FlatPoint[$CellContext`x$$, 0, 0]}, 
        Show[
         ConformalAlgebra3D`DrawFlatPoint[$CellContext`dip], 
         ConformalAlgebra3D`DrawRoundPoint[$CellContext`pnt], 
         ConformalAlgebra3D`DrawSphere[
          ConformalAlgebra3D`WedgeProduct[$CellContext`pnt, 
           ConformalAlgebra3D`Antidual[$CellContext`dip]]], 
         PlotRange -> {{-2, 8}, {-3, 3}, {-3, 3}}, Boxed -> False, Axes -> 
         False, ViewAngle -> 20 Degree]], 
      "Specifications" :> {{{$CellContext`x$$, 2.5}, -2, 
         5}, {{$CellContext`r$$, 1}, 0, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {233.134033203125, 238.865966796875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.944836750950621*^9, 3.944836778656782*^9}, 
   3.944845259910331*^9, 3.9449376658540583`*^9, 3.944959741352667*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"a952fb5e-461b-495e-9f39-8619cc4154be"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1635, 970},
WindowMargins->{{Automatic, 84.5}, {-4.5, Automatic}},
Magnification:>1. Inherited,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f8d2bb3-dffd-47c2-9108-1016619334ad"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 512, 9, 28, "Input",ExpressionUUID->"a7d79b4c-8ac3-49dc-931a-f2ce114ed620"],
Cell[1073, 31, 563, 16, 28, "Input",ExpressionUUID->"bd61b23e-b47f-46f0-bb3f-56c48aa7a131"],
Cell[1639, 49, 562, 16, 28, "Input",ExpressionUUID->"fb8495f8-a6b0-44aa-864c-890354895ce4"],
Cell[2204, 67, 813, 22, 28, "Input",ExpressionUUID->"0242acc9-3e30-4ba5-bf45-84b06ccd993b"],
Cell[3020, 91, 813, 22, 28, "Input",ExpressionUUID->"47d937f7-312b-464f-98de-561641cbde5e"],
Cell[3836, 115, 645, 16, 28, "Input",ExpressionUUID->"bd1c64b0-a7c3-4895-bab2-8001fd704f29"],
Cell[4484, 133, 642, 16, 28, "Input",ExpressionUUID->"2706d749-162f-4dbf-882d-d41e26ae5cd0"],
Cell[5129, 151, 456, 13, 28, "Input",ExpressionUUID->"397fd500-3ab5-4414-9a13-83a863d6ab5b"],
Cell[5588, 166, 456, 13, 28, "Input",ExpressionUUID->"1a51dbba-880e-4c16-8ebf-4f74329c6234"],
Cell[6047, 181, 1052, 33, 28, "Input",ExpressionUUID->"8812e8c5-3c0a-4182-b26b-2051604241bf"],
Cell[7102, 216, 1052, 33, 28, "Input",ExpressionUUID->"5744a901-bb53-4c52-b554-b433a9c5023c"],
Cell[8157, 251, 1152, 33, 28, "Input",ExpressionUUID->"5adbc090-07d9-4035-87e6-be50237e5692"],
Cell[9312, 286, 1152, 33, 28, "Input",ExpressionUUID->"4b54ab04-84b3-4ba8-acd4-222fd328dbfa"],
Cell[10467, 321, 687, 18, 28, "Input",ExpressionUUID->"3790c46f-3bf9-4a59-9eda-3cce189dc542"],
Cell[11157, 341, 687, 18, 28, "Input",ExpressionUUID->"73eb1068-4f56-458f-bea0-24591e4a8d1c"],
Cell[CellGroupData[{
Cell[11869, 363, 160, 3, 67, "Section",ExpressionUUID->"a0ceac80-4dd7-4a0f-831c-3dfa5e4432fe"],
Cell[CellGroupData[{
Cell[12054, 370, 171, 3, 54, "Subsection",ExpressionUUID->"f0115398-a80c-4a99-9ddb-69a4d9591cb4"],
Cell[CellGroupData[{
Cell[12250, 377, 235, 4, 28, "Input",ExpressionUUID->"108893ac-1add-4cfa-a54c-ba81d7cb4e06"],
Cell[12488, 383, 5260, 197, 44, "Output",ExpressionUUID->"cfd23bb8-0a56-460d-a173-7f4aa787e372"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17785, 585, 1722, 48, 67, "Input",ExpressionUUID->"c1a2515f-9904-4f69-9ca8-de1ab7b5c16a"],
Cell[19510, 635, 2414, 49, 491, "Output",ExpressionUUID->"9127b73b-ba11-4458-b83e-9f9deeb73fef"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21973, 690, 111, 0, 54, "Subsection",ExpressionUUID->"40a501f7-dce4-431e-9a9f-8be0ac5c861c"],
Cell[CellGroupData[{
Cell[22109, 694, 209, 4, 28, "Input",ExpressionUUID->"cc3c9d54-f9b5-47d3-b76d-778694202861"],
Cell[22321, 700, 3261, 121, 44, "Output",ExpressionUUID->"c7b8f80f-6f3a-4a5c-a927-b9c0b8e0b755"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25631, 827, 178, 3, 54, "Subsection",ExpressionUUID->"5de58225-37f1-4093-b925-407c7f234177"],
Cell[CellGroupData[{
Cell[25834, 834, 209, 4, 28, "Input",ExpressionUUID->"df80e6fb-3948-431b-894f-a221aa8b19c2"],
Cell[26046, 840, 5692, 208, 62, "Output",ExpressionUUID->"b5dcba02-7d4e-440d-98ab-302d2fb23867"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31775, 1053, 2160, 56, 86, "Input",ExpressionUUID->"4d214a2e-63fc-4499-81df-636788817dbb"],
Cell[33938, 1111, 2893, 57, 491, "Output",ExpressionUUID->"bb0ce24f-70fa-407d-9b1a-4911d443a2bb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36880, 1174, 106, 0, 54, "Subsection",ExpressionUUID->"033fd2c4-b93d-4994-84b8-7bec6bc0960a"],
Cell[CellGroupData[{
Cell[37011, 1178, 207, 4, 28, "Input",ExpressionUUID->"4368b40c-5e27-4951-b8f4-78de78dd8097"],
Cell[37221, 1184, 2458, 88, 44, "Output",ExpressionUUID->"df72ade5-868a-44b9-aaf2-779adf6d1ecf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39728, 1278, 178, 3, 54, "Subsection",ExpressionUUID->"9a78a5e2-c80d-43db-b407-e914d7c7b189"],
Cell[CellGroupData[{
Cell[39931, 1285, 209, 4, 28, "Input",ExpressionUUID->"81c509e0-1d5b-4e0a-b1ef-7fa5f69d95c8"],
Cell[40143, 1291, 2502, 90, 44, "Output",ExpressionUUID->"306b9cb9-33eb-4cbb-805f-597106c992d7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42694, 1387, 182, 3, 54, "Subsection",ExpressionUUID->"3d76248f-0249-4916-8665-5a95d7199fc4"],
Cell[CellGroupData[{
Cell[42901, 1394, 209, 4, 28, "Input",ExpressionUUID->"f402bcc8-73ce-4f4c-bb88-a16c233d4509"],
Cell[43113, 1400, 3198, 113, 44, "Output",ExpressionUUID->"71dd2b4c-0d2f-4da7-bb10-2c6bf5709052"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46348, 1518, 1694, 47, 67, "Input",ExpressionUUID->"01995092-e30c-41da-81b4-733b159efbc4"],
Cell[48045, 1567, 2360, 47, 491, "Output",ExpressionUUID->"031387b7-358b-4ad0-a8b0-063aea47e15b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50454, 1620, 96, 0, 54, "Subsection",ExpressionUUID->"e1032aaf-c6e0-4e77-8f08-b091cabecb39"],
Cell[CellGroupData[{
Cell[50575, 1624, 207, 4, 28, "Input",ExpressionUUID->"43195e83-9491-40c8-a2d1-86c615e878fd"],
Cell[50785, 1630, 3655, 124, 62, "Output",ExpressionUUID->"91609bd2-2ad1-487d-94fa-85f7ebe5e6b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54477, 1759, 1731, 49, 67, "Input",ExpressionUUID->"49067b85-4bc9-4e44-82b4-452c65750d18"],
Cell[56211, 1810, 2335, 47, 491, "Output",ExpressionUUID->"c1491356-74c6-4aba-bc0e-7f7c76c394b1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[58595, 1863, 95, 0, 54, "Subsection",ExpressionUUID->"f0b6fe72-a4dd-480d-b89c-cc6f016b68b1"],
Cell[CellGroupData[{
Cell[58715, 1867, 208, 4, 28, "Input",ExpressionUUID->"71975030-8ee9-441f-a1ba-3f12b31b6427"],
Cell[58926, 1873, 3257, 121, 44, "Output",ExpressionUUID->"f7a7f362-8462-43e3-95e6-93d8deb013e3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[62232, 2000, 99, 0, 54, "Subsection",ExpressionUUID->"f3e4d2b0-3b98-49e1-88f5-84167d97f722"],
Cell[CellGroupData[{
Cell[62356, 2004, 208, 4, 28, "Input",ExpressionUUID->"7de30c5a-3950-4be5-870c-03653046fcef"],
Cell[62567, 2010, 2454, 88, 44, "Output",ExpressionUUID->"497ebd7e-5815-40ba-b05c-bc95db666b91"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[65070, 2104, 96, 0, 54, "Subsection",ExpressionUUID->"8c19b77e-66a6-46c6-a7f1-7dc21ad32aa4"],
Cell[CellGroupData[{
Cell[65191, 2108, 206, 4, 28, "Input",ExpressionUUID->"f0178fb8-240c-4cef-bc2d-b6b2329a420f"],
Cell[65400, 2114, 5245, 197, 44, "Output",ExpressionUUID->"c949cb10-fe5c-44c9-b1e2-4cd187f67fb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70682, 2316, 1606, 43, 67, "Input",ExpressionUUID->"5a0580e2-0350-4a35-adbe-600f469bf607"],
Cell[72291, 2361, 2310, 46, 467, "Output",ExpressionUUID->"cff3238a-6d47-487c-bd3b-88b0ce01f89e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74638, 2412, 1723, 47, 67, "Input",ExpressionUUID->"99acede1-d0bc-4856-a715-c62121f4888a"],
Cell[76364, 2461, 2503, 52, 467, "Output",ExpressionUUID->"f39f4681-870f-4412-bb72-931f9c9ab053"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78904, 2518, 1587, 44, 67, "Input",ExpressionUUID->"33a38129-e766-4b5f-af40-3564ebc608d5"],
Cell[80494, 2564, 2304, 46, 467, "Output",ExpressionUUID->"8c2f2faa-6a6c-462d-b834-a9183cedadb1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[82847, 2616, 101, 0, 54, "Subsection",ExpressionUUID->"e9ddbedb-807b-4ec1-ad9c-504ed52b9ea9"],
Cell[CellGroupData[{
Cell[82973, 2620, 230, 4, 28, "Input",ExpressionUUID->"1eda2bc0-c4cd-4fc2-96b8-d5b9d5282d99"],
Cell[83206, 2626, 4859, 181, 44, "Output",ExpressionUUID->"93488e80-e3d0-4d2c-9132-df3bec4f4eb9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88102, 2812, 1595, 43, 48, "Input",ExpressionUUID->"14302f66-1553-46bd-a60b-800dfae62116"],
Cell[89700, 2857, 2233, 43, 467, "Output",ExpressionUUID->"3e38dad9-9e67-4314-a6d8-f5aea782fe19"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91982, 2906, 102, 0, 54, "Subsection",ExpressionUUID->"3387bb0c-5644-412b-9244-833941b4974d"],
Cell[CellGroupData[{
Cell[92109, 2910, 206, 4, 28, "Input",ExpressionUUID->"b80f2fa2-ba72-4b8f-b138-e012480b1336"],
Cell[92318, 2916, 5814, 214, 62, "Output",ExpressionUUID->"6de697bf-4226-4f16-8a76-092bc26694ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98169, 3135, 1904, 51, 67, "Input",ExpressionUUID->"530b6ab4-8a99-4a84-b592-d44f3c3dad5d"],
Cell[100076, 3188, 2618, 52, 515, "Output",ExpressionUUID->"f5b92d7b-678b-44b5-b0d5-5c9aef9e0b02"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[102743, 3246, 100, 0, 54, "Subsection",ExpressionUUID->"8fcb7771-44fb-49ad-ad14-721ee20c1b6c"],
Cell[CellGroupData[{
Cell[102868, 3250, 206, 4, 28, "Input",ExpressionUUID->"95db12e7-0d72-4053-9402-c7078c42208e"],
Cell[103077, 3256, 4877, 179, 44, "Output",ExpressionUUID->"f3cbb5ed-6937-434b-baab-e12d70d6f974"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[108003, 3441, 102, 0, 54, "Subsection",ExpressionUUID->"15212fba-e0e5-4d70-a207-9438762f5724"],
Cell[CellGroupData[{
Cell[108130, 3445, 208, 4, 28, "Input",ExpressionUUID->"dde37d66-166f-43c5-8954-1b0b87ce99d3"],
Cell[108341, 3451, 3226, 115, 44, "Output",ExpressionUUID->"8de80135-bdc5-4d54-9b96-02de3006a36d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111604, 3571, 1698, 48, 67, "Input",ExpressionUUID->"62dbd353-a52c-43db-8170-ff4c2abafd09"],
Cell[113305, 3621, 2350, 48, 491, "Output",ExpressionUUID->"0d7cafbe-6dbb-494e-8a37-e777dba69333"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115704, 3675, 179, 3, 54, "Subsection",ExpressionUUID->"6f07702e-6ec6-4a88-ab3c-1b91584ee310"],
Cell[CellGroupData[{
Cell[115908, 3682, 232, 4, 28, "Input",ExpressionUUID->"0dadb8f6-fc98-4570-98b8-25a80226d13a"],
Cell[116143, 3688, 2465, 89, 44, "Output",ExpressionUUID->"cb987364-e474-4298-922a-d01600c54291"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118645, 3782, 1635, 46, 67, "Input",ExpressionUUID->"69c3cef3-82db-449c-985f-a7df42b57761"],
Cell[120283, 3830, 2336, 48, 491, "Output",ExpressionUUID->"ed6c46b6-e39c-4b54-82a1-e731a5eeda52"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[122668, 3884, 101, 0, 54, "Subsection",ExpressionUUID->"aa6981a0-1eaa-4533-8474-8c40d0271631"],
Cell[CellGroupData[{
Cell[122794, 3888, 230, 4, 28, "Input",ExpressionUUID->"feeac765-11d6-4694-bcca-f4a9a8cbc0c2"],
Cell[123027, 3894, 5459, 203, 44, "Output",ExpressionUUID->"71a0d95d-63a4-4e27-bfbc-80b96e0f5c0c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[128535, 4103, 96, 0, 54, "Subsection",ExpressionUUID->"85ec0ea9-0f60-4905-a4ad-16249ec1f438"],
Cell[CellGroupData[{
Cell[128656, 4107, 206, 4, 28, "Input",ExpressionUUID->"5689e500-5934-406c-93d1-c9218da61693"],
Cell[128865, 4113, 3640, 124, 62, "Output",ExpressionUUID->"9c02865f-9918-422d-940d-53ebd9011bf5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132542, 4242, 1983, 55, 67, "Input",ExpressionUUID->"90b3f1b8-477f-417c-94bd-cf8fddcf56bd"],
Cell[134528, 4299, 2579, 52, 491, "Output",ExpressionUUID->"d1816913-f306-4cc4-b489-6000c75003ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137144, 4356, 2058, 56, 67, "Input",ExpressionUUID->"bd1e2b9a-8840-47fa-ba0d-54a233da0bf7"],
Cell[139205, 4414, 2710, 52, 451, "Output",ExpressionUUID->"97d136e4-d8fa-4788-a8b0-67212aa82d84"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[141964, 4472, 100, 0, 54, "Subsection",ExpressionUUID->"2bf6ca2b-5184-42dd-8c50-33bd99c2ae1e"],
Cell[CellGroupData[{
Cell[142089, 4476, 234, 4, 28, "Input",ExpressionUUID->"50003458-8ed5-41c3-ae7d-16889d0a5d6d"],
Cell[142326, 4482, 3146, 112, 44, "Output",ExpressionUUID->"840c1937-6101-4071-8cd4-9031273d8b70"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145509, 4599, 1793, 51, 67, "Input",ExpressionUUID->"a8ff138e-9a12-4240-af29-1a3065e90d7c"],
Cell[147305, 4652, 2383, 48, 491, "Output",ExpressionUUID->"55523d26-8f84-4efc-a102-5fdb047097f3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[149737, 4706, 94, 0, 54, "Subsection",ExpressionUUID->"67412d82-f4dc-4cb1-86d5-d818f8c101ac"],
Cell[CellGroupData[{
Cell[149856, 4710, 232, 4, 28, "Input",ExpressionUUID->"3d775a61-229e-498c-82ea-975e6034db65"],
Cell[150091, 4716, 926, 30, 44, "Output",ExpressionUUID->"6a64a222-f47b-4103-aa57-b217eeb108a5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[151066, 4752, 176, 3, 54, "Subsection",ExpressionUUID->"f5ed03b5-a492-4919-9db3-1649e1c4a3a7"],
Cell[CellGroupData[{
Cell[151267, 4759, 208, 4, 28, "Input",ExpressionUUID->"c7d202fa-2197-4d6b-bbca-d5511f569278"],
Cell[151478, 4765, 3069, 111, 44, "Output",ExpressionUUID->"4c98a136-b9f8-4253-beb6-24470d9b553d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154584, 4881, 1710, 49, 67, "Input",ExpressionUUID->"615f91a9-02e8-4771-be48-1325f6d7b4a7"],
Cell[156297, 4932, 2365, 48, 491, "Output",ExpressionUUID->"d71ac0be-9722-4035-bccd-d07274ba3471"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[158723, 4987, 154, 3, 67, "Section",ExpressionUUID->"9e0e619e-e4aa-4cce-bba6-1d638874f2e4"],
Cell[CellGroupData[{
Cell[158902, 4994, 180, 3, 54, "Subsection",ExpressionUUID->"565923ff-10bd-4cce-975a-57397b206ecd"],
Cell[CellGroupData[{
Cell[159107, 5001, 271, 5, 28, "Input",ExpressionUUID->"55488060-6a4b-4f97-9c7c-3d7d5b3515b5"],
Cell[159381, 5008, 5308, 200, 44, "Output",ExpressionUUID->"a1d3246f-8b3d-4832-a6a8-35f8f7ea9111"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164726, 5213, 1713, 48, 67, "Input",ExpressionUUID->"c29e21a7-c2e0-4203-83a3-c91247c3802b"],
Cell[166442, 5263, 2367, 48, 491, "Output",ExpressionUUID->"5c8a64b0-7620-4eac-84fd-5a83a471bc95"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[168858, 5317, 177, 3, 54, "Subsection",ExpressionUUID->"72418cae-3e3e-4ef7-8d7d-3680cdbc9f32"],
Cell[CellGroupData[{
Cell[169060, 5324, 243, 5, 28, "Input",ExpressionUUID->"a18d5b7b-0c32-4a23-bbe9-774702aa822b"],
Cell[169306, 5331, 4913, 184, 44, "Output",ExpressionUUID->"15c3bb5e-489e-44d6-a051-fabcb303f52e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174256, 5520, 1737, 49, 67, "Input",ExpressionUUID->"bb28ad5e-967f-4b02-aa13-b9fba29cba2b"],
Cell[175996, 5571, 2370, 48, 491, "Output",ExpressionUUID->"f9250233-be57-4e24-9414-12d4f770d99c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[178415, 5625, 175, 3, 54, "Subsection",ExpressionUUID->"4bdcee00-2e5d-44ce-9e7a-00ed756a1fc0"],
Cell[CellGroupData[{
Cell[178615, 5632, 243, 5, 28, "Input",ExpressionUUID->"f99725e0-2740-467e-b76d-befe286cd20f"],
Cell[178861, 5639, 5893, 217, 62, "Output",ExpressionUUID->"21734003-b4f9-43d0-bcd1-8caf909017c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184791, 5861, 1754, 50, 67, "Input",ExpressionUUID->"a94d9912-c724-4993-b0ff-80c7876b5d78"],
Cell[186548, 5913, 2408, 49, 491, "Output",ExpressionUUID->"be7ad322-e82a-4167-b2b7-4bd7c4ea41da"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[189005, 5968, 176, 3, 54, "Subsection",ExpressionUUID->"c7d03c2e-a507-4d34-bc0a-30ef4ba278ab"],
Cell[CellGroupData[{
Cell[189206, 5975, 200, 4, 28, "Input",ExpressionUUID->"a79f2629-4c43-4bc4-a96c-19a92e3b7ef2"],
Cell[189409, 5981, 2968, 78, 71, "Output",ExpressionUUID->"8ecc0bb9-1a93-4e5e-8b6a-c94f731ec95e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192414, 6064, 1778, 51, 67, "Input",ExpressionUUID->"85a5ce47-ca64-4663-9ed3-7c2f9bf288d0"],
Cell[194195, 6117, 2401, 48, 491, "Output",ExpressionUUID->"5955a930-5aec-4cfa-b3fe-57266432ecfc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[196645, 6171, 179, 3, 54, "Subsection",ExpressionUUID->"a9534adf-dea5-45a2-9fe0-eca3e594414c"],
Cell[CellGroupData[{
Cell[196849, 6178, 269, 5, 28, "Input",ExpressionUUID->"072602a3-295f-48ff-b957-2a452d7baf22"],
Cell[197121, 6185, 3324, 124, 44, "Output",ExpressionUUID->"de44c830-0df4-4fe2-9fae-35be2f3aee93"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200482, 6314, 1605, 47, 67, "Input",ExpressionUUID->"5ceb454d-da6a-45db-bfb1-23ace0d4248f"],
Cell[202090, 6363, 2338, 47, 491, "Output",ExpressionUUID->"97f6fe93-9b7c-4075-94a8-63cc6df40404"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[204477, 6416, 178, 3, 54, "Subsection",ExpressionUUID->"63b1fe38-19fb-4c17-a8b9-ec7d36cf45dc"],
Cell[CellGroupData[{
Cell[204680, 6423, 266, 5, 28, "Input",ExpressionUUID->"6ebe02b8-b4c0-4a62-a0ff-26dd5ea2283c"],
Cell[204949, 6430, 2964, 109, 44, "Output",ExpressionUUID->"56498e5c-de0e-423b-9eb5-f7b45f87aa7b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[207962, 6545, 175, 3, 54, "Subsection",ExpressionUUID->"3646a913-55af-4028-bbd0-cff692122109"],
Cell[CellGroupData[{
Cell[208162, 6552, 242, 5, 28, "Input",ExpressionUUID->"e53e2401-a391-4c28-8373-f06726fd60a5"],
Cell[208407, 6559, 3269, 116, 44, "Output",ExpressionUUID->"d094fc44-fa57-4755-81ce-fb7e0d91910e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211713, 6680, 1750, 50, 67, "Input",ExpressionUUID->"77ed43e2-60ed-48be-a260-38f58baa9315"],
Cell[213466, 6732, 2389, 49, 491, "Output",ExpressionUUID->"41b59b51-4b39-4444-8855-1c24ce0defec"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[215904, 6787, 176, 3, 54, "Subsection",ExpressionUUID->"d9c24ea2-2433-4a8c-bf35-7f7638f48c1f"],
Cell[CellGroupData[{
Cell[216105, 6794, 243, 5, 28, "Input",ExpressionUUID->"7f538346-6138-49ad-8fbe-284c2d9f528b"],
Cell[216351, 6801, 3132, 113, 44, "Output",ExpressionUUID->"012cf437-d7c8-49d1-910b-1600f0a4fdaa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219520, 6919, 1916, 54, 67, "Input",ExpressionUUID->"c8057d7f-fbac-417e-b133-f971ebce8889"],
Cell[221439, 6975, 2420, 48, 491, "Output",ExpressionUUID->"e3c3fa08-75fc-4484-a516-9fa58882a2fa"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[223908, 7029, 175, 3, 54, "Subsection",ExpressionUUID->"4b95cc44-3464-4336-b528-63bf64925814"],
Cell[CellGroupData[{
Cell[224108, 7036, 271, 5, 28, "Input",ExpressionUUID->"61b30925-a0f3-4556-9751-f45f0f268542"],
Cell[224382, 7043, 2439, 87, 44, "Output",ExpressionUUID->"cbe59847-66e2-4d9d-947c-5e309ba844dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226858, 7135, 1728, 49, 67, "Input",ExpressionUUID->"565cd06b-12a0-4549-aa24-3426c1c449b9"],
Cell[228589, 7186, 2391, 48, 491, "Output",ExpressionUUID->"a4b51d21-53a3-4b78-a7e4-e246dfa3bea5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[231029, 7240, 169, 3, 54, "Subsection",ExpressionUUID->"362006fb-6a4f-43a2-810e-688580e9424a"],
Cell[CellGroupData[{
Cell[231223, 7247, 267, 5, 28, "Input",ExpressionUUID->"28ff46de-1c48-4f8c-aa10-5d67ce0ed2c0"],
Cell[231493, 7254, 2317, 84, 44, "Output",ExpressionUUID->"6fd22313-892a-44b7-92f6-2a7a0a069de5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[233859, 7344, 180, 3, 54, "Subsection",ExpressionUUID->"2b9d3e18-cc8c-4a11-ab51-f8a11043270e"],
Cell[CellGroupData[{
Cell[234064, 7351, 269, 5, 28, "Input",ExpressionUUID->"da068a66-4d38-40f3-9dcf-7d54663faf2e"],
Cell[234336, 7358, 5868, 216, 62, "Output",ExpressionUUID->"3ab94885-65e9-4c6a-b571-7e248017a6cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240241, 7579, 1801, 50, 67, "Input",ExpressionUUID->"2e6b01b0-4638-4eb4-8b9f-203335f7d039"],
Cell[242045, 7631, 2391, 48, 491, "Output",ExpressionUUID->"36ae6d95-c833-40dd-b671-3b99666e2797"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[244485, 7685, 178, 3, 54, "Subsection",ExpressionUUID->"33346389-7c40-4339-973d-db6bf79f2686"],
Cell[CellGroupData[{
Cell[244688, 7692, 243, 5, 28, "Input",ExpressionUUID->"79b66f54-8f65-40c2-8a58-08db29870b01"],
Cell[244934, 7699, 4908, 180, 44, "Output",ExpressionUUID->"0ba048be-38e2-4179-854b-5b657d86cc0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249879, 7884, 1782, 49, 67, "Input",ExpressionUUID->"66aca54c-ade4-4564-9385-b00f9f4f8241"],
Cell[251664, 7935, 2417, 48, 491, "Output",ExpressionUUID->"67b256d9-c16e-486e-9850-451a3b2a1a9a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[254130, 7989, 179, 3, 54, "Subsection",ExpressionUUID->"ab1f3419-0d8f-4792-8967-2e5eab30beb6"],
Cell[CellGroupData[{
Cell[254334, 7996, 269, 5, 28, "Input",ExpressionUUID->"df2abe91-2de0-42e3-b9d2-dfe6b219ac27"],
Cell[254606, 8003, 2481, 89, 44, "Output",ExpressionUUID->"ff0faca6-fa47-448c-86c4-77802f5f7c7a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[257124, 8097, 1884, 53, 67, "Input",ExpressionUUID->"7a834771-1fc8-41a8-ad8b-6b3027fbb45e"],
Cell[259011, 8152, 2390, 48, 491, "Output",ExpressionUUID->"f8b3fe09-f194-48ec-bcb8-914c43dc2938"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[261450, 8206, 179, 3, 54, "Subsection",ExpressionUUID->"e22859b4-66a0-41cb-bef0-87b13313897e"],
Cell[CellGroupData[{
Cell[261654, 8213, 271, 5, 28, "Input",ExpressionUUID->"62d96456-3010-47ea-8b1d-41a2bfc38ca8"],
Cell[261928, 8220, 2021, 72, 44, "Output",ExpressionUUID->"f31859bf-5fe1-4ac9-80b8-8be293e3cffe"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[263998, 8298, 177, 3, 54, "Subsection",ExpressionUUID->"f264de0b-0b84-4343-ad26-0e7139334930"],
Cell[CellGroupData[{
Cell[264200, 8305, 243, 5, 28, "Input",ExpressionUUID->"83301ad0-efd5-40b9-90ad-240af066e21a"],
Cell[264446, 8312, 3604, 122, 62, "Output",ExpressionUUID->"6b69cf14-bc51-416d-8337-da48bdde418e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268087, 8439, 1844, 52, 67, "Input",ExpressionUUID->"b9161b5a-be5c-4454-b4d0-abe7aed866e3"],
Cell[269934, 8493, 2411, 49, 491, "Output",ExpressionUUID->"1c003445-e793-4c2e-bcf4-164561bcec8c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[272394, 8548, 171, 3, 54, "Subsection",ExpressionUUID->"36489c95-62d4-455c-8f6a-f3f8d8e6b796"],
Cell[CellGroupData[{
Cell[272590, 8555, 267, 5, 28, "Input",ExpressionUUID->"e2b56927-4861-411e-b81d-b8f179453379"],
Cell[272860, 8562, 3182, 113, 44, "Output",ExpressionUUID->"83bd7bd5-db82-45a2-a899-99e79382c6a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276079, 8680, 2325, 66, 67, "Input",ExpressionUUID->"c7939f29-e696-4822-9f55-b463c10e7822"],
Cell[278407, 8748, 2705, 52, 491, "Output",ExpressionUUID->"1d0b792a-c685-4a9e-83e7-52be1a168e80"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[281161, 8806, 180, 3, 54, "Subsection",ExpressionUUID->"9e1c087b-26cf-4244-aec9-c5c4114e0248"],
Cell[CellGroupData[{
Cell[281366, 8813, 269, 5, 28, "Input",ExpressionUUID->"787948e2-490a-4990-b54d-702ab99985cb"],
Cell[281638, 8820, 3267, 116, 44, "Output",ExpressionUUID->"1b8b83ce-3b01-4ed1-81a9-a88c4148d416"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284942, 8941, 1815, 51, 67, "Input",ExpressionUUID->"97c0c2f9-090b-4ac2-bc27-014a72216825"],
Cell[286760, 8994, 2397, 48, 491, "Output",ExpressionUUID->"1cc3abc8-430f-4c04-8a9a-03812ef4a48a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[289206, 9048, 184, 3, 54, "Subsection",ExpressionUUID->"d9c9ab81-6496-4ad1-837a-4431a7d938bc"],
Cell[CellGroupData[{
Cell[289415, 9055, 269, 5, 28, "Input",ExpressionUUID->"88f426cc-90a8-4815-b00d-938f32f5bea8"],
Cell[289687, 9062, 2493, 89, 44, "Output",ExpressionUUID->"5e8cefc1-3896-4c0b-a7f0-9979be4603f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292217, 9156, 1754, 49, 67, "Input",ExpressionUUID->"c2795863-02d5-4af2-917c-99b3cd3e5dbc"],
Cell[293974, 9207, 2414, 48, 491, "Output",ExpressionUUID->"a952fb5e-461b-495e-9f39-8619cc4154be"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)