romeoandjuliet-source.nb

mathematica环境 展示罗密欧和朱丽叶的情感定律

an eager beaver).", 
             And[$CellContext`c$$ < 0, $CellContext`d$$ == 0], 
             "Juliet retreats from her feelings toward Romeo \nand Romeo is \
not influencing her.", 
             And[$CellContext`c$$ < 0, $CellContext`d$$ < 0], 
             "Juliet retreats from her feelings toward Romeo \nand Romeo \
discourages her (she is a hermit).", 
             And[$CellContext`c$$ < 0, $CellContext`d$$ > 0], 
             "Juliet retreats from her feelings toward Romeo \nand Romeo \
encourages her (she is a cautious lover)."]], 
           If[
            
            And[$CellContext`c$$ == -$CellContext`b$$, $CellContext`d$$ == \
-$CellContext`a$$], 
            Text["fire and ice"], 
            Apply[Sequence, {}]], 
           If[
            
            And[$CellContext`c$$ == $CellContext`b$$, $CellContext`d$$ == \
$CellContext`a$$], 
            Text["peas in a pod"], 
            Apply[Sequence, {}]], 
           ParametricPlot[
            Evaluate[
             ReplaceAll[{
               $CellContext`R$[$CellContext`t], 
               $CellContext`J$[$CellContext`t]}, 
              Part[$CellContext`nds$, 1]]], {$CellContext`t, 0, 
             Part[$CellContext`nds$, 1, 1, 2, 1, 1, 2]}, PlotRange -> All, 
            Frame -> True, FrameLabel -> {"Romeo", "Juliet"}, AspectRatio -> 
            1, ImagePadding -> 20, ImageSize -> {350, 350}, MaxRecursion -> 
            ControlActive[Automatic, 8], FrameTicks -> None, 
            ColorFunction -> (ColorData["DarkRainbow"][#]& )]}, 
          ItemSize -> {32, Automatic}]], 
      "Specifications" :> {
       "Romeo's own feeling", {{$CellContext`a$$, 0.51, ""}, -1, 1, ImageSize -> 
         Small}, "Romeo's love for Juliet", {{$CellContext`b$$, -0.4, ""}, -1,
          1, ImageSize -> Small}, 
        "Juliet's own feeling", {{$CellContext`c$$, 0.775, ""}, -1, 1, 
         ImageSize -> Small}, 
        "Juliet's love for Romeo", {{$CellContext`d$$, -0.125, ""}, -1, 1, 
         ImageSize -> Small}, Delimiter, 
        "initial love", {{$CellContext`R0$$, 0.2, "Romeo's for Juliet"}, -1, 
         1, ImageSize -> 
         Small}, {{$CellContext`J0$$, 0.2, "Juliet's for Romeo"}, -1, 1, 
         ImageSize -> Small}, Delimiter, 
        "length of love affair", {{$CellContext`T$$, 20, ""}, 0.1, 100, 
         ImageSize -> Small}, Delimiter, 
        "include negative effect of too much love", \
{{$CellContext`includeNonlinearTerms$$, False, ""}, {True, False}}, 
        Dynamic[
         Style["Juliet's love for Romeo\nbecomes counterproductive.", 
          
          If[$CellContext`includeNonlinearTerms$$, Black, 
           Gray]]], {{$CellContext`JM$$, 0.3, ""}, 0, 5, ImageSize -> Small}, 
        
        Dynamic[
         Style["Romeo's love for Juliet\nbecomes counterproductive.", 
          If[$CellContext`includeNonlinearTerms$$, Black, 
           Gray]]], {{$CellContext`RM$$, 0.6, ""}, 0, 5, ImageSize -> Small}},
       "Options" :> {
       ControlPlacement -> Left, AutorunSequencing -> {1, 3, 5, 7}, 
        SynchronousUpdating -> False}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{645., {240., 245.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->364976300],

Cell[CellGroupData[{

Cell["THIS NOTEBOOK IS THE SOURCE CODE FROM", "Text",
 CellFrame->{{0, 0}, {0, 1}},
 CellMargins->{{48, 10}, {4, 28}},
 CellGroupingRules->{"SectionGrouping", 25},
 CellFrameMargins->{{48, 48}, {6, 5}},
 CellFrameColor->RGBColor[0.691905, 0.790311, 0.300252],
 FontFamily->"Helvetica",
 FontSize->10,
 FontWeight->"Bold",
 FontColor->RGBColor[0.691905, 0.790311, 0.300252]],

Cell[TextData[{
 "\"",
 ButtonBox["Romeo and Juliet",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/RomeoAndJuliet/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/RomeoAndJuliet/"],
 "\"",
 " from ",
 ButtonBox["The Wolfram Demonstrations Project",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 "\[ParagraphSeparator]\[NonBreakingSpace]",
 ButtonBox["http://demonstrations.wolfram.com/RomeoAndJuliet/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/RomeoAndJuliet/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/RomeoAndJuliet/"]
}], "Text",
 CellMargins->{{48, Inherited}, {0, Inherited}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.5]],

Cell[" ", "Text",
 CellFrame->{{0, 0}, {0, 1}},
 CellMargins->{{48, 10}, {4, 28}},
 CellGroupingRules->{"SectionGrouping", 25},
 CellFrameMargins->{{48, 48}, {6, 5}},
 CellFrameColor->RGBColor[0.691905, 0.790311, 0.300252],
 FontFamily->"Helvetica",
 FontSize->10,
 FontWeight->"Bold",
 FontColor->RGBColor[0.691905, 0.790311, 0.300252]],

Cell[TextData[{
 "Contributed by: ",
 ButtonBox["Michael Trott",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Michael+Trott"],
     None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Michael+Trott"]
}], "Text",
 CellDingbat->"\[FilledSmallSquare]",
 CellMargins->{{66, 48}, {2, 4}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.6]],

Cell[CellGroupData[{

Cell[TextData[{
 "A full-function Wolfram ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 system is required to edit or run this notebook.\[IndentingNewLine](",
 StyleBox["Mathematica Player",
  FontSlant->"Italic"],
 " runs only Demonstrations published on this site.)\n",
 StyleBox[ButtonBox["GET WOLFRAM MATHEMATICA 6 \[RightGuillemet]",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.wolfram.com/products/mathematica/"], None},
  ButtonNote->"http://www.wolfram.com/products/mathematica/"],
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0.42, 0]]
}], "Text",
 CellFrame->True,
 CellMargins->{{48, 68}, {8, 28}},
 CellFrameMargins->12,
 CellFrameColor->RGBColor[0.865507, 0.90634, 0.680751],
 CellChangeTimes->{3.3750111182355957`*^9},
 ParagraphSpacing->{1., 1.},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.411765],
 Background->RGBColor[0.986023, 0.991363, 0.969818]],

Cell[TextData[{
 "\[Copyright] ",
 StyleBox[ButtonBox["The Wolfram Demonstrations Project & Contributors",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
  FontColor->GrayLevel[0.6]],
 "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
 StyleBox[ButtonBox["Terms of Use",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/termsofuse.html"], None},
  ButtonNote->"http://demonstrations.wolfram.com/termsofuse.html"],
  FontColor->GrayLevel[0.6]],
 "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
 StyleBox[ButtonBox["Make a new version of this Demonstration \
\[RightGuillemet]",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/participate/upload.jsp?id=\
RomeoAndJuliet"], None},
  ButtonNote->None],
  FontColor->GrayLevel[0.6]]
}], "Text",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellMargins->{{48, 10}, {20, 50}},
 CellFrameMargins->{{6, 0}, {6, 6}},
 CellFrameColor->GrayLevel[0.6],
 FontFamily->"Verdana",
 FontSize->9,
 FontColor->GrayLevel[0.6]]
}, Open  ]]
}, Open  ]]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{780, 650},
WindowMargins->{{Inherited, Inherited}, {Inherited, 0}},
WindowElements->{
 "StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar", 
  "MenuBar"},
WindowTitle->"Romeo and Juliet - Source",
DockedCells->{},
CellContext->Notebook,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 208, 4, 70, "Section"],
Cell[801, 29, 16280, 347, 70, "Input"]
}, Open  ]],
Cell[17096, 379, 11031, 215, 70, "Output",
 CellID->364976300],
Cell[CellGroupData[{
Cell[28152, 598, 373, 9, 70, "Text",
 CellGroupingRules->{"SectionGrouping", 25}],
Cell[28528, 609, 863, 24, 70, "Text"],
Cell[29394, 635, 337, 9, 70, "Text",
 CellGroupingRules->{"SectionGrouping", 25}],
Cell[29734, 646, 436, 14, 70, "Text"],
Cell[CellGroupData[{
Cell[30195, 664, 967, 27, 70, "Text"],
Cell[31165, 693, 1190, 33, 70, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature OT4#DIQthXMTeCp44Aos8OWk *)