"Root systems and Dynkin diagrams(mathematica)"의 두 판 사이의 차이

수학노트
둘러보기로 가기 검색하러 가기
 
(사용자 3명의 중간 판 29개는 보이지 않습니다)
1번째 줄: 1번째 줄:
* [[Root Systems and Dynkin diagrams]]
+
==encyclopedia==
 +
 
 
* http://en.wikipedia.org/wiki/root_systems
 
* http://en.wikipedia.org/wiki/root_systems
* [http://en.wikipedia.org/wiki/Dynkin_diagram ][http://en.wikipedia.org/wiki/Dynkin_diagram ][http://en.wikipedia.org/wiki/Dynkin_diagram ][http://en.wikipedia.org/wiki/Dynkin_diagram ]http://en.wikipedia.org/wiki/Dynkin_diagram
+
* http://en.wikipedia.org/wiki/Dynkin_diagram
 
+
* http://mathworld.wolfram.com/DynkinDiagram.html
 
+
[[분류:개인노트]]
 
+
[[분류:math and physics]]
 
+
[[분류:Lie theory]]
 
+
[[분류:migrate]]
<h5>A_n root systems</h5>
 
 
 
(* A_n type Cartan matrix *)<br> r := 2<br> rt[i_] := UnitVector[r + 1, i] - UnitVector[r + 1, i + 1]<br> a[i_, j_] := (2 Dot[rt[i], rt[j]])/Dot[rt[j], rt[j]]<br> A := Table[a[i, j], {i, 1, r}, {j, 1, r}]<br> A // MatrixForm
 
 
 
 
 
 
 
 
 
 
 
<h5>B_n root systems</h5>
 
 
 
Clear[rt]<br> (*B_r type Cartan matrix*)<br> r := 4<br> rt[i_] :=<br>  If[i < r, UnitVector[r, i] - UnitVector[r, 1 + i], UnitVector[r, r]]<br> a[i_, j_] := (2 Dot[rt[i], rt[j]])/Dot[rt[j], rt[j]]<br> A := Table[a[i, j], {i, 1, r}, {j, 1, r}]<br> Print["root vectors"]<br> Table[rt[i], {i, 1, r}] // TableForm<br> Print["Cartan matrix"]<br> A // MatrixForm
 
 
 
 
 
 
 
 
 
 
 
<h5>C_n root systems</h5>
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
<h5>D_n root systems</h5>
 
 
 
(* A_n type Cartan matrix *)<br> r := 2<br> rt[i_] := UnitVector[r + 1, i] - UnitVector[r + 1, i + 1]<br> a[i_, j_] := (2 Dot[rt[i], rt[j]])/Dot[rt[j], rt[j]]<br> A := Table[a[i, j], {i, 1, r}, {j, 1, r}]<br> A // MatrixForm
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
<h5>related items</h5>
 
  
* [[4667393|dilogarithm and Nahm's conjecture (mathematica)]]
+
==메타데이터==
 +
===위키데이터===
 +
* ID :  [https://www.wikidata.org/wiki/Q534131 Q534131]
 +
===Spacy 패턴 목록===
 +
* [{'LOWER': 'root'}, {'LEMMA': 'system'}]

2021년 2월 17일 (수) 03:17 기준 최신판