(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 440511, 7663] NotebookOptionsPosition[ 436962, 7546] NotebookOutlinePosition[ 437306, 7561] CellTagsIndexPosition[ 437263, 7558] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Photosynthetic Sine Wave ", "Subsection", CellChangeTimes->{{3.5695893272668915`*^9, 3.569589342130891*^9}, { 3.5712157170051265`*^9, 3.571215725202595*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sine", "[", RowBox[{"A_", ",", "F_", ",", "PSI_", ",", "time_", ",", "D_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"recov", ",", "trunk"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"recov", "=", RowBox[{ RowBox[{"A", "*", RowBox[{"N", "[", RowBox[{"Sin", "[", RowBox[{"(", RowBox[{ RowBox[{"2", "*", "Pi", "*", "F", "*", "time"}], "+", "PSI"}], ")"}], "]"}], "]"}]}], "+", "D"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5684778093058405`*^9, 3.568477825136746*^9}, { 3.5684779920802946`*^9, 3.568478024149129*^9}, {3.568478145175051*^9, 3.568478162554045*^9}, {3.568478281119827*^9, 3.5684782997868943`*^9}, { 3.568478457272902*^9, 3.568478461924168*^9}, {3.568478532328195*^9, 3.568478575671674*^9}, {3.568478614803912*^9, 3.5684786439565797`*^9}, { 3.5684787176067924`*^9, 3.5684787771801996`*^9}, {3.568478962089776*^9, 3.5684789756255503`*^9}, 3.5684796139520607`*^9, {3.568479655150417*^9, 3.5684796682701674`*^9}, {3.5684797384371805`*^9, 3.568479743445467*^9}, { 3.568538223303746*^9, 3.568538246015045*^9}, 3.5695840266842065`*^9, { 3.569586343225896*^9, 3.5695864097978964`*^9}, {3.5695865604608965`*^9, 3.569586588994896*^9}, 3.569586634765896*^9, {3.5695867419638963`*^9, 3.5695868134208965`*^9}, {3.5695870334228964`*^9, 3.569587042725896*^9}, { 3.569587147895896*^9, 3.569587149301896*^9}, 3.5695893105968914`*^9}], Cell["\<\ ##############Test of sine wave over 16 days (23,040 \ min)##########################\ \>", "Text", CellChangeTimes->{{3.5712157872301426`*^9, 3.571215816979844*^9}, { 3.5712161099206*^9, 3.5712161221342983`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"gt", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"sine", "[", RowBox[{ "10", ",", ".0006944444444444445", ",", "0", ",", "#", ",", "0"}], "]"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "23040"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gt2", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "\[LessEqual]", "0"}], ",", "0", ",", "#"}], "]"}], "&"}], ",", "gt"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.569587103576896*^9, 3.5695871174038963`*^9}, { 3.5695871628058963`*^9, 3.569587291859896*^9}, {3.5695956215094285`*^9, 3.5695956224394283`*^9}, {3.5695959175542755`*^9, 3.5695959346449842`*^9}, {3.569596054978016*^9, 3.569596056336152*^9}, { 3.5702086442889037`*^9, 3.5702086872573614`*^9}, {3.570208777411518*^9, 3.570208782856829*^9}, 3.57055431882926*^9, {3.5710519948966913`*^9, 3.5710519963927765`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"gt2", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "23040"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ "\"\