# Homework2Sol - (* Content-type: application/mathematica *)...

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

(* 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[ 47329, 925] NotebookOptionsPosition[ 46179, 879] NotebookOutlinePosition[ 46584, 896] CellTagsIndexPosition[ 46541, 893] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Problem 2", "Section", CellChangeTimes->{{3.464014045796875*^9, 3.464014052484375*^9}, { 3.46401409125*^9, 3.4640140919375*^9}, {3.464014597703125*^9, 3.4640145978125*^9}, {3.4640165614375*^9, 3.464016562421875*^9}, { 3.46462128534375*^9, 3.46462128546875*^9}}], Cell[CellGroupData[{ Cell["Part e)", "Subsection", CellChangeTimes->{{3.4640140630625*^9, 3.464014064203125*^9}, { 3.464621288578125*^9, 3.464621288984375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"891", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], ",", RowBox[{ RowBox[{"99", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], "-", RowBox[{"99", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "10"}], " ", "t"}]]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "1100"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], "+", RowBox[{"100", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "10"}], " ", "t"}]]}], "+", RowBox[{"1000", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-",

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

View Full Document
FractionBox["t", "10"]}]]}]}], ",", RowBox[{ RowBox[{"110", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "10"}], " ", "t"}]], "-", RowBox[{"1000", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["t", "10"]}]]}], "+", "891"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.46456912*^9, 3.464569132984375*^9}, { 3.464621300484375*^9, 3.464621390234375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3c0Fn4bxo2MjDxmCM/DI8qMSqT6XiEiUWZJijKijFJJqGwh8pORMkJR SlkVsiIZGZEkRVZZITKTt/ev67/P+Zxzn/u+zyVp52Ziz8TAwODIyMDw/7zr Z8eqcjJ8F5PBw9SVj+GobqMZWtJOkb0ykrnyVeFYeVMWQKNdIl5f1buccsJx tyKSykILI3EVOQeEroXj9M7zZ+aoicT+crL+DvlwtC05xU5SswmfjM9glv91 sH3ukx2nviSPjgc/fLgzDGn1KR6j1Doioaxak/ItGDMJhXI9EXWEXThJTKkp GLqODf3vF+rI6PjQQmNxMMaY58yL2+rJmYDVa3bEBkN9p9H2sJBGkrxDW+ir XjBacv8wyU40k/W9Lknr84JwpV7BQOVYG3G+/9HnZEwgnuSGfT6t1EU+PxTk 7vDzxwjfSISBbReh7gso3uDuD9kLBrs2xHaRS5JR3CG2/kjdwZnWv9BFusOi rzjo+COmLsLBquYzMXPdGZPL4Y8L/VFTetZfyM73Iv52ideQwtkQwLunl/iF h13hLr8KR9KaOHa2n4xf0lnQNPUDw73Z4s/h/eSVoL9khqYfElaJdddn9BOf 428zJKT98LbOQSK7o59cvGsVYPDbFxvM/tyz3z5AbHee4/dJ8MUPJ9mcr4yD ZLD12PbtfT5wjvEta4keImHd2blV/pfhOrixv+DJMNFLcLkn89sLvTaf2Cvr hol+M9TX9nrBtDNU6d3AMHniHvOfSIMX1Bu+XxoUHSEZF0tsTNO8wPwskyIU MkJehVndTzTyQoKP5K6Lx0bJ83E38ZM5F1HJL5KoQRknkf0UrQjPC+CQDJTt
This is the end of the preview. Sign up to access the rest of the document.

## This note was uploaded on 10/21/2011 for the course APPLIED MA AMATH 383 taught by Professor Hongqian during the Fall '10 term at University of Washington.

### Page1 / 15

Homework2Sol - (* Content-type: application/mathematica *)...

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

View Full Document
Ask a homework question - tutors are online