(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Wolfram 14.1' *)

(***************************************************************************)
(*                                                                         *)
(*                                                                         *)
(*  Under the Wolfram FreeCDF terms of use, this file and its content are  *)
(*  bound by the Creative Commons BY-SA Attribution-ShareAlike license.    *)
(*                                                                         *)
(*        For additional information concerning CDF licensing, see:        *)
(*                                                                         *)
(*         www.wolfram.com/cdf/adopting-cdf/licensing-options.html         *)
(*                                                                         *)
(*                                                                         *)
(***************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1084,         20]
NotebookDataLength[      3626,         93]
NotebookOptionsPosition[      4111,         88]
NotebookOutlinePosition[      4589,        108]
CellTagsIndexPosition[      4546,        105]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -0.5, 5, ControlType -> Manipulator}}, 
    Typeset`size$$ = {360., {174.24102105034723`, 179.53203667534723`}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -0.5}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, "Body" :> Show[
        ContourPlot[$CellContext`x^3 + $CellContext`y^3 - 
          3 $CellContext`x $CellContext`y == 
         0, {$CellContext`x, -2, 2}, {$CellContext`y, 0, 1.8}, 
         PlotRange -> {{-2, 2}, {-1, 2}}, PerformanceGoal -> "Quality"], 
        ParametricPlot[
         $CellContext`rt[$CellContext`\[Lambda], $CellContext`t$$], \
{$CellContext`\[Lambda], -20, 20}, PlotStyle -> Red]], 
      "Specifications" :> {{$CellContext`t$$, -0.5, 5}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{
      402.3999999999999, {216.28295220269098`, 221.57396782769098`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`\[Alpha][
         Pattern[$CellContext`t, 
          Blank[]]] := {
        3 ($CellContext`t/(1 + $CellContext`t^3)), 
         3 ($CellContext`t^2/(1 + $CellContext`t^3))}; $CellContext`rt[
         Pattern[$CellContext`\[Lambda], 
          Blank[]], 
         Pattern[$CellContext`t, 
          
          Blank[]]] := $CellContext`\[Alpha][$CellContext`t] + $CellContext`\
\[Lambda] Derivative[1][$CellContext`\[Alpha]][$CellContext`t]; Null); 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]],ExpressionUUID->"cba4f7cb-39b1-41c6-\
85c4-0d47cc3156bd"]
},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
ShowCellBracket->Automatic,
Deployed->True,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"14.1 para Mac OS X ARM (64-bit) (July 16, 2024)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"c352d51a-7241-4e69-9e2b-4e3259c115af"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1484, 33, 2623, 53, 23, InheritFromParent,ExpressionUUID->"cba4f7cb-39b1-41c6-85c4-0d47cc3156bd"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature cwTxP63klbjDVDK0PpGt9iUA *)