Skip to content

Instantly share code, notes, and snippets.

@chwnam

chwnam/Sewol 304 Curves.nb

Created April 16, 2018 06:24
Show Gist options
  • Save chwnam/d325f1eee1670938d85158395b80ae53 to your computer and use it in GitHub Desktop.
Save chwnam/d325f1eee1670938d85158395b80ae53 to your computer and use it in GitHub Desktop.
Download ZIP
304개의 곡선으로 구성된 세월호 리본 (원본출처: http://bit.ly/2HDcOrC, https://goo.gl/khXLb8)
Raw
Sewol 304 Curves.nb
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 0, 0]
NotebookDataLength[ 63161, 1511]
NotebookOptionsPosition[ 57778, 1418]
NotebookOutlinePosition[ 58164, 1435]
CellTagsIndexPosition[ 58121, 1432]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Sewol Ribon with 304 Curves", "Title",
CellChangeTimes->{{3.7327384096646767`*^9,
3.732738425212885*^9}},ExpressionUUID->"91c86519-93c7-486d-9ea2-\
d1b9115128f4"],
Cell[TextData[{
"Joo-Haeng Lee\n2018-04-15\n",
StyleBox["joohaeng at gmail",
FontColor->GrayLevel[0.5]]
}], "Text",
CellChangeTimes->{{3.7327384284418497`*^9, 3.732738447983241*^9}, {
3.732738544577882*^9,
3.73273854934678*^9}},ExpressionUUID->"65465787-860f-4953-8cbf-\
af8004043fc9"],
Cell[CellGroupData[{
Cell["Phase 1", "Subsection",
CellChangeTimes->{{3.7327654205731163`*^9,
3.732765423048017*^9}},ExpressionUUID->"e8bc054f-0632-4f03-8d37-\
edc1b558c4fe"],
Cell["304\:ac1c\:c758 \:ace1\:c120\:b4e4\:c744 \:adf8\:b9ac\:b294 \
\:ae30\:bcf8 \:b2e8\:acc4\:c785\:b2c8\:b2e4.", "Text",
CellChangeTimes->{{3.732783717109449*^9,
3.7327837255806293`*^9}},ExpressionUUID->"957e81e0-2853-4f10-80e5-\
b35baf2bfaf8"],
Cell[CellGroupData[{
Cell["Version 1: Basic", "Subsubsection",
CellChangeTimes->{{3.732753934315876*^9,
3.73275396142887*^9}},ExpressionUUID->"b5dd4779-16cf-4a77-8eeb-\
be6bd1e0e1f8"],
Cell[BoxData[{
RowBox[{
RowBox[{"n", "=", "304"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SeedRandom", "@", "140416"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"width", "=", "12"}], ";"}], "\n",
RowBox[{
RowBox[{"pL", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "7"}], ",",
RowBox[{"-", "9"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",",
RowBox[{"-", "9"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pLL", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"pL", "+",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"1.5",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ",", "n"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"hueL", "=",
RowBox[{"Hue", "/@",
RowBox[{"RandomVariate", "[",
RowBox[{
RowBox[{"NormalDistribution", "[",
RowBox[{"0.14", ",", "0.016"}], "]"}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"opL", "=",
RowBox[{"Opacity", "/@",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.3", ",", "0.5"}], "}"}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"thickL", "=",
RowBox[{"Thickness", "/@",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.001", ",", "0.004"}], "}"}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"frame", "=", " ",
RowBox[{"{",
RowBox[{
RowBox[{"EdgeForm", "[", "]"}], ",",
RowBox[{"FaceForm", "[", "]"}], ",",
RowBox[{"Rectangle", "[",
RowBox[{
RowBox[{"width",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], ",",
RowBox[{"width",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"curveL", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"thickL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"opL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"hueL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"BSplineCurve", "[",
RowBox[{"pLL", "[",
RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{",
RowBox[{"frame", ",", "curveL"}], "}"}], ",",
RowBox[{"Background", "\[Rule]",
RowBox[{"GrayLevel", "@", "0.17"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.732705324266767*^9, 3.732705375561397*^9}, {
3.73270542276968*^9, 3.732705575725348*^9}, {3.7327060796502647`*^9,
3.732706145504655*^9}, {3.7327062113215218`*^9, 3.732706323899907*^9}, {
3.7327063757095013`*^9, 3.732706416925256*^9}, {3.7327068526473637`*^9,
3.732706961826871*^9}, {3.732706997429928*^9, 3.732707105761229*^9},
3.73270715351079*^9, 3.732707186979198*^9, 3.7327072600372143`*^9, {
3.732707291516202*^9, 3.7327073233612213`*^9}, {3.732707396983712*^9,
3.7327074005607767`*^9}, {3.732707452707097*^9, 3.732707564384554*^9}, {
3.7327076253963747`*^9, 3.732707658288957*^9}, {3.7327076922115917`*^9,
3.73270774198973*^9}, {3.7327078131948347`*^9, 3.7327078153753242`*^9}, {
3.732708415148312*^9, 3.732708421868566*^9}, {3.732709095651322*^9,
3.732709105908387*^9}, {3.732709420915197*^9, 3.732709448829113*^9}, {
3.7327095369603357`*^9, 3.732709537527719*^9}, {3.7327348719579887`*^9,
3.7327349290273438`*^9}, {3.732734961443074*^9, 3.732735050124213*^9}, {
3.732735173426075*^9, 3.732735196746524*^9}, {3.732735253596467*^9,
3.7327353609463167`*^9}, {3.73273567990055*^9, 3.732735699345511*^9}, {
3.732735857559593*^9, 3.7327358603911247`*^9}, {3.732736008771728*^9,
3.732736009446662*^9}, {3.732737360273716*^9, 3.732737378814271*^9}, {
3.7327382971157207`*^9, 3.73273829765703*^9}, {3.7327384581736097`*^9,
3.73273850937661*^9}, {3.732738605026949*^9, 3.73273860550735*^9}, {
3.732750140014955*^9, 3.732750147140596*^9}, {3.732750212135826*^9,
3.7327502402020187`*^9}, {3.732751313135231*^9, 3.732751351625266*^9}, {
3.732752140066766*^9, 3.732752169008045*^9}, {3.732752212902791*^9,
3.732752265961549*^9}, {3.732752454156695*^9, 3.732752486137989*^9}, {
3.7327525602040462`*^9, 3.7327526935235567`*^9}, {3.732752724914815*^9,
3.732752736173959*^9}, {3.732752771535227*^9, 3.732752784524489*^9}, {
3.73275294606175*^9, 3.732752978404065*^9}, {3.7327550853843737`*^9,
3.7327551760678596`*^9}},
CellLabel->
"In[485]:=",ExpressionUUID->"8ff07ed5-364f-4657-a85f-d085a0774ebe"]
}, Closed]],
Cell[CellGroupData[{
Cell["Version 2: Annotations", "Subsubsection",
CellChangeTimes->{{3.732753934315876*^9,
3.73275396577098*^9}},ExpressionUUID->"1a6bffa1-2462-4556-b680-\
4a2f01484749"],
Cell["304\:ac1c\:c758 \:ace1\:c120\:c73c\:b85c \:ad6c\:c131\:b41c \
\:c138\:c6d4\:d638 \:b9ac\:bcf8\:c744 \:b9cc\:b4e4\:c5b4 \:bcf4\:c558\:c2b5\
\:b2c8\:b2e4.", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, {3.732753991074725*^9, 3.732753992353265*^9}, {
3.732754174079672*^9,
3.732754174844664*^9}},ExpressionUUID->"790f5ab0-13f7-4b49-bebb-\
601ad9e787e9"],
Cell[BoxData[
RowBox[{
RowBox[{"n", "=", "304"}], ";"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1626]:=",ExpressionUUID->"b9b0a117-7e22-41f7-bf08-8e93107352f4"],
Cell["\<\
Mathematica \:cf54\:b529\:c785\:b2c8\:b2e4. \:ccab \:c904\:c5d0 \:bcc0\:c218\
\:ac12\:c744 \:d560\:b2f9\:c744 \:d558\:ace0 \:bd80\:d130 \:ba39\:ba39\:d588\
\:c2b5\:b2c8\:b2e4. 304. \:c774 \:c22b\:c790\:b97c \:c774\:b807\:ac8c \:ac04\
\:b2e8\:d55c \:d55c \:c904\:c5d0 \:b2f4\:c544\:b3c4 \:b418\:b294\:c9c0... \
\:bcc0\:c218 \:c774\:b984\:c744 \:ae38\:ac8c\:d558\:c5ec \:c124\:ba85\:c73c\
\:b85c \:c0bc\:c9c0\:b294 \:c54a\:ae30\:b85c \:d588\:c2b5\:b2c8\:b2e4. \:d45c\
\:d604\:c740 \:cd5c\:c885 \:adf8\:b9bc\:c5d0\:c11c\:b9cc \:d558\:ae30\:b85c.\
\>", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732753997555066*^9, 3.732754166990773*^9, {
3.7327545699432*^9,
3.7327545701339684`*^9}},ExpressionUUID->"3de23f04-1336-4fbb-b2c1-\
f25f30f3fa36"],
Cell[BoxData[
RowBox[{
RowBox[{"SeedRandom", "@", "140416"}], ";"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1627]:=",ExpressionUUID->"b8658683-1a35-46d0-adb2-9c5aa5931993"],
Cell["\<\
304\:bd84 \:ac01\:c790\:c758 \:c0b6\:c744 \:baa8\:b450 \:d558\:b098\:c758 \
\:ace1\:c120\:c73c\:b85c \:d45c\:d604\:d558\:ae30\:b85c \:acc4\:d68d\:d588\
\:ace0, \:b9c8\:c9c0\:b9c9\:c744 \:d568\:aed8 \:d558\:ae30 \:c774\:c804\:c5d0 \
\:c0b4\:c544 \:c628 \:ac01\:c790\:c758 \:c11c\:b85c \:b2e4\:b978 \:c0b6\:c758 \
\:ada4\:c801\:c744 \:d45c\:d604\:d558\:ae30 \:c704\:d574 \:ace1\:c120\:c758 \
\:d615\:d0dc\:acfc \:c0c9\:c0c1\:c744 \:b79c\:b364\:c73c\:b85c \:bcc0\:d615\
\:d558\:ae30\:b85c \:d588\:c2b5\:b2c8\:b2e4. \:b79c\:b364 \:c2dc\:b4dc\:b294 \
140416\:c73c\:b85c \:d558\:ae30\:b85c \:d588\:c2b5\:b2c8\:b2e4. \:ac00\:c7a5 \
\:c801\:b2f9\:d55c \:c22b\:c790\:b77c\:ace0 \:c0dd\:ac01\:b429\:b2c8\:b2e4.\
\>", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754000885144*^9, {3.732754572114253*^9,
3.7327545723057013`*^9}},ExpressionUUID->"0386ac46-00f6-48be-b80e-\
f9183143722e"],
Cell[BoxData[
RowBox[{
RowBox[{"pL", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "7"}], ",",
RowBox[{"-", "9"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",",
RowBox[{"-", "9"}]}], "}"}]}], "}"}]}], ";"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1628]:=",ExpressionUUID->"e6a713f8-931d-425c-9664-b327b255b8bf"],
Cell["\:ace1\:c120\:c758 \:ae30\:bcf8 \:bf08\:b300\:ac00 \:b418\:b294 \:be44\
\:c2a4\:d50c\:b77c\:c778 \:ace1\:ba74\:c758 \:c81c\:c5b4\:c810\:c785\:b2c8\
\:b2e4. 9\:ac1c\:c758 \:c810\:c73c\:b85c \:cd5c\:b300\:d55c \
\:b2e8\:c21c\:d558\:ac8c \:ad6c\:c131\:d558\:c600\:c2b5\:b2c8\:b2e4.", "Text",\
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754003251161*^9, {3.7327545739480247`*^9,
3.732754574150415*^9}},ExpressionUUID->"8d3d96e5-f98d-4322-b624-\
342a3ea6222a"],
Cell[BoxData[
RowBox[{
RowBox[{"pLL", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"pL", "+",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"1.5",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ",", "n"}], "]"}]}],
";"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1629]:=",ExpressionUUID->"d4526f3a-2533-4362-907d-956a47afb53b"],
Cell["\:ae30\:c900\:c774 \:b418\:b294 \:c81c\:c5b4\:c810\:c744 \:bcc0\:d615\
\:d558\:c5ec 304\:ac1c\:c758 \:c81c\:c5b4\:c810 \:c9d1\:d569\:c744 \:b9cc\
\:b4ed\:b2c8\:b2e4.", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754007092421*^9, {3.732754575567925*^9,
3.7327545757590513`*^9}},ExpressionUUID->"635d3b8a-00bf-4128-9e59-\
5f0499dc4944"],
Cell[BoxData[
RowBox[{
RowBox[{"hueL", "=",
RowBox[{"Hue", "/@",
RowBox[{"RandomVariate", "[",
RowBox[{
RowBox[{"NormalDistribution", "[",
RowBox[{"0.14", ",", "0.016"}], "]"}], ",", "n"}], "]"}]}]}],
";"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1630]:=",ExpressionUUID->"7915fa99-9bc2-43a2-b630-e97184d2f04e"],
Cell["\<\
\:ae30\:bcf8\:c774 \:b418\:b294 \:c0c9\:c0c1\:c740 [email protected]\:c758 \
\:b178\:b780\:c0c9\:c774\:ace0, \:c5ec\:ae30\:c5d0 \:c815\:addc\:bd84\:d3ec\
\:b85c \:c0d8\:d50c\:b9c1\:c744 \:d558\:c5ec \:ac01 \:ace1\:c120\:c5d0 \:c0ac\
\:c6a9\:b420 \:c0c9\:c0c1 \:c9d1\:d569\:c744 \:b9cc\:b4ed\:b2c8\:b2e4.\
\>", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754009544138*^9, {3.732754577086488*^9,
3.732754577277911*^9}},ExpressionUUID->"de661d53-7004-4121-83c9-\
526b4390ece6"],
Cell[BoxData[{
RowBox[{
RowBox[{"opL", "=",
RowBox[{"Opacity", "/@",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.3", ",", "0.5"}], "}"}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"thickL", "=",
RowBox[{"Thickness", "/@",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.001", ",", "0.004"}], "}"}], ",", "n"}], "]"}]}]}],
";"}]}], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1631]:=",ExpressionUUID->"aa1c012b-9745-409d-b977-ca48cfe11732"],
Cell["\:ace1\:c120\:c758 \:d22c\:ba85\:b3c4\:c640 \:b450\:aed8\:c5d0\:b3c4 \
\:ace1\:c120\:b9c8\:b2e4 \:b2e4\:b978 \:ac12\:c744 \:ac16\:b3c4\:b85d \:d588\
\:c2b5\:b2c8\:b2e4.", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754013920423*^9, {3.732754579685924*^9,
3.732754579865305*^9}},ExpressionUUID->"6c4eeddb-4761-4c87-91b1-\
4ee3ff5d9d40"],
Cell[BoxData[{
RowBox[{
RowBox[{"width", "=", "12"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"frame", "=", " ",
RowBox[{"{",
RowBox[{
RowBox[{"EdgeForm", "[", "]"}], ",",
RowBox[{"FaceForm", "[", "]"}], ",",
RowBox[{"Rectangle", "[",
RowBox[{
RowBox[{"width",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], ",",
RowBox[{"width",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.732754250378374*^9, 3.7327542513564777`*^9}},
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1633]:=",ExpressionUUID->"e50f2338-a152-4343-abd9-02303aa0d52f"],
Cell["\:b9ac\:bcf8\:c744 \:b2f4\:c744 \:d504\:b808\:c784\:c785\:b2c8\:b2e4. \
\:adf8\:b798\:d53d\:c2a4 \:ce94\:bc84\:c2a4\:c758 \:d06c\:ae30\:b97c \:c0ac\
\:c6a9\:d558\:b294\:b370\:b9cc \:c0ac\:c6a9\:b429\:b2c8\:b2e4. width\:b294 \
12.", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754016500304*^9, {3.732754581350543*^9,
3.732754581530357*^9}},ExpressionUUID->"67097330-91af-41f9-b95f-\
ad20f6ff8f7b"],
Cell[BoxData[
RowBox[{
RowBox[{"curveL", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"thickL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"opL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"hueL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"BSplineCurve", "[",
RowBox[{"pLL", "[",
RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1635]:=",ExpressionUUID->"22ab1214-c1f9-4466-93f5-dc4d5175ae93"],
Cell["\<\
\:bbf8\:b9ac \:acc4\:c0b0\:d55c \:ace1\:c120\:c758 \:b450\:aed8, \:d22c\:ba85\
\:b3c4, \:c0c9\:c0c1\:acfc \:b354\:bd88\:c5b4 \:c81c\:c5b4\:c810\:c73c\:b85c \
\:be44\:c2a4\:d50c\:b77c\:c778 \:ace1\:c120\:c744 \:b9cc\:b4e4\:c5b4, 304\
\:ac1c\:c758 \:ace1\:c120 \:c9d1\:d569\:c744 \:b9cc\:b4ed\:b2c8\:b2e4.\
\>", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, 3.732754026160985*^9, {3.7327545829145937`*^9,
3.732754583105432*^9}},ExpressionUUID->"f909c668-7a29-4c59-9373-\
df83e1884304"],
Cell[BoxData[
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{",
RowBox[{"frame", ",", "curveL"}], "}"}], ",",
RowBox[{"Background", "\[Rule]",
RowBox[{"GrayLevel", "@", "0.17"}]}]}], "]"}]], "Input",
Background->RGBColor[0.87, 0.94, 1],
CellLabel->
"In[1636]:=",ExpressionUUID->"d93b87c6-92c1-477d-8053-2d59f162d2e8"],
Cell["\<\
2\:cc28\:c6d0 \:ce94\:bc84\:c2a4\:c5d0 \:ce94\:bc84\:c2a4\:c640 \:ace1\:c120 \
\:c9d1\:d569\:c744 \:adf8\:b824\:c90d\:b2c8\:b2e4. \:bc30\:acbd\:c0c9\:c740 \
\:b530\:b85c \:c870\:c815\:ac00\:b2a5\:d569\:b2c8\:b2e4.
\:c774\:b807\:ac8c \:d574\:c11c \:b9cc\:b4e4\:c5b4\:c9c4 \:b9ac\:bcf8\:c758 \
\:bca1\:d130 \:c774\:bbf8\:c9c0\:b97c \:d0a4\:b178\:d2b8\:c5d0\:c11c \:ae00\
\:c790\:c640 \:c870\:d569\:d558\:c5ec \:c544\:b798\:c758 \:cd5c\:c885 \:c774\
\:bbf8\:c9c0\:b97c \:b9cc\:b4e4 \:c218 \:c788\:c5c8\:c2b5\:b2c8\:b2e4. \:cc98\
\:c74c\:c5d0\:b294 \:b9ac\:bcf8\:b9cc \:b9cc\:b4e4\:b824\:ace0 \:d588\:b294\
\:b370, \:b538\:c544\:c774\:ac00 \:af2d \:ae00\:c744 \:b123\:c5b4\:c57c \
\:d55c\:b2e4\:ace0 \:d588\:c2b5\:b2c8\:b2e4.
\"14.04.16. \:ae30\:c5b5\:d558\:aca0\:c2b5\:b2c8\:b2e4. \:d568\:aed8 \:d558\
\:aca0\:c2b5\:b2c8\:b2e4.\"\
\>", "Text",
CellChangeTimes->{
3.7327539389384117`*^9, {3.732754556962681*^9,
3.732754564880025*^9}},ExpressionUUID->"b3d90b25-f85b-434a-9f7d-\
9a6a710d7823"]
}, Closed]],
Cell[CellGroupData[{
Cell["Version 3: Full", "Subsubsection",
CellChangeTimes->{{3.732753927685829*^9, 3.732753930277747*^9}, {
3.7327539704849443`*^9,
3.732753978047317*^9}},ExpressionUUID->"5966283d-e407-4e0e-be44-\
5293e871c1eb"],
Cell[BoxData[{
RowBox[{
RowBox[{"n", "=", "304"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SeedRandom", "@", "140416"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"imgSize", "=", "512"}], ";"}], "\n",
RowBox[{
RowBox[{"pL", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "7"}], ",",
RowBox[{"-", "9"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",",
RowBox[{"-", "9"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pLL", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"pL", "+",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"1.6",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ",", "n"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"hueL", "=",
RowBox[{"Hue", "/@",
RowBox[{"RandomVariate", "[",
RowBox[{
RowBox[{"NormalDistribution", "[",
RowBox[{"0.14", ",", "0.02"}], "]"}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"opL", "=",
RowBox[{"Opacity", "/@",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"0.0", "+",
RowBox[{"{",
RowBox[{"0.3", ",", "0.5"}], "}"}]}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"thickL", "=",
RowBox[{"Thickness", "/@",
RowBox[{"(",
RowBox[{"1",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.001", ",", "0.004"}], "}"}], ",", "n"}], "]"}]}],
")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"width", "=", "12"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"frame", "=", " ",
RowBox[{"{",
RowBox[{
RowBox[{"EdgeForm", "[", "]"}], ",",
RowBox[{"FaceForm", "[", "]"}], ",",
RowBox[{"Rectangle", "[",
RowBox[{
RowBox[{"width",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], ",",
RowBox[{"width",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"g", "=",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{"frame", ",", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"thickL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"opL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"hueL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"BSplineCurve", "[",
RowBox[{"pLL", "[",
RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"Background", "\[Rule]",
RowBox[{"If", "[",
RowBox[{"True", ",", "None", ",",
RowBox[{"GrayLevel", "@", "0.17"}]}], "]"}]}], ",",
RowBox[{"PlotRangePadding", "\[Rule]", "0"}]}], "\[IndentingNewLine]",
"]"}]}]}], "Input",
CellChangeTimes->{{3.732705324266767*^9, 3.732705375561397*^9}, {
3.73270542276968*^9, 3.732705575725348*^9}, {3.7327060796502647`*^9,
3.732706145504655*^9}, {3.7327062113215218`*^9, 3.732706323899907*^9}, {
3.7327063757095013`*^9, 3.732706416925256*^9}, {3.7327068526473637`*^9,
3.732706961826871*^9}, {3.732706997429928*^9, 3.732707105761229*^9},
3.73270715351079*^9, 3.732707186979198*^9, 3.7327072600372143`*^9, {
3.732707291516202*^9, 3.7327073233612213`*^9}, {3.732707396983712*^9,
3.7327074005607767`*^9}, {3.732707452707097*^9, 3.732707564384554*^9}, {
3.7327076253963747`*^9, 3.732707658288957*^9}, {3.7327076922115917`*^9,
3.73270774198973*^9}, {3.7327078131948347`*^9, 3.7327078153753242`*^9}, {
3.732708415148312*^9, 3.732708421868566*^9}, {3.732709095651322*^9,
3.732709105908387*^9}, {3.732709420915197*^9, 3.732709448829113*^9}, {
3.7327095369603357`*^9, 3.732709537527719*^9}, {3.7327348719579887`*^9,
3.7327349290273438`*^9}, {3.732734961443074*^9, 3.732735050124213*^9}, {
3.732735173426075*^9, 3.732735196746524*^9}, {3.732735253596467*^9,
3.7327353609463167`*^9}, {3.73273567990055*^9, 3.732735699345511*^9}, {
3.732735857559593*^9, 3.7327358603911247`*^9}, {3.732736008771728*^9,
3.732736009446662*^9}, {3.732737360273716*^9, 3.732737378814271*^9}, {
3.7327382971157207`*^9, 3.73273829765703*^9}, {3.7327384581736097`*^9,
3.73273850937661*^9}, {3.732738605026949*^9, 3.73273860550735*^9}, {
3.732750140014955*^9, 3.732750147140596*^9}, {3.732750212135826*^9,
3.7327502402020187`*^9}, {3.732751313135231*^9, 3.732751351625266*^9}, {
3.732752140066766*^9, 3.732752169008045*^9}, {3.732752212902791*^9,
3.732752265961549*^9}, {3.732752454156695*^9, 3.732752486137989*^9}, {
3.7327525602040462`*^9, 3.732752587055648*^9}, {3.732755791665051*^9,
3.7327559126862803`*^9}, {3.7327559568994293`*^9, 3.73275611436511*^9}, {
3.7327561519272947`*^9, 3.73275615252562*^9}, {3.732756630036965*^9,
3.732756667442218*^9}, {3.732756798069972*^9, 3.7327568006313953`*^9}, {
3.732756847762331*^9, 3.73275686464501*^9}, {3.732757172642487*^9,
3.7327572951646357`*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"1047dd80-3ced-4077-8c4f-9ce55f8668ed"],
Cell[BoxData[{
RowBox[{
RowBox[{"imgBGB", "=",
RowBox[{"RandomImage", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.16", ",", "0.19"}], "}"}], ",",
RowBox[{"imgSize",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], ",",
RowBox[{"ColorSpace", "\[Rule]", "\"\<Grayscale\>\""}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"imgBGW", "=",
RowBox[{"RandomImage", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.98", ",", "1"}], "}"}], ",",
RowBox[{"imgSize",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], ",",
RowBox[{"ColorSpace", "\[Rule]", "\"\<Grayscale\>\""}]}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.7327093430622463`*^9, 3.732709345215104*^9}, {
3.732738305910408*^9, 3.732738345213785*^9}, {3.732738392232497*^9,
3.732738394376629*^9}, {3.732739005159917*^9, 3.732739047232089*^9}},
CellLabel->
"In[1373]:=",ExpressionUUID->"956d3f70-00e0-4dab-bda1-4ded75c8d362"],
Cell[BoxData["imgBGW"], "Input",
CellChangeTimes->{{3.732739034606422*^9, 3.732739036015398*^9}},
CellLabel->
"In[1375]:=",ExpressionUUID->"e4c0036e-5cf2-4133-8a3b-ae4cf62d8bed"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Phase 2", "Subsection",
CellChangeTimes->{{3.732765438224484*^9,
3.732765439180743*^9}},ExpressionUUID->"af106e19-fa9a-4b63-999c-\
03b50cf27389"],
Cell["\:ace1\:c120\:c744 \:b530\:b77c \:b178\:b780 \:b3d9\:adf8\:b77c\:bbf8\
\:b4e4\:c744 \:cd94\:ac00\:c801\:c73c\:b85c \:bc30\:ce58\:d569\:b2c8\:b2e4.", \
"Text",
CellChangeTimes->{{3.732783695293688*^9,
3.7327837123502197`*^9}},ExpressionUUID->"88efecf7-fb32-4b35-b1e3-\
0f9b9383a3ca"],
Cell[CellGroupData[{
Cell["Version 1: Line Segments", "Subsubsection",
CellChangeTimes->{{3.7327660739907913`*^9,
3.732766086173908*^9}},ExpressionUUID->"2abdfe2e-e229-422e-831c-\
fdd21789f265"],
Cell[BoxData[{
RowBox[{
RowBox[{"n", "=", "304"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SeedRandom", "@", "140416"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"imgSize", "=", "512"}], ";"}], "\n",
RowBox[{
RowBox[{"pL", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "7"}], ",",
RowBox[{"-", "9"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",",
RowBox[{"-", "9"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pLL", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"pL", "+",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"1.6",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ",", "n"}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.732705324266767*^9, 3.732705375561397*^9}, {
3.73270542276968*^9, 3.732705575725348*^9}, {3.7327060796502647`*^9,
3.732706145504655*^9}, {3.7327062113215218`*^9, 3.732706323899907*^9}, {
3.7327063757095013`*^9, 3.732706416925256*^9}, {3.7327068526473637`*^9,
3.732706961826871*^9}, {3.732706997429928*^9, 3.732707105761229*^9},
3.73270715351079*^9, 3.732707186979198*^9, 3.7327072600372143`*^9, {
3.732707291516202*^9, 3.7327073233612213`*^9}, {3.732707396983712*^9,
3.7327074005607767`*^9}, {3.732707452707097*^9, 3.732707564384554*^9}, {
3.7327076253963747`*^9, 3.732707658288957*^9}, {3.7327076922115917`*^9,
3.73270774198973*^9}, {3.7327078131948347`*^9, 3.7327078153753242`*^9}, {
3.732708415148312*^9, 3.732708421868566*^9}, {3.732709095651322*^9,
3.732709105908387*^9}, {3.732709420915197*^9, 3.732709448829113*^9}, {
3.7327095369603357`*^9, 3.732709537527719*^9}, {3.7327348719579887`*^9,
3.7327349290273438`*^9}, {3.732734961443074*^9, 3.732735050124213*^9}, {
3.732735173426075*^9, 3.732735196746524*^9}, {3.732735253596467*^9,
3.7327353609463167`*^9}, {3.73273567990055*^9, 3.732735699345511*^9}, {
3.732735857559593*^9, 3.7327358603911247`*^9}, {3.732736008771728*^9,
3.732736009446662*^9}, {3.732737360273716*^9, 3.732737378814271*^9}, {
3.7327382971157207`*^9, 3.73273829765703*^9}, {3.7327384581736097`*^9,
3.73273850937661*^9}, {3.732738605026949*^9, 3.73273860550735*^9}, {
3.732750140014955*^9, 3.732750147140596*^9}, {3.732750212135826*^9,
3.7327502402020187`*^9}, {3.732751313135231*^9, 3.732751351625266*^9}, {
3.732752140066766*^9, 3.732752169008045*^9}, {3.732752212902791*^9,
3.732752265961549*^9}, {3.732752454156695*^9, 3.732752486137989*^9}, {
3.7327525602040462`*^9, 3.732752587055648*^9}, {3.732755791665051*^9,
3.7327559126862803`*^9}, {3.7327559568994293`*^9, 3.73275611436511*^9}, {
3.7327561519272947`*^9, 3.73275615252562*^9}, {3.732756630036965*^9,
3.732756667442218*^9}, {3.732756798069972*^9, 3.7327568006313953`*^9}, {
3.732756847762331*^9, 3.73275686464501*^9}, {3.732757172642487*^9,
3.7327572951646357`*^9}, {3.732766031458506*^9, 3.732766051156013*^9}, {
3.7327661165186768`*^9, 3.7327661374534082`*^9}, {3.732766175209322*^9,
3.732766200061902*^9}, {3.732766292349867*^9, 3.732766293539247*^9}, {
3.732766346921874*^9, 3.732766373483369*^9}, {3.7327814141126747`*^9,
3.732781414730349*^9}},
CellLabel->
"In[250]:=",ExpressionUUID->"ab5fc384-24ce-41a6-9fe1-c6ef50ec58e3"],
Cell["\:b3d9\:adf8\:b77c\:bbf8\:ac00 \:bc30\:ce58\:b420 \:c704\:ce58\:c785\
\:b2c8\:b2e4. \:ace1\:c120\:c758 arc length parameerization\:c744 \
\:b530\:b77c \:acb0\:c815\:d569\:b2c8\:b2e4.", "Text",
CellChangeTimes->{{3.732783746373342*^9,
3.7327837792883244`*^9}},ExpressionUUID->"28cac4d7-6fbf-4490-aadb-\
80b9b7ba3edc"],
Cell[BoxData[{
RowBox[{
RowBox[{"nSeg", "=", "50"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sLL", "=",
RowBox[{"ParallelTable", "[",
RowBox[{
RowBox[{"ArcLengthPoint", "[",
RowBox[{
RowBox[{"BSplineFunction", "@",
RowBox[{"pLL", "[",
RowBox[{"[", "i", "]"}], "]"}]}], ",", "nSeg"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.732705324266767*^9, 3.732705375561397*^9}, {
3.73270542276968*^9, 3.732705575725348*^9}, {3.7327060796502647`*^9,
3.732706145504655*^9}, {3.7327062113215218`*^9, 3.732706323899907*^9}, {
3.7327063757095013`*^9, 3.732706416925256*^9}, {3.7327068526473637`*^9,
3.732706961826871*^9}, {3.732706997429928*^9, 3.732707105761229*^9},
3.73270715351079*^9, 3.732707186979198*^9, 3.7327072600372143`*^9, {
3.732707291516202*^9, 3.7327073233612213`*^9}, {3.732707396983712*^9,
3.7327074005607767`*^9}, {3.732707452707097*^9, 3.732707564384554*^9}, {
3.7327076253963747`*^9, 3.732707658288957*^9}, {3.7327076922115917`*^9,
3.73270774198973*^9}, {3.7327078131948347`*^9, 3.7327078153753242`*^9}, {
3.732708415148312*^9, 3.732708421868566*^9}, {3.732709095651322*^9,
3.732709105908387*^9}, {3.732709420915197*^9, 3.732709448829113*^9}, {
3.7327095369603357`*^9, 3.732709537527719*^9}, {3.7327348719579887`*^9,
3.7327349290273438`*^9}, {3.732734961443074*^9, 3.732735050124213*^9}, {
3.732735173426075*^9, 3.732735196746524*^9}, {3.732735253596467*^9,
3.7327353609463167`*^9}, {3.73273567990055*^9, 3.732735699345511*^9}, {
3.732735857559593*^9, 3.7327358603911247`*^9}, {3.732736008771728*^9,
3.732736009446662*^9}, {3.732737360273716*^9, 3.732737378814271*^9}, {
3.7327382971157207`*^9, 3.73273829765703*^9}, {3.7327384581736097`*^9,
3.73273850937661*^9}, {3.732738605026949*^9, 3.73273860550735*^9}, {
3.732750140014955*^9, 3.732750147140596*^9}, {3.732750212135826*^9,
3.7327502402020187`*^9}, {3.732751313135231*^9, 3.732751351625266*^9}, {
3.732752140066766*^9, 3.732752169008045*^9}, {3.732752212902791*^9,
3.732752265961549*^9}, {3.732752454156695*^9, 3.732752486137989*^9}, {
3.7327525602040462`*^9, 3.732752587055648*^9}, {3.732755791665051*^9,
3.7327559126862803`*^9}, {3.7327559568994293`*^9, 3.73275611436511*^9}, {
3.7327561519272947`*^9, 3.73275615252562*^9}, {3.732756630036965*^9,
3.732756667442218*^9}, {3.732756798069972*^9, 3.7327568006313953`*^9}, {
3.732756847762331*^9, 3.73275686464501*^9}, {3.732757172642487*^9,
3.7327572951646357`*^9}, {3.732766031458506*^9, 3.732766051156013*^9}, {
3.7327661165186768`*^9, 3.7327661374534082`*^9}, {3.732766175209322*^9,
3.732766200061902*^9}, {3.732766292349867*^9, 3.732766293539247*^9}, {
3.732766346921874*^9, 3.732766373483369*^9}, {3.732781426533938*^9,
3.73278144830119*^9}, {3.732781503388194*^9, 3.732781512585535*^9}, {
3.73278386554823*^9, 3.7327838656330233`*^9}, {3.7327839957869387`*^9,
3.732783996064361*^9}, {3.732784996024269*^9, 3.732784996106139*^9}, {
3.7327853766885633`*^9, 3.7327853769226017`*^9}, {3.7327854126209383`*^9,
3.732785412844396*^9}},
CellLabel->
"In[293]:=",ExpressionUUID->"bf21a1c2-1ab9-46cb-8f32-ffddad0cd257"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"hueL", "=",
RowBox[{"Hue", "/@",
RowBox[{"RandomVariate", "[",
RowBox[{
RowBox[{"NormalDistribution", "[",
RowBox[{"0.14", ",", "0.015"}], "]"}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"opL", "=",
RowBox[{"Opacity", "/@",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"0.0", "+",
RowBox[{"{",
RowBox[{"0.3", ",", "0.5"}], "}"}]}], ",", "n"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"thickL", "=",
RowBox[{"Thickness", "/@",
RowBox[{"(",
RowBox[{"0.2",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0.001", ",", "0.004"}], "}"}], ",", "n"}], "]"}]}],
")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"width", "=", "12"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"frame", "=", " ",
RowBox[{"{",
RowBox[{
RowBox[{"EdgeForm", "[", "]"}], ",",
RowBox[{"FaceForm", "[", "]"}], ",",
RowBox[{"Rectangle", "[",
RowBox[{
RowBox[{"width",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], ",",
RowBox[{"width",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"curves", "=",
RowBox[{"ParallelTable", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"thickL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"opL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"CapForm", "@", "\"\<Butt\>\""}], ",", "\[IndentingNewLine]",
RowBox[{"hueL", "[",
RowBox[{"[", "i", "]"}], "]"}], ",",
RowBox[{"BSplineCurve", "@",
RowBox[{"pLL", "[",
RowBox[{"[", "i", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Hue", "@",
RowBox[{"(",
RowBox[{
RowBox[{"RandomReal", "[",
RowBox[{"0.02",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "+",
RowBox[{"hueL", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"AbsolutePointSize", "@",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"2",
RowBox[{"RandomReal", "[",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}]}], ")"}]}],
",", "\[IndentingNewLine]",
RowBox[{"Opacity", "@",
RowBox[{"(",
RowBox[{
RowBox[{"RandomReal", "[",
RowBox[{"0.2",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "+",
RowBox[{"opL", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{"True", ",",
RowBox[{"{",
RowBox[{"Point", "[",
RowBox[{"sLL", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "}"}], ",",
RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{"True", ",",
RowBox[{"Line", "@",
RowBox[{"sLL", "[",
RowBox[{"[",
RowBox[{"i", ",",
RowBox[{"{",
RowBox[{"j", ",",
RowBox[{"Min", "[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "nSeg"}], "]"}]}], "}"}]}],
"]"}], "]"}]}], ",",
RowBox[{"{", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "nSeg"}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
"}"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"If", "[",
RowBox[{"True", ",", "n", ",", "100"}], "]"}]}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"g", "=",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{",
RowBox[{"frame", ",", "curves"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"Background", "\[Rule]",
RowBox[{"If", "[",
RowBox[{"True", ",", "None", ",",
RowBox[{"GrayLevel", "@", "0.17"}]}], "]"}]}], ",",
RowBox[{"PlotRangePadding", "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
RowBox[{"ImageSize", "\[Rule]",
RowBox[{"imgSize",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"OutWindow", "@", "g"}]}], "Input",
CellChangeTimes->{{3.732705324266767*^9, 3.732705375561397*^9}, {
3.73270542276968*^9, 3.732705575725348*^9}, {3.7327060796502647`*^9,
3.732706145504655*^9}, {3.7327062113215218`*^9, 3.732706323899907*^9}, {
3.7327063757095013`*^9, 3.732706416925256*^9}, {3.7327068526473637`*^9,
3.732706961826871*^9}, {3.732706997429928*^9, 3.732707105761229*^9},
3.73270715351079*^9, 3.732707186979198*^9, 3.7327072600372143`*^9, {
3.732707291516202*^9, 3.7327073233612213`*^9}, {3.732707396983712*^9,
3.7327074005607767`*^9}, {3.732707452707097*^9, 3.732707564384554*^9}, {
3.7327076253963747`*^9, 3.732707658288957*^9}, {3.7327076922115917`*^9,
3.73270774198973*^9}, {3.7327078131948347`*^9, 3.7327078153753242`*^9}, {
3.732708415148312*^9, 3.732708421868566*^9}, {3.732709095651322*^9,
3.732709105908387*^9}, {3.732709420915197*^9, 3.732709448829113*^9}, {
3.7327095369603357`*^9, 3.732709537527719*^9}, {3.7327348719579887`*^9,
3.7327349290273438`*^9}, {3.732734961443074*^9, 3.732735050124213*^9}, {
3.732735173426075*^9, 3.732735196746524*^9}, {3.732735253596467*^9,
3.7327353609463167`*^9}, {3.73273567990055*^9, 3.732735699345511*^9}, {
3.732735857559593*^9, 3.7327358603911247`*^9}, {3.732736008771728*^9,
3.732736009446662*^9}, {3.732737360273716*^9, 3.732737378814271*^9}, {
3.7327382971157207`*^9, 3.73273829765703*^9}, {3.7327384581736097`*^9,
3.73273850937661*^9}, {3.732738605026949*^9, 3.73273860550735*^9}, {
3.732750140014955*^9, 3.732750147140596*^9}, {3.732750212135826*^9,
3.7327502402020187`*^9}, {3.732751313135231*^9, 3.732751351625266*^9}, {
3.732752140066766*^9, 3.732752169008045*^9}, {3.732752212902791*^9,
3.732752265961549*^9}, {3.732752454156695*^9, 3.732752486137989*^9}, {
3.7327525602040462`*^9, 3.732752587055648*^9}, {3.732755791665051*^9,
3.7327559126862803`*^9}, {3.7327559568994293`*^9, 3.73275611436511*^9}, {
3.7327561519272947`*^9, 3.73275615252562*^9}, {3.732756630036965*^9,
3.732756667442218*^9}, {3.732756798069972*^9, 3.7327568006313953`*^9}, {
3.732756847762331*^9, 3.73275686464501*^9}, {3.732757172642487*^9,
3.7327572951646357`*^9}, {3.732766031458506*^9, 3.732766051156013*^9}, {
3.7327661165186768`*^9, 3.7327661374534082`*^9}, {3.732766175209322*^9,
3.732766200061902*^9}, {3.732766292349867*^9, 3.732766293539247*^9}, {
3.732766346921874*^9, 3.732766356247098*^9}, {3.732766416187858*^9,
3.732766570267625*^9}, {3.7327666193538723`*^9, 3.732766768282303*^9}, {
3.732766807591302*^9, 3.7327668376944437`*^9}, {3.732767102628151*^9,
3.732767113918564*^9}, {3.73276714528691*^9, 3.73276717606573*^9}, {
3.7327672177822533`*^9, 3.7327673250612793`*^9}, {3.732767414209906*^9,
3.732767415061089*^9}, {3.732767536829956*^9, 3.7327675381273108`*^9}, {
3.7327676480372677`*^9, 3.732767650718199*^9}, {3.73276768518762*^9,
3.732767738210712*^9}, {3.7327680177793713`*^9, 3.732768094003824*^9}, {
3.732768269106855*^9, 3.732768352112487*^9}, {3.7327684072479486`*^9,
3.7327684525260057`*^9}, {3.73276849029627*^9, 3.732768496402358*^9}, {
3.732768782194298*^9, 3.7327687924258633`*^9}, {3.732769086040409*^9,
3.7327690862909317`*^9}, 3.7327693940207853`*^9, 3.732783380167117*^9, {
3.732784000962675*^9, 3.732784002095901*^9}, {3.732785000734535*^9,
3.7327850261674023`*^9}, {3.732785203577251*^9, 3.732785224035405*^9}, {
3.7327858329172173`*^9, 3.732785852083099*^9}, {3.732786368842083*^9,
3.732786369878717*^9}, {3.732791105217341*^9, 3.7327911170275793`*^9}, {
3.732791833764966*^9, 3.732791854358242*^9}, {3.732791940584351*^9,
3.732791950021315*^9}, {3.732792022344386*^9, 3.73279203011134*^9}, {
3.732792073223321*^9, 3.732792087073037*^9}, {3.7327925501716537`*^9,
3.7327925506663113`*^9}, {3.7327926303977833`*^9, 3.732792636176393*^9}},
CellLabel->
"In[419]:=",ExpressionUUID->"d17b4cb5-3252-444d-bb6b-5d93db0c1d68"],
Cell[BoxData[
TemplateBox[{FrontEndObject[
LinkObject["mxy9j_shm", 3, 1]],52,
"FrontEndObject[LinkObject[\"mxy9j_shm\", 3, 1]]","52","\"Output\""},
"NotebookObjectUnsaved"]], "Output",
CellChangeTimes->{{3.732792204858436*^9, 3.7327922212537603`*^9},
3.732792321715732*^9, {3.732792360620688*^9, 3.7327924059619217`*^9},
3.7327924422370377`*^9, {3.732792517801066*^9, 3.732792537762863*^9},
3.732792646355626*^9, {3.732792713657262*^9, 3.732792730072205*^9},
3.7327928613479223`*^9, 3.732792905061844*^9},
CellLabel->
"Out[426]=",ExpressionUUID->"bbbfef48-ddc2-435f-a3b0-b23a72296a66"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Overlay", "Subsubsection",
CellChangeTimes->{{3.732791143915347*^9,
3.732791145219034*^9}},ExpressionUUID->"d90f49d5-22aa-41ee-8c4b-\
accd27774a7f"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"g", "=",
RowBox[{"Fold", "[",
RowBox[{
RowBox[{
RowBox[{"Overlay", "[",
RowBox[{"{",
RowBox[{"#1", ",", "#2"}], "}"}], "]"}], "&"}], ",",
RowBox[{
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"frame", ",", "#"}], "}"}], "]"}], "&"}], "/@",
RowBox[{"curves", "[",
RowBox[{"[",
RowBox[{";;", "50"}], "]"}], "]"}]}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"OutWindow", "@", "g"}]}], "Input",
CellChangeTimes->{{3.7327911539401827`*^9, 3.732791154219593*^9}, {
3.7327912043533783`*^9, 3.73279135079357*^9}, {3.7327913895095043`*^9,
3.732791446354041*^9}, 3.7327915031457777`*^9, {3.732791649657136*^9,
3.732791722736107*^9}, {3.7327917708633137`*^9, 3.732791817945051*^9}, {
3.7327918695625553`*^9, 3.732791878651442*^9}, {3.732792683159464*^9,
3.732792689265728*^9}},
CellLabel->
"In[427]:=",ExpressionUUID->"0b64fa91-02b4-4464-bd1c-608a47479c0a"],
Cell[BoxData[
TemplateBox[{FrontEndObject[
LinkObject["mxy9j_shm", 3, 1]],53,
"FrontEndObject[LinkObject[\"mxy9j_shm\", 3, 1]]","53","\"Output\""},
"NotebookObjectUnsaved"]], "Output",
CellChangeTimes->{
3.732791156833576*^9, {3.732791298470997*^9, 3.732791351618034*^9},
3.732791392100223*^9, {3.7327914326315737`*^9, 3.732791448924858*^9},
3.732791507870338*^9, 3.732791597571306*^9, {3.7327916410932627`*^9,
3.7327917250353928`*^9}, {3.732791779403367*^9, 3.732791819683881*^9},
3.732791882151943*^9, {3.7327926779020367`*^9, 3.732792691635845*^9},
3.7327929135415983`*^9},
CellLabel->
"Out[428]=",ExpressionUUID->"4b009734-b60d-487a-8a7c-6ba3495c2f57"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Initialization", "Subsection",
CellChangeTimes->{{3.7327657185111732`*^9,
3.7327657218965673`*^9}},ExpressionUUID->"195ae25f-3e72-438e-8113-\
b0b4774307f8"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"CurveLength", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "[", "\[Alpha]_", "]"}], ":=",
RowBox[{
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{"Norm", "[",
RowBox[{
SuperscriptBox["\[Alpha]", "\[Prime]",
MultilineFunction->None], "[", "tt", "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"tt", ",", "a", ",", "b"}], "}"}]}], "]"}], "//",
"Quiet"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ltf", "[",
RowBox[{"min_", ",", "max_", ",", "n_", ",", "\[Alpha]_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"d", ",", "t"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"d", "=",
RowBox[{
RowBox[{"(",
RowBox[{"max", "-", "min"}], ")"}], "/", "n"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"t", "=",
RowBox[{"d", " ", "i"}]}], ";",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"CurveLength", "[",
RowBox[{"min", ",", "t"}], "]"}], "[", "\[Alpha]", "]"}], ",",
"t"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "n", ",", "1"}], "}"}]}], "]"}]}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sif", "[", "lt_", "]"}], ":=",
RowBox[{"Interpolation", "[", "lt", "]"}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7327658343795013`*^9, 3.732765884970604*^9},
3.7327662143047*^9, {3.732766252737879*^9, 3.7327662560411654`*^9}, {
3.732780831842494*^9, 3.732780850672464*^9}, {3.732780884731463*^9,
3.7327808890361443`*^9}, {3.732785511397111*^9, 3.7327855870306177`*^9}, {
3.732785624496346*^9, 3.7327856269804783`*^9}, {3.7327856803173018`*^9,
3.732785687640319*^9}, {3.7327857243509903`*^9, 3.732785727555567*^9}, {
3.732785942695654*^9, 3.732785961816724*^9}, {3.732786115226205*^9,
3.732786115391808*^9}, {3.7327872527035913`*^9, 3.732787260277987*^9}},
CellLabel->
"In[245]:=",ExpressionUUID->"dc60339b-8b43-4afc-a3ce-c61f08b5a4c9"],
Cell[BoxData[{
RowBox[{
RowBox[{"ParamLengthPoint", "[",
RowBox[{"f_", ",", "n_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"tMin", ",", "tMax", ",", "d"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"tMin", ",", "tMax"}], "}"}], "=",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"d", "=",
RowBox[{
RowBox[{"(",
RowBox[{"tMax", "-", "tMin"}], ")"}], "/", "n"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"f", "@", "t"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "tMin", ",", "tMax", ",", "d"}], "}"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ArcLengthPoint", "[",
RowBox[{"f_", ",", "n_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"tMin", ",", "tMax", ",", "d", ",", "l", ",", "lt", ",", "si", ",",
"s"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"tMin", ",", "tMax"}], "}"}], "=",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"l", "=",
RowBox[{
RowBox[{"CurveLength", "[",
RowBox[{"tMin", ",", "tMax"}], "]"}], "@", "f"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"lt", "=",
RowBox[{"ltf", "[",
RowBox[{"tMin", ",", "tMax", ",", "n", ",", "f"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"si", "=",
RowBox[{"sif", "[", "lt", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"d", "=",
RowBox[{"l", "/",
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"s", "=",
RowBox[{"d", " ", "i"}]}], ";",
RowBox[{"f", "@",
RowBox[{"Clip", "[",
RowBox[{
RowBox[{"si", "@", "s"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",",
RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]",
"]"}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.732781037158309*^9, 3.732781063344243*^9}, {
3.732781111834167*^9, 3.732781189571047*^9}, {3.732781253272078*^9,
3.732781306763681*^9}, {3.732781353251689*^9, 3.732781356164649*^9}, {
3.7327832856621637`*^9, 3.732783288192698*^9}, {3.732783910897862*^9,
3.7327839466099863`*^9}, {3.732785501443447*^9, 3.732785506042098*^9}, {
3.7327859778382797`*^9, 3.7327860534041023`*^9}, {3.732786184145762*^9,
3.732786184310391*^9}, 3.732787279653081*^9, {3.73279154903493*^9,
3.732791588644039*^9}},
CellLabel->
"In[283]:=",ExpressionUUID->"c19504c8-6868-4e10-9130-9ee0bfafca0b"],
Cell[BoxData[{
RowBox[{
RowBox[{"windowOut", "=",
RowBox[{"CreateWindow", "[",
RowBox[{
RowBox[{"DocumentNotebook", "[",
RowBox[{"{", "}"}], "]"}], ",",
RowBox[{"WindowSize", "\[Rule]",
RowBox[{"1.1", "imgSize"}]}], ",",
RowBox[{"WindowTitle", "\[Rule]", "\"\<Output\>\""}], ",",
RowBox[{"WindowMargins", "\[Rule]", "None"}], ",",
RowBox[{"Visible", "\[Rule]", "False"}]}], "]"}]}], ";"}], "\n",
RowBox[{
RowBox[{"OutWindow", "[", "g_", "]"}], ":=",
RowBox[{"CreateWindow", "[",
RowBox[{
RowBox[{"DocumentNotebook", "[",
RowBox[{"{", "g", "}"}], "]"}], ",",
RowBox[{"WindowSize", "\[Rule]",
RowBox[{"1.1", "imgSize"}]}], ",",
RowBox[{"WindowTitle", "\[Rule]", "\"\<Output\>\""}], ",",
RowBox[{"WindowMargins", "\[Rule]", "None"}], ",",
RowBox[{"Visible", "\[Rule]", "True"}], ",",
RowBox[{"WindowFloating", "\[Rule]", "True"}]}], "]"}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.732705324266767*^9, 3.732705375561397*^9}, {
3.73270542276968*^9, 3.732705575725348*^9}, {3.7327060796502647`*^9,
3.732706145504655*^9}, {3.7327062113215218`*^9, 3.732706323899907*^9}, {
3.7327063757095013`*^9, 3.732706416925256*^9}, {3.7327068526473637`*^9,
3.732706961826871*^9}, {3.732706997429928*^9, 3.732707105761229*^9},
3.73270715351079*^9, 3.732707186979198*^9, 3.7327072600372143`*^9, {
3.732707291516202*^9, 3.7327073233612213`*^9}, {3.732707396983712*^9,
3.7327074005607767`*^9}, {3.732707452707097*^9, 3.732707564384554*^9}, {
3.7327076253963747`*^9, 3.732707658288957*^9}, {3.7327076922115917`*^9,
3.73270774198973*^9}, {3.7327078131948347`*^9, 3.7327078153753242`*^9}, {
3.732708415148312*^9, 3.732708421868566*^9}, {3.732709095651322*^9,
3.732709105908387*^9}, {3.732709420915197*^9, 3.732709448829113*^9}, {
3.7327095369603357`*^9, 3.732709537527719*^9}, {3.7327348719579887`*^9,
3.7327349290273438`*^9}, {3.732734961443074*^9, 3.732735050124213*^9}, {
3.732735173426075*^9, 3.732735196746524*^9}, {3.732735253596467*^9,
3.7327353609463167`*^9}, {3.73273567990055*^9, 3.732735699345511*^9}, {
3.732735857559593*^9, 3.7327358603911247`*^9}, {3.732736008771728*^9,
3.732736009446662*^9}, {3.732737360273716*^9, 3.732737378814271*^9}, {
3.7327382971157207`*^9, 3.73273829765703*^9}, {3.7327384581736097`*^9,
3.73273850937661*^9}, {3.732738605026949*^9, 3.73273860550735*^9}, {
3.732750140014955*^9, 3.732750147140596*^9}, {3.732750212135826*^9,
3.7327502402020187`*^9}, {3.732751313135231*^9, 3.732751351625266*^9}, {
3.732752140066766*^9, 3.732752169008045*^9}, {3.732752212902791*^9,
3.732752265961549*^9}, {3.732752454156695*^9, 3.732752486137989*^9}, {
3.7327525602040462`*^9, 3.732752587055648*^9}, {3.732755791665051*^9,
3.7327559126862803`*^9}, {3.7327559568994293`*^9, 3.73275611436511*^9}, {
3.7327561519272947`*^9, 3.73275615252562*^9}, {3.732756630036965*^9,
3.732756667442218*^9}, {3.732756798069972*^9, 3.7327568006313953`*^9}, {
3.732756847762331*^9, 3.73275686464501*^9}, {3.732757172642487*^9,
3.7327572951646357`*^9}, {3.732766031458506*^9, 3.732766051156013*^9}, {
3.7327661165186768`*^9, 3.7327661374534082`*^9}, {3.732766175209322*^9,
3.732766200061902*^9}, {3.732766292349867*^9, 3.732766293539247*^9}, {
3.732766346921874*^9, 3.732766356247098*^9}, {3.732766416187858*^9,
3.732766570267625*^9}, {3.7327666193538723`*^9, 3.732766768282303*^9}, {
3.732766807591302*^9, 3.7327668376944437`*^9}, {3.732767102628151*^9,
3.732767113918564*^9}, {3.73276714528691*^9, 3.73276717606573*^9}, {
3.7327672177822533`*^9, 3.7327673250612793`*^9}, {3.732767414209906*^9,
3.732767415061089*^9}, {3.732767536829956*^9, 3.7327675381273108`*^9}, {
3.7327676480372677`*^9, 3.732767650718199*^9}, {3.73276768518762*^9,
3.732767738210712*^9}, {3.7327680177793713`*^9, 3.732768094003824*^9}, {
3.732768269106855*^9, 3.732768352112487*^9}, {3.7327684072479486`*^9,
3.7327684525260057`*^9}, {3.73276849029627*^9, 3.732768496402358*^9}, {
3.732768782194298*^9, 3.7327687924258633`*^9}, {3.732769086040409*^9,
3.7327690862909317`*^9}, 3.7327693940207853`*^9, 3.732783380167117*^9, {
3.732784000962675*^9, 3.732784002095901*^9}, {3.732785000734535*^9,
3.7327850261674023`*^9}, {3.732785203577251*^9, 3.732785224035405*^9}, {
3.7327858329172173`*^9, 3.732785852083099*^9}, {3.732786368842083*^9,
3.732786369878717*^9}, {3.732791105217341*^9, 3.7327911170275793`*^9}, {
3.732791833764966*^9, 3.732791854358242*^9}, {3.732791940584351*^9,
3.732791950021315*^9}, {3.732792022344386*^9, 3.73279203011134*^9}, {
3.732792073223321*^9, 3.732792087073037*^9}, {3.732792126436389*^9,
3.7327921802091312`*^9}, {3.732792292443446*^9, 3.732792429278995*^9},
3.732792602309833*^9, {3.7327927614882193`*^9, 3.7327927623618717`*^9},
3.732792837386187*^9, 3.732792887470414*^9},
CellLabel->
"In[417]:=",ExpressionUUID->"0f771e56-7733-4f70-983e-695d083d3063"],
Cell["Arc-length param\:c758 \:c608", "Text",
CellChangeTimes->{{3.732783821061677*^9,
3.732783829295128*^9}},ExpressionUUID->"d5c9b947-2d73-4465-adaf-\
98046daa824f"],
Cell[BoxData[{
RowBox[{
RowBox[{"pL", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "7"}], ",",
RowBox[{"-", "9"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "4"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",",
RowBox[{"-", "9"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "=",
RowBox[{"BSplineFunction", "@", "pL"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"nSeg", "=", "50"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"parL", "=",
RowBox[{"ParamLengthPoint", "[",
RowBox[{"f", ",", "nSeg"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"arcL", "=",
RowBox[{"ArcLengthPoint", "[",
RowBox[{"f", ",", "nSeg"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Graphics", "@",
RowBox[{"{",
RowBox[{"Blue", ",",
RowBox[{"Point", "@", "#"}]}], "}"}]}], "&"}], "/@",
RowBox[{"{",
RowBox[{"parL", ",", "arcL"}], "}"}]}]}], "Input",
CellChangeTimes->{{3.732765552503271*^9, 3.732765673869882*^9}, {
3.732765741699398*^9, 3.732765818872817*^9}, {3.732765902254027*^9,
3.732765989974365*^9}, {3.732781201231894*^9, 3.732781238046917*^9}, {
3.732781320490032*^9, 3.732781330152691*^9}, {3.732783839491271*^9,
3.732783841288582*^9}, {3.732785701050899*^9, 3.732785701826334*^9}, {
3.732785742948358*^9, 3.7327857543856907`*^9}},
CellLabel->
"In[213]:=",ExpressionUUID->"54ea2032-a190-4931-909b-2050b02e2d1a"]
}, Open ]]
}, Open ]]
},
WindowSize->{1273, 1389},
WindowMargins->{{581, Automatic}, {0, Automatic}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 172, 3, 146, "Title",ExpressionUUID->"91c86519-93c7-486d-9ea2-d1b9115128f4"],
Cell[597, 20, 295, 8, 122, "Text",ExpressionUUID->"65465787-860f-4953-8cbf-af8004043fc9"],
Cell[CellGroupData[{
Cell[917, 32, 157, 3, 81, "Subsection",ExpressionUUID->"e8bc054f-0632-4f03-8d37-edc1b558c4fe"],
Cell[1077, 37, 250, 4, 53, "Text",ExpressionUUID->"957e81e0-2853-4f10-80e5-b35baf2bfaf8"],
Cell[CellGroupData[{
Cell[1352, 45, 166, 3, 67, "Subsubsection",ExpressionUUID->"b5dd4779-16cf-4a77-8eeb-be6bd1e0e1f8"],
Cell[1521, 50, 5539, 143, 1806, "Input",ExpressionUUID->"8ff07ed5-364f-4657-a85f-d085a0774ebe"]
}, Closed]],
Cell[CellGroupData[{
Cell[7097, 198, 172, 3, 53, "Subsubsection",ExpressionUUID->"1a6bffa1-2462-4556-b680-4a2f01484749"],
Cell[7272, 203, 372, 7, 1350, "Text",ExpressionUUID->"790f5ab0-13f7-4b49-bebb-601ad9e787e9"],
Cell[7647, 212, 191, 5, 1786, "Input",ExpressionUUID->"b9b0a117-7e22-41f7-bf08-8e93107352f4"],
Cell[7841, 219, 768, 13, 2252, "Text",ExpressionUUID->"3de23f04-1336-4fbb-b2c1-f25f30f3fa36"],
Cell[8612, 234, 203, 5, 1786, "Input",ExpressionUUID->"b8658683-1a35-46d0-adb2-9c5aa5931993"],
Cell[8818, 241, 902, 14, 3118, "Text",ExpressionUUID->"0386ac46-00f6-48be-b80e-f9183143722e"],
Cell[9723, 257, 948, 32, 1786, "Input",ExpressionUUID->"e6a713f8-931d-425c-9664-b327b255b8bf"],
Cell[10674, 291, 474, 8, 1350, "Text",ExpressionUUID->"8d3d96e5-f98d-4322-b624-342a3ea6222a"],
Cell[11151, 301, 521, 17, 1786, "Input",ExpressionUUID->"d4526f3a-2533-4362-907d-956a47afb53b"],
Cell[11675, 320, 359, 6, 1350, "Text",ExpressionUUID->"635d3b8a-00bf-4128-9e59-5f0499dc4944"],
Cell[12037, 328, 374, 11, 1786, "Input",ExpressionUUID->"7915fa99-9bc2-43a2-b630-e97184d2f04e"],
Cell[12414, 341, 494, 9, 1350, "Text",ExpressionUUID->"de661d53-7004-4121-83c9-526b4390ece6"],
Cell[12911, 352, 588, 19, 2605, "Input",ExpressionUUID->"aa1c012b-9745-409d-b977-ca48cfe11732"],
Cell[13502, 373, 360, 6, 1350, "Text",ExpressionUUID->"6c4eeddb-4761-4c87-91b1-4ee3ff5d9d40"],
Cell[13865, 381, 759, 23, 2605, "Input",ExpressionUUID->"e50f2338-a152-4343-abd9-02303aa0d52f"],
Cell[14627, 406, 421, 7, 1350, "Text",ExpressionUUID->"67097330-91af-41f9-b95f-ad20f6ff8f7b"],
Cell[15051, 415, 684, 20, 1786, "Input",ExpressionUUID->"22ab1214-c1f9-4466-93f5-dc4d5175ae93"],
Cell[15738, 437, 505, 9, 1350, "Text",ExpressionUUID->"f909c668-7a29-4c59-9373-df83e1884304"],
Cell[16246, 448, 339, 9, 1786, "Input",ExpressionUUID->"d93b87c6-92c1-477d-8053-2d59f162d2e8"],
Cell[16588, 459, 1006, 18, 4884, "Text",ExpressionUUID->"b3d90b25-f85b-434a-9f7d-9a6a710d7823"]
}, Closed]],
Cell[CellGroupData[{
Cell[17631, 482, 217, 4, 53, "Subsubsection",ExpressionUUID->"5966283d-e407-4e0e-be44-5293e871c1eb"],
Cell[17851, 488, 6099, 153, 2592, "Input",ExpressionUUID->"1047dd80-3ced-4077-8c4f-9ce55f8668ed"],
Cell[23953, 643, 990, 27, 393, "Input",ExpressionUUID->"956d3f70-00e0-4dab-bda1-4ded75c8d362"],
Cell[24946, 672, 182, 3, 231, "Input",ExpressionUUID->"e4c0036e-5cf2-4133-8a3b-ae4cf62d8bed"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[25177, 681, 155, 3, 81, "Subsection",ExpressionUUID->"af106e19-fa9a-4b63-999c-03b50cf27389"],
Cell[25335, 686, 292, 5, 53, "Text",ExpressionUUID->"88efecf7-fb32-4b35-b1e3-0f9b9383a3ca"],
Cell[CellGroupData[{
Cell[25652, 695, 177, 3, 67, "Subsubsection",ExpressionUUID->"2abdfe2e-e229-422e-831c-fdd21789f265"],
Cell[25832, 700, 3994, 85, 171, "Input",ExpressionUUID->"ab5fc384-24ce-41a6-9fe1-c6ef50ec58e3"],
Cell[29829, 787, 326, 5, 53, "Text",ExpressionUUID->"28cac4d7-6fbf-4490-aadb-80b9b7ba3edc"],
Cell[30158, 794, 3297, 53, 78, "Input",ExpressionUUID->"bf21a1c2-1ab9-46cb-8f32-ffddad0cd257"],
Cell[CellGroupData[{
Cell[33480, 851, 9074, 199, 605, "Input",ExpressionUUID->"d17b4cb5-3252-444d-bb6b-5d93db0c1d68"],
Cell[42557, 1052, 615, 11, 64, "Output",ExpressionUUID->"bbbfef48-ddc2-435f-a3b0-b23a72296a66"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[43221, 1069, 158, 3, 67, "Subsubsection",ExpressionUUID->"d90f49d5-22aa-41ee-8c4b-accd27774a7f"],
Cell[CellGroupData[{
Cell[43404, 1076, 1026, 26, 78, "Input",ExpressionUUID->"0b64fa91-02b4-4464-bd1c-608a47479c0a"],
Cell[44433, 1104, 692, 13, 64, "Output",ExpressionUUID->"4b009734-b60d-487a-8a7c-6ba3495c2f57"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[45186, 1124, 166, 3, 81, "Subsection",ExpressionUUID->"195ae25f-3e72-438e-8113-b0b4774307f8"],
Cell[45355, 1129, 2144, 55, 195, "Input",ExpressionUUID->"dc60339b-8b43-4afc-a3ce-c61f08b5a4c9",
InitializationCell->True],
Cell[47502, 1186, 3006, 81, 443, "Input",ExpressionUUID->"c19504c8-6868-4e10-9130-9ee0bfafca0b",
InitializationCell->True],
Cell[50511, 1269, 5045, 80, 198, "Input",ExpressionUUID->"0f771e56-7733-4f70-983e-695d083d3063",
InitializationCell->True],
Cell[55559, 1351, 171, 3, 53, "Text",ExpressionUUID->"d5c9b947-2d73-4465-adaf-98046daa824f"],
Cell[55733, 1356, 2017, 58, 202, "Input",ExpressionUUID->"54ea2032-a190-4931-909b-2050b02e2d1a"]
}, Open ]]
}, Open ]]
}
]
*)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment