(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 89508, 1954] NotebookOptionsPosition[ 87300, 1883] NotebookOutlinePosition[ 87643, 1898] CellTagsIndexPosition[ 87600, 1895] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"The", " ", "n"}], "-", RowBox[{"square", " ", "law", " ", "in", " ", "warfare"}]}], "Title"], "\[IndentingNewLine]", StyleBox[ RowBox[{"Modified", " ", "from", " ", RowBox[{"Lanchester", "'"}], "s", " ", "article"}], "Subtitle"]}], "Input", CellChangeTimes->{{3.4463392016284246`*^9, 3.4463392637055063`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"The", " ", "differential", " ", "equations", " ", "are", " ", RowBox[{"db", "/", "dt"}]}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"-", "r"}], " ", "and", " ", RowBox[{"dr", "/", "dt"}]}], " ", "=", " ", RowBox[{"-", RowBox[{"b", "."}]}]}]}], "Subsubsection"]], "Input", CellChangeTimes->{{3.446339290068076*^9, 3.446339332302678*^9}, { 3.446339503317123*^9, 3.446339517001794*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ "The", " ", "solutions", " ", "to", " ", "the", " ", "system", " ", "is", " ", "easily", " ", "determined", " ", "as", " ", "the", " ", "equations", " ", "are", " ", RowBox[{"`separable", "'"}]}], ",", " ", RowBox[{ RowBox[{"namely", " ", "we", " ", "find", " ", RowBox[{"d", "^", "2"}], " ", RowBox[{"b", " ", "/", " ", RowBox[{"dt", "^", "2"}]}]}], " ", "=", " ", RowBox[{ RowBox[{"b", " ", "and", " ", RowBox[{"d", "^", "2"}], " ", RowBox[{"r", " ", "/", " ", RowBox[{"dr", "^", "2"}]}]}], " ", "=", " ", RowBox[{"r", "."}]}]}]}], "Subsubsection"]], "Input", CellChangeTimes->{{3.446339520357048*^9, 3.446339521870623*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Following", " ", "Lancaster"}], ",", " ", RowBox[{ "we", " ", "call", " ", "the", " ", "forces", " ", "blue", " ", "and", " ", "red", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"and", " ", "not", " ", "English", " ", "and", " ", "French"}], ",", " ", RowBox[{"or", " ", "..."}]}], ")"}], ".", " ", "We"}], " ", "normalize", " ", "so", " ", "that", " ", "there", " ", "is", " ", "initially", " ", "one", " ", "red", " ", "unit"}], ",", " ", RowBox[{ "and", " ", "there", " ", "are", " ", "more", " ", "blue", " ", "units", " ", "than", " ", "red", " ", RowBox[{"units", "."}]}]}], "Subsubsection"]], "Input", CellChangeTimes->{{3.4463395645094957`*^9, 3.446339607193287*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "the", " ", "lines", " ", "below", " ", "solve", " ", "the", " ", "equations", " ", "and", " ", "output", " ", "the", " ", "critical", " ", "time", " ", "where", " ", "the", " ", "red", " ", "force", " ", "is", " ", RowBox[{"annihilated", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"b", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", RowBox[{"-", " ", RowBox[{"r", "[", "t", "]"}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", RowBox[{"-", " ", RowBox[{"b", "[", "t", "]"}]}]}], ",", " ", RowBox[{ RowBox[{"b", "[", "0", "]"}], " ", "\[Equal]", " ", "B"}], ",", " ", RowBox[{ RowBox[{"r", "[", "0", "]"}], " ", "\[Equal]", " ", "R"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"b", ",", " ", "r"}], "}"}], ",", " ", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.446311498312216*^9, 3.446311545249716*^9}, { 3.446311583905966*^9, 3.446311585749716*^9}, 3.446311628718466*^9, { 3.446311704437216*^9, 3.446311721999716*^9}, {3.446311763952841*^9, 3.446311780343466*^9}, {3.446336792164476*^9, 3.44633680229664*^9}, { 3.446337026139735*^9, 3.4463370284198627`*^9}, {3.446337307491844*^9, 3.4463373095571423`*^9}, {3.4463395407981224`*^9, 3.446339560402336*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"b", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"(", RowBox[{"B", "+", RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "+", "R", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], " ", "R"}]}], ")"}]}]}], "]"}]}], ",", RowBox[{"r", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "B"}], "+", RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "-", "R", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], " ", "R"}]}], ")"}]}]}], "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.446312795171591*^9, 3.446336804661723*^9, 3.4463370292069216`*^9, 3.4463373114232335`*^9, 3.4464217625657663`*^9, 3.446590247721608*^9, 3.4466760131563683`*^9, 3.446717302938224*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "B"}], "+", RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "-", "R", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], " ", "R"}]}], " ", "\[Equal]", " ", "0"}], ",", " ", "t"}], "]"}]], "Input", CellChangeTimes->{{3.446337033682221*^9, 3.446337044570196*^9}, 3.4463373504090195`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "::", "\<\"ifun\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \ used by \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \ use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\ \\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \ ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4463370458933535`*^9, 3.4463373512400208`*^9, 3.446421768231419*^9, 3.4465902499441223`*^9, 3.4466760139307327`*^9, 3.44671730402995*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"Log", "[", RowBox[{"-", FractionBox[ SqrtBox[ RowBox[{"B", "+", "R"}]], SqrtBox[ RowBox[{"B", "-", "R"}]]]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"Log", "[", FractionBox[ SqrtBox[ RowBox[{"B", "+", "R"}]], SqrtBox[ RowBox[{"B", "-", "R"}]]], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.446337045896283*^9, 3.44633735124588*^9, 3.446421768237278*^9, 3.446590249949005*^9, 3.4466760139375687`*^9, 3.446717304036786*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "tcritical", " ", "is", " ", "where", " ", "red", " ", "is", " ", "annihilated"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tcritical", "[", RowBox[{"B_", ",", "R_"}], "]"}], " ", ":=", " ", RowBox[{"Log", "[", FractionBox[ SqrtBox[ RowBox[{"B", "+", "R"}]], SqrtBox[ RowBox[{"B", "-", "R"}]]], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "adjusted", " ", "time", " ", "sets", " ", "any", " ", "time", " ", "greater", " ", "than", " ", "the", " ", "critical", " ", "time", " ", "equal", " ", "to", " ", "the", " ", "critical", " ", RowBox[{"time", " ", "--"}], " ", "helps", " ", "in", " ", "plotting"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"adjustedtime", "[", RowBox[{"B_", ",", "R_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"t", " ", "\[LessEqual]", " ", RowBox[{"tcritical", "[", RowBox[{"B", ",", "R"}], "]"}]}], ",", " ", "t", ",", " ", RowBox[{"tcritical", "[", RowBox[{"B", ",", "R"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "btemp", " ", "is", " ", "how", " ", "b", " ", "evolves", " ", "as", " ", "long", " ", "as", " ", "there", " ", "are", " ", "units", " ", "of", " ", "r", " ", RowBox[{"left", ".", " ", "It"}], " ", "is", " ", "absurd", " ", "to", " ", "continue", " ", "using", " ", "this", " ", "model", " ", "after", " ", "r", " ", "is", " ", "annhiliated"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "as", " ", "it", " ", "would", " ", "lead", " ", "to", " ", "negative", " ", "red", " ", "units", " ", "creating", " ", "blue", " ", "units", " ", "which", " ", "create", " ", "more", " ", "negative", " ", "blue", " ", "units", " ", "which"}], "..."}], "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"btemp", "[", RowBox[{"B_", ",", "R_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"(", RowBox[{"B", "+", RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "+", "R", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], " ", "R"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"B_", ",", "R_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{"btemp", "[", RowBox[{"B", ",", "R", ",", RowBox[{"adjustedtime", "[", RowBox[{"B", ",", "R", ",", "t"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rtemp", "[", RowBox[{"B_", ",", "R_", ",", "t_"}], "]"}], " ", ":=", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "B"}], "+", RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "-", "R", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], " ", "R"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r", "[", RowBox[{"B_", ",", "R_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{"rtemp", "[", RowBox[{"B", ",", "R", ",", RowBox[{"adjustedtime", "[", RowBox[{"B", ",", "R", ",", "t"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"B", ",", "R", ",", "t"}], "]"}], ",", " ", RowBox[{"b", "[", RowBox[{"B", ",", "R", ",", "t"}], "]"}], ",", "0", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{ RowBox[{"1.02", " ", RowBox[{"tcritical", "[", RowBox[{"B", ",", "R"}], "]"}]}], "+", ".001"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"B", ",", RowBox[{"1.0001", " ", "R"}], ",", RowBox[{"2", "R"}]}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "1", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"b", "[", RowBox[{"B", ",", "R", ",", "0"}], "]"}], ",", RowBox[{"b", "[", RowBox[{"B", ",", "R", ",", RowBox[{"tcritical", "[", RowBox[{"B", ",", "R"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"B", ",", "1.0001", " ", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"R", ",", "1", ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"B", ",", RowBox[{"b", "[", RowBox[{"B", ",", "1", ",", RowBox[{"tcritical", "[", RowBox[{"B", ",", "1"}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"B", ",", "1.01", ",", "4"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"tcritical", "[", RowBox[{"B", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"B", ",", "1.001", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"tcritical", "[", RowBox[{"B", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"B", ",", "1.01", ",", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.446312774905966*^9, 3.446312863905966*^9}, { 3.4463368202085795`*^9, 3.4463369057734156`*^9}, {3.446336992995372*^9, 3.4463369949610662`*^9}, {3.446337063625617*^9, 3.4463372534132743`*^9}, { 3.4463373263168116`*^9, 3.4463373372067394`*^9}, 3.446337372601935*^9, 3.4463374233633347`*^9, {3.44633754086265*^9, 3.44633754295236*^9}, { 3.4463376193214955`*^9, 3.4463376299565573`*^9}, {3.4463376797893047`*^9, 3.446337851426757*^9}, {3.446337904013235*^9, 3.446338002244252*^9}, { 3.4463380366385355`*^9, 3.446338042011238*^9}, {3.4463380730619855`*^9, 3.4463381200062466`*^9}, {3.4463396190060077`*^9, 3.4463397090861797`*^9}, {3.4464217949611535`*^9, 3.4464218464227037`*^9}, {3.446422123638359*^9, 3.4464221255542517`*^9}, 3.44642273900327*^9, {3.446422860823598*^9, 3.4464228612190804`*^9}, { 3.4465001245376062`*^9, 3.4465001728704505`*^9}, {3.446500203156598*^9, 3.4465004002465224`*^9}, {3.4465004470736036`*^9, 3.446500471664803*^9}, { 3.446500529780224*^9, 3.4465005491061354`*^9}, 3.4465006208945093`*^9, { 3.4465006873560762`*^9, 3.446500718949757*^9}, {3.4465017734125404`*^9, 3.4465019178896217`*^9}, {3.4465019531686134`*^9, 3.4465019797548027`*^9}, {3.4465918033681345`*^9, 3.4465918816014085`*^9}, 3.4465919677374973`*^9, {3.4465920004121637`*^9, 3.446592009789493*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"The plot below shows how many blue and red forces are alive \ at any given moment.\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.4467189918543215`*^9}], Cell[BoxData["\<\"The blue function is \\!\\(\\*FractionBox[\\(1\\), \\(2\\)]\ \\) (B+R) \\!\\(\\*SuperscriptBox[\\(\[ExponentialE]\\), \\(-t\\)]\\) + \ \\!\\(\\*FractionBox[\\(1\\), \\(2\\)]\\) (B-R) \\!\\(\\*SuperscriptBox[\\(\ \[ExponentialE]\\), \\(t\\)]\\).\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.44671899188264*^9}], Cell[BoxData["\<\"The red function is \\!\\(\\*FractionBox[\\(1\\), \ \\(2\\)]\\) (B+R) \\!\\(\\*SuperscriptBox[\\(\[ExponentialE]\\), \\(-t\\)]\\) \ - \\!\\(\\*FractionBox[\\(1\\), \\(2\\)]\\) (B-R) \\!\\(\\*SuperscriptBox[\\(\ \[ExponentialE]\\), \\(t\\)]\\).\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.4467189919402533`*^9}] }, Open ]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`B$$ = 1.6980302, $CellContext`R$$ = 1., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`B$$], Dynamic[1.0001 $CellContext`R$$], Dynamic[2 $CellContext`R$$]}, { Hold[$CellContext`R$$], 1, 10}}, Typeset`size$$ = {360., {112., 115.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`B$3188$$ = 0, $CellContext`R$3189$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`B$$ = Dynamic[1.0001 $CellContext`R$$], $CellContext`R$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`B$$, $CellContext`B$3188$$, 0], Hold[$CellContext`R$$, $CellContext`R$3189$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{ $CellContext`r[$CellContext`B$$, $CellContext`R$$, $CellContext`t], $CellContext`b[$CellContext`B$$, $CellContext`R$$, $CellContext`t], 0, 2}, {$CellContext`t, 0, 1.02 $CellContext`tcritical[$CellContext`B$$, $CellContext`R$$] + 0.001}], "Specifications" :> {{$CellContext`B$$, Dynamic[1.0001 $CellContext`R$$], Dynamic[2 $CellContext`R$$]}, {$CellContext`R$$, 1, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{409., {196., 201.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.446311644749716*^9, 3.446311724124716*^9, 3.446311782140341*^9, { 3.446312832265341*^9, 3.446312864952841*^9}, 3.446336907159069*^9, 3.44633699566024*^9, 3.446337254543085*^9, 3.4463373735393753`*^9, { 3.446337424276362*^9, 3.446337465963147*^9}, {3.446337544220834*^9, 3.446337586497424*^9}, {3.446337630753381*^9, 3.446337647392941*^9}, { 3.4463377135010147`*^9, 3.44633772008946*^9}, {3.446337771834195*^9, 3.4463378519853153`*^9}, 3.4463379394699497`*^9, 3.4463380034238644`*^9, 3.446338043123472*^9, 3.4463381235685186`*^9, 3.44633973665668*^9, { 3.4464217747319794`*^9, 3.446421847386509*^9}, 3.446422126710428*^9, 3.446422739563781*^9, 3.4464228658564787`*^9, 3.44650017621008*^9, 3.446500406993161*^9, {3.4465004489826612`*^9, 3.4465004947726994`*^9}, 3.446500550253523*^9, 3.4465006213476057`*^9, {3.4465006548601093`*^9, 3.4465006877691355`*^9}, {3.446500719484879*^9, 3.446500748719336*^9}, 3.4465017215369544`*^9, 3.446501774100973*^9, {3.446501845596397*^9, 3.4465018741521864`*^9}, 3.446501918687422*^9, {3.446501953763302*^9, 3.4465019801063423`*^9}, 3.446590252124647*^9, 3.4465918822927704`*^9, 3.446591968432765*^9, 3.446592011280608*^9, 3.446676016446197*^9, 3.4467173074027815`*^9, 3.446718992200979*^9}], Cell[BoxData["\<\"The plot below shows the initial and final concentration of \ blue forces.\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.4467189922312503`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`B$$ = 1.0001, $CellContext`R$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`B$$], 1.0001, 2}, { Hold[$CellContext`R$$], 1, 2}}, Typeset`size$$ = {360., {117., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`B$3216$$ = 0, $CellContext`R$3217$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`B$$ = 1.0001, $CellContext`R$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`B$$, $CellContext`B$3216$$, 0], Hold[$CellContext`R$$, $CellContext`R$3217$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{ $CellContext`b[$CellContext`B$$, $CellContext`R$$, 0], $CellContext`b[$CellContext`B$$, $CellContext`R$$, $CellContext`tcritical[$CellContext`B$$, $CellContext`R$$]]}, \ {$CellContext`t, 0, 1}, PlotRange -> {0, 2}], "Specifications" :> {{$CellContext`B$$, 1.0001, 2}, {$CellContext`R$$, 1, 2}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{409., {177., 182.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.446311644749716*^9, 3.446311724124716*^9, 3.446311782140341*^9, { 3.446312832265341*^9, 3.446312864952841*^9}, 3.446336907159069*^9, 3.44633699566024*^9, 3.446337254543085*^9, 3.4463373735393753`*^9, { 3.446337424276362*^9, 3.446337465963147*^9}, {3.446337544220834*^9, 3.446337586497424*^9}, {3.446337630753381*^9, 3.446337647392941*^9}, { 3.4463377135010147`*^9, 3.44633772008946*^9}, {3.446337771834195*^9, 3.4463378519853153`*^9}, 3.4463379394699497`*^9, 3.4463380034238644`*^9, 3.446338043123472*^9, 3.4463381235685186`*^9, 3.44633973665668*^9, { 3.4464217747319794`*^9, 3.446421847386509*^9}, 3.446422126710428*^9, 3.446422739563781*^9, 3.4464228658564787`*^9, 3.44650017621008*^9, 3.446500406993161*^9, {3.4465004489826612`*^9, 3.4465004947726994`*^9}, 3.446500550253523*^9, 3.4465006213476057`*^9, {3.4465006548601093`*^9, 3.4465006877691355`*^9}, {3.446500719484879*^9, 3.446500748719336*^9}, 3.4465017215369544`*^9, 3.446501774100973*^9, {3.446501845596397*^9, 3.4465018741521864`*^9}, 3.446501918687422*^9, {3.446501953763302*^9, 3.4465019801063423`*^9}, 3.446590252124647*^9, 3.4465918822927704`*^9, 3.446591968432765*^9, 3.446592011280608*^9, 3.446676016446197*^9, 3.4467173074027815`*^9, 3.4467189923699136`*^9}], Cell[BoxData["\<\"Below is a plot of how many blue survive versus how many \ blue went to battle against a red force of 1 unit.\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.44671899241288*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxFxXsw0wEcAPBZeSRbTe4KN6zz2IVrF3of6iK60uJ0GxetZpwj6dJt58bZ ydF5XtPW7Y90u+Pa/ohO0d2EJOWR2fUih42JujCmX5vNqj98v3987sO4VpCc RSaRSBf++X9l84punbkSs/VUPj2rIwyPjDpHCFn4dJ/S13YEP6y/zCefxWd9 u9apWXh0Q9U+5mPcXLw/I83bBHNqxRkEfRWutn0Jukhbg89qYpZmHLi1Uxuq Jq/DYhqPxTLjRLOP6pflN2yp0QcarQQ8pG0RyH78gaVsGV2yZIHDwyoUIXor nMSV+LiObsCCvhaq/5gNTqoafm/qtcPh1T5W29tNWDpTFHp6wAELEhZojHRS 7Nab0aqErkm8ZPan4UWqEywKft0x/BU/6ulfU8olw9Pqjf66MZw8l3dMk7IN pgxe2R0/gk9yPn3PO7MdDq7QW5724xxefgE72hl2+VbjT+nFhfZIreCUC6wb SZ+jv8RbTu6NMB13hfncZCOjHTf6ecmXD7jBBknu3XE1PiCN/RwQuANmxql5 5c14obKRHRfgDotVLrFKGe7M9sile++Ei5QNhLkB5zWquxe8PGAa63ylqBF/ Isxrz6ZQYE0mw/dWHd5hTjWOu1HhO4dorVOleBuV99xB2gV/lLP8SkT45B5Z kLwYn6u1hz0T4+bywRPzZbhXIZ+bdA9PSZRL/RS4zuJw79bgE7cFnuOvcMPy sPdaD75qfMgM6cc9dRHxdSP4JVV2WeYUzgn6UCmawa82RdbfN+A3Hzg9GpjH 6yUKzcFlXG53epNowpuEOUPX1/DWG1ETMgLvXFTo2yx4D5+8OLSBv5vOWTHa cW3aKOFw4H8BxY5DLQ== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkHs41Ikeh81gjNvvFystliEUi3IqZw0e36/d2JrTalJZVEpp0q5EpaXO ZFOtWSdCHGp2u+nBslu01OyhiySX0DQdu0Nu4xZy+c0MxozLHOeP9/n89z6f 53U4eDzkMF1HR+fwMv9fQRElmXGhADdMW95zfg49x2wPP3KnYJfzEYqleg6b vDiqJE8KTLbFgsWzOuitK7RZ+IyC63bSdH+/evi7LDSa/iUFtwROTuqpBrhc cmG2jkPBsTQm+1B2I8iOlwsuBVMgkup1Da9rgstLhr8xQykQkitucfc3w4DN 4xniMAWnc1gZz4Qt4D0wmiaOoeAnPNH4lVMrZJZaWufEUpAuvK1zqbQVfNjx /itPUdBQ9XHSt+VtkBXqmGZzgQID5l3B6RAx+Gf/+LHLbQp8CosZGnsJ5IY9 LB29S8FmZp1l29cSGGMN+JWVUHBz8BOuSaYE8u75Ra0rp+AxOzvw3ZwExl9N /bLp6XKPst+JgMa3cI0R6hvQTcEXYa1/xO1oh+mzqyMjrORgC27bLe2l4D/i KIm1lUN9rHmibbAU0nY5B6U4yOHqoYlR6VkpWHu4rLvrKgf/qb8FnfxTCtjj sTTBlsOb89KoA4IOyED2jfMRclhpR4Rv7euENfrcnhKhHCwcHv4qPdINYZn8 SJWtAj7zrFm9S9sHZnPXH79wUEDDSMOqi6QMmqNEn+Q4K4DHp9uXsGTg66Xs dPdQAM357VQLyMCuK+brg34KKBrNWJmRIoMh113c1ggFeIte0uiLMjhR/+nn hfkKEKQ3HTtD9cPlhb+ct5spQey173TEk0H4sgYm+7RKaLOi4gq070EjEruV 0WegQ1zZ6On3AfhmUZ6e0zPgNQ0WOSsmQVVkXTqhngXj4fGqPXwK1BkypyGN CmxyeRU/d8nhlbiYlz82BxvKo49WWikhl5tvmzqpBt87v7f6xEyDh/sPwrUy DVzjpXRwrs1AcHiqtcHreagO3M0teTILvLpigvVmAbrZrmvSVCoI/rGlSV67 CP88W1dgvkoNHpetNQsvlwBru/NvcDSQ25fo9nmDFuak26P6T80Db8uImcMe HYwUJRAeggVY8i/d8rhLBy9Uh9yYv78I5wY+9D/cTUPF7fiQ2tolSF7z/FGL lIZ2gr+eO45owduclZESTsdQgzBaxgUd7C2br7/yho5BZs0lOUwa0gdj2TU7 dVHC6fmHOp+Gps37VgS16mLoyu0HXGzp2BXW/j52sx56xIu3sm7Scc0PMvX9 ej1kN0UfPeemi2FRx45z/fXx+3+V3VH+pouMdxks01p9ZHxnB20+epi0uEnM C2DgzeszsrwXeihp3TNo+wcDt7hdWntvsz4W+63aKPcxwMD0Ti/31/oYHR4y 5FBpgHVj5xiWXAYO2VkUTH3KxEmjygrHNgb2p35zqaOMiT9xUvl5oQbYkIt/ 2jsZooj/bjK/3QBdAsuiLhYZYlyV0TZNJBMTCvO4gfZGWP5R90ltDxP5pQws zDdCekUhBO01RH2uyTe2VsaYWVQTNDZgiImF2arpbGPc8uJ9HuegEUbllT0d sTDBrrnNQXofjNDMc5sgOc8EqzlBYJhgjL8kxVYeMTXFHQ3xwt4JY6zZ72Bz 4oopbpQ38UwSTfDR9O6hDiaBp5I8OiyUJnh6g1l5TwqBL/f6+fPjTLGCiKrS 6pB4XMpyZE+b4n8LPO3OJZOofy9T1BtPYNdH+c4FZ0l0MizXNTlJ4GDmovsD PolvXQO2eScSOH2x2Xf4PIlHJyrbs5IJtEiIDg9OJ3G+Td4UkErgzq0FuXZC EqW6vt6FVwmUqLVGT2tIDPZ7uz76IYGdp3jmHU+WfRyNa5aIwP6pFivls+U/ kXccav5DoGLomsvaehKvPvjO0OIpgeaSjUFXWkn0bg+srmsgcEfpkfP7e0i0 rB4qXt1BYJhzmyC5j0T4Yu+Z4HcEHri1Ketq/7LPay/nTDeB8f+m3WwYJlH2 rab/jYzArFRhzfopEovvPpn9fozAgkXai61yEu/TrlT9Ok7graSYV4eUJA6M jydIJwksj/PqzFeRyODvHFivJFA0KpRVqEn0dd1XsGeGwGfR9NFX8ySuPjHL SVMR2NgbQw0tkrjYyZp/oCZQHPFapdWSODXcUdIzT+D/AGxt+Rs= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{1., 0}, PlotRange->{{1.01, 4}, {0., 3.9999999389795917`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.446311644749716*^9, 3.446311724124716*^9, 3.446311782140341*^9, { 3.446312832265341*^9, 3.446312864952841*^9}, 3.446336907159069*^9, 3.44633699566024*^9, 3.446337254543085*^9, 3.4463373735393753`*^9, { 3.446337424276362*^9, 3.446337465963147*^9}, {3.446337544220834*^9, 3.446337586497424*^9}, {3.446337630753381*^9, 3.446337647392941*^9}, { 3.4463377135010147`*^9, 3.44633772008946*^9}, {3.446337771834195*^9, 3.4463378519853153`*^9}, 3.4463379394699497`*^9, 3.4463380034238644`*^9, 3.446338043123472*^9, 3.4463381235685186`*^9, 3.44633973665668*^9, { 3.4464217747319794`*^9, 3.446421847386509*^9}, 3.446422126710428*^9, 3.446422739563781*^9, 3.4464228658564787`*^9, 3.44650017621008*^9, 3.446500406993161*^9, {3.4465004489826612`*^9, 3.4465004947726994`*^9}, 3.446500550253523*^9, 3.4465006213476057`*^9, {3.4465006548601093`*^9, 3.4465006877691355`*^9}, {3.446500719484879*^9, 3.446500748719336*^9}, 3.4465017215369544`*^9, 3.446501774100973*^9, {3.446501845596397*^9, 3.4465018741521864`*^9}, 3.446501918687422*^9, {3.446501953763302*^9, 3.4465019801063423`*^9}, 3.446590252124647*^9, 3.4465918822927704`*^9, 3.446591968432765*^9, 3.446592011280608*^9, 3.446676016446197*^9, 3.4467173074027815`*^9, 3.4467189924441276`*^9}], Cell[BoxData["\<\"Below is a plot of how long it takes the blue force to wipe \ out the red force.\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.4467189924675636`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hs01HkfB3DXJMzg59Haweay2nLbym464vO18Swrl1xWiXFbMm77PLJF CGuG2iMit9x6lGwioh7KpV2lfca4NKIh5Z7GMM0YczMG88z+8Tnv8zrnfc77 v49JxM++UUoKCgqJ8vs7GSnfU97Z86Gn95ZfpBkf8L7G/R9d+NBItzu7T40P V1SMq7fc5TlS9fOsdB0UOo2Sdb35QH5HSW1bW4d1gpG50xl5v7OFfG1qHcaX COTSBD5EDxBOfdG6DpWpBi4uZXzIoXrcTTu7DhZ1ev11TD4EOd9vHf2DB0Sd Kt1aNh+eFpjc7e3gQVm2SXgljw9xUY+DOx7wQC3CZqdYyocjioXXh6t4sGzq Zk/GC8CCrFdZmMKDxvq05uijAmBvWH/hZscDq3sLJZZ5AviY6McbebQGP31G WtyfL4DEXz64GjavQfUV7iHzIgEUG0h0ztevgRZpa8SwSgA/ZHr1Hi9dA84B fXVcqwCs27r3O11cg4dN7hlrDAG8MGz0Xz6+BkdaH0b910IIF3CnnHuqubCL GzVvZCWEZ79eYJws4MKkDSEk95AQAo24xZxMLlxuofgHHhfCHwJn3k+RXKA+ CDohOSWEjgPF5wwsuRDcrGLimCEEFO/ckdPLgdzG0+/7x4SQ8lIpnPLpE0zd UfAbzxJBQsiZzMxkNlyuWCbNUUTgbbh3/+FYNphdo2exfxOB3cCkISeUDfEX /tOiUiqCjLeDndkebJC5oT3fNIrAVZ/8mb4ZG8w5mX2loyKYxM0HMsdWIdFe ZhtoKgarSdcCusMqKA5va069EEN155ORY6YrgIr0TvkOiCHJoOaFpcEKZAVY ltJGxDAWFObzpfYK7EyfNup+K4Zt5jNV2x0WbHIeWVdzxWBrntZeNcWCde1Y LyJhA6RZnjx6CQsW/BmFC0kbMDKkaxWNY8GL9y26qyYSoLZPlProLcNz4slh 9/0SUK2eSVbUWoY/51h596zkfrxc2Km6DL0fzLejjkog9HZF2BExEzrZlcy5 kxIIuMXoiZliQtNWbg/jogQuzr5Ue1nHhBuGodHPhyWwwVq0J9gxITIY33Uz dROIo4S/9KM/Qo62kY1tlxTaH1JZBbglcGqa+fTqH9uQ2o4UNQcXIfWS56XA oB3glxyzmu1bgOKncffSK2RQ5lqyQJiah9tc4yJGigJiDZ57MLcxB93VRLsF A0XUE1YsSHaYA1PHlIzzVEU0Y9nZVaU0CymlpPKx80rozFcHV0I7pgF3pW3v 75gyokhH0LHK98BLGHNU6FNGjUsBTRmX34Eex4M2FKGCRM8rsxavTgE5vHbL WFcVzS2o63uXvIUP+VQZPFNF9CTPvPbHk0D2dSeNE3ehG9mYi+b6BPxboz6F o6mGRosoTs1WE1BLDOCktaqhPC3GfWkmA7pIM3aTXrvRjxYTi1fn3oBZjLNJ l3Q3akiInq5yfAPDCtLz+Bp1dDii8ZNVyzj05xfEr3jsQZ0/Gv9ykjAO9+mS b0rEe5CS2Mgef2MM6C3dUW3lGmhqXvEs+fMxOJEV6ODvqokC+n/NCa59DaJV 94uxTE30urqcZPn1a7iJ1yN752qhWY3PMwkDo3DV4sm3XYdxyJM9vvdfxFF4 OtHuXTGGQ9dopyMSZHT4Nj0Pt5WNR8w4arRyDR0uhby9SdLVRnF99H1mrnQY nZwqOR6hjW7/oOWkuvQKRjwHIl4/0UZ5g4UXLI+9glX84mKdug6K9ZTEe94a gdZB1lG7cB2U0R9GcZANQ2xksMC6UweZpgApPmYY/um2GRmuposUZGkZ2PwQ UC0oDYFEXVQX3CgZ8huCWF+H6rxWXRQltd71cnwQVIJCNo1lusiPGmORHzwI LmfjLVMDMGRc1R7eOkOD+sYGvFYDhlSNure9EuS28H2X/DuG1knZZ0LiaHDn znbD+3sYmk3NlsWRaHC7xt+puQlDPqWrB36LokFdkVKCRxuG8rqLRAMhNKhN JdKu9mBovCY3LNCLBhXu+pRdYxhiTJspN9rK/VefT+I4hsK+Y1H+tKZB+YkE Q8YbDOXcn/CZtKRBmWP/o7uTGIrv4Tzb/RUNSg8lLbjMYKgtxXkzfh9N/idH IIeFoemlqNnvdOQuS9VYXcFQr6bNNBEvN/blhC9bvve9sWmaFg2KtNITTbkY Co85mv1YnQbXFQ/W9AkwhA+5XnxQSe7Lb2IOiDA0h5v+n5sCDQqlWXZFYgwd sRo7cW5nAAqEE4NhmxiKbk3H392UOymnnCrF0L567dD+Dbm5NpFfb2PooCle uCiSO37KpmIHQ3XpMaPKwgG4xqJsymQYytfQEpjxB+D/eI5pWQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{1., 0.2}, PlotRange->{{1.001, 5}, {0.2027325574545923, 1.1961396471559587`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.446311644749716*^9, 3.446311724124716*^9, 3.446311782140341*^9, { 3.446312832265341*^9, 3.446312864952841*^9}, 3.446336907159069*^9, 3.44633699566024*^9, 3.446337254543085*^9, 3.4463373735393753`*^9, { 3.446337424276362*^9, 3.446337465963147*^9}, {3.446337544220834*^9, 3.446337586497424*^9}, {3.446337630753381*^9, 3.446337647392941*^9}, { 3.4463377135010147`*^9, 3.44633772008946*^9}, {3.446337771834195*^9, 3.4463378519853153`*^9}, 3.4463379394699497`*^9, 3.4463380034238644`*^9, 3.446338043123472*^9, 3.4463381235685186`*^9, 3.44633973665668*^9, { 3.4464217747319794`*^9, 3.446421847386509*^9}, 3.446422126710428*^9, 3.446422739563781*^9, 3.4464228658564787`*^9, 3.44650017621008*^9, 3.446500406993161*^9, {3.4465004489826612`*^9, 3.4465004947726994`*^9}, 3.446500550253523*^9, 3.4465006213476057`*^9, {3.4465006548601093`*^9, 3.4465006877691355`*^9}, {3.446500719484879*^9, 3.446500748719336*^9}, 3.4465017215369544`*^9, 3.446501774100973*^9, {3.446501845596397*^9, 3.4465018741521864`*^9}, 3.446501918687422*^9, {3.446501953763302*^9, 3.4465019801063423`*^9}, 3.446590252124647*^9, 3.4465918822927704`*^9, 3.446591968432765*^9, 3.446592011280608*^9, 3.446676016446197*^9, 3.4467173074027815`*^9, 3.4467189924949055`*^9}], Cell[BoxData["\<\"Below is a plot of how long it takes the blue force to wipe \ out the red force.\"\>"], "Print", CellChangeTimes->{ 3.4463381231798716`*^9, 3.4463397366332445`*^9, {3.4464217745425386`*^9, 3.4464218473503785`*^9}, 3.4464221266811333`*^9, 3.446422739534486*^9, 3.4464228658340197`*^9, 3.446500175953261*^9, 3.446500406755872*^9, { 3.446500448945554*^9, 3.4465004721979723`*^9}, 3.44650055021251*^9, 3.446500621310498*^9, 3.4465006877320285`*^9, 3.446500719430195*^9, 3.446501774064842*^9, {3.446501845557337*^9, 3.4465018741043377`*^9}, 3.4465019186493387`*^9, {3.446501953728148*^9, 3.446501980069236*^9}, 3.4465902518131437`*^9, 3.4465918822595696`*^9, 3.446591968396634*^9, 3.44659201125229*^9, 3.4466760163163223`*^9, 3.44671730688719*^9, 3.446718992519318*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hs0lekeB/C9t02TiIMuaiR02TG6stEevo+DpgsVh3BcEiqlG5EKhVIp bZeRS0oa1RkzMsolpiRDTQ0dHKWmMDEjXV48+/YqsZv3/PGsZ33W91nP+q71 e9ZjFrrXa6uAx+Pt59b/94tOD5pVIgpRbb3fObEmeVKp3xS3iOJV2/9KJ1lq Eu1FAY0fOa+Fw9rLJprkgCGtn7Ck8D10tG6VpibZ+Mb4lqY1RdDtsn7nLiER Zu8unbaM4upPIcTjiJCsnFT7nzzO4xNOuzr3C0lUguCa8XKKHGOeUewOIend lvedyQoKjUnNJV/4CMktSWPhfFuKirhA51BrIdk5YCS1daDozxHax/VrkOJ/ b06/xdnefPOzw79rkGdtpacdVlIszdRvzG7XIK4/O510lFDIk2Q66rsaxCQj IsnNkUKdOMuu7oIGabe/E+3jTLF/qGo8MUCDiNPDfGPXUIxen6Rx+C8BkRb0 ugrWcv3alq5+3S0gA9f8l2dwnmcgmrrlqYDkNG7QLV1H0dyz2CX5gYDIWElT tweF6fn4y9tKBaRsi9ESVy+K7KzfFhVGCYi53X0twwCKTpHRttPaAnLYlSgv cY5uydHbJxSQDs/bfV8FUvib+y3ZrOaTpF037qwKomiY2xTsL+eTnssXow9v pvjeio35+QWf5Osc6O0L4/KatKaZ1/lEt39BTcUuCvfu415Xfbn8ty53m90U rxeo7r7y4hPzyhN/3uJcXPLho9l6PhEff63fsIdi8JjXlWpXPglZcC3y8T6K WANrz7nL+aRq53yzdzHc/fri30d1+SRQYZFukcj1Cx88FvyIR34UmoXmnqXw qrAPHnHnkdpAYfgMKfcepj54GbCGR5qrBrfmc87Yu+RqixuP9IaX7zifQbG7 vlOj2olHDO5LooqyuL4aaR7lS3nkYOqmpGvnKFbUF1mLp/HIKq30opqLFMuO 6pUO3fuM/kmjL7quU/j8mt+UNKGG/gft1tByivWRp5U2o2o4vZlTP8x5pfej dcNUjYKHqy5pVVAke/i67/tLjY1puWHimxQfS3SrKlrUaNAWM+dquHk6Kjy+ LFTjgm7shHcDxey9vXWRjmpsMlSYdrZTlCTWLkuVTiDr/fybh2QUVpOtIuS7 xjG59Yh+t5EMAcWdvx4M+oTZZyslBXYyiHNLD93fPwblLNMqnp8ML/5pWC6r +AjtGxUfLOJlqNzzRclX8g8YNDx0WlYoQ9iyCEzd+AHBviZvje/IUHu8LKyx fhQGJYOG6l4ZDBqPieZYjeLs7Tdn0j/L4KjsL5xTxsKtW6+9y1zOndOVPLRi kdtj0BfvJkfyVJGPUY0K5T+6o2WrHO3B95d1r1dBmFK2o+uUHH6BTjtWDyhh Nt+l70ypHOPhD3RMTykR3/553kSrHNonbCpjRUrsCcy3fTQix3/93vwS2qaA qHr7t9BX4KjjzsSVSQqYTg+qj1qhwPSO6+d9FivQ65Jms95bgfDlotsuA3KI vbIOpsZw+TdfjmUUy9ES0XDqYJ4CXqf0e/7hL8dC93mvp9UqEPlUsolnLMc9 u5/09r5UQFIZGuvUJYNCY7qWhVqBlQXSdZI8GYYuVK5JnqNE2FQtaWawDPOc 4vwLnZWwcnio52Ihg3lZVM3mUCWeDRw42zpEUTf2zasjKUpYRzeG6N2mkHq6 dvlfVSLryL1dzakUlrFxxn/cV0InxE9a6MP9O5fbRXPfKvF2z4FAgQU394KQ 1CnaKogT3mWGvhtBd3RruaelCqElxW4zvh2Bl3fwlX95qLDvkaXObLsRZAoW Dn7erYL318/bf/hzGFPqprHbs1T4FO4wv+HMMEw3vuqwrFKh6rj/1ad2wxir 7BvLe6LCsaeTRYXvh2AwdzK9N6pCbt/QuFHhEOR+25fnzGSx5Z22XYfnECKj Lzv/Ys+ifcvDxdVThmCWwzcpC2BxY+x5QHwjg6KUfDeSwEJUp2D+SGTw0dnw bgfn2YVt2dUJDLz5UnFYIoustBW+Z+IZaCcdW3jiCItt1xIldocYHEjcM7k1 icXZN8lRmTEMPA66PvZNZWGTflK6OpLB+G7qvVfKopnWbWvzY+BrHfmYl8Fi kdmMzu99GdxkBtyyOfsNbghK2cQgIvKluDqThYsQLbbeDDojHsz8lM3iu7ij OkUbGPwQdqH7RB4LVfKQacwqBpoWM3xm5rN4svjM9g1uDEL6sx6Xcg7xqGi1 dGUwfcvJu60FLBy0Ekb6nBmkBEcXG1xg4dh4MtfTkUGPydDMK5wPu7c9sv6a gX3P9izbiyw66mJmaUsYDAcEpfgVsUhLbzZssmewZvbzsbec5xSF37lkx+DK C6/98ZdY2L3zSEkQM1AXPH6vU8xi9dr4rf62DPz9V4cXcdYvGNwqtmHwN1+c g/w= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{1.1, 1.}, PlotRange-> NCache[{{1.01, 2^Rational[1, 2]}, {0.8813735952687995, 2.6516520436189417`}}, {{1.01, 1.4142135623730951`}, {0.8813735952687995, 2.6516520436189417`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.446311644749716*^9, 3.446311724124716*^9, 3.446311782140341*^9, { 3.446312832265341*^9, 3.446312864952841*^9}, 3.446336907159069*^9, 3.44633699566024*^9, 3.446337254543085*^9, 3.4463373735393753`*^9, { 3.446337424276362*^9, 3.446337465963147*^9}, {3.446337544220834*^9, 3.446337586497424*^9}, {3.446337630753381*^9, 3.446337647392941*^9}, { 3.4463377135010147`*^9, 3.44633772008946*^9}, {3.446337771834195*^9, 3.4463378519853153`*^9}, 3.4463379394699497`*^9, 3.4463380034238644`*^9, 3.446338043123472*^9, 3.4463381235685186`*^9, 3.44633973665668*^9, { 3.4464217747319794`*^9, 3.446421847386509*^9}, 3.446422126710428*^9, 3.446422739563781*^9, 3.4464228658564787`*^9, 3.44650017621008*^9, 3.446500406993161*^9, {3.4465004489826612`*^9, 3.4465004947726994`*^9}, 3.446500550253523*^9, 3.4465006213476057`*^9, {3.4465006548601093`*^9, 3.4465006877691355`*^9}, {3.446500719484879*^9, 3.446500748719336*^9}, 3.4465017215369544`*^9, 3.446501774100973*^9, {3.446501845596397*^9, 3.4465018741521864`*^9}, 3.446501918687422*^9, {3.446501953763302*^9, 3.4465019801063423`*^9}, 3.446590252124647*^9, 3.4465918822927704`*^9, 3.446591968432765*^9, 3.446592011280608*^9, 3.446676016446197*^9, 3.4467173074027815`*^9, 3.44671899254666*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "::", "\<\"plln\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Limiting value \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.001` \ \[InvisibleSpace]\\)\\) + \\(\\(1.02`\\\\ \\(\\(Log[\\(\\(\\@\\(1 + \ \\*DynamicBox[ToBoxes[Times[Skeleton[2]], \ StandardForm]]\\)\\/\\@\\(\\(\\(-1\\)\\) + \ \\*DynamicBox[ToBoxes[Times[Skeleton[2]], \ StandardForm]]\\)\\)\\)]\\)\\)\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({t, 0, \\(\\(\\(\\(1.02`\\\\ \ \\(\\(tcritical[\\(\\(FE`B$$21, FE`R$$21\\)\\)]\\)\\)\\)\\) + \ 0.001`\\)\\)}\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is \ not a machine-size real number.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/plln\\\", \ ButtonNote -> \\\"Plot::plln\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4467189926648164`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Infinite expression \\\\\\\"\ \\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(1\\/0\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" encountered.\\\\\\\"\\\ \", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\ \\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \ \\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.446719633743902*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "::", "\<\"plln\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Limiting value \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\[Infinity]\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({t, 0, \\(\\(\\(\\(1.02`\\\\ \ \\(\\(tcritical[\\(\\(FE`B$$21, FE`R$$21\\)\\)]\\)\\)\\)\\) + \ 0.001`\\)\\)}\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is \ not a machine-size real number.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/plln\\\", \ ButtonNote -> \\\"Plot::plln\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.446719633748784*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ "The", " ", "equations", " ", "imply", " ", "that", " ", "we", " ", "have", " ", RowBox[{"b", "^", "2"}]}], " ", "-", " ", RowBox[{"r", "^", "2"}]}], " ", "=", " ", RowBox[{ RowBox[{"constant", ".", " ", "Thus"}], " ", "if", " ", "a", " ", "blue", " ", "force", " ", "of", " ", "initial", " ", "size", " ", "B", " ", "meets", " ", "a", " ", "superior", " ", "blue", " ", "force", " ", "of", " ", "size", " ", "1"}]}], ",", " ", RowBox[{"the", " ", "question", " ", RowBox[{"is", ":", " ", RowBox[{ RowBox[{ "how", " ", "should", " ", "blue", " ", "divide", " ", "his", " ", "forces", " ", "and", " ", RowBox[{"red", "'"}], "s", " ", "forces", " ", "to", " ", "maximize", " ", "what", " ", "he", " ", "ends", " ", RowBox[{"with", "?", " ", "Say"}], " ", "blue", " ", "goes", " ", "into", " ", "beta", " ", "B", " ", "and", " ", RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], "B", " ", "to", " ", "fight", " ", "alpha", " ", "R", " ", "and", " ", RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], " ", RowBox[{"R", ".", " ", "We"}], " ", "assume", " ", "beta", " ", "B"}], " ", ">", " ", RowBox[{"alpha", " ", RowBox[{"R", ".", " ", "The"}], " ", "amount", " ", "of", " ", "blue", " ", "remaining", " ", "after", " ", "the", " ", "first", " ", "battle", " ", "is", " ", "Sqrt", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"beta", "^", "2"}], " ", RowBox[{"B", "^", "2"}]}], " ", "-", " ", RowBox[{ RowBox[{"alpha", "^", "2"}], " ", RowBox[{"R", "^", "2"}]}]}], ")"}], ".", " ", "This"}], " ", "force", " ", "then", " ", "meets", " ", "the", " ", "red", " ", "force", " ", "of", " ", "size", " ", "Sqrt", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], "^", "2"}], " ", RowBox[{"R", "^", "2"}]}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], "^", "2"}], " ", RowBox[{"B", "^", "2"}]}]}], ")"}], "."}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.4466760534096518`*^9, 3.446676234449822*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"firstbattle", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"beta", " ", "B"}], ")"}], "^", "2"}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"alpha", " ", "R"}], ")"}], "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"secondbattle", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], "R"}], ")"}], "^", "2"}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", "beta"}], ")"}], " ", "B"}], ")"}], "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"thirdbattle", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"firstbattle", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}], "-", RowBox[{"secondbattle", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"thirdbattle", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"beta", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4466762420372267`*^9, 3.44667640409912*^9}, { 3.4466764571572475`*^9, 3.446676477363962*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkGlQU1cAhQNB80SlgluqIIJCUTbHGddYz1WBYg1SQEesJDJBtDLIEsat KBgKBAsOyFqRzeJWWQRrLWJchlWnaGUziBFQNHIfhCdBytK0lP448/0635w5 NrJw32BjHo+3fSr/c7Ogtd5+AYVBsOhUXFEG5sS2LaULKe6lZbpNTlQhpezi 3/mLKHghguT4G7VgNLIXvlYU1iamGsXLx4g3XVkpWEqR36L8NGz9FLwNQ8kq WwrXWLUuPfQ5og9VHYy0o9h+MDQlWNiCv7Jit9g7UFChqK2/sBXyOg/LVysp AtTqCPOZ7QixaW92W0WR/Sw6xrtIDa13Xun4aopCq04/l+YOyGKClOVrKN6M SsrnfXqJva+GNglFFGXRSadLF2jgmWV2vd+dQuGrVE4OdqOutj2uyHOqP2qy JOVwD4g+T7J7x9R+H6lXVkcP1nk7zn34DYXXEesnseVvYD/DMyZ9H8WGk06l GZt7Me20YteGyCk/XS4PNtXi9tDA+MMoismgyhML/LU4cNC/0OMYxeIKler+ ZS3qvF1Zv2iKc7vtGKHoA+JtX8eGJVDMOh5NxwL6YPJ4fUnxhak/yxoDmqJZ GM/9aGRWM+ULv+za7TmIW8p91zLrKIKei01uKQYhMzSIFzdS9Hp11VtWD6Lm fX6OQxNFKrtXV7OCQ1zVDudtLyieNsaq3Y0/wkh6zf8ES/HMcSu/re0jeL9I b761YDFicVaxRKpHw4A6rHA+i8/zRNqc43qkrPJxCRCyuLiljc+l6bGwaltZ uxUL8etjuetr9XBpdCh57MDiQUZ27Vf2wwh4r79avpnF65kLZzzSDuOujbLg +xAWlp38sB6/Echzb56zqGEhN9UHruFG8bshV1lTx2KsOjIyy3gMBmmiQt7I oqw+rUQ7fwzKZZKjLU0sukvfO0s2jSGv1FSSrmbh56ZyK0gaQ/2DYCcLHYvw 1cWd55aMQ9i7+A9zYT/m3flBM0wmcN8xiTEP64fYZhl/XbAB5l/LneLMBlAu 7kt0nsYjGufnrSdVA/BP/CnO+U8jUlGA5e+kOsjcs2PcvuUTyc215lb/6nB0 f8tGRYMJOZNwSaG5MYj5KtcS2ZfTSVmf1UUzMYfw+DBRV7KAJOUnBHbt5DDk tTM9+7yAHPDV2ZX7cHAPVY575QiIpUpV4bWHw/0cO8PdnwXkx9R9DSkyDtPN H31IvCsg3629MGR6koPRm9n8Ea2A2MbP8xRc5ZAQlRn1xRaG/Lv+1Gz1dQ7V nXbbaz0Y8lLX23K1hEOEUbSHVMyQtD2/SjwqOVyqX3Hv/B6GTK70jUpQcQjz URQOHmGIpjm1gN/KYWmEgJ7JZUhV4mhQazuHyMo5yZ8VMSRTtH9FcQeHiaaI /flXGLLjisvtrV0cRPKaS3cqGFJ94ukTBeWQ1RFY0N3AkGznNak+AxwyJjrf HWpiSOTbvF02HAfbhtsyrpkhDuLQ7kefOFxLn5xu0DDExKjtctooh1GrEhfF W4b0/CYKCZzgEHvYMW1aH0NUIcWuq/7hkOtk6XRWx5Ac65kjk5McNiqE/FnD DPkP54NFog== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 1}, {0., 3.118675254998519}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4466763939991803`*^9, 3.446676404677208*^9}, { 3.4466764641450815`*^9, 3.446676477992828*^9}, 3.4467173152909484`*^9, 3.4467197216376905`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"firstbattle", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], " ", "==", RowBox[{"secondbattle", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}]}], ",", " ", "beta"}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"firstbattle", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], ",", RowBox[{"secondbattle", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"beta", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4466765004708815`*^9, 3.446676552445094*^9}, { 3.446676669639742*^9, 3.4466766990792637`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "::", "\<\"ifun\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \ used by \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \ use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\ \\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \ ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4466767010078506`*^9, 3.446717317963629*^9, 3.446719729542458*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"beta", "\[Rule]", "0.21605458270998631`"}], "}"}], ",", RowBox[{"{", RowBox[{"beta", "\[Rule]", "0.7839454172900137`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.4466765159571953`*^9, 3.4466765532487535`*^9}, 3.4466767010127335`*^9, 3.446717317989994*^9, 3.4467197295512466`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkHk41Hkcx0fOZUeGSjSYoVApR0JoPh/lkRzlWkdFErpWopTZeLCOVbm2 LFGoVRYdbqmGVBQpiVAPKd8fw2D6aZd0LNb+8X5ef71ef7y5AaFuQYsYDIbL wv5njpzxyQPBBPa/jBI3YwEoT7wfTzlIQF5kGyTPE8KB5G8NVkcImHYo/fb2 5iQIVi49PxZCYMt553+5z6eA9dAwKOcYgc/DciN9ll8g2NfBwv44AaeUC3kr rL/D/a+BCjMRC/0alQjR5CwoZcUMXI8kwJSIvmluxsAgk9wKj9MEWubuzJ72 lcDFR156VcYSsHOeaedFSmKg7NiaffEEejkXkpTDpPBuodTc4iQCJ+/e+f2u nzTu7990LeQcgemCiLzXGrJYF+lxip1GoHSqwcnrkywyl4Y6tGUQ6MjdIRqp l8M7ztcm9bMIgPr27FpbeVR4oLh56AqBFTvVIk2WMdF/92qlC4UEAvS0B7mN TKyZ2UrZFBGokNtlczxYEfca8c8U3CCg5WlVrVmyGKuuUt27agnw1+T69Eqz cHdC3dFXbQQu3jcYyjBWwXJOl01sO4EC8qC4O1wFpevFSwxfEQgS1Xo6Vqlg 2bT2/ZQeAresJN1GjZeg5IFUWftBAo/09ZyKdZfije0BVxo+E1BXeRrN/mcZ mhpwefB14Q+mP+uirio2KH7oe/CdQOcfA73FPqrY0eWr+pBBwWS6qSCzQRWn fH3SHstToFaSvr4vfjnywl2iWjQp6AydSVo0p4YduTzvTjsKZPTPCOwFbJwe V1cSZlFQozQ8rd3Owcy8kaeXcygwespTGxjk4Iad1THulynYZlUxlzDNwbBK Z7rxKgVfzqXpZrO5KI6Mbb90k4KIeNHG14e4OCwtTHF9RIHF+2dbRxja2K1V 8UO9mIKPhq2MYW0drHHfJplpOwTvGHaOOrAKY+wTC6qFQ1AfaiHj26qP3HcO bwoTh8HbLGSHgmgtWponZKqZCGHeOronWs4Q92i+/CrRJQR2L5WZN2iE089S ybG4EdhjcYhdZW+CF6X8TritHIUjTxT4Hmc2oMpAzZ+LmkYhuEorJqLOFKWj 4zw2hYkgoPlZY/vnjcgo8SsjymOwU7fFMV/VHMNzy1KVH42BcXll3Dt7C6xf myzHOjoObWOVPm0hm5DlEG7wq+IE6Eo3KbXyLbF/XUcXXzABTjI/3XLJtsLy fFg55CeGob7SjtI8a/QtM2NpzImBnSqb5H5pM8YmXo3rL/0IJ1sOnv1SysNb oxqXFJ1oKPOs0gu5Dpicl+g/sIMG67TH25tLAAPdxKtuu9IwrqptrnEbkC0Q lDt70dB0j3PieS3g2fTdT1ICaDDIj+HrtwAeNMv5JM+nIZwd0dQzBqidsMRe togGs072KZnliHMWUczeYhp+0UlxNVRHfCumOotu0HBa7ZOyNxsxw6vK166C Bub6JocSDuL8GrfjiQIaWhz/SndYjdj/Kj1fsouG+VmlU8mWiHVJM/u7ummQ 5yc2l1kjZlrtXV34hgZbYer3Hh6i4/X11VsGaHAJjNNctRXxXuSL1jgRDXLu EjaNjohZ6zamu07QwBrXeSF0Rgwjlz24NA1RMXo2TBdEfaef3zdOLfj3Zj74 eCBKSby+ljFDQ+q+3h9jPRE/1Fgd9v9GAyXTwCnyRhQcLjQ0mqXBXKOG/XwX YraWwvT8PA0qyk8Yf+9B/A92HF2o "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV03k01VsbB3BDQhkypU5KRxxD6XrRz5A8m+vKXIaikiniqghXhoiEikpK QkVFKIXM0SChuWTmnINO4eCc8zPcMvPuu9d61l6ff571ffZeD9Ur0MFHgI+P rxrXf3e8l9PGv3XoUBN8Otqv5A0066fW6OnSocm80aPyfgdUhX1bl2lAhwuc divGpjHIr5KKmDOmg/zWuiY/n0m4+cu+55AZHUyne60O6PyGC7rXDF5Y0iHF mab6+eQshIe0Zm7aQwc54+Ta5D0L4FcmPRfjRAfKynV/8I8uwYEJh4PfD9Dh 2CmTnvWFfMgwsI2S500HW5atR2ybANIoljkt5E+HO6xnusatgojCdaQfDaTD +KVrOoWNK9C8f/st9Ug6BCqF0vKSViIn4nDq9hg6jNarOQQ5CKPH/EOJOvF0 iB7M1iySEUFuGdNBu67QISIwO7gyXhS9bqJY2N+nw2nLEU0nTTFESc3dtb+A DkacgOHQz2Io2HWbzqHHdKAN6BVR/MWR8tSuTT5VdHjhec63IVMCnd/s+W/4 Bzx/p6N40bE1aGBsZCT6Kx2mM5VUzUrXIP3q4P64djq4JWj7v5xag0Zt4z9c 6qPD/TsnaElhUsj2dMHdu5N0KHVJyasKkUYynVybdxQGfCpPCln4SxYdv3fK 9LMiA1j7jJ7rR8uixuPLeq3KDJh9t0q8t1wWnRKU2sLYzoAdu+3PuSnKoR4t 3VnSlAHqpLrXICmHcpIjH8gfY4C3CGoWjpRHW02El47WMUAu3fv9sBkFlT4q Uu2uZ4CJ3z/DR4MpSFd2r71lMwPms0IcUnMoyGg4I2/rNwY8zKGU8WYoyO6y hvX4EAOOGTmsnS7YgIJ7bDMipJmwtuJhb8iMAnoWlKZ96W8mXGmsUh3xV0TG dH3XxQAm1EwN9JpcVUQNZsyEgH+Y4E/TqvOrVEQf5Gk9e2OYYJSZXLNlWREx XlTHyN1gQqK5ioeWxWbEt4r+KbueCVG1yQrGHZvR7vtU36fyfXBk5ST7yAAV 6WZI0JoV+kBY8PepYyQVbb4y/7OX2gfvHQ4beC9R0VxEh9eKbX0QUTXDVVdQ Qk/sL7o5oz7g6JtNizorIRn+iX2Lfn0gw6fxwuCDEup3rzezrO2Dab04RbWC LShso7vSd9d+mGe/qjuLVJDXXq39DM9+qKFJ+AXZqCC7c/xJXUf7ISItL93F RQXRRnInPp/sB2sFnXLxkyqovYJdXxvfD3eoT47L5qggLZtg97TH/aD0rig8 Z14FsSMTbu9e6Ie/9feH8ZfQ0DbOvtVdtgPAmsvyQPxqSEZyXKRxbgCeiJv6 PE7VQCte3SrZcvs7pH7J/1L2aBs6plvXI2rNgunpB7m00u2oyNLr7svfLNiU 8XbUdqcW+jVGWTOU/gOEr5xni8xroUrH3YJpZj+hJovG7qn+H4qxSMipGPoJ ppWdyNBFG1GZVt25CYMQOkCtk2JrI0O9+LT12kNQOPXrV9wpHeS66essf9sQ 8DzW6t0jddCvD5dZJ88Og+NJZVUhX12UscLtHwdlNrS8fNkt8kkXyfRV3hdo ZIO6bJhti8oOJBR91skgaAS+DDMtXaN3IL6HbiUs6VE4rEDzheYdKDir5LJ0 wyisE0/1ERAj0IutF0SkAsYgiLxiE7ObQFJWwdviJDhQ6ivN+l8Yge6+llxt KMUBcemmU+PYWgZPRiZkOFBvfO9scTiB7NTY+Z7rObCxSmxOLZJASSvdqCbK HPAs2RomH02gFW8s1/IZciDJDBX3xhHo904q3xkfDhjbKRybu0wghmZLW8Rz DtzsCui4d59AOWNS0YKvOCAa7jajk0sgr4eOtMuvOdAv2PmgCXtEuSv8bjMH 9P6MvTuch/tt6Nv4toUDcker5WgFOP8qjq/sIAd2GJgLXy4ikPmQ8EKxOBeG A36bCFYQSDTP8oH+Gi5kJAQ3J2J/8ky2a5DmguetuE7RSgI5MiXudchzIXrn mUyJKgJ5tMuZL1C5MPf9RZF0DYFON2y5aklwwWE3RUToOYFKs0H5pxsX5OzS 2q+9IdBU5JSwpycXkir9rwg1EohwLhhjHuFCtaVJTxh2naRkeZcfFwIkRZUO NRGoObbP5GMwFz7q1MQqvCUQ3SvavSyRC9m3VcOTPhBopWpdVmwxF1yI6EiZ bwSyFAw8s1jKBZZ8lEc49qV+Ja/Ici64/jLuZmBLZSSp/1PDBcHDqtF5rQRS ED1Y49vAhZTIzXe2txNIe2ymw66TCyHUZMPtXQQ6XEJIbVzCeTRy19AZBKo6 OCPRwseD+m6h2wZMAkmsrBU7J8iDap2A/JvY9a67REZEeFD2xk/foY9ASqvM litkeNCi8tT+dT+BhrztuTbqPEjNbHE7zyJQAOX4+ygnHtwOOb+6fBjP26T5 9g9nHoDUchw/m0CKQWQj6wAPjJW0I/dgt7wNrrdw54GEWP/wCLZ2aES1rD8P jqz/Xr9ulEDTXxMfPI7hwVRC6wk3DoFiE+6dZTziwcZE0faL4wQSDxO28nzC g/vOL5QasbP8TkgPlfDgp6mJwBJ2ubVBLlnBg+GE5pCTEziv1LdGgVc80Nai UvdOEsg6m09EvY0HmakdBXNTBOpOOdrypIMHageEhbb/SyDvs58ytLt5YPjF cMoD+4x3hroRkwdZf5XFNWGXamhZ7xnmwcc87YCLvwi0ttr9Sug8DxzX9kUs /CZQbmHT/rlFHryXDGOrTeN9ytqqGMNHgt+QEdsJ2zJ6uuSCEAmp6w7cKsKO +jPl2y1JEl4Wybc4zhCI9fWlbMMWEkRyn4WmzBIo8LUy05xGwiRt10wF9kJZ 0oOPaiR0ukuL9WLLpe8nOjRJSLSsHVaaI5CFK8+ZrUfCm1UGgSXYT9gbb0nY kDAqnV9fPk+gC3cSPPrsSLCQnRzowPZ24KoU25PQbRUeNo2t8Px5qa0zCe9f GAkbLOB9TznUfMmLhFafwaeV2EfN3iS7+pDwadk0vg3bdFbDfpsfCfeyOZ/G sWe95ugfT5AgT9n2Wn2RQH5E5sSqCBLSda7vuIFtNsZX3XuahNojF2qLsRXv +kU9OkOC0Hx35VvsTlF9Yat4Eta4XJecwf6L2alwMYWE0qhbexyWCLT5mjHL 5RoJt3uzzvtiL5jnF6jdIGHphgARhV1RGqr9LouEaPaa37nYSvGyFsL5JFwl 9ghysZf0o8S7CvH7LlXzFrF7uD9a84vw/xRf3yuxTKCrzuWHzZ/i/C6FYZrY x8U2bFlbQYJb7A8jI2yL13HswSoSYskb4VbYyxoOIQnPSaCmezv6YPf2P9Pf 94oE35K4ySDsqjTqknIDCevaNoicwQ5YGr/Q+JYE3esN6WnYVuUudmkfSECN 3yRzsFX86mW8P5Mwq+a+XIjN+JaSLdhGwmObaZM67JrE6SNtHSRoOAreeIOd ttNdPbebBFeFq24fsU+ON/OC6SRwdbKzW7GtH2yvMO0jYXDD9n092LSD6RHS 30kotEFx/dgCkkvGrB8kzOl2qAxi973xWVE2hG3AhVHs2vDP78+OkKBefaGF h52uuSPFnkPCkaWCrknsINZtJypJAsvZet9vbJubKygTEySYCIRYzmKr2Rzv r/+XhFBtxYp57BX87XlXp0nokdl7YxF7oHKnv8ccCZveCXGXsJ/75/6htUjC AV9Ut4x9U3H1r+VlEhaW/zsE+j9VZo/n "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 1}, {0., 32.72613534614006}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4466765159571953`*^9, 3.4466765532487535`*^9}, 3.4466767010127335`*^9, 3.446717317989994*^9, 3.4467197295903063`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXA1wVUcVvuS9kIS/0iol/aEEKDRA+LMUQlqEii0gdgArFqVVQmwMaoFS UApa6Y+gFprHn5CKiQIF+bGkUh/FgYLFUnCQdLAMDK8jUsVUBwYHpla0zvN+ Z/fe3X05e/dCZzp1xtDcl7v3nu/snv3O2bPn3td7KufUPPhQ5ZzpVZUlo2dX zqqZXvVIyd0zZ/tNiVae16rG87y/lHj4O+v/KQ9Z/7/sdBzQ4v57HH0Ueulq j34qUhlqyWbTXrX/L+3/7V9L0MWEV53OystZbwgdCyJF86gl4WUzKa+iOk1n Q+nYNlIuK9SKH19uGLW0c8hkvFSFFwihrTxHlS/nZSJUATYhDPMp+sj3srgm e56urvBSmayXpLOkl/HViZ6kvVQqMzRCJJ8xxJCI+xP6NdlrqMMEROlJMNeC bpYHfSBDidEnI7DyTEsE6snu/u2ADIaVSaVCYw6NuD/P6IIwep7klprTrDc4 AiMRcS1Kd2gaTD4NFSQQQ40yjX0coWmE8XjTKHXKNNz9CUkqnNM1wRS3SL7G Q0Fl3RKcXDLomuQ9rg+LsACHEYMcrSVkwCed89z9yfB+X730k1gTins9w/Hj EyGMceLzfRIhyiWVjyjeRblyOEt0v4iDce7X2VAeJ1RoISmY6SsMFePCGVTx NAiW4TBE+zDm1oAwLVcL/r6MDCF6cGupOt9cGWQwHRp2K7hGo8xnYOSK0F5c kuuspAGOn/9grtOo8YdXRfewAh0+5G3Svnt3zFjV8dLFf+htV4QnqZAdMbwu V8eHYryXZ5f/5Sk9tXHSkyUXms/9f0qvbEoHMm13xjR3IOsyGYfXNWZbxHA4 2Iiuv9ZYkyp/+40/vu+u23Ww3Vwq2hB7Rp45krGqX3VFEKfum7SxpLn5QgsI QpCCO9Nz6sa8dfB4LEFed8O+RZumnkgf0iH2zpyxY2TTkTMxIWoPLG+cdXTL Ph1i+4L5uybsf+VUTIh5TRt2Lz605kUdomHxon1Td6ZPxISY/ObuI5t2L1yn Q9SuWH5g1tYtR2NCgEVgkw4BccBEzgM8Bx6kC2L0sEJM3YXvXfr3u2tHzdUh BmZOnm2qmrbNBfEM48MDRFvHixcvnR83tiEmBEcoiAOGzlY6ITg2vDa9prH8 2Btvx4SAOGCsbNAhCEEKousYgi4477kNTYvr1hyKqRtpxPmGsfN1iDGHDr61 c+6ctAuiVrQ1rx//WPE75y7o81B87tw7zRPHr48Jwc0DxAFDZyscEHkLD9e/ NIjxRZcgZ8S8hQ31h92d5kyHMIJw0kI3IQhPSzRtm7Zk4NmTf9YNVnjp0nvv 3jVqravTEmL1/iVba441vqrrhuvAhehsuRMCURDR0BpA3BCcBYw4ICHEqpIM dxz48fdJSQZ5md1Ehm9L5EJxKdyA4izPBquTxDDWMhMsk6oOd9wElg8sOetY uLCA6WOGv8HvdLACCSa216J3CaZny+1OZJBpmWlKtWsnaM6UEplb8YwYJyZT 1RtSQZUv3BRzsFzsMYKWAat3mPa8EabA0gBz0A5HIk/es/vNTY8v3K0jc8Rc wYxZ8zCMG58xILh5Rg/QEy0KaN690j6ThlPU2nVLCKQGSBFyu4+QSNPmhig9 f/qvxzdPWWydnmfsEKvsPmgsDW4ILsYYcX2pEwJswEpPJuX8TYcghB+Km4yF WXa/9PTp88cfmLLZpVtCcHmOsbYvsUOsFm3bd82vn3DqlaN6LwwyuyEwB5iL XDYg8yVDRkCskZ3W9wwDGCM+7YTAIDAYHQLa0QtyKR2CEOrsNDKW6B/YddfZ dRvBMQLiWXsvjDXg+04IrhdwJ7iVC+JHos3IcyQE+Ahe0tn3nBAcG4ykPQJi LcPJ/gyhdAhCWKt0g0rwSVb3YrvuH0vW6aGN0+2GMCIC14tFdoh6Ziq5XkgI r4g+Wz4AyzKVUlOTSFPMvW5/prPflZraSElVMabzltVibuVsYOaHG1a0MqZC T8oo/SFbUQbFmfypSGDmCQg3ip+o+cUoyF05V33yikaRo+yndpMZq3W0spjz sy7XeMZ4npAqWpTTg+d9Lq6tU4YD3yjSy7EYC/YTdsdYbzeHEawft0NskLzQ d7P9RJuxUOgQhPAcE5akoLGbXWjXLSGQMiLrodDQTzkAYiwViSIgNoo2OCvC NFmgH0OI79ghNtktYBjxMTvEz0SbkcCWiTYMAAMhI7ohDDfqJwjo72t1QZLb LNH9XAe3k+nKGNN9265xi2gD78A/Ml0ZY7pv2SG2ytv1wFzGmG6BHWIbY/2+ jOkiIH4u2ozdtYSoeaHx2OqlS/bT2Xw7xPOizVjpJYRRZ3w0dx6eZ6aN6/6j dt3b1VRiHqg41pdxpHl2iEYVB8KnTBLCyHy/aYd4gYHoI9qQ5yD00UAiIH5h hzAG8g07xA4GoreiNQZDATgC4kU7BEQBQQOZmzuVv7QLGt2fY9edtkMYNHrE DrFTQYBQxIZS0YZ4DELRZjIC4iU5bf5mMuRkKePYswWE3Oznpkv+ihy8paK/ AcXVaXbJ/vlBCMMmD5IKjd3rw1JhUkqGq7LxFkSEol+JNtgV8YZi7S1M1HMq 4otFu5QzI5RTxivh4UKYQqLOLBu8zCKc5aM9og1pNaIWnfXCkYJ9AF+UCy/O zRoSm1q8LKOfHw1hJ+JhL4aHM2wDCXMYR1lpr6SVvwCAaqCc11OFP0QNYquu iEmWYhWa9pm0pqSjJ0Prh+ye8WuTP0jtAgijiPp1O4RYShIQDU3bQ1EQ5qVw q0MQwm8YU/VgTPU1u+5XTQsQ/SWEkTF+1Q4hEv8kug2K4xd/dw/JFyF7ULRB bVia6M6wqsYOcUiNAJGCPKybim4wAm15IiB+K0YAJ4X/YMlG4CkRtxoFhq/k zsFhaSw/QCHhJANKQWNjVG1X/zvTgIH6rky4e9CO0sR05CaGRREQr/Md6cJY 88t2lKNmR6j01oUJeVV2iN+rjiCDAwzS8RslW/Ray7TcCTkmZAM+4NEoBnED 45OV9h6IfC2Jh6soMYBVoMd1yqBwDeJnBMoJk1go18BZJQp8Ewal9WWqHeWk GhHiAxwF1iiWxPdTKWQg5OlfsqOIYnUyyM2BBMTOjLN/0Y7yB4GCUWBWsNTA utcyjH/AjiLqj0ksJrAu5hgoncStyK6RZdPZ/bnze5oa8mFTUEuX9z7CTM/9 9m78KQLqGmaOptihzkRAXc1M1BfsUM0mFB4jwBspundUs4XFifxIvtfmr+1h viV/giTLVTb4m5gOhAxMKqgBgl3FuNtkqUxUQXLe3I5bBTmrSAQqgtBwNPk6 j1GPvk/oE2t6ofGCdGSVSqjIB9sRAWBEeCDlvu2EHuMhzudMPfrbxjGLVn8X GjHjiBZgAAIoBiatZfJSahRQBeEroPY3bU11F4U6RNkWAyxU3AXhqKg8KZw4 7gXamBMnntW0zh0jiAO6yieH8BXopYXis1JvizdX49a0/qkGCjcI3IFSBfmG k7Gs3Gv3rH+J7mNZCTIO8B2JF7wrwYTCz9jR/kPHIkgCAUj4hWGCt1FC19Fh CIUgWom5BwLmDubEEgGElfW1LyN38ibaO0BHYbLW2JEBAz24sGb0gj0bZtbD ZOMd4uLpdAE6fOTpqmdfX19Ziwf5oBRMRPFrnAND0K0NrI+gdO+BvRmwPpgt DAmxEN0BS0Y74IoUezGptDkXZCnAKBETQTq8NIToAdtTYf2TDlzphGAl2EkR XRCoEPLAAV62bvjD+IQ1gy6PYKevLUP3QgWIaQw6ChsExSQM4nZHX2WIwthh A1oyhLoiiAMGcIDV+wuz0958iAO/PeM4Ity3CboOCgT4+MR5YGvQZaBDRQfl TeFSJdbndugiuhqYHMQP1ASbKLAPquCsvR2quIWqWFkL6wwgQUioA8GhDv5P T/apIC92IVBJFuzm0ClXYqMaKNLtAoSmgFG6XnpalwfNXhJDRht+cV12ARML USJ0Ho4fZalHKQVtrkQxIYkZCQQxDokHkgRqvDwcC0g/PQY1L4jaQTjIiBdA 6SjzIyNXk18ygP3MQYhCTmxsmcYZO59RDhlhJ3NR/0Q8mSBwgapOmU6MzJ0O mWuVTFhuHMnOa2cm9o1woBcrmXC1/7hD5joVuqCHYuFwh8z1jMwdQsZrzeae l1Hvo+MNjAYZKSVnchPOoDrmqvLR8UYGvkLAB8mInl8mwjausJfb4XAFGGYi 6pmk8TXOiFoeHeXe3VgCxLdzpExr9Y0w9ztgdOzKQA6V9i3k80L/XBbsuLfJ 6VjCoMr1x5b1xSrO0bEbA36bg6jdGZnBrLv1YO681YF+MyPzMYdMT0ZmkEOm l5IJd42uNVdWloOKFckMcMiUMn3r75Dpzcj0Yy3ch7mzzIHel5Hp65ApY2T6 OGT6MTKuVKM/I1PqkBnAyNzCWmugeSfFk14O9EEmTyiq9XTICL6akfBmh8yt jEwPh8xgRqa7Q+Y2U4aWM1cyNkTJhAtsCWthmaIYC2xXB3q5KUNV1JscMsNM GUoTujhkxFpkphZizUIgVQssRcy422c63m4iU4Ik1i6t4pHxUtXy0Uy8agAd 71DQyL0oX7s+F1p9QTiyaKMDIvkLE8tiaQVVdZI5huxirAINHUUyRWkrba9x 1jmnu/7SlJJwMd8hoiNldJSTd1bdzWTU/ymh4vKtK7+aBdBwZ9MppIT+je3L qKjQUeS55p5J32twMqOUTM6WLtfNxF48fIhGd17jQL9LXADtwzB5tUPmbnEh 2MeSTEeHjKg/hEGWgtJVDpkxjEwHh8xYJii1d8iIL8BTjSIMG+1YC49TASYM Fm0d6J82wwC9S9PGIXOPKUP+XeSQGa9cOHSyAofMhNB7XHdOVHYNL+g7SmWj D+gb5V6r/wK8dP6F\ \>"]] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "There", " ", "is", " ", "a", " ", "problem", " ", "with", " ", "this", " ", RowBox[{"analysis", ".", " ", "It"}], " ", "assumes", " ", "that", " ", "the", " ", "red", " ", "and", " ", "blue", " ", "forces", " ", "are", " ", "split", " ", "in", " ", "two"}], ",", " ", RowBox[{ "and", " ", "no", " ", "matter", " ", "which", " ", "battle", " ", "ends", " ", "first"}], ",", " ", RowBox[{ "the", " ", "winning", " ", "group", " ", "waits", " ", "till", " ", "the", " ", "other", " ", "battle", " ", "finishes", " ", "before", " ", "joining", " ", "their", " ", "comrades", " ", "at", " ", RowBox[{"arms", "!"}], " ", "This", " ", "is", " ", "of", " ", "course", " ", "a", " ", "really", " ", "ridiculous", " ", RowBox[{"assumption", ".", " ", "So"}]}], ",", " ", RowBox[{ "a", " ", "better", " ", "model", " ", "will", " ", "be", " ", "the", " ", "two", " ", "battles", " ", "go", " ", "simultaneously"}], ",", " ", RowBox[{ "and", " ", "as", " ", "soon", " ", "as", " ", "one", " ", "finishes", " ", "the", " ", "survivors", " ", "join", " ", "the", " ", "other", " ", RowBox[{"battle", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.446676592319495*^9, 3.4466765952030993`*^9}, { 3.446717688108665*^9, 3.4467178181013217`*^9}, {3.446717874575246*^9, 3.4467179467923036`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "We", " ", "first", " ", "have", " ", "to", " ", "find", " ", "out", " ", "how", " ", "long", " ", "the", " ", "two", " ", "battles", " ", RowBox[{"last", ".", " ", "We"}], " ", "always", " ", "start", " ", "with", " ", "a", " ", "blue", " ", "force", " ", "of", " ", "B"}], ",", " ", RowBox[{"a", " ", "red", " ", "force", " ", "of", " ", "R"}], ",", " ", RowBox[{ "and", " ", "the", " ", "splits", " ", "are", " ", "beta", " ", "B", " ", "and", " ", RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], " ", "B", " ", "versus", " ", "alpha", " ", "R", " ", "and", " ", RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], " ", RowBox[{"R", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"From", " ", "our", " ", "analysis", " ", "before"}], ",", " ", RowBox[{ "we", " ", "know", " ", "if", " ", "a", " ", "blue", " ", "force", " ", "of", " ", "size", " ", "B", " ", "meets", " ", "an", " ", "R", " ", "force", " ", "of", " ", "size", " ", "R", " ", "that", " ", "the", " ", "time", " ", "elapsed", " ", "until", " ", "one", " ", "is", " ", "annihilated", " ", "is", " ", "one", " ", "of", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"Log", "[", RowBox[{"-", FractionBox[ SqrtBox[ RowBox[{"B", "+", "R"}]], SqrtBox[ RowBox[{"B", "-", "R"}]]]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"Log", "[", FractionBox[ SqrtBox[ RowBox[{"B", "+", "R"}]], SqrtBox[ RowBox[{"B", "-", "R"}]]], "]"}]}], "}"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"For", " ", "simplicity", " ", "we", " ", "assume", " ", RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], " ", "B"}], " ", "<", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], " ", "R", " ", "and", " ", "beta", " ", "B"}], " ", ">", " ", RowBox[{"alpha", " ", "R"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t1", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{".5", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"beta", " ", "B"}], " ", "+", " ", RowBox[{"alpha", " ", "R"}]}], ")"}], " ", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"beta", " ", "B"}], " ", "-", " ", RowBox[{"alpha", " ", "R"}]}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t2", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{".5", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], " ", "B"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], " ", "R"}]}], ")"}], " ", "/", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], " ", "R"}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], " ", "B"}]}], " ", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t3", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{"Min", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}], ",", RowBox[{"t2", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"t1", "[", RowBox[{"40", ",", "46", ",", ".5", ",", ".8"}], "]"}], ",", " ", "\"\<; the amount of time it takes the sacrificial force of 8 to be \ annihilated is: \>\"", ",", " ", RowBox[{"t2", "[", RowBox[{"40", ",", "46", ",", ".5", ",", ".8"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t1", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], ",", RowBox[{"t2", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], ",", RowBox[{"t3", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"beta", ",", RowBox[{"23.1", "/", "40"}], ",", "1"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.446717948635936*^9, 3.446718034399001*^9}, { 3.4467181593978367`*^9, 3.446718435656522*^9}, {3.4467184746374254`*^9, 3.446718606936575*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"With Nelson's division, this is how long it takes his forces \ to win their first battle: \"\>", "\[InvisibleSpace]", "0.9050543039481257`", "\[InvisibleSpace]", "\<\"; the amount of time it takes the sacrificial \ force of 8 to be annihilated is: \"\>", "\[InvisibleSpace]", "0.36296850169146805`"}], SequenceForm[ "With Nelson's division, this is how long it takes his forces to win their \ first battle: ", 0.9050543039481257, "; the amount of time it takes the sacrificial force of 8 to be \ annihilated is: ", 0.36296850169146805`], Editable->False]], "Print", CellChangeTimes->{ 3.4467185231645927`*^9, {3.4467185855805197`*^9, 3.446718607875968*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVj31czHcAx688pCI9WkmLofLYyNnK+Ng8tYxSIeKo1GpMWKyHJbJoatZ5 iqlGpSetKD1JCW0cKkusp0v63u+e7351Fd39uru1Pz6vzx+f9+eP96zgSN9Q QxaLtWcs/zfbS2b7wowg90zIE5cFrNXfM6GF5hYEQ3l5dVkOrNXH18j8Cu0I AmNJ/MF2Pa6/Gi7onE9gbj26LXmmHtk/ra9XLCC4YKyZlG6jR+7c9FesRQSm 9VhZYaJHwY+f65xcCSY38k86Dutwxz7O7wc3ggl5HcN5z3R4FMLSmX5BkPfE PHJPtA7UoInfyk0Ebs2Bdqf4WrRdHzHcuJmg91vGPqJNi8ebhGUB3gRN3Qb0 juda3Mh/aBm1heAwNyM7sEaL3YHRrUVbCYriDK52X9Li9SNqiy2HwOyqJq3B R4u/uA0+gwcJwiLLqfimUdx0Pba5MI1A9VFgpLqHgVOZcWcTl6DCxXZ+8L8M CpZlhqrOEwS1rzjd2sKg2L3xpxWXCH7oTBLxGhjcXWN5q+kqgYyyrrHIYfBo e4mRKpvggP/BKHU4g94EYYNHBYGN4e3GFrUG9i+3ub3oIHjps1i8ZJEGlQpD d34nwT5VfnaKswa+pqWrlF0E5beG8yWzNDi73sjLvGfsP8kwtmyaBiP3q/b6 9xEsPJL02zGWBm8Kbc91SwkCNN6ej9vUOH+qUyxnCFKdE8s2nFDD+DNO1pSP BYju67xEvRtBsWGXakK4AIITh5bUln3Aad4VZe5tAeyOGKU0l71H+7b4Q8FD AoQ3ubqX9A7jree/XW9WUvgxeLn9OZthcAwCmiISKaTlu6/t/G4I1hV2YTl/ UVDzzBxWtQ4ioclHfMFMiFXXE6yueAwiuLikP9tXiJe8ar5ntQoa+mRfeIYQ Zz/qr0lhq8BbfDnutUCIotzakKP1AzBf9s/ve11EmHXmbWXBtgFMyTqZk31Y BGP5DTNbRT8SmwOWjqsUYYZzY8aRtH4Uh9wsms4SI9XK2qB5ST+mDC191u4p xsP7wmW4S0PoJYqsSBVD9aCHPdOORtREC73nGzE03OawnTFKxCYHWTPTJdgf YxwfLlOgasLgSz+OBL7eZ2pjwhQoFKmPheRLYOUs2ni7Ww6rNOccrkyCkqqi jaVBcrhlPqs+xpYiegEnSf9OhrM3S44aHpfCZFKdvSJChh1RNdXFD6WYcS/n sq9OCn6+OzXFVAanL6752J2TouNGb/qv3jKk+cVOWztPisnpTwfKz8vAdkzv 6uFJMNQ/l83tkmHt2og0bagE/hZFulRHOVpPTnIYN1mCiMs5dxAhx3GrsEON f4rx/t1jqXmJHLX1EcrSADHuucx9njwgR8T21jq+kRhubczFKo8xr3m521Vl IsxZrxaMT1DAkozIPgkT4fmMAx8b8xQAH5zvbUQoVDrqyy2USNm8U5r5VAj9 aU1o/FYlvC9U8yeeEsLkZ69KbZYS1cLZvAp3IX7d8DA1gyjhblZ+fdEHChsm xpj0OdEYKN+/+VYVhcp5eYd7Imms2/Nl+dUoCplWGo66nIZFLm9O0WcUzPP3 x8yroOFbmPBb5nIKP3vwL+yopJGcnmLLZVM4ENTwtKaaRob/uaRoNwoepaeX xtbR6Lj9xzNPVwrtXlYTmb9psBk1o3SiYJ248M/RDhq9HIe2LdMoJNtkPVnY RaOq5ZrO04bCaMHUvl3dNNRf3l+/2poCaVFNq+uh8cCyydXVkkKZQ82JeDK2 T724z8yMgk/NOn+dnMbemxK/1gkUGr+pOrhYSWP7d0Nbn4+n8Hmvyy8cmkZM 3NdHG8dRcDSaXF8/QGPB0/umVQYUlP6tzgnvaQSt+zQ9UytAsHjNV6UfaLy4 NpyYPirAm7iKXW9HaNTSHSlcRoC67CtcMGM+46VDSWoBPl1uUhw5SmOnoenW EyMC5PLi/v5DS2NFDLs19oMAtrsVvS26Md5034Gj7wVI7ecwej2N6bu4sw8N C/AfFxIvTw== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjH0w1HkAhzcth3JImquubKIkdWalFzf1cbrkVsrh8nLbkko5CuV0yEvq LKJbFUlRkdB5qZzXmUxO5CVF14sNWbtrX/jtfr0dhV3n/vjMM888M581/iFu xzRoNJrL/P4nWXtg30CUEDq5JmcLFivxPXtg0Wi0EINg38vTViL72pl2WowQ Zj2XLt+hz3fNLBYjTohNmmeycmcVyJYInHwvCCF12BqZTyngWHx6T98lIfaP y807XyiQszlzF/+WEHaR+aOP0xRw3tFn3VUvBN3E1zzNUAF2hUB9VluE9Pva m1z0KAyO67rvdBEhb//2vqNmwyj4JmJ/MU8EX1uvohtOQ1jZedDmBV8E83/f N33wl0NnGydXb7UYMpekjb1XZSjR6BnTPCFGV7zGmLROisTWLOW9h2Js2lcr q6Mk6D4YE+o/IUbJi99X0pgS9Du973m3cxDjqVYCxslBcBZ4dQQmDMKbR2dt qRNjaeXygPymQZSHN4g09cWI63CVXf1y/ieAul/qLYJ/SdlInpsE59dmTDr/ JcQ0OS88cUuCwJ/pC2R0IVo3Z0a/FUtg0OKW7MsegMGWrmw/CykaDRnib/8W QC/3fH5emBTpS5QdZqsFSHjpxVxYJYXlDl7YMf1+lBwpeLCCJkOiJuO54GUf 9CaYbd1OMnAsU0ngjV5IWNKQylQZHM+52C+J6UG4luGc0zsZ1MeHKDuXD4hK Orx0ZoUcyXktJ8Nt+ajWHO9058hhF/qUfXNdN4qlnyOOFMohj+VX+tHfw4i3 Pj99WI5PDo7dFZ/ewianrSbCdgjLrP6s6eS/QUpB2a8asUNoT2outm38B97h tTUlDUMw5ufqCRteo69wx6DeomHUJz8KCyjtAv+u4HragWEMXDrO/KO0E4uv t4xWXBmGZ1HA+tDAV5gYMbdN7xmGR/CzjdE/dsDD8IE61YSC80iT1pRfOwIz 8x8hkILf3keJu1mtmBxoHDIom/eUl5XaPs9RZ2HenjRKgUZTDqyLaILNm5lr 1XYKOPg/1BoPaoSZ42cxPU6Bbl+3qDeJDWj/Oni1TqsCU+XW/DuT9ShWmsxV GCqRwc1UZkzWYS5x+ljMT0oo3I31fXZVQ/ciq0qVq4TUinGtcHsF0vY2pN4S KbEhmZrRGy/DXq1IXeE6gjWmKaYdOYWo2nA/7GMIwYRzUFCV523kGE1zPlcQ jHWxyny5PBgUBkVuqCSY2xjrgT08XLTru+pdRfBg7OQqk4U8BB9+2lJbQzBg f9OyXnUZduWJzKgnBKoCm5UNVCq6WUZaM80EtST7h9dtSViaYFU6yyew8PE0 XcGNR5Jx7nOrHoLZ0Izpfo14zBbpC9m9BFUKtdxZFQvRq7FlTz4SGGf3Xj9K ncPjVbXxMSKCrKKHzVltv8G1do+HmiLY5tKdoMsNxbN91ac2KwluXo4QMFWn sF1gkcwhBElnOCpXKhgmXyyurx8lCNkyOpzWdgJKj9fr4yYJDjHLGbpcP/jL djuUTxH8csrU1J1i4110Jbv/E4HR6dv2V9q88CQvKx0zBNU+cUaGXFdYb9Ut CZklSPGMC77b5oR7rdHNt1UEymdSCYNrj68OKQSv1AQFlKXOd1xrpI5wZubm CNQzY1Njy113/Qds74f0 "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjH0w1HkAhzcth3JImquubKIkdWalFzf1cbrkVsrh8nLbkko5CuV0yEvq LKJbFUlRkdB5qZzXmUxO5CVF14sNWbtrX/jtfr0dhV3n/vjMM888M581/iFu xzRoNJrL/P4nWXtg30CUEDq5JmcLFivxPXtg0Wi0EINg38vTViL72pl2WowQ Zj2XLt+hz3fNLBYjTohNmmeycmcVyJYInHwvCCF12BqZTyngWHx6T98lIfaP y807XyiQszlzF/+WEHaR+aOP0xRw3tFn3VUvBN3E1zzNUAF2hUB9VluE9Pva m1z0KAyO67rvdBEhb//2vqNmwyj4JmJ/MU8EX1uvohtOQ1jZedDmBV8E83/f N33wl0NnGydXb7UYMpekjb1XZSjR6BnTPCFGV7zGmLROisTWLOW9h2Js2lcr q6Mk6D4YE+o/IUbJi99X0pgS9Du973m3cxDjqVYCxslBcBZ4dQQmDMKbR2dt qRNjaeXygPymQZSHN4g09cWI63CVXf1y/ieAul/qLYJ/SdlInpsE59dmTDr/ JcQ0OS88cUuCwJ/pC2R0IVo3Z0a/FUtg0OKW7MsegMGWrmw/CykaDRnib/8W QC/3fH5emBTpS5QdZqsFSHjpxVxYJYXlDl7YMf1+lBwpeLCCJkOiJuO54GUf 9CaYbd1OMnAsU0ngjV5IWNKQylQZHM+52C+J6UG4luGc0zsZ1MeHKDuXD4hK Orx0ZoUcyXktJ8Nt+ajWHO9058hhF/qUfXNdN4qlnyOOFMohj+VX+tHfw4i3 Pj99WI5PDo7dFZ/ewianrSbCdgjLrP6s6eS/QUpB2a8asUNoT2outm38B97h tTUlDUMw5ufqCRteo69wx6DeomHUJz8KCyjtAv+u4HragWEMXDrO/KO0E4uv t4xWXBmGZ1HA+tDAV5gYMbdN7xmGR/CzjdE/dsDD8IE61YSC80iT1pRfOwIz 8x8hkILf3keJu1mtmBxoHDIom/eUl5XaPs9RZ2HenjRKgUZTDqyLaILNm5lr 1XYKOPg/1BoPaoSZ42cxPU6Bbl+3qDeJDWj/Oni1TqsCU+XW/DuT9ShWmsxV GCqRwc1UZkzWYS5x+ljMT0oo3I31fXZVQ/ciq0qVq4TUinGtcHsF0vY2pN4S KbEhmZrRGy/DXq1IXeE6gjWmKaYdOYWo2nA/7GMIwYRzUFCV523kGE1zPlcQ jHWxyny5PBgUBkVuqCSY2xjrgT08XLTru+pdRfBg7OQqk4U8BB9+2lJbQzBg f9OyXnUZduWJzKgnBKoCm5UNVCq6WUZaM80EtST7h9dtSViaYFU6yyew8PE0 XcGNR5Jx7nOrHoLZ0Izpfo14zBbpC9m9BFUKtdxZFQvRq7FlTz4SGGf3Xj9K ncPjVbXxMSKCrKKHzVltv8G1do+HmiLY5tKdoMsNxbN91ac2KwluXo4QMFWn sF1gkcwhBElnOCpXKhgmXyyurx8lCNkyOpzWdgJKj9fr4yYJDjHLGbpcP/jL djuUTxH8csrU1J1i4110Jbv/E4HR6dv2V9q88CQvKx0zBNU+cUaGXFdYb9Ut CZklSPGMC77b5oR7rdHNt1UEymdSCYNrj68OKQSv1AQFlKXOd1xrpI5wZubm CNQzY1Njy113/Qds74f0 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0.6, 0}, PlotRange->{{0.5775, 1}, {0., 2.021073873257551}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4467182740418663`*^9, 3.446718392027478*^9}, 3.446718436554902*^9, 3.4467184793187666`*^9, 3.44671852322123*^9, { 3.446718585637157*^9, 3.446718607936511*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"So", ",", " ", RowBox[{ "we", " ", "can", " ", "now", " ", "figure", " ", "out", " ", "how", " ", "long", " ", "it", " ", "takes", " ", RowBox[{"Nelson", "'"}], "s", " ", "sacrifical", " ", "fleet", " ", "to", " ", "be", " ", RowBox[{"destroyed", " ", "--"}], " ", "less", " ", "time", " ", "than", " ", "it", " ", "takes", " ", "his", " ", "larger", " ", "force", " ", "to", " ", "destroy", " ", "their", " ", RowBox[{"opponents", ".", " ", "We"}], " ", "can", " ", "now", " ", "see", " ", "how", " ", "many", " ", "red", " ", "and", " ", "blue", " ", "would", " ", "survive", " ", "at", " ", "each", " ", "stage"}], ",", " ", RowBox[{"and", " ", "figure", " ", "out", " ", "what", " ", RowBox[{"happens", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"newB", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{"btemp", "[", RowBox[{ RowBox[{"beta", " ", "B"}], ",", " ", RowBox[{"alpha", " ", "R"}], ",", " ", RowBox[{"t3", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"newR", "[", RowBox[{"B_", ",", "R_", ",", "alpha_", ",", "beta_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"rtemp", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "beta"}], ")"}], " ", "B"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "alpha"}], ")"}], " ", "R"}], ",", " ", RowBox[{"t3", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}]}], "]"}], " ", "+", " ", RowBox[{"rtemp", "[", RowBox[{ RowBox[{"beta", " ", "B"}], ",", " ", RowBox[{"alpha", " ", "R"}], ",", " ", RowBox[{"t3", "[", RowBox[{"B", ",", "R", ",", "alpha", ",", "beta"}], "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"newB", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], ",", RowBox[{"newR", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"beta", ",", RowBox[{"23.1", "/", "40"}], ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"newR", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}], " ", "-", " ", RowBox[{"newB", "[", RowBox[{"40", ",", "46", ",", ".5", ",", "beta"}], "]"}]}], ",", RowBox[{"{", RowBox[{"beta", ",", RowBox[{"23.1", "/", "40"}], ",", "1"}], "}"}]}], "]"}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{{3.44671864235423*^9, 3.44671870590485*^9}, { 3.4467187477039323`*^9, 3.446718871521203*^9}, {3.446718920372568*^9, 3.446718935835446*^9}, {3.446719043244587*^9, 3.446719061115514*^9}, { 3.4467193012095213`*^9, 3.4467193309439464`*^9}, {3.446719449340666*^9, 3.446719467266276*^9}, {3.446719525496924*^9, 3.4467195364464183`*^9}, 3.446719576776845*^9, {3.4467198967905426`*^9, 3.4467199079773264`*^9}, { 3.446719972440974*^9, 3.4467199747054777`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVj3s0lAkchmWXyqVlydJtwubSltu4F78f3zKTRCGbcpl0Klq7UmplVjaV VOyplEuLjsuk0USt4zJaFMu6rFsty4qYMWPMMB+lrBlm1v7xnue85znvH69x ZGzAcVUVFZV9K/mfpKm/73giDyooYa1imgl+HTquOcfkAS0iPmCdnwnev3u2 UyWJB7yrk+q2QSteLcdnazIPIq6xxGcZK144Ro+4zIMXBzvZZIIJerPPeI3c 5IHDoFFUI9sE862y3IfyePB81GmsScMU97qM2PQ18IA161V+usMUQyvHFD+s 4cMNf6e76xnbUPBeI9BtHx/U2uL023rMkGV93o99iw9hJes5RtYWuLE3mPrn EB9YbodsDYstca1TeIH2lgmY6jggYH/cjhzV4XdqURMQ7JHzlV/EDkxtz5GW PJ2AC90FlxrrduJgcNLpyPkJqLhpsDNz0Qrf0v8eHnATQH2zceYX5jYYvupQ V3SKAPZvlT2YbbZB/SqjE8UtArDKevqd+IgtJnftF2WuEwJl7s6pNUpbjOSU zxYFCEGUbSN7ec8OZeQlXlSeEOZ8qIlcJyq2W2Ux+yeE8BtD/Rqzn4o69n33 GRaTIDA/e5910h61Cy4VF8VNwltpioSm5oAp3YfsPqmehC32g7LKbAfkHGOV bVARAbOl72SdgyNqz9t1DNJF0DQ4rRXe64hCn8nYqnQRdPU9I/cwnDBeXVdJ HxDBuD0Wfr7khIlpR/XlG6bA6h41IDLDGWvU3vcGhk9B78mBka6NLsieXDx/ rHQKfP0fvQirdkG9W+bFtyVTMG82AI3erkjN76g97yCGuMcM6x/5rniDVX5O 9aIYzhhtGq1J2oUh8dxazksxNMwkxMu0d+NIqYtAW1MCnCY3+fuy3ThUOJad 4S+B64rnhbrubqiV3TZXeUcCJj3RMlG3G87PbnO4PSyBE3qdtDcx7hikW6ZI p0yD1hrz55qrAKOzip9B9DTI+x/nlRUBfhxvFuuUr3Tla+O9mxHrLLZ1ps1N Q9apc3u8oxCpf8nv1rjOwFT/6RbnOsQvvRcnPk2egZ8POA4HrPbAzk0xW9a2 z4DwoCo394gHsqUUZaWuFIh9ljWUCg9UpsqOJx2UQu8Gb9O2ZQ/UuOJTvVwg hYTOXUJpoCdm0F6m5/Gl0L3Zq8WZ5Yk09QsaPDMSGnXPOTZ/8MRqy4dxo7Ek aIfVJ5j5EZivJwtfrCTheHmq74NCAnVKv71gWUUCzS6KZlBM4BXXkcyQahJc DzODM0oIjDn6oo1bS4LiH/ozZimBrhWpdon1JJSwVQ6HPCFw0EdPXd5KQpOd kGnIJVA/ZceTpSESrB+2GD/sJTBtfcEfO4ZJMBM0Paa8InDp0We80Dcr+2+u +uS+JpDf886gfpSEUmZMa/oAgb9u5v6UxCdhLNq7Nv4Ngfu5XkGKaRL0ajCN LiLwd9+a762kK16zidE8RaDzmMX1cJKEi8mBfu4SAimrtRoa5kiwzOVG2UsJ lAa9Mk/+SEJmnsEvxvMERooIz4oFEnJFeZvyPxA4wKwKffsvCQt6IZWGCwTW F+XcBvnK34WrW3VkBNo4anBil0igb1dZuCknsKSd2fpgmQQL62be6mUCDcNm xnoUJMS0vOZfVhCYPhsuVypJeMpxlCmVBP4HWCJqow== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjn881HccxyVUijHVdBbVhtqj/Cp1R7zfjvtmupaV9ePRZcNqNUatW4WO 5ddDUotMeKCh0nnoKCNaPLL5rR+0ukji7jjH/figy4873c3+eD5efzwfj9fj uTY0as8RQwMDg13z/L/ks91sUYwYMlVlsqBzdPTjiJZOxIrBzWbJDzE8OuZl neo04InBvKnD8o+4eW+cE7AmXgyCkI8V8l/nvXTQ/9tEMXCrFZXJyXSk+D+z +i+KISJy5EjjZToWOGV79+aLgd+68/mBIjruZPS7dDeIQVWTe8OwlY6cqkHd mcUSkDk876iiMXD4neler10SeGijObQqnIE3nU9/xb8iAa5TUVfHXwy06dq3 +XGvBKLsFHz3FR64ZFtwoZntEJx4wsj2+9EDyw37Jo2PDUEBa7/QrM0DU9pz VDcqh+CTB7qJYntP7NnHOxGqHoJM7bZslzhPHPB/1Sf0GgbmpQ1FiQOeGLzg wJPjCcOwxnWtRZrndlxevepoSfMw+I85Wz7L3o7xTwJlV82lkB+frtFqtmNo uWC8eI8UxtmYk3DQCzXkvPhYvhRw0/c8WqMXtjtlx74cksLDVhJPHL3RYkt3 3nfrR+DkvixWT6o3mhWeLyk+OQKvF5pEmb3zxoSnB9wW1oyAdEthHn0/YHnY zTKagQwElUkV0iZAM7VbR4+/DLKm3jsPWiNKA0aiqtNl0Hxt5e1NbESuiaXe XyiDfJHl0bAkxJjUkOVa2igEVkcnRNYh3jd+17U3eBSc3uQ+mlEi8kdmT4eV jkKGzyLrbEcftLriWJIhHwWHUGvRxGEf3FzQUXvafQzWFTQIk3N9MO2m4BfD uDHIyH0xXfXCBw9y62rLG8fAhP/U/MIyJvaXMobNlspBfcWA2/klE3uLBq9d 2i2HWc5FdVkiE5dda5uoypTDS5Wu36Keiepxe/eMPjnEtfzetnqOiUGWZbp0 OwXcKYnortjmi8ezS+7CcQWo7oU40qJ9cUr0z5iFQAE0yb8p+hpffLDevjN1 QgFNrmxyRu2Lm19os+57KCGgSFRoTvfDz6nZIaN4JdgzFi8yOeuHnZ9G2C5p V0Ixxzl2f4Mf8lV2+ipLFbSdGNj9kxEL9SmaI7xvVJC5JVrQQrHQNCmg5kOh CqZEPOfu31h4aUdjer5EBZNNd6VWL1m4wyTaVOxAYCYk+WsjGoU1G26dfBtF wMY2l218lMICK03wbBWBx9y0LFsBhRal4dEbqgnkaZ2/CKugMMmj/+rBGgKT 10NflVZSGBHyqK2udv5PHnfWtYpCj4oUt5h6AsURC4SsWgp7AqxMtC0Eah9d X3DqbwqXJ2y8M9dL4JZsbuuAkMLUFYWtG/sIBLkrmx16KJy7/ZGY84YAKRiN iOylUPJscmX9WwJl/SsX6voovLe67leehEC50Z+BtiIKA+tYQToFgaadidww OYVN7PuRTioC3CBaSrmCQvrg+gvBhIA5W1fxXkmh3aJlDQ0TBAI59ezUcQpV Qc8d46cIdJ1PKxO8pzBU5susmJ7vOaeNm5miUBhbzRmYITBl/zqcOUNhfXFO BmgJqKfHLws1FLpsNS2PmiOw55Br85o5Cm+0x7Zc/0CgTUKswj9QaH1YOfhM R2DdXZfYah2F6ePBWr2egNXQtEavp/A/ndR2Ig== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0.6, 10.}, PlotRange->{{0.5775, 1}, {9.140463065021178, 45.999999400177465`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4467188755746546`*^9, {3.4467189216459246`*^9, 3.4467189377425504`*^9}, 3.4467190100699525`*^9, {3.446719044774762*^9, 3.446719062251183*^9}, 3.4467193324458036`*^9, {3.44671945190886*^9, 3.4467194680093927`*^9}, { 3.446719526832776*^9, 3.446719537211018*^9}, 3.4467199107837877`*^9, 3.446719975462265*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hyperlink", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.4466768460679026`*^9, 3.4466768522237587`*^9}}], Cell[BoxData[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"http://en.wikipedia.org/wiki/Battle_of_trafalgar\"\>", True-> StyleBox["\<\"http://en.wikipedia.org/wiki/Battle_of_trafalgar\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL["http://en.wikipedia.org/wiki/Battle_of_trafalgar"], None}, ButtonNote->"http://en.wikipedia.org/wiki/Battle_of_trafalgar"], Annotation[#, "http://en.wikipedia.org/wiki/Battle_of_trafalgar", "Hyperlink"]& ]], "Output", CellChangeTimes->{3.4466768546337605`*^9}] }, Open ]] }, WindowSize->{800, 727}, WindowMargins->{{Automatic, 2}, {0, Automatic}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 374, 9, 78, "Input"], Cell[922, 31, 469, 12, 30, "Input"], Cell[1394, 45, 758, 19, 50, "Input"], Cell[2155, 66, 803, 19, 69, "Input"], Cell[CellGroupData[{ Cell[2983, 89, 1520, 35, 72, "Input"], Cell[4506, 126, 1480, 41, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6023, 172, 483, 14, 33, "Input"], Cell[6509, 188, 787, 14, 39, "Message"], Cell[7299, 204, 669, 22, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8005, 231, 9298, 238, 686, "Input"], Cell[CellGroupData[{ Cell[17328, 473, 824, 12, 23, "Print"], Cell[18155, 487, 983, 14, 40, "Print"], Cell[19141, 503, 985, 14, 40, "Print"] }, Open ]], Cell[20141, 520, 3414, 61, 414, "Output"], Cell[23558, 583, 816, 12, 23, "Print"], Cell[24377, 597, 3206, 56, 376, "Output"], Cell[27586, 655, 849, 12, 43, "Print"], Cell[28438, 669, 4806, 83, 249, "Output"], Cell[33247, 754, 822, 12, 23, "Print"], Cell[34072, 768, 4055, 69, 246, "Output"], Cell[38130, 839, 820, 12, 23, "Print"], Cell[38953, 853, 4237, 74, 238, "Output"], Cell[43193, 929, 1079, 19, 64, "Message"], Cell[44275, 950, 578, 11, 40, "Message"], Cell[44856, 963, 834, 14, 21, "Message"] }, Open ]], Cell[45705, 980, 2444, 59, 152, "Input"], Cell[CellGroupData[{ Cell[48174, 1043, 1754, 53, 112, "Input"], Cell[49931, 1098, 2115, 41, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52083, 1144, 810, 20, 52, "Input"], Cell[52896, 1166, 713, 13, 39, "Message"], Cell[53612, 1181, 373, 9, 30, "Output"], Cell[53988, 1192, 11073, 190, 245, 5913, 104, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[65076, 1385, 1444, 28, 132, "Input"], Cell[CellGroupData[{ Cell[66545, 1417, 5261, 140, 365, "Input"], Cell[71809, 1559, 727, 14, 43, "Print"], Cell[72539, 1575, 6060, 108, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78636, 1688, 3530, 87, 192, "Input"], Cell[82169, 1777, 4174, 75, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86380, 1857, 190, 3, 31, "Input"], Cell[86573, 1862, 711, 18, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)