Faça o colorimento de uma curva por comprimento de arco

Use a função ArcLength para colorir uma curva por comprimento de arco percorrido.

In[1]:=

Out[1]=

In[2]:=

\!\(
PaneBox[
TemplateBox[{"",FormBox[
FormBox[
TemplateBox[{
FormBox[
StyleBox[
StyleBox[
PaneBox[
GraphicsBox[{
RasterBox[CompressedData["
1:eJx11g0w1Hkcx/GNykOnCDcbTesMtXSSPBy5bCmNh8apkfYoUQlR9tIDy3no
iJNqy0QRiXP2qCzXeajVraeQLazH9dRi80ybnpio6/Y/N+bm0/5ndobX/Oe/
///395v9v785FLTHR55EItV//iz6/Pn3b+KQ0EhfPCS0qJEwn/IHV2lf9ixw
Xo8VeTX5jozzi8AzB7oeBfqXyLgOF5wRwC/1OcyTcf1KcJbP+pWaK2tkfG8t
OOdgQkA1rx6cK70fPnjTj6PVwUHPwE9I77MJ/J2B3mW1y83gEdL7F4AvzW2x
9h9qAb8kfa42cA29X0Z4W9rBM6TP2wGud3vTNfK1TvB70jkIwS3WDGxjTHTJ
mE8P+I60K1O123vBn0nn1gfuSt6WRkl7LmOeIvA/HWeyrWfRiTn3g29WcmEO
6w3ImD96ZW2uS5LLoIx1QXc8/2ktLVwsY71egAt27Jsfy0XXlK7jELi7fEFL
cgs6sb7D4P0VS/NsP6HrS9d9BPxYlGfUlOGojP2A/sqm2C3VbUzGPkFnzqsY
7Tw3Dl4u3T8T4HJcH/npu+jEvpoE/5VZLkwXohP7bQp8pZUmx2HJSxn7cMH9
FJNClRv/+3/h91LPwPeSmRW6yME62zN7Cjz12IrSeBV0+oVBftHZSXCNOyX9
Pf0T4E38C++W7kJPnDy4zKR4HNx+uZmOhw76YmNF89iEMXDeDz0OBW9GwcMZ
HE+hJ7rFlZhg+foR8DeF9HgjU3SO4Nv0fenD4IGvSUXRCuhUjbbH+T8NgYvN
/uhu634Bnrn3Z8knO/T9Z3YvMeSIwbVS9LVctdDbS2Y3RMQMgrM6n25nTw2A
75q9TRfQ0RW1zhyfq+wHr97seG6tEXqUx5oUlxQRuE34dD5zEbrE6mK0Q0cf
zjPMPD89vxdcxO1tfRXZA07/GPvRzrUbvJW2gZpK7QK3j27fPTXXCc6rjAiz
be4A/37xupzknHbwUrvGZ2OhbeDUuLMzNs6t4L/VUXSTdFvAycp1TsPvmsFZ
TozT1g1NeL6WiQ2F1giumh59pXaYj3OmCMRBrCc4zyxdS7JVHbp+8AVefw14
E7uqzy+hCuewXmOTmmkFuNeBeuXgknJwncPHCqsUy/D+/ZfRNdzv47r00ufr
3Qpwv42mOgbM5oCTxsuMV1neQFeeoQa9DUX/3/HZ+WEWVcx4+H0lNZaRKDMZ
4FHdWqYnhGw832/i5FHtQvRDTnzNJ3+B6+zP068JeQDu5aYUeWrd3+AbqWYT
auMV4FtzBq/721aDu+gm2VXceIzXv2U7TX5VB85YPZ3BsG/A571x26nu1lPw
zK93z1DeN4I3OUQJrNdhP3opdrKH92A/ih4bRyZFYD/6xcbtpeW1gku2P18/
3oZdGSL3nVzKIuxHUsWlTlsj7Mf4yKF7U3TsR1Ubm9jUGOzH63PXPHZyusGp
DydNpruxK9mhdooZCtiPGy3T+xxMsR/3hzG7mMbYiZnuv9e41KCLrQSctR7Y
j9RVH9PmJOiMGYM4wXnsR07H3pPs1diJkuLoAxFF6JbJd+1d7bEfQ04LTQ37
0HmuSyikU9iPi81MlNuVsBPt1Q+8zb+FnjgdL4o2x07kN99v2NeArlooKjby
xn50ZX2VJf8e/WaQ5UVhIvajyPlISIEudqLeBtbh2FJ0PxWus4cz9iN7YtjK
RIwuaVDXV2BiP27Mp6n2rsBODEkI+FCUg17qnzIUb439SHKoavZsRt9Kfck1
88WujFHQZivPL7jlqrJAynHsR+J9jp14x907OXgbOvGex36k3lTi1WqiE+9/
7MfM3sJR7THsRKIL0MkUd3XGI+xHohfQWV5yW6qvYj8SHYGdqJiVd5Tsi070
BXZi+OAeVqA1OtEd2I8zeh/KeCvQiR7BfmQczR7UEGMnEp2CPpLrpOJfiv1I
9Au61+hri/JE7Eeia7ATOw1veql5oxO9g53oErgjwcccneig53gdD6FvsDp2
JdFH2I9RfQYPtbnYj0Q3YT8yvJnLq48IwYmewq70Ej/xDlTBriQ6a6Ef/wGr
oBP8
"], {{
Rational[-15, 2], -75}, {
Rational[15, 2], 75}}], {Antialiasing -> False, 
AbsoluteThickness[0.1], 
Directive[
Opacity[0.3], 
GrayLevel[0]], 
LineBox[
NCache[{{
Rational[15, 2], -75}, {
Rational[-15, 2], -75}, {
Rational[-15, 2], 75}, {
Rational[15, 2], 75}}, {{7.5, -75}, {-7.5, -75}, {-7.5, 75}, {
                   7.5, 75}}]]}, {
CapForm[None], {}}, {Antialiasing -> False, 
StyleBox[
LineBox[{{7.5, -75.}, {7.5, 75.}}], 
Directive[
AbsoluteThickness[0.2], 
Opacity[0.3], 
GrayLevel[0]], StripOnInput -> False], 
StyleBox[
StyleBox[{{
StyleBox[
LineBox[{{{7.5, -75.}, 
Offset[{4., 0}, {7.5, -75.}]}, {{7.5, -45.}, 
Offset[{4., 0}, {7.5, -45.}]}, {{7.5, -15.}, 
Offset[{4., 0}, {7.5, -15.}]}, {{7.5, 15.}, 
Offset[{4., 0}, {7.5, 15.}]}, {{7.5, 45.}, 
Offset[{4., 0}, {7.5, 45.}]}, {{7.5, 75.}, 
Offset[{4., 0}, {7.5, 75.}]}}], 
Directive[
AbsoluteThickness[0.2], 
GrayLevel[0.4]], StripOnInput -> False], 
StyleBox[
LineBox[{{{7.5, -69.}, 
Offset[{2.5, 0.}, {7.5, -69.}]}, {{7.5, -63.}, 
Offset[{2.5, 0.}, {7.5, -63.}]}, {{7.5, -57.}, 
Offset[{2.5, 0.}, {7.5, -57.}]}, {{7.5, -51.}, 
Offset[{2.5, 0.}, {7.5, -51.}]}, {{7.5, -39.}, 
Offset[{2.5, 0.}, {7.5, -39.}]}, {{7.5, -33.}, 
Offset[{2.5, 0.}, {7.5, -33.}]}, {{7.5, -27.}, 
Offset[{2.5, 0.}, {7.5, -27.}]}, {{7.5, -21.}, 
Offset[{2.5, 0.}, {7.5, -21.}]}, {{7.5, -9.}, 
Offset[{2.5, 0.}, {7.5, -9.}]}, {{7.5, -3.}, 
Offset[{2.5, 0.}, {7.5, -3.}]}, {{7.5, 3.}, 
Offset[{2.5, 0.}, {7.5, 3.}]}, {{7.5, 9.}, 
Offset[{2.5, 0.}, {7.5, 9.}]}, {{7.5, 21.}, 
Offset[{2.5, 0.}, {7.5, 21.}]}, {{7.5, 27.}, 
Offset[{2.5, 0.}, {7.5, 27.}]}, {{7.5, 33.}, 
Offset[{2.5, 0.}, {7.5, 33.}]}, {{7.5, 39.}, 
Offset[{2.5, 0.}, {7.5, 39.}]}, {{7.5, 51.}, 
Offset[{2.5, 0.}, {7.5, 51.}]}, {{7.5, 57.}, 
Offset[{2.5, 0.}, {7.5, 57.}]}, {{7.5, 63.}, 
Offset[{2.5, 0.}, {7.5, 63.}]}, {{7.5, 69.}, 
Offset[{2.5, 0.}, {7.5, 69.}]}}], 
Directive[
AbsoluteThickness[0.2], 
GrayLevel[0.4], 
Opacity[0.3]], StripOnInput -> False]}, 
StyleBox[
StyleBox[{{
StyleBox[{
InsetBox[
FormBox["0", TraditionalForm], 
Offset[{7., 0.}, {7.5, -75.}], {-1, 0.}, Automatic, {1, 0}], 
InsetBox[
FormBox["5", TraditionalForm], 
Offset[{7., 0.}, {7.5, -45.}], {-1, 0.}, Automatic, {1, 0}], 
InsetBox[
FormBox["10", TraditionalForm], 
Offset[{7., 0.}, {7.5, -15.}], {-1, 0.}, Automatic, {1, 0}], 
InsetBox[
FormBox["15", TraditionalForm], 
Offset[{7., 0.}, {7.5, 15.}], {-1, 0.}, Automatic, {1, 0}], 
InsetBox[
FormBox["20", TraditionalForm], 
Offset[{7., 0.}, {7.5, 45.}], {-1, 0.}, Automatic, {1, 0}], 
InsetBox[
FormBox["25", TraditionalForm], 
Offset[{7., 0.}, {7.5, 75.}], {-1, 0.}, Automatic, {1, 0}]}, 
Directive[
AbsoluteThickness[0.2], 
GrayLevel[0.4]], {
Directive[
Opacity[1]], 
Directive[
Opacity[1]]}, StripOnInput -> False], 
StyleBox[{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, 
Directive[
AbsoluteThickness[0.2], 
GrayLevel[0.4], 
Opacity[0.3]], {
Directive[
Opacity[1]], 
Directive[
Opacity[1]]}, StripOnInput -> False]}, {}}, {
Directive[
Opacity[1]], 
Directive[
Opacity[1]]}, StripOnInput -> False], "GraphicsLabel", 
                    StripOnInput -> False]}, "GraphicsTicks", 
                  StripOnInput -> False], 
Directive[
AbsoluteThickness[0.2], 
Opacity[0.3], 
GrayLevel[0]], StripOnInput -> False]}}, 
              PlotRangePadding -> Scaled[0.02], PlotRange -> All, 
              Frame -> True, 
              FrameTicks -> {{False, False}, {True, False}}, 
              FrameStyle -> Opacity[0], FrameTicksStyle -> Opacity[0],
               ImageSize -> {Automatic, 150}, BaseStyle -> {}], 
             Alignment -> Left, AppearanceElements -> None, 
             ImageMargins -> {{5, 5}, {5, 5}}, 
             ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, 
            StripOnInput -> False], {FontFamily -> "Arial"}, 
           Background -> Automatic, StripOnInput -> False], 
          TraditionalForm]}, "BarLegend", DisplayFunction -> (#& ), 
        InterpretationFunction :> (RowBox[{"BarLegend", "[", 
RowBox[{
RowBox[{"{", 
RowBox[{
RowBox[{
RowBox[{"Hue", "[", 
FractionBox[
RowBox[{"0.6`", " ", "#1"}], "total"], "]"}], "&"}], ",", 
RowBox[{"{", 
RowBox[{"0", ",", "24.602961617957067`"}], "}"}]}], "}"}], ",", 
RowBox[{"LabelStyle", "->", 
RowBox[{"{", "}"}]}], ",", 
RowBox[{"LegendLayout", "->", "\"Column\""}], ",", 
RowBox[{"LegendMarkerSize", "->", "150"}], ",", 
RowBox[{"Charting`TickSide", "->", "Right"}], ",", 
RowBox[{"ColorFunctionScaling", "->", "False"}]}], "]"}]& )], 
       TraditionalForm], TraditionalForm]},
"Legended",
DisplayFunction->(GridBox[{{
TagBox[
ItemBox[
PaneBox[
TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], 
          DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], 
ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {
       "Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
Editable->True,
InterpretationFunction->(RowBox[{"Legended", "[", 
RowBox[{#, ",", 
RowBox[{"Placed", "[", 
RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )],
ImageSize->{150, 150},
ScrollPosition->{0., 0.}]\)

Wolfram Mathematica

Faça o colorimento de uma curva por comprimento de arco

Mathematica

Wolfram Mathematica

Faça o colorimento de uma curva por comprimento de arco

Related Examples

Mathematica