butchi · December 16, 2015 13:06
diff --git a/file1.txt b/file1.txt
 generator = {0, Pi/3, -Pi/3, 0};
diff --git a/file2.txt b/file2.txt
 f[list_] := list + # & /@ generator
diff --git a/file3.txt b/file3.txt
 {
  {0, Pi/3, -Pi/3, 0} + 0,
  {0, Pi/3, -Pi/3, 0} + Pi/3,
  {0, Pi/3, -Pi/3, 0} + -Pi/3,
  {0, Pi/3, -Pi/3, 0} + 0
 }
diff --git a/file4.txt b/file4.txt
 inclinationList = Flatten[Nest[f, generator, 5]];
diff --git a/file5.txt b/file5.txt
 cPoints = Join[{0}, Accumulate[E^(I inclinationList)]];
diff --git a/file6.txt b/file6.txt
 Graphics[Line[Transpose[{Re[cPoints], Im[cPoints]}]]]
diff --git a/koch_original.nb b/koch_original.nb
 generator = {0, Pi/3, -Pi/3, 0};
 f[list_] := list + # & /@ generator
 inclinationList = Flatten[Nest[f, generator, 5]];
 cPoints = Join[{0}, Accumulate[E^(I inclinationList)]];
 Graphics[Line[Transpose[{Re[cPoints], Im[cPoints]}]]]
diff --git a/koch_short.nb b/koch_short.nb
 Graphics@Line@Transpose@{Re[#],Im[#]}&@FoldList[Plus,0,E^(Flatten@Nest[Function[l,l+#&/@{0,Pi/3,-Pi/3,0}],{0},5]I)]
	generator = {0, Pi/3, -Pi/3, 0};
	f[list_] := list + # & /@ generator
	inclinationList = Flatten[Nest[f, generator, 5]];
	cPoints = Join[{0}, Accumulate[E^(I inclinationList)]];
	Graphics[Line[Transpose[{Re[cPoints], Im[cPoints]}]]]
No results found