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

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      5236,        152]
NotebookOptionsPosition[      4656,        127]
NotebookOutlinePosition[      5152,        147]
CellTagsIndexPosition[      5109,        144]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exercise 4.34(b)", "Subsection",
 CellChangeTimes->{{3.608792515645569*^9, 3.6087925295123796`*^9}, {
  3.608816519920402*^9, 3.608816522571476*^9}, {3.608913275869972*^9, 
  3.6089132760338707`*^9}, {3.608913363716382*^9, 3.608913364226076*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"pde", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{"z", ",", "t"}], "]"}], ",", "t"}], "]"}], "+", 
    RowBox[{"\[Lambda]", "\[Times]", "z", "\[Times]", 
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], "\[Times]", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"P", "[", 
        RowBox[{"z", ",", "t"}], "]"}], ",", "z"}], "]"}]}]}], "\[Equal]", 
   "0"}]}], "\[IndentingNewLine]", 
 RowBox[{"soln", "=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"pde", ",", 
      RowBox[{
       RowBox[{"P", "[", 
        RowBox[{"z", ",", "0"}], "]"}], "\[Equal]", "z"}]}], "}"}], ",", 
    RowBox[{"P", "[", 
     RowBox[{"z", ",", "t"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "t"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.573285257308569*^9, 3.573285330216529*^9}, {
   3.573285602014762*^9, 3.573285603725627*^9}, {3.573285636853928*^9, 
   3.573285638186577*^9}, {3.5732856963578577`*^9, 3.573285724119257*^9}, {
   3.5732875052176437`*^9, 3.573287521097151*^9}, {3.5732876702403812`*^9, 
   3.5732877636891613`*^9}, {3.573287849569543*^9, 3.573287858439868*^9}, {
   3.5732880893556213`*^9, 3.5732881125771646`*^9}, 3.5732881479022827`*^9, {
   3.573288181803026*^9, 3.57328818395857*^9}, {3.5732882309139423`*^9, 
   3.573288238992414*^9}, {3.573288455345742*^9, 3.573288456303607*^9}, {
   3.5732884864262943`*^9, 3.5732884879922237`*^9}, {3.5732891210171413`*^9, 
   3.5732891408651657`*^9}, {3.573289583262485*^9, 3.5732896864616957`*^9}, {
   3.573290410277865*^9, 3.573290412665965*^9}, {3.5732906703340187`*^9, 
   3.573290673130118*^9}, {3.6047696861737213`*^9, 3.6047698737940807`*^9}, {
   3.6088165447530003`*^9, 3.6088165696212*^9}, {3.6088170275692873`*^9, 
   3.6088170823016233`*^9}, {3.608817487622519*^9, 3.608817501749988*^9}, {
   3.608817743111998*^9, 3.608817745996786*^9}, {3.608817995075646*^9, 
   3.6088181063113413`*^9}, {3.6089133680666122`*^9, 3.608913447366247*^9}, {
   3.6089135202715*^9, 3.608913546228932*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["P", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"z", ",", "t"}], "]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z"}], ")"}], " ", "z", " ", "\[Lambda]", " ", 
    RowBox[{
     SuperscriptBox["P", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"z", ",", "t"}], "]"}]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{{3.6088165701246023`*^9, 3.608816579301999*^9}, {
   3.60881706018918*^9, 3.608817084376479*^9}, 3.608817507300185*^9, {
   3.6088180484721327`*^9, 3.608818107518712*^9}, 3.608821047314049*^9, 
   3.608913246999919*^9, {3.608913422852075*^9, 3.608913448478587*^9}, 
   3.6089135477062683`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"P", "[", 
     RowBox[{"z", ",", "t"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["z", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"t", " ", "\[Lambda]"}]]}], "-", "z", "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"t", " ", "\[Lambda]"}]], " ", "z"}]}]]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6088165701246023`*^9, 3.608816579301999*^9}, {
   3.60881706018918*^9, 3.608817084376479*^9}, 3.608817507300185*^9, {
   3.6088180484721327`*^9, 3.608818107518712*^9}, 3.608821047314049*^9, 
   3.608913246999919*^9, {3.608913422852075*^9, 3.608913448478587*^9}, 
   3.6089135478153267`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{912, 773},
WindowMargins->{{154, Automatic}, {Automatic, 28}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrivateNotebookOptions -> {
 "VersionedStylesheet" -> {"Default.nb"[8.] -> True}},
Magnification->2,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 252, 3, 68, "Subsection"],
Cell[CellGroupData[{
Cell[856, 29, 2097, 44, 85, "Input"],
Cell[2956, 75, 898, 26, 59, "Output"],
Cell[3857, 103, 771, 20, 79, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)