PSET3 edited - (* Content-type: application/mathematica *)...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* 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[ 66761, 2138] NotebookOptionsPosition[ 58926, 1892] NotebookOutlinePosition[ 59270, 1907] CellTagsIndexPosition[ 59227, 1904] WindowFrame->Normal*) W (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Number", " ", "3"}]], "Input", CellChangeTimes->{{3.522148370480218*^9, 3.5221483748354673`*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"L", ",", "U"}], "]"}]], "Input", CellChangeTimes->{{3.5221483763265524`*^9, 3.522148379758749*^9}}], Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"U", "=", RowBox[{ RowBox[{"(", RowBox[{"x1", "*", "x2"}], ")"}], "^", RowBox[{"(", "0.5", ")"}]}]}]], "Input", CellChangeTimes->{{3.522148386564138*^9, 3.522148483009654*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{"x1", " ", "x2"}], ")"}], "0.5`"]], "Output", CellChangeTimes->{{3.5221484656766634`*^9, 3.5221484854437933`*^9}}] }, Open ]], } Cell[BoxData[ RowBox[{"D", "[", RowBox[{"U", ",", "x1"}], "]"}]], "Input", CellChangeTimes->{{3.522148468221809*^9, 3.522148471730009*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"0.5`", " ", "x2"}], SuperscriptBox[ RowBox[{"(", RowBox[{"x1", " ", "x2"}], ")"}], "0.5`"]], " ", "it", " ", "is", " ", "greater", " ", "than", " ", "0"}]], "Input",
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
CellChangeTimes->{{3.5227884089773855`*^9, 3.522788412066191*^9}}], Cell[BoxData[ RowBox[{"D", "[", RowBox[{"U", ",", "x2"}], "]"}]], "Input", CellChangeTimes->{{3.5221484733751035`*^9, 3.5221484936602635`*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"0.5`", " ", "x1"}], SuperscriptBox[ RowBox[{"(", RowBox[{"x1", " ", "x2"}], ")"}], "0.5`"]], " ", "it", " ", "is", " ", "greater", " ", "than", " ", "0"}]], "Input", CellChangeTimes->{{3.5227884143905954`*^9, 3.522788423641412*^9}}], Cell[BoxData[ RowBox[{"Therefore", " ", "more", " ", "is", " ", "preferred", " ", "to", " ", "less"}]], "Input", CellChangeTimes->{{3.5227884254666147`*^9, 3.522788435232232*^9}}], Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"D", "[", RowBox[{"U", ",", "x1", ",", "x1"}], "]"}]], "Input", CellChangeTimes->{{3.5221485026097755`*^9, 3.522148513333389*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"0.25`", " ", SuperscriptBox["x2", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"x1", " ", "x2"}], ")"}], "1.5`"]]}]], "Output", CellChangeTimes->{3.5221485140614305`*^9}] }, Open ]], } Cell[BoxData[ RowBox[{"this", " ", "shows", " ", "the", " ", "diminishing", " ", "marginal", " ", "utility"}]], "Input", CellChangeTimes->{{3.522788442111844*^9, 3.5227884491942563`*^9}}], Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{ RowBox[{"D", "[", RowBox[{"U", ",", "x1"}], "]"}], "/", RowBox[{"D", "[", RowBox[{"U", ",", "x2"}], "]"}]}]], "Input", CellChangeTimes->{{3.522148531100405*^9, 3.522148539819904*^9}}],
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 09/22/2011 for the course ECON 101 taught by Professor Mr.tull during the Spring '11 term at De La Salle University.

Page1 / 37

PSET3 edited - (* Content-type: application/mathematica *)...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online