【Pyrhon演算処理】同心集合(Concentric Set)②加法的同心集合(Additive Concentric Set)とは？

前回の投稿は「**小学校の算数の授業で習った数直線**=<font color=purple>スカラーの推移のみを抽出した同心円集合</font>」から出発しました。
[【Pyrhon演算処理】同心集合(Concentric Set)について。①乗法的同心集合(Multiplicative Concentric Set)とは？](https://qiita.com/ochimusha01/items/9ed0fa5871b3f913306a)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618112402.gif)

しかし残念ながら最初に着手した**乗法的同心集合**(Multiplicative Concentric Set)は、どれとしてこの形に到達できなかったばかりか、その本質に近づくほど増率が増して同じものとは見えなくなっていったのです。

* 正方形が構築する同心円集合(演算$2^{\frac{n}{2}}$の結果集合)<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210619%2F20210619222241.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=7b472277a78ea87609240b8dabc8dbab)
* 球面の半径が構築する同心集合の一例(演算$\sqrt{3}*2^{\frac{n}{2}}$の結果集合)<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210620%2F20210620171252.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9d61cc3337a83f6709e933a901ca2cf5)
* 正三角形が構築する同心円集合(演算$2^n$の結果集合)<br>![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210621/20210621211329.gif)
* 演算$2^n$の結果集合<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210618%2F20210618115734.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=2d9c8ebfb20c129bbd8016b1a64a6ff4)
* 演算$e^n$の結果集合<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210618%2F20210618122739.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9a8ac5f06687ddf13147157276fbf2c0)

この問題を解決するには**加法群**(Additive Group)概念の導入、あるいは(演算としてスカラー倍と加減算が保証された)**ベクトル空間**(Vector Space)への移行が必須となるのです。

###加法的同心集合</font>(<font color=blue>Additive Concentric Set</font>)
さっそく同心集合の加法群定義に入りたいと思います。
[【数理考古学】群論概念(Group Theory Concept)①基本定義](https://qiita.com/ochimusha01/items/208dc0e68db64805e4f7)

* まずは元集合Aを用意する。例えばそれは**乗法単位元**(Multiplicative Identity)1を備えた**乗法群**(Multiplicative Group)であっても良い。<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210411%2F20210411223344.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9affba695a803e501f0334cb198ae448)

ついでに世界の方を回すインチキ回転から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625080033.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(0,2,1201,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(0,61)
uz1=np.repeat(1,61)
uz2=np.repeat(2,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="blue",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #固定線追加
    ax.plot([0,0],[0,0],[0,2],color="black",lw=1)
    #回転線追加
    rollx=c.rect(1,Tcode[n]).real
    rolly=c.rect(1,Tcode[n]).imag
    ax.plot([rollx,rollx],[rolly,rolly],[0,2],color="blue",lw=1)
    ax.plot([0,rollx],[0,rolly],[0,0],color="black",lw=1)
    ax.plot([0,rollx],[0,rolly],[1,1],color="blue",lw=1)
    ax.plot([0,rollx],[0,rolly],[2,2],color="blue",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([0.1,2.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転
    ax.view_init(elev=45, azim=-45)

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=np.arange(0,360,6) 
Time_code=Time_code0[::-1]
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cylinder001.gif", writer="pillow")
```

* **加法単位元**(Additive Identity)0と**逆元**(Inverse Element)$A^{-1}$を準備する。<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210411%2F20210411224029.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=e874ec46a8602412dd87b675344ae811)

ついでに世界の方を回すインチキ回転から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625081658.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as num
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=num.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=num.array(s0)
z0=num.linspace(-2,0,1201,endpoint = True)

#単位円データ作成
u0=num.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=num.array(u1)
uz0=num.repeat(-2,61)
uz1=num.repeat(-1,61)
uz2=num.repeat(0,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="green",lw=1)
    #固定線追加
    ax.plot([0,0],[0,0],[0,-2],color="black",lw=1)
    #回転線追加
    rollx=c.rect(1,Tcode[n]).real
    rolly=c.rect(1,Tcode[n]).imag
    ax.plot([rollx,rollx],[rolly,rolly],[0,-2],color="red",lw=1)
    ax.plot([0,rollx],[0,rolly],[0,0],color="black",lw=1)
    ax.plot([0,rollx],[0,rolly],[-2,-2],color="red",lw=1)
    ax.plot([0,rollx],[0,rolly],[-1,-1],color="red",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-2.1,0.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転
    ax.view_init(elev=45, azim=-45)

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=num.arange(0,360,6) 
Time_code=Time_code0[::-1]
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cylinder002.gif", writer="pillow")
```

* 全てを結合する。<br>![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210411%2F20210411224605.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=6aad744fa5db685a5d7ba85dda80cbe4)

ついでに世界の方を回すインチキ回転から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625083254.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as num
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=num.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=num.array(s0)
z0=num.linspace(-1,1,1201,endpoint = True)

#単位円データ作成
u0=num.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=num.array(u1)
uz0=num.repeat(-1,61)
uz1=num.repeat(-0,61)
uz2=num.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #固定線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    #回転線追加
    rollx=c.rect(1,Tcode[n]).real
    rolly=c.rect(1,Tcode[n]).imag
    ax.plot([0,rollx],[0,rolly],[-1,-1],color="red",lw=1)
    ax.plot([0,rollx],[0,rolly],[0,0],color="black",lw=1)
    ax.plot([0,rollx],[0,rolly],[1,1],color="blue",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[-1,0],color="red",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[0,1],color="blue",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転
    ax.view_init(elev=45, azim=-45)

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=num.arange(0,360,6) 
Time_code=Time_code0[::-1]   
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cylinder003.gif", writer="pillow")
```
ところが、かかる群に**単位円筒**(Unit Cylinder)、すなわち**ピッチ**(<font color=blue>Pitch,周回ごとの回転単位</font>)の概念を加えようとすると、ここに複素解析学における多価関数の**分岐点**（<font color=blue>Branch Point,その点を中心とする任意の閉曲線に沿って一周する時、その函数が元の点における値が周回前と周回後で一致しないという意味で不連続となるような点</font>)概念や**分岐截線** (<font color=blue>Branch Cut,とある多価函数から一つの枝を截り出す様なガウス平面上の曲線</font>）概念と関連する形で**偶奇性**(Parity)の概念が登場してくるのです(<font color=blue>当然の様に円周率πと虚数iが乱入</font>)。
[【Python演算処理】単位円筒(Unit Cylinder)を巡る数理](https://qiita.com/ochimusha01/items/fd8e51940b5e0e1a28c5)

[分岐点 (数学) - Wikipedia](https://ja.wikipedia.org/wiki/%E5%88%86%E5%B2%90%E7%82%B9_(%E6%95%B0%E5%AD%A6))

>分岐切断の典型例は、複素対数函数である。複素数を極形式で$z=r⋅e^{iθ}$と表すと、zの対数は$log(z)=\log{r}+iθ$となるが、θの取り方には明らかに不定性がある（θに2πの整数倍を加えた別の角を取ることができる）。
>
>複素対数函数の分枝とは、ガウス平面内の適当な連結開集合に属する任意のzの対数を与える連続函数L(z)を言うが、特に対数函数の分枝は原点から無限遠点へ結ぶ任意の半直線（分岐切断）の補集合という形で存在する。分岐切断は目的に応じて都合の良いものを取るが、よく選ばれるのは負の実軸である。
>
>複素対数函数は分岐切断との交点に2πiの跳躍不連続点を持つ。**葉**(<font color=blue>Sheet,ガウス平面の無限個のコピー</font>）を分岐切断に沿って貼り合せることにより、複素対数函数をその上で連続にすることができる。すなわち、各葉の上での対数の値が主値と2πiの各々の倍数分だけズレているようにしておくと、これら曲面は複素対数函数を連続にする一意的な方法のもとで、分岐切断に沿って互いに張り合わされる。変数が原点を周って動くごとに、対数函数は異なる分枝の上へ亘っていく。

![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/597772/a1f1fb13-e6c2-2d2d-f134-d9d328b8a21b.png)

* ちなみに自然対数の**真数**(Antilogarithm)が1または-1の場合は以下の様に規定される。<br>[log(-1)って、iπのように思えますが、実際は(2n+1)iπ?](https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11210103766?__ysp=bG9nKC0xKQ%3D%3D)

```math
{多価関数log(-1)=(2n+1)iπ(n \in \mathbb{Z})\\
z＝|z|＊e^{arg(z)＊i} → log(z)＝log|z|＋arg(z)＊i\\
log(ー1)＝log|ー1|＋arg(ー1)＊i＝(2n＋1)＊π＊i、(n \in \mathbb{Z})\\
一方log(1)=(2n)*π*i(n=0)=0}
```
現段階の私には厳密な定義など不可能ですが、ここでいう**多価性**概念は恐らく**群定義**の過程同様、「**1角形の辺、すなわち円周角の多価性**」辺りと関連してくるのです。
[【Rで球面幾何学】単位円と単位球②円周角とは何か？](https://qiita.com/ochimusha01/items/cb9e1bf84eba8e0e84b4)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fqiita-image-store.s3.ap-northeast-1.amazonaws.com%2F0%2F597772%2F1c06c1eb-4de7-d285-d0df-58356beab8fa.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=6611b01617bf878385e9e2b36d9ae50c)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fqiita-image-store.s3.ap-northeast-1.amazonaws.com%2F0%2F597772%2F551dbf62-2e01-10f5-a35e-39c2f723b97b.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=a1cf91134ce58678e2b53dce59028058)

###偶数群(<font color=blue>Even Group</font>)概念の起源
**ピッチ1**(周期1)の場合。ここでは仮に**ラップ級数**(Rap Series)と呼ぶ以下の無限級数に対応。加法整数群の増減幅を1に定める案外重要な**演算**(Opreation)である。

```math
{1^n(n=-\infty→+\infty)=(1,…,1,1,1,…,1)
}
```
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210412%2F20210412045131.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=720f4b8c83260fb3c1e522f9574134d8)
**その水平位置からの観測結果**(周期1のcos(θ)cos⁡(θ)波とsin(θ)sin⁡(θ)波の検出)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fstaging-qiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn-ak.f.st-hatena.com%252Fimages%252Ffotolife%252Fo%252Fochimusha01%252F20210412%252F20210412045515.gif%3Fixlib%3Drb-4.0.0%26auto%3Dformat%26gif-q%3D60%26q%3D75%26w%3D1400%26fit%3Dmax%26s%3D7ee1eef42564fbc986a8ee5d0df0826d?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=e7a6bdeaf46a75bbfe8b1607ac9101a7)
cos(θ)波
![image.png](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210415%2F20210415100014.png?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=6f5d01eaff3af2b84c63b46aaa0086d6)
sin(θ)波
![image.png](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210415%2F20210415100154.png?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=22d8fd85962c6b3d76ddf9a840e1e50a)
ついでに世界の方を回すインチキ回転から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625151028.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625151315.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*4,121,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,121,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱とスポークの描画
    s2=[]
    for nm in range(len(c0)):
        s2.append(complex(m.cos(c0[nm]+Tcode[n]),m.sin(c0[nm]+Tcode[n])))
    s3=np.array(s2)
    ax.plot(s3.real,s3.imag,z0,color="black",lw=0.5)
    for nm in range(len(s3)):
        ax.plot([0,s3[nm].real],[0,s3[nm].imag],z0[nm],color="gray",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #固定線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="black",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="black",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="black",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="black",lw=1)
    #回転線追加
    rollx=c.rect(1,Tcode[n]).real
    rolly=c.rect(1,Tcode[n]).imag
    ax.plot([0,rollx],[0,rolly],[-1,-1],color="red",lw=1)
    ax.plot([0,rollx],[0,rolly],[0,0],color="green",lw=1)
    ax.plot([0,rollx],[0,rolly],[1,1],color="blue",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[-1,0],color="red",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[0,1],color="blue",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elv=10,0で水平、90で垂直)
    ax.view_init(elev=10, azim=-45)

Time_code0=np.arange(0,360,6) 
Time_code=Time_code0[::-1] 
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("uc001.gif", writer="pillow")
```
球面展開では以下となります。
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210420%2F20210420144226.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=689a094a453b7c14ae42f4c69578b9c9)
[【超わかる】オイラーの公式を見て！聞いて！感じるンゴ！](https://www.gachitan.com/entry/eulers_formula)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210420%2F20210420155100.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=85410dc233267058c4300e16151b5bb4)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210420%2F20210420144142.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=fc8ca76b53367e6d90ead936975d90bf)
$\sin(θ)\cos(θ)$波の検出

* 0/2πラジアンの時0
* ±$\frac{π}{2}$ラジアンの時$\frac{1}{2}$
* πラジアンの時-1

![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210420/20210420145935.png)
$\sin(θ)\sin(θ)$波の検出

* 0/2π/±$\frac{π}{2}$ラジアンの時0
* 半径±$\frac{1}{2}$の時に頂点

![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210420/20210420145643.png)
ついでに世界の方を回すインチキ展開から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626013545.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626013417.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626013505.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as num
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円球データ準備
def src(x):
    return m.sqrt(1-x**2)
c1=num.linspace(0,m.pi*2,60,endpoint = False)
c2=num.linspace(0,m.pi*2,61,endpoint = True)
c0=num.concatenate([c1, c2])
z0=num.linspace(-1,1,121,endpoint = True)
zc1=num.linspace(-1,1,60,endpoint = False)
zc2=num.linspace(-1,1,61,endpoint = True)
zc=num.concatenate([zc1,zc2])

#小半径追加
MiHz0=num.linspace(-1,1,61,endpoint = True)
MiHz=MiHz0[::-1]
MiBH1=num.linspace(-1,1,30,endpoint = False)
MiBH2=num.linspace(-1,1,31,endpoint = True)
MiBH=num.concatenate([MiBH1,MiBH2])
MiBd=num.sqrt(1-MiBH**2)
MiHy=num.repeat(0,61)

#単位円データ作成
u0=num.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=num.array(u1)
uz0=num.repeat(-1,61)
uz1=num.repeat(-0,61)
uz2=num.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円球とスポークの描画
    s0=[]
    for nm in range(len(c0)):
        s0.append(complex(m.cos(c0[nm]+Tcode[n])*src(zc[nm]),m.sin(c0[nm]+Tcode[n])*src(zc[nm])))
    s1=num.array(s0)
    ax.plot(s1.real,s1.imag,z0,color="black",lw=0.5)
    for nm in range(len(s1)):
        ax.plot([0,s1[nm].real],[0,s1[nm].imag],z0[nm],color="gray",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #実数線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="red",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="green",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="blue",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="blue",lw=1)
    #球面描画
    roll0=[]
    for nm in range(len(MiBd)):
        roll0.append(c.rect(MiBd[nm],Tcode[n]))
    roll=num.array(roll0)
    ax.plot(roll.real,roll.imag,MiHz,color="blue",lw=1)
    ax.plot(-roll.real,-roll.imag,MiHz,color="blue",lw=1)
    ax.plot(roll.imag,-roll.real,MiHz,color="red",lw=1)
    ax.plot(-roll.imag,roll.real,MiHz,color="red",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elv=10,0で水平、90で垂直)
    ax.view_init(elev=10, azim=-45)

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=num.arange(0,360,6) 
Time_code=Time_code0[::-1]  
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cuberoll001.gif", writer="pillow")
```

###奇数集合(<font color=blue>Odd Set</font>)概念の起源
ピッチ$\frac{1}{2}$(周期1)の場合。**交代級数**(Alternating Series)概念に対応。
[【数理考古学】解析学史に「虚数概念」をもたらした交代級数](https://qiita.com/ochimusha01/items/a338ea75855fcb4ff6f8)

```math
{-1^n(n=-\infty→+\infty)=(-1,…,1,-1,1,…,-1)
}
```
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210412%2F20210412045910.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9ae2ac04cd4ef7c4581a8acc7d18278d)
**その水平位置からの観測結果**(周期2のcos(θ)cos⁡(θ)波とsin(θ)sin⁡(θ)波の検出)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210412%2F20210412050306.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=ea9db788f5fc6fd7d0ac7975e0c5a630)
cos(θ)波
![image.png](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210415%2F20210415100637.png?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=353a174f38469ab49ea2cacd858924af)
sin(θ)波
![image.png](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210415%2F20210415101047.png?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=1e1bec7cf5fa2c3da4d2a7ecdcc2aa6c)
ついでに世界の方を回すインチキ回転から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625153906.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625154225.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*2,121,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,121,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱とスポークの描画
    s2=[]
    for nm in range(len(c0)):
        s2.append(complex(m.cos(c0[nm]+Tcode[n]),m.sin(c0[nm]+Tcode[n])))
    s3=np.array(s2)
    ax.plot(s3.real,s3.imag,z0,color="black",lw=0.5)
    for nm in range(len(s3)):
        ax.plot([0,s3[nm].real],[0,s3[nm].imag],z0[nm],color="gray",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #固定線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([-1,1],[0,0],[-1,-1],color="black",lw=1)
    ax.plot([-1,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([-1,1],[0,0],[1,1],color="black",lw=1)
    ax.plot([1,1],[0,0],[-1,1],color="black",lw=1)
    ax.plot([-1,-1],[0,0],[-1,1],color="black",lw=1)
    #回転線追加
    rollx=c.rect(1,Tcode[n]).real
    rolly=c.rect(1,Tcode[n]).imag
    ax.plot([0,rollx],[0,rolly],[-1,-1],color="red",lw=1)
    ax.plot([0,-rollx],[0,-rolly],[0,0],color="green",lw=1)
    ax.plot([0,rollx],[0,rolly],[1,1],color="blue",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[-1,0],color="red",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[0,1],color="blue",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elv=10,0で水平、90で垂直)
    ax.view_init(elev=10, azim=-45)

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=num.arange(0,360,6) 
Time_code=Time_code0[::-1]  
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("uc003.gif", writer="pillow")
```
同じく球面展開では以下となります。
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210418%2F20210418060012.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=a9af7e7da8ccf31d6049086ffe266e2a)
[【超わかる】オイラーの公式を見て！聞いて！感じるンゴ！](https://www.gachitan.com/entry/eulers_formula)
![image.gif](https://camo.qiitausercontent.com/3e27b837671af9db4dfc564bcf5d02f358380465/68747470733a2f2f63646e2d616b2e662e73742d686174656e612e636f6d2f696d616765732f666f746f6c6966652f6f2f6f6368696d7573686130312f32303231303431382f32303231303431383035353835302e676966)
![image.gif](https://camo.qiitausercontent.com/f912441d158b2d89dd051fbed522a11f9ddd4f57/68747470733a2f2f63646e2d616b2e662e73742d686174656e612e636f6d2f696d616765732f666f746f6c6966652f6f2f6f6368696d7573686130312f32303231303431382f32303231303431383035353933312e676966)
$\sin(θ)\cos(θ)$波の検出

* 0/2πラジアンの時0
* ±$\frac{π}{2}$ラジアンの時$\frac{1}{2}$
* πラジアンの時-1

![image.png](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210418/20210418061621.png)
$\sin(θ)\sin(θ)$波の検出

* 0/2π/±$\frac{π}{2}$ラジアンの時0
* 半径±$\frac{1}{2}$の時に頂点

![image.png](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210418/20210418061845.png)

ついでに世界の方を回すインチキ展開から脱却。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626020858.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626020738.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626020813.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as num
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円球データ準備
def src(x):
    return m.sqrt(1-x**2)
c0=num.linspace(0,m.pi*2,121,endpoint = True)
zc=num.linspace(-1,1,121,endpoint = True)

#小半径追加
MiHz0=num.linspace(-1,1,61,endpoint = True)
MiHz=MiHz0[::-1]
MiBH=num.linspace(-1,1,61,endpoint = True)
MiBd=num.sqrt(1-MiBH**2)

#単位円データ作成
u0=num.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=num.array(u1)
uz0=num.repeat(-1,61)
uz1=num.repeat(-0,61)
uz2=num.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円球とスポークの描画
    s0=[]
    for nm in range(len(c0)):
        s0.append(complex(m.cos(c0[nm]+Tcode[n])*src(zc[nm]),m.sin(c0[nm]+Tcode[n])*src(zc[nm])))
    s1=num.array(s0)
    ax.plot(s1.real,s1.imag,z0,color="black",lw=0.5)
    for nm in range(len(s1)):
        ax.plot([0,s1[nm].real],[0,s1[nm].imag],z0[nm],color="gray",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #実数線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="red",lw=1)
    ax.plot([0,-1],[0,0],[0,0],color="green",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="blue",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="blue",lw=1)
    #球面描画
    roll0=[]
    for nm in range(len(MiBd)):
        roll0.append(c.rect(MiBd[nm],Tcode[n]))
    roll=num.array(roll0)
    ax.plot(roll.real,roll.imag,MiHz,color="blue",lw=1)
    ax.plot(-roll.real,-roll.imag,MiHz,color="blue",lw=1)
    ax.plot(roll.imag,-roll.real,MiHz,color="red",lw=1)
    ax.plot(-roll.imag,roll.real,MiHz,color="red",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elv=10,0で水平、90で垂直)
    ax.view_init(elev=10, azim=-45)

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=num.arange(0,360,6) 
Time_code=Time_code0[::-1]  
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cuberoll101.gif", writer="pillow")
```
**実軸**(Real Axis)を成立させる為の**虚軸**(Imaginal Axis)設定方法自体は（それこそ「補助線」に過ぎないので）どの様な形にも設定可能ですが、どの場合でもこの「**全体を周期1と見る単位円筒と周期2で見る単位円筒のセット**」すなわち**偶奇性**(Parity)概念の導入だけは避けられない様です。
[【数理考古学】とある実数列の規定例①等差数列から加法整数群へ](https://qiita.com/ochimusha01/items/07ae45b915bb1aa6c9f5)
![image.gif](https://camo.qiitausercontent.com/9e756e40dceca25c93c9517bc61e134658c8ae2e/68747470733a2f2f63646e2d616b2e662e73742d686174656e612e636f6d2f696d616765732f666f746f6c6966652f6f2f6f6368696d7573686130312f32303230313132362f32303230313132363032303830302e676966)

###偶数群(<font color=blue>Even Group</font>)
演算結果集合としては**区間**:**無限小**$-\infty$~0~**無限大**$+\infty$、**初項**0、**公差**±2、**一般項**±2nの両側無限数列を構成する。

```math
Even_n(n=-\infty→0→+\infty)=(-\infty,…,-2n,…,-2×2=-4,-2×1=-2,-2×0=0,-2×1=2,-2×2=4,…,2n,…,+\infty)
```
* その演算は**加減算**の範囲で閉じており(偶数+偶数=偶数、偶数-偶数=偶数)、**加法単位元**と**逆元**を備え、かつ**結合則**(a+b)+c=a+(b+c)を満たす(元と単位元と逆元が同じ等差数列上に連続する)ので群の成立条件を満たす。
* 関数における**偶関数**は、その対称性ゆえに奇関数とと異なり**逆関数**を備えない。

###奇数集合(<font color=blue>Odd Set</font>)
演算結果集合としては**区間**:**無限小**$-\infty$~0~**無限大**$+\infty$、**初項**1、**公差**±2、**一般項**±2n+1の両側無限数列を構成する。

```math
Odd_n(n=-\infty→0→+\infty)=(-\infty,…,-2n+1,…,-2×2+1=-3,-2×1+1=-1,2×0+1=1,2×1+1=3,…,2n+1,…,+\infty)
```
あるいは

```math
Odd_n(n=-\infty→0→+\infty)=(-\infty,…,-2n-1,…,-2×2-1=-5,-2×1-1=-3,2×0-1=-1,2×1-1=1,2×2-1=3,…,2n+1,…,+\infty)
```
* その演算は**逆元**を備え、**結合則**(a+b)+c=a+(b+c)も満たすものの、**加法単位元**0は集合範囲外で演算結果も閉じてない(奇数+奇数=偶数、奇数-奇数=偶数)。ゆえに群の成立条件を満たさない。
* 関数における**奇関数**も(<font color=blue>その対称性ゆえにそれを備えない偶関数と異なり</font>)**逆関数**を備え常に一対で現れる。また幾何学における(<font color=blue>対蹠間を結ぶ直線が引けない</font>)**奇数角形の多角形**もまた(<font color=blue>それぞれ片側の対蹠にのみ接する</font>)一対として現れる。

この様に「<font color=red>偶数の対称性</font>」と「<font color=red>奇数の双極性</font>」の対比は(<font color=blue>それぞれ形を変えながら</font>)あらゆる分野に普遍的に現れるのです。そして後者のCos(θ)の増減に注目すると**固有ベクトル**(Eigenvector)と**固有値**(<font color=blue>Eigenvalue</font>)概念の萌芽が見て取れるのです。
![image.gif](https://camo.qiitausercontent.com/a74c2b6dba5e9cb34fcbc3d73d124a9df2e2be93/68747470733a2f2f63646e2d616b2e662e73742d686174656e612e636f6d2f696d616765732f666f746f6c6966652f6f2f6f6368696d7573686130312f32303231303431322f32303231303431323035303635332e676966)
[【初心者向け】方形描画関数①三角関数との関係。](https://qiita.com/ochimusha01/items/9183360c0009cfac5b04)
![image.gif](https://camo.qiitausercontent.com/b7883c60fb2f3f1faa2aa65aab18a681ba2dcd86/68747470733a2f2f71696974612d757365722d636f6e74656e74732e696d6769782e6e65742f687474707325334125324625324671696974612d757365722d636f6e74656e74732e696d6769782e6e6574253246687474707325323533412532353246253235324663646e2d616b2e662e73742d686174656e612e636f6d2532353246696d616765732532353246666f746f6c69666525323532466f25323532466f6368696d75736861303125323532463230323031313230253235324632303230313132303132343635362e67696625334669786c696225334472622d312e322e322532366175746f253344666f726d61742532366769662d71253344363025323671253344373525323677253344313430302532366669742533446d61782532367325334436336634373838303361396266643761306364353964376534643739633061373f69786c69623d72622d312e322e32266175746f3d666f726d6174266769662d713d363026713d373526773d31343030266669743d6d617826733d3839633238313938373034373964353332646339346364356335373034353737)
![image.gif](https://camo.qiitausercontent.com/2fd7eab52030c394b3035a9033b210db137f8eb5/68747470733a2f2f71696974612d757365722d636f6e74656e74732e696d6769782e6e65742f687474707325334125324625324671696974612d757365722d636f6e74656e74732e696d6769782e6e6574253246687474707325323533412532353246253235324663646e2d616b2e662e73742d686174656e612e636f6d2532353246696d616765732532353246666f746f6c69666525323532466f25323532466f6368696d75736861303125323532463230323031313230253235324632303230313132303132353132362e67696625334669786c696225334472622d312e322e322532366175746f253344666f726d61742532366769662d71253344363025323671253344373525323677253344313430302532366669742533446d61782532367325334462346331306437613361306134323134346261613837623236353162313161653f69786c69623d72622d312e322e32266175746f3d666f726d6174266769662d713d363026713d373526773d31343030266669743d6d617826733d6434353864343435663764643838636338363136626338303938393035666662)
![image.gif](https://camo.qiitausercontent.com/bc476790abb4b2f6f635b5a4e0159fd08fb361e2/68747470733a2f2f71696974612d757365722d636f6e74656e74732e696d6769782e6e65742f687474707325334125324625324663646e2d616b2e662e73742d686174656e612e636f6d253246696d61676573253246666f746f6c6966652532466f2532466f6368696d757368613031253246323032303132313825324632303230313231383138303033392e6769663f69786c69623d72622d312e322e32266175746f3d666f726d6174266769662d713d363026713d373526773d31343030266669743d6d617826733d3862346562353531333934303361656664393439396164346232373536663931)
こうして(<font color=blue>規定演算によって球面座標系やトーラス座標系によって把握されてきた</font>)**元集合**が、**円柱座標系**(Cylindrical Coordinate System)や**円錐座標系**(Conical Coordinate System)で扱える様になります。

###円柱座標系(<font color=blue>Cylindrical Coordinate System</font>)
[円筒座標系 - Wikipedia](https://ja.wikipedia.org/wiki/%E5%86%86%E7%AD%92%E5%BA%A7%E6%A8%99%E7%B3%BB)

>与えられた点Pの位置を以下の三つの座標成分(p,φ,z)で表す。ただし基準平面からの「**距離**」はその点が基準平面の（表または裏の）どちら側に面するかによって正または負の値を持つものとする。

* **軸距離**(Axial Distance)または**動径距離**(Radial Distance)ρ…z-軸から点 P までのユークリッド距離(別表現では「特別に選ばれた基準軸からの距離」);
* **方位角**(Azimuth)φ…基準平面上の基準方向と原点から点Pの基準平面への正射影へ結んだ直線との間の角(別表現では「特別に選ばれた基準方向に対する軸から測った方向」);
* **軸座標**(axial coordinate)または**高さ**(height)zは基準平面から点Pまでの符号付き距離(別表現では「基準軸に直交する特別に選ばれた基準平面からの距離」)。

>円筒座標系の**原点**(origin)とは、上記三つの座標成分がすべて0として与えることができるような点を言う。これは上記の基準平面と基準軸の交点になる。 この基準軸は**円筒軸**(Cylindrical Axis; 円柱軸)や**緯線**(Longitudinal Axis) などと呼ばれ、**極軸**(Polar Axis)とは区別される（極軸あるいは始線とは、基準平面上に載っている半直線で、原点から出てその平面上の基準方向を指し示すものを表すために用いられる）。緯線に垂直な任意の方向を射線(Radial Lines;放射状の直線)と総称する。
>
>円筒軸からの距離は**動径距離**(Radial Distance;放射距離)や**動径**(Radius) と呼ばれ、円筒軸周りの偏角座標は**角度位置**(Angular Position)や**方位角**(Azimuth)などと言う。動径成分と方位角成分を併せて**極座標成分**(Polar Coordinates)と言い、これはその点を通り基準平面に平行な平面上の二次元の極座標系に対応する。第三座標は基準平面を水平面と見るとき高さ(Height)や高度(Altitude)と呼んだり、緯度(Longitudinal Position)や軸位置(Axial Position)などとも言う。

* 「<font color=purple>第三座標は基準平面を水平面と見るとき**高さ**</font>(Height)<font color=purple>や**高度**</font>(Altitude)<font color=purple>と呼んだり、**緯度**</font>(Longitudinal Position)<font color=purple>や**軸位置**</font>(Axial Position)<font color=purple>などとも言う。</font>」…率直に「**時間軸**(t)」を含めない理由が分かりません。

>円筒座標系は緯線周りの何らかの回転対称性を持つ物体や現象（例えば、丸い断面を持つ直線パイプを流れる水流や、金属円柱の熱分布、長い真っ直ぐなワイヤー内の電荷から出る電場、天文学における降着円盤など）との関連で有意である。

一方、この**射影**(Projection)によって副次的に生じる**円錐座標系**は、例えば元元が乗法群であった場合、その**写像**(Map)となる。
[射影（projection）とは - IT用語辞典 e-Words](https://e-words.jp/w/%E5%B0%84%E5%BD%B1.html)
[円錐の体積を円柱座標系で真面目に計算してみた](https://gordiustears.net/cone-volume-calculation-on-cylindrical-coordinate/)

* 「**円筒座標の導入自体は群規定導入以前でも可能である**」なる考え方も不可能ではないが、こういう議論もあるのでその場合にどういう制限を受ける事になるかについて十分な追加記述を必要とするものとする。
* そういえば円錐座標系にも「**HSV色空間モデル**(Hue=色相,Saturation=彩度,Saturation=明度)」の様に**逆元**は備えていないが(あるいは元そのものとなるだけなので設定する意味がない)**加法単位元**(黒一色)と**乗法単位元**(基準色相環を実現する彩度と明度…あれ、次元それぞれに一つずつある？)なら備えている。こうした複雑な中間例が他にも幾らでも見つかりそうだったりする訳である。<br>[円錐座標系の意味・用法を知る](https://astamuse.com/ja/keyword/13213081)<br>[彩度 - さいど | 武蔵野美術大学 造形ファイル](http://zokeifile.musabi.ac.jp/%E5%BD%A9%E5%BA%A6/)
* そして、いわゆる「**ヴェーバー‐フェヒナーの法則**」に従うなら、例えば「**HSV色空間モデル**」も「**音空間モデル**」同様、その目盛りが**均等尺**(Even Scale)ではなく**対数尺**(Logarithmic Scale)かもしれないのである。<br>[【数理考古学】ヴェーバー‐フェヒナーの法則](https://qiita.com/ochimusha01/items/4eaf1972ff487b9bc713)<br>[【数理考古学】「音階論」なる古くて新しい数理空間](https://qiita.com/ochimusha01/items/18cba90c2139c537b0c5)<br>![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/597772/1dea155a-edc0-2b0c-e431-e8408cd2429f.png)

かかる形での乗法群の加法群への写像がもたらす最大の恩恵は「**傾き**」の概念の追加というべきかもしれません。そう「(スカラー倍と加減算しか演算が存在しない)**ベクトル空間**」から「(角度や内積の概念が追加された)**計量ベクトル空間**」への拡張です。

[傾き (数学) - Wikipedia](https://ja.wikipedia.org/wiki/%E5%82%BE%E3%81%8D_(%E6%95%B0%E5%AD%A6))

>傾きmは傾斜角θによりm=tan(θ)と定義される。また平面上の直線の傾きは、垂直移動距離Δy($y_2-y_1$)を水平移動距離Δx($x_2-x_1$)で割ったm=Δy/Δxで定義される。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/597772/8cd9ec5e-566d-43be-eb78-ee007b201759.png)
>これらの等式が示す様に鉛直線（y軸に平行な直線）の傾きは、零除算となり、定義されない。

全体像としてはこういうイメージですね。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618080016.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618060647.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618060019.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,1201,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱高計算
    h1=2*n/len(uc)-1
    hz=np.repeat(h1,len(uc))
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #実数線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="red",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="blue",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="blue",lw=1)
    #移動円追加
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[h1,h1],color="black",lw=0.5)
    ax.plot(uc.real,uc.imag,hz,color="black",lw=1)
    ax.plot([0,1],[0,0],[0,h1],color="black",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elev=0にすると水平表示、90にすると垂直表示)
    ax.view_init(elev=45, azim=Time_code[n])

#azimにTime_code(n)を設定すると世界の側が回る。
Time_code0=np.arange(0,360,6) 
Time_code=Time_code0[::-1]   
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cylinder003.gif", writer="pillow")
```
とりあえず「**世界の方を回す**」インチキ回転から脱却します。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625170910.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625170509.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625170838.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,1201,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱高計算
    h1=2*n/len(uc)-1
    hz=np.repeat(h1,len(uc))
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #スポーク描画
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #実数線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="red",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="blue",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="blue",lw=1)
    #移動円追加
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[h1,h1],color="purple",lw=0.5)
    ax.plot(uc.real,uc.imag,hz,color="purple",lw=1)
    ax.plot([0,uc[n].real],[0,uc[n].imag],[0,h1],color="purple",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elev=25,0にすると水平表示、90にすると垂直表示)
    ax.view_init(elev=25, azim=-45)

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Tcode))
ani.save("cylinder402.gif", writer="pillow")
```
[【Python演算処理】半径・直径・円周長・円の面積・球の表面積・球の体積の計算上の往復](https://qiita.com/ochimusha01/items/e180451a210227bb19a5)

>1次元球の体積は2rとなり、既知の結果と一致する。

これまでこうした表現を無条件で受容してきましたが、実は加法群が成立する**裏側**には**単位円**が隠れていた(直交、すなわち内積0となる形で交わっていた)という訳です。だから「**十進法導入により周期を無限に細かく刻んでいく事によって実数列を近似する**」といった方便が必要となった訳ですね。ある意味これこそが群論でいう「**環**(Ring)」概念そのもの？
[【数理考古学】とある実数列(Real Sequance)の規定例①等差数列から加法整数群へ](https://qiita.com/ochimusha01/items/07ae45b915bb1aa6c9f5)

ではこの考え方にこの投稿の主題たる同心集合の概念を重ねてみましょう。
[【Pyrhon演算処理】同心集合(Concentric Set)について。①乗法的同心集合(Multiplicative Concentric Set)とは？](https://qiita.com/ochimusha01/items/9ed0fa5871b3f913306a)

![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618080053.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618070151.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210618/20210618070726.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,1201,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱高計算
    h1=2*n/len(uc)-1
    hz=np.repeat(h1,len(uc))
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #半円柱描画
    ax.plot(s1.real/2,s1.imag/2,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #半単位円描画
    ax.plot(uc.real/2,uc.imag/2,uz0,color="red",lw=1)
    ax.plot(uc.real/2,uc.imag/2,uz1,color="green",lw=1)
    ax.plot(uc.real/2,uc.imag/2,uz2,color="blue",lw=1)    
    #実数線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="red",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="blue",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="blue",lw=1)
    #半実数線追加
    ax.plot([1/2,1/2],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1/2,1/2],[0,0],[0,1],color="blue",lw=1)
    #移動円追加
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[h1,h1],color="black",lw=0.5)
    ax.plot(uc.real,uc.imag,hz,color="black",lw=1)
    ax.plot(uc.real/2,uc.imag/2,hz,color="black",lw=1)
    ax.plot([0,1],[0,0],[0,h1],color="black",lw=1)
    ax.plot([0,1/2],[0,0],[0,h1],color="black",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elev=0にすると水平表示、90にすると垂直表示)
    ax.view_init(elev=45, azim=Time_code[n])

Time_code0=np.arange(0,360,6) 
Time_code=Time_code0[::-1]   
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cylinder101.gif", writer="pillow")
```
こちらのプログラムも一応は「**世界の方を回す**」インチキ回転から脱却させておきましょう。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625172014.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625171922.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210625/20210625171948.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,1201,endpoint = True)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱高計算
    h1=2*n/len(uc)-1
    hz=np.repeat(h1,len(uc))
    #円柱描画
    ax.plot(s1.real,s1.imag,z0,color="gray",lw=0.5)
    #半円柱描画
    ax.plot(s1.real/2,s1.imag/2,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=0.5)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #半単位円描画
    ax.plot(uc.real/2,uc.imag/2,uz0,color="red",lw=1)
    ax.plot(uc.real/2,uc.imag/2,uz1,color="green",lw=1)
    ax.plot(uc.real/2,uc.imag/2,uz2,color="blue",lw=1)    
    #実数線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="red",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="blue",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="blue",lw=1)
    #半実数線追加
    ax.plot([1/2,1/2],[0,0],[-1,0],color="red",lw=1)
    ax.plot([1/2,1/2],[0,0],[0,1],color="blue",lw=1)
    #移動円追加
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[h1,h1],color="purple",lw=0.5)
    ax.plot(uc.real,uc.imag,hz,color="purple",lw=1)
    ax.plot(uc.real/2,uc.imag/2,hz,color="purple",lw=1)
    ax.plot([0,uc[n].real],[0,uc[n].imag],[0,h1],color="purple",lw=1)
    ax.plot([0,uc[n].real*1/2],[0,uc[n].imag*1/2],[0,h1],color="purple",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elev=25,0にすると水平表示、90にすると垂直表示)
    ax.view_init(elev=25, azim=-45)

Time_code0=np.arange(0,360,6) 
Time_code=Time_code0[::-1]   
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("cylinder501.gif", writer="pillow")
```

1を単位元とする**乗法同心群**は、その半径が極限たる0と∞(トーラス座標系ではさらに両者を同一視し、連結させて消してしまう!!)に差し掛かった時に計算不可能となりますが「**傾き**」概念にその特徴が継承されている事が分かります。

[円筒座標系](https://www.cradle.co.jp/glossary/ja_A/detail0167.html)

>円柱の中心軸からの半径方向（r軸）、周方向（θ軸）および円柱の軸方向（z軸）の3軸から構成される座標系のことで「**円柱座標系**」と呼ばれることもあります。
>
>**直交座標系**(x,y,z)と**円筒座標系**(r,φ,z)の間には以下の関係が成り立ちます。 

![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/597772/293142b0-526f-96ec-9d74-e80c07b8908a.png)

* x=r×cos(θ)
* y=r×sin(θ)
* z=z
* $r=\sqrt{x^2+y^2}$
* $φ=sign(y)atan2(y,x)$
* 表面積$S=2πr^2+2πrz$
* 体積$V=πr^2z$

```python
import sympy as sp
import numpy as np
from sympy import I, pi, E
x,y,z,r,φ,m,S,V= sp.symbols('x,y,z,r,φ,m,S,V')

#sp.Eq(z,z)と書いてもTrueという
#論理演算結果が返るのみなので省略

#デカルト座標系(x,y,z)と極座標系(r,φ,θ)の相互変換
eq01=sp.Eq(r,sp.sqrt(x**2+y**2))
eq02=sp.Eq(φ,sp.sign(y)*sp.atan2(y,x))
eq03=sp.Eq(x,r*sp.cos(φ))
eq04=sp.Eq(y,r*sp.sin(φ))
eq05=sp.Eq(m,sp.tan(φ))
eq06=sp.Eq(m,z/r)
eq07=sp.Eq(S,2*pi*r**2+2*pi*r*z)
eq08=sp.Eq(V,pi*r**2*z)

#単位円(半径r=1)の場合
eq11=eq01.subs(r,1)
eq12=eq02.subs(r,1)
eq13=eq03.subs(r,1)
eq14=eq04.subs(r,1)
eq15=eq05.subs(r,1)
eq16=eq06.subs(r,1)
eq17=eq07.subs(r,1)
eq18=eq08.subs(r,1)

#tex
sp.init_printing()
print("デカルト座標系(x,y,z)と極座標系(r,φ,z)の相互変換")
display(eq01)
print(sp.latex(eq01))
display(eq02)
print(sp.latex(eq02))
display(eq03)
print(sp.latex(eq03))
display(eq04)
print(sp.latex(eq04))
display(eq05)
print(sp.latex(eq05))
display(eq06)
print(sp.latex(eq06))
display(eq07)
print(sp.latex(eq07))
display(eq08)
print(sp.latex(eq08))
print("単位円(半径r=1)の場合")
display(eq11)
print(sp.latex(eq11))
display(eq12)
print(sp.latex(eq12))
display(eq13)
print(sp.latex(eq13))
display(eq14)
print(sp.latex(eq14))
display(eq15)
print(sp.latex(eq15))
display(eq16)
print(sp.latex(eq16))
display(eq17)
print(sp.latex(eq17))
display(eq18)
print(sp.latex(eq18))
```
デカルト座標系(x,y,z)と極座標系(r,φ,z)の相互変換

```math
\begin{align*}
&r = \sqrt{x^{2} + y^{2}}\\
&φ = \operatorname{atan_{2}}{\left(y,x \right)} \operatorname{sign}{\left(y \right)}\\
&x = r \cos{\left(φ \right)}\\
&y = r \sin{\left(φ \right)}\\
&z = z\\
&傾きm = \tan{\left(φ \right)}\\
&傾きm = \frac{z}{r}\\
&表面積S = 2 \pi r^{2} + 2 \pi r z\\
&体積V = \pi r^{2} z
\end{align*}
```
単位円(半径r=1)の場合(実数列$\mathbb{R}$そのものとなる)。

```math
\begin{align*}
&r = 1\\
&φ = \operatorname{atan_{2}}{\left(y,x \right)} \operatorname{sign}{\left(y \right)}\\
&x = \cos{\left(φ \right)}\\
&y = \sin{\left(φ \right)}\\
&z = z\\
&傾きm = \tan{\left(φ \right)}\\
&傾きm = z\\
&表面積S = 2 \pi z + 2 \pi\\
&高さV = \pi z
\end{align*}
```
[【Pyrhon演算処理】同心集合①乗法的同心集合とは？](https://qiita.com/ochimusha01/items/9ed0fa5871b3f913306a)

>大半径R、小半径rのトーラスの表面積は底面が半径rで高さが大半径の円周長2πRの円柱の側面積に等しく、体積はこの円柱と同値となる。

###円錐座標系**(<font color=blue>Conical Coordinate System</font>)
上掲の様に「**円柱座標系の特殊例**」として現れます。式形としてはy=|x|など。
[【Python演算処理】単位球面を巡る数理①とりあえず描画してみる。](https://qiita.com/ochimusha01/items/1d20cceaacaf0d923858)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210412%2F20210412062849.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9d40f6ad1e1c4373a2244b3b32dac65c)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20210412%2F20210412062919.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=b9344280100346dc40d9972fd3cd22b7)
これも世界の側を回すインチキ回転から脱却させておきましょう。
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626075439.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626075337.gif)
![image.gif](https://cdn-ak.f.st-hatena.com/images/fotolife/o/ochimusha01/20210626/20210626075407.gif)

```python
%matplotlib nbagg
import math as m
import cmath as c
import numpy as np
import matplotlib.pyplot as plt
from mpl_toolkits.mplot3d import Axes3D
import matplotlib.animation as animation

#円柱データ作成
c0=np.linspace(0,m.pi*120,1201,endpoint = True)
s0=[]
for nm in range(len(c0)):
    s0.append(complex(m.cos(c0[nm]),m.sin(c0[nm])))
s1=np.array(s0)
z0=np.linspace(-1,1,1201,endpoint = True)

#「曲率」を計算
cv1=np.linspace(-1,1,1201,endpoint = True)
#cv1=num.sqrt(1-cv0**2)

#断面線(z)
cutz0=num.linspace(-1,1,61,endpoint = True)
cutz=cutz0[::-1]
cutx=num.abs(cutz)
cuty=num.repeat(0,61)

#単位円データ作成
u0=np.linspace(0,m.pi*2,61,endpoint = True)
u1=[]
for nm in range(len(u0)):
    u1.append(complex(m.cos(u0[nm]),m.sin(u0[nm])))
uc=np.array(u1)
uz0=np.repeat(-1,61)
uz1=np.repeat(-0,61)
uz2=np.repeat(1,61)

#タイムテーブル
Tcode=np.linspace(0,m.pi*2,61,endpoint =True)

#グラフ表示
plt.style.use('default')
fig = plt.figure()
ax = Axes3D(fig)

#関数定義
def unit_cylinder(n):
    plt.cla()
    #円柱描画
    ax.plot(s1.real*cv1,s1.imag*cv1,z0,color="gray",lw=0.5)
    #スポーク描画
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="gray",lw=0.5)
    #for num in range(len(uc)):
    #    ax.plot([0,uc[num].real],[0,uc[num].imag],[1,1],color="gray",lw=0.5)
    for num in range(len(uc)):
        ax.plot([0,uc[num].real],[0,uc[num].imag],[0,0],color="olivedrab",lw=1)
    #単位円描画
    ax.plot(uc.real,uc.imag,uz0,color="red",lw=1)
    ax.plot(uc.real,uc.imag,uz1,color="green",lw=1)
    ax.plot(uc.real,uc.imag,uz2,color="blue",lw=1)
    #固定線追加
    ax.plot([0,0],[0,0],[-1,1],color="black",lw=1)
    ax.plot([0,1],[0,0],[-1,-1],color="black",lw=1)
    ax.plot([0,1],[0,0],[0,0],color="black",lw=1)
    ax.plot([0,1],[0,0],[1,1],color="black",lw=1)
    ax.plot([1,1],[0,0],[-1,0],color="black",lw=1)
    ax.plot([1,1],[0,0],[0,1],color="black",lw=1)
    #回転線追加 
    rollx=c.rect(1,Tcode[n]).real
    rolly=c.rect(1,Tcode[n]).imag
    ax.plot([0,rollx],[0,rolly],[-1,-1],color="red",lw=1)
    ax.plot([0,rollx],[0,rolly],[0,0],color="black",lw=1)
    ax.plot([0,rollx],[0,rolly],[1,1],color="blue",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[-1,0],color="red",lw=1)
    ax.plot([rollx,rollx],[rolly,rolly],[0,1],color="blue",lw=1)
    #断面線描画
    ax.plot([rollx,0],[rolly,0],[-1,0],color="black",lw=1)
    ax.plot([0,rollx],[0,rolly],[0,1],color="black",lw=1)
    #諸元追加
    ax.set_ylim([-1.1,1.1])
    ax.set_xlim([-1.1,1.1])
    ax.set_zlim([-1.1,1.1])
    ax.set_title("Unit Cylinder")
    ax.set_xlabel("Real")
    ax.set_ylabel("Imaginal")
    ax.set_zlabel("Cycle")
    # グラフを回転(elev=25、0にすると水平表示、90にすると垂直表示)
    ax.view_init(elev=25, azim=-45)

#azimにTime_code[n]を設定すると世界の側が回る。
Time_code0=np.arange(0,360,6)  
Time_code=Time_code0[::-1] 
#unit_cylinder(len(s1))
#plt.show()

ani = animation.FuncAnimation(fig, unit_cylinder, interval=50,frames=len(Time_code))
ani.save("corn001.gif", writer="pillow")
```
①平面図が観測者の主観によって「**円錐の手前側と奥側の1周**」にも「**手前側の半周分を往復**」にも見えますが、これは**複素共役**(Complex Conjugate)a±biの概念とも絡んでくる人間の認識能力のバグです。人間は例えば以下の画像に強引に「**手前から奥/奥から手前に向かう波動**」や「**右回転/左回転**」を見て取り、しかもその認識は首をちょっと振った程度でも揺らいでしまいますが、実はそもそも元アニメーションそのものにどちらか決定するのに必要な情報が欠け落ちているのです。
[【初心者向け】複素共役のアニメーション表示について。](https://qiita.com/ochimusha01/items/e0bb2789a420d3317cf1)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fqiita-image-store.s3.ap-northeast-1.amazonaws.com%2F0%2F597772%2F0aeed895-bafb-002c-82f5-2565c3145d80.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9c8d8453f6ce61ac2c748d6ca4f6767f)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fqiita-image-store.s3.ap-northeast-1.amazonaws.com%2F0%2F597772%2F98cb3b85-8775-d5ac-4f21-5608fbb7db13.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=83a6f15e8cefb79e080b4f29e08d1cbd)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fqiita-image-store.s3.ap-northeast-1.amazonaws.com%2F0%2F597772%2F161ed342-36aa-8db1-c463-f1ea040eb6d9.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=9de8d6135190f76a29d43e1262604aa4)
②また円錐座標系は実は以下の5種類存在しますが、それぞれの円錐対の軸が直交している(<font color=blue>すなわち内積が0である</font>)事が成立の条件となります。(<font color=blue>しばしばトランプの札構成が例示されるが、行列演算の援用に際しては、しばしばそもそもの前提として正方性、すなわち行要素の数と列要素の数が一致する事を前提として問われる</font>)。
[直積集合 - Wikipedia](https://ja.wikipedia.org/wiki/%E7%9B%B4%E7%A9%8D%E9%9B%86%E5%90%88)

```math
A×B=((a,b)|a \in A \land b \in B)
```

* 円錐軸が**実数列**(Real Sequence)…まさにこの投稿で扱ったケースで、**1組の円錐対**のみで構成される。逆を言えば以下の構成は全てその**直積**(Direct Product)で表せる？　その事について現段階では断言出来ないが、とにかく(<font color=blue>内積概念が存在しない</font>)**ベクトル空間**(Vector Space)で成立するのはこれのみで、以降の構成は全て**計量ベクトル空間**(Metric Vector Space)の成立を前提としている。<br>[計量ベクトル空間 - Wikipedia](https://ja.wikipedia.org/wiki/%E8%A8%88%E9%87%8F%E3%83%99%E3%82%AF%E3%83%88%E3%83%AB%E7%A9%BA%E9%96%93)
* 円錐軸が**xy軸**…**xy軸**それぞれを軸線とする2組の円錐対によって構成される。xy=0、すなわちxかyが0の場合を**特異点**(Singular Point)とする開集合でもある。
* 円錐軸が**平方対角線**(Square Diagonal)…四象限を埋める2組の円錐対によって構成される。
* 円錐軸が**xyz軸**…**xyz軸**それぞれを軸線とする3組の円錐対によって構成される。
* 円錐軸が**立方対角線**(Cubic Diagonal)…八象限を埋める4組の円錐対によって構成される。xyz=0、すなわちxかyかzが0の場合を**特異点**(Singular Point)とする開集合でもある。

[【初心者向け】線形関数や絶対値関数](https://qiita.com/ochimusha01/items/8b7050e65b599f9e15c2)
![image.png](https://qiita-user-contents.imgix.net/https%3A%2F%2Fqiita-image-store.s3.ap-northeast-1.amazonaws.com%2F0%2F597772%2Fb7f1b672-8e8f-7642-7ffb-f9798f3b93c2.png?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=cbc32b8b5719c8ce4ca7314e32635d5e)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20201120%2F20201120102401.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=1f640f52792108d8e3da8a7dabdaba2a)
![image.gif](https://qiita-user-contents.imgix.net/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fo%2Fochimusha01%2F20201120%2F20201120124110.gif?ixlib=rb-4.0.0&auto=format&gif-q=60&q=75&w=1400&fit=max&s=f7dc99e69cd82c4f5c66b56e52a0b502)
こうして全体像を俯瞰した時、初めて「**小学校の算数の授業で習った数直線**=<font color=purple>スカラーの推移のみを抽出した同心円集合</font>」をより高次元の数学の領域で再掌握したといえるのかもしれません。そういう私自身、こうした考え方に辿り着く事によってやっと群論における環の概念を理解出来たのです（<font color=blue>この理解で本当に数学的に合っているか、まだ全然自身がなかったりもする訳ったりもするのでしたすが。</font>）

とりあえず、そんな感じで以下続報…