(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      8177,        209]
NotebookOptionsPosition[      7707,        188]
NotebookOutlinePosition[      8042,        203]
CellTagsIndexPosition[      7999,        200]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "n", ",", "b", ",", "k"}], "]"}]], "Input",
 CellChangeTimes->{{3.401013419329877*^9, 3.401013426985745*^9}, {
  3.401014252865972*^9, 3.4010142542072773`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"b", "*", 
       SuperscriptBox["x", "n"]}], 
      RowBox[{
       SuperscriptBox["k", "n"], "+", 
       SuperscriptBox["x", "n"]}]], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "b"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.401013104373143*^9, 3.401013133621975*^9}, {
   3.4010131746998663`*^9, 3.401013195277763*^9}, {3.401013231131345*^9, 
   3.401013320303824*^9}, {3.40101336836266*^9, 3.401013395128517*^9}, {
   3.4010134900420218`*^9, 3.401013490782689*^9}, {3.401013554609173*^9, 
   3.401013608433751*^9}, {3.401013652839888*^9, 3.401013721813179*^9}, 
   3.401013757313786*^9, {3.401013804285804*^9, 3.401013854343248*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`b$$ = 1., $CellContext`k$$ = 
      4, $CellContext`n$$ = 1, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`n$$], 1, 4, 1}, {
        Hold[$CellContext`b$$], 1, 5}, {
        Hold[$CellContext`k$$], 1, 5, 1}}, Typeset`size$$ = {
      875., {272., 276.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = True, $CellContext`n$127627$$ = 
      0, $CellContext`b$127628$$ = 0, $CellContext`k$127629$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, 
        "Variables" :> {$CellContext`b$$ = 1, $CellContext`k$$ = 
          1, $CellContext`n$$ = 1}, "ControllerVariables" :> {
          Hold[$CellContext`n$$, $CellContext`n$127627$$, 0], 
          Hold[$CellContext`b$$, $CellContext`b$127628$$, 0], 
          Hold[$CellContext`k$$, $CellContext`k$127629$$, 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`x^$CellContext`n$$/($CellContext`k$$^$CellContext`n$$ + \
$CellContext`x^$CellContext`n$$), {$CellContext`x, 0, 10}, 
          PlotRange -> {{0, 10}, {0, $CellContext`b$$}}], 
        "Specifications" :> {{$CellContext`n$$, 1, 4, 1}, {$CellContext`b$$, 
           1, 5}, {$CellContext`k$$, 1, 5, 1}}, "Options" :> {}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{917., {343.4375, 349.5625}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.401013350184862*^9, 3.401013428010099*^9, 3.40101361151088*^9, 
   3.401013654583666*^9, {3.401013704708557*^9, 3.401013724164154*^9}, {
   3.401013805567437*^9, 3.401013811686151*^9}, 3.4010138554295273`*^9, {
   3.401013901226954*^9, 3.401013918706332*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"b", "*", 
          SuperscriptBox["x", "n"]}], 
         RowBox[{
          SuperscriptBox["k", "n"], "+", 
          SuperscriptBox["x", "n"]}]], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "==", "0"}], ",", "x"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.401013104373143*^9, 3.401013133621975*^9}, {
   3.4010131746998663`*^9, 3.401013195277763*^9}, {3.401013231131345*^9, 
   3.401013320303824*^9}, {3.40101336836266*^9, 3.401013395128517*^9}, {
   3.4010134900420218`*^9, 3.401013490782689*^9}, {3.401013554609173*^9, 
   3.401013608433751*^9}, {3.401013652839888*^9, 3.401013721813179*^9}, 
   3.401013757313786*^9, {3.401013804285804*^9, 3.401013854343248*^9}, {
   3.401014146089775*^9, 3.401014193472035*^9}, {3.401014302672111*^9, 
   3.4010143046354847`*^9}, {3.40101437311271*^9, 3.401014373524835*^9}, {
   3.401014445530038*^9, 3.401014507249201*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`n$$ = 4, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`n$$], 1, 5, 1}}, Typeset`size$$ = {
      408.5625, {11.8125, 23.75}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = True, $CellContext`n$129399$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, "Variables" :> {$CellContext`n$$ = 1}, 
        "ControllerVariables" :> {
          Hold[$CellContext`n$$, $CellContext`n$129399$$, 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" :> 
        Solve[D[$CellContext`b \
$CellContext`x^$CellContext`n$$/($CellContext`k^$CellContext`n$$ + \
$CellContext`x^$CellContext`n$$), {$CellContext`x, 2}] == 0, $CellContext`x], 
        "Specifications" :> {{$CellContext`n$$, 1, 5, 1}}, "Options" :> {}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{451., {72.9375, 79.0625}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.401014206621667*^9, 3.401014323825341*^9, 3.4010143743227577`*^9, 
   3.401014452628872*^9, {3.401014493144157*^9, 3.401014518481208*^9}}]
}, Open  ]]
},
WindowSize->{1110, 790},
WindowMargins->{{2, Automatic}, {Automatic, 2}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 218, 4, 27, "Input"],
Cell[CellGroupData[{
Cell[811, 29, 1246, 31, 47, "Input"],
Cell[2060, 62, 2510, 50, 711, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4607, 117, 1177, 27, 47, "Input"],
Cell[5787, 146, 1904, 39, 170, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)