(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 8795, 248] NotebookOptionsPosition[ 6671, 203] NotebookOutlinePosition[ 7023, 219] CellTagsIndexPosition[ 6980, 216] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"0.7", "\[Equal]", RowBox[{"1", "-", SuperscriptBox["0.9", "n"]}]}], ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.773952070707037*^9, 3.7739520818894243`*^9}, { 3.7739524133738956`*^9, 3.773952413784997*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"eeb013a9-72aa-41bd-9c0e-a2ad1db3e15a"], Cell[BoxData[ TemplateBox[{ "Solve","ifun", "\"Inverse functions are being used by \ \\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \ Reduce for complete solution information.\"",2,4,2,33049011130697329252, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.773952082901106*^9, 3.773952414851626*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"b1666393-879f-4699-880c-7ee3883ababf"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"n", "\[Rule]", "11.427172663391417`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.7739520829046173`*^9, 3.773952414914585*^9}, CellLabel->"Out[4]=",ExpressionUUID->"10ba4f47-0377-4f02-9647-01e17a999cb1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{"Log", "[", "0.3", "]"}], RowBox[{"Log", "[", "0.9", "]"}]]], "Input", CellChangeTimes->{{3.773952290451684*^9, 3.7739523055803957`*^9}, { 3.7739523447100286`*^9, 3.7739523591326113`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"ed714b75-bb00-4f7f-8320-f1fab2a4c6b3"], Cell[BoxData["11.427172663391419`"], "Output", CellChangeTimes->{3.7739523064334927`*^9, 3.773952360638196*^9}, CellLabel->"Out[3]=",ExpressionUUID->"f181f2ee-8e57-4f22-8b4b-42663a4111aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"0.95", "\[Equal]", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "/", "4"}], ")"}], "n"]}]}], ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.7739526425060596`*^9, 3.7739526700535593`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"f550dbf5-df2d-4833-97b2-1d4065d08f97"], Cell[BoxData[ TemplateBox[{ "Solve","ifun", "\"Inverse functions are being used by \ \\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \ Reduce for complete solution information.\"",2,5,3,33049011130697329252, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.773952671113641*^9}, CellLabel-> "During evaluation of \ In[5]:=",ExpressionUUID->"8491a0cd-3597-45ab-aebf-28f3f1fe3601"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"n", "\[Rule]", "10.4133436193043`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.773952671116448*^9}, CellLabel->"Out[5]=",ExpressionUUID->"cc049bfb-e703-45a0-aae7-13325e31bf25"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Log", "[", "0.05", "]"}], "/", RowBox[{"Log", "[", "0.75", "]"}]}]], "Input", CellChangeTimes->{{3.7739527508616123`*^9, 3.773952765222076*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"d53149e5-39c0-40cc-b08e-c870af717707"], Cell[BoxData["10.413343619304303`"], "Output", CellChangeTimes->{3.773952766027768*^9}, CellLabel->"Out[6]=",ExpressionUUID->"a3891821-ee25-4935-abdc-452e6ea23e8a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{"Log", "[", RowBox[{"0.1", "/", SuperscriptBox["0.2", "3"]}], "]"}], RowBox[{"Log", "[", "0.8", "]"}]]], "Input", CellChangeTimes->{{3.7739529885863943`*^9, 3.773953008519844*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"46a3416e-5cab-4570-a8f0-b52074fad6c7"], Cell[BoxData[ RowBox[{"-", "11.318851158516171`"}]], "Output", CellChangeTimes->{3.7739530109780197`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"044cb675-ba4d-4fe2-901e-e33569a66647"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "3"}], "]"}], "*", SuperscriptBox["0.2", "3"], "*", SuperscriptBox["0.8", RowBox[{"n", "-", "3"}]]}], "\[Equal]", "0.1"}], ",", RowBox[{"{", RowBox[{"n", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7739530816855087`*^9, 3.773953082971582*^9}, { 3.77395312245089*^9, 3.77395323799*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"c87d925d-5fa1-49e7-9384-ef408b756582"], Cell[BoxData[ RowBox[{"{", RowBox[{"n", "\[Rule]", "6.553818853992366`"}], "}"}]], "Output", CellChangeTimes->{{3.77395315972635*^9, 3.773953239251936*^9}}, CellLabel->"Out[12]=",ExpressionUUID->"363bfc44-85bc-4882-b1ef-5d9c910423dd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"(", RowBox[{ SuperscriptBox["0.65", "n"], "+", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "1"}], "]"}], "*", "0.35", "*", SuperscriptBox["0.65", RowBox[{"n", "-", "1"}]]}]}], ")"}]}], ">", "0.9"}], ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.773953424792103*^9, 3.773953519789418*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"8ccd4cf3-f4c2-4465-83a1-c2704c9d9146"], Cell[BoxData[ TemplateBox[{ "Reduce","ratnz", "\"Reduce was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"",2,14,9,33049011130697329252,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.773953493818969*^9, 3.773953522160887*^9}}, CellLabel-> "During evaluation of \ In[14]:=",ExpressionUUID->"f9cd6d40-ec52-469f-b9ff-8f862c5a87e8"], Cell[BoxData[ RowBox[{ RowBox[{"n", "<", RowBox[{"-", "1.7705257670350483`"}]}], "||", RowBox[{"n", ">", "9.561099045833826`"}]}]], "Output", CellChangeTimes->{{3.773953493821909*^9, 3.773953522179118*^9}}, CellLabel->"Out[14]=",ExpressionUUID->"01ad6394-c69d-4943-81c4-5b42c7ae734f"] }, Open ]], Cell[BoxData["FindInstance"], "Input", CellChangeTimes->{{3.773953755216855*^9, 3.7739537612528973`*^9}},ExpressionUUID->"8432ee57-4c5a-45fe-b725-\ 3719c83a442e"] }, WindowSize->{808, 691}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 365, 8, 33, "Input",ExpressionUUID->"eeb013a9-72aa-41bd-9c0e-a2ad1db3e15a"], Cell[948, 32, 464, 11, 42, "Message",ExpressionUUID->"b1666393-879f-4699-880c-7ee3883ababf"], Cell[1415, 45, 265, 5, 34, "Output",ExpressionUUID->"10ba4f47-0377-4f02-9647-01e17a999cb1"] }, Open ]], Cell[CellGroupData[{ Cell[1717, 55, 310, 6, 50, "Input",ExpressionUUID->"ed714b75-bb00-4f7f-8320-f1fab2a4c6b3"], Cell[2030, 63, 190, 2, 34, "Output",ExpressionUUID->"f181f2ee-8e57-4f22-8b4b-42663a4111aa"] }, Open ]], Cell[CellGroupData[{ Cell[2257, 70, 370, 9, 33, "Input",ExpressionUUID->"f550dbf5-df2d-4833-97b2-1d4065d08f97"], Cell[2630, 81, 442, 11, 42, "Message",ExpressionUUID->"8491a0cd-3597-45ab-aebf-28f3f1fe3601"], Cell[3075, 94, 239, 5, 34, "Output",ExpressionUUID->"cc049bfb-e703-45a0-aae7-13325e31bf25"] }, Open ]], Cell[CellGroupData[{ Cell[3351, 104, 261, 5, 30, "Input",ExpressionUUID->"d53149e5-39c0-40cc-b08e-c870af717707"], Cell[3615, 111, 166, 2, 34, "Output",ExpressionUUID->"a3891821-ee25-4935-abdc-452e6ea23e8a"] }, Open ]], Cell[CellGroupData[{ Cell[3818, 118, 309, 7, 55, "Input",ExpressionUUID->"46a3416e-5cab-4570-a8f0-b52074fad6c7"], Cell[4130, 127, 185, 3, 34, "Output",ExpressionUUID->"044cb675-ba4d-4fe2-901e-e33569a66647"] }, Open ]], Cell[CellGroupData[{ Cell[4352, 135, 542, 14, 33, "Input",ExpressionUUID->"c87d925d-5fa1-49e7-9384-ef408b756582"], Cell[4897, 151, 240, 4, 34, "Output",ExpressionUUID->"363bfc44-85bc-4882-b1ef-5d9c910423dd"] }, Open ]], Cell[CellGroupData[{ Cell[5174, 160, 541, 15, 33, "Input",ExpressionUUID->"8ccd4cf3-f4c2-4465-83a1-c2704c9d9146"], Cell[5718, 177, 469, 10, 42, "Message",ExpressionUUID->"f9cd6d40-ec52-469f-b9ff-8f862c5a87e8"], Cell[6190, 189, 296, 6, 34, "Output",ExpressionUUID->"01ad6394-c69d-4943-81c4-5b42c7ae734f"] }, Open ]], Cell[6501, 198, 166, 3, 30, "Input",ExpressionUUID->"8432ee57-4c5a-45fe-b725-3719c83a442e"] } ] *) (* End of internal cache information *)