(* 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[      7431,        171]
NotebookOptionsPosition[      7117,        155]
NotebookOutlinePosition[      7459,        170]
CellTagsIndexPosition[      7416,        167]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"x", " ", "+", " ", 
    RowBox[{
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "6"}], ")"}]}], " ", 
     RowBox[{"Exp", "[", " ", 
      RowBox[{"80", " ", "x"}], " ", "]"}]}], " ", "-", "5"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.2"}], ",", " ", "0.2"}], "}"}], " ", ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "6"}], ",", " ", "2"}], "}"}]}], ",", " ", 
   RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", 
      RowBox[{"x", " ", "+", " ", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "6"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", " ", 
         RowBox[{"80", " ", "x"}], " ", "]"}]}], " ", "-", "5"}]}], "}"}]}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.6240157736678295`*^9, 3.624015832124431*^9}, {
  3.6240159164314795`*^9, 3.6240159528263426`*^9}, {3.6240159859765005`*^9, 
  3.6240160103495455`*^9}, {3.6240160420208006`*^9, 3.6240160420832005`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1gk0VWsbB/ATSmQ45+yjFBqQJEPDlUQ9FKWMKaIbmYeupKSSEhLKkLFE
0aAiJULEyX7OfA66hasrqltEkkqUIZVvt7691rv2+q317P96p/2ud5HPfmd/
KRqN9opqv9+LmxlJFy9KyO5Ui+bmZhbuyn4fkp0jIbXsAq/foZy2m7PtXIaE
9JVPO5ZCeXQwTO30GQn5NqFL146yUPFpWVikhOw9efh0UxMLAxzT2je7S8h3
B+6sb2xkYXGrvNaoqoTsd1GtEIlZqP9cusE5V0y+0BjK4fJZeOTl/k+BsSJy
zolwmMVmoe0qnZfjx4WktuF74btKFmawVxfcOCEgw+590f9YysJ56zjuZUF8
0uTn44PW11loqHy+bWUAjyzIvXR+RT4L4zvebiYcuOSJsfV5YZkstGtPTVM2
45DazEPHO86wsEArNitxLZKyu/PN/4lloX/ri8U1Ng3kkMb5F5qRLLxGs7vq
askm4+/E7Zp+gIW8nP0cA6s60o4+rYYezMLguYnP2Gq15NtBp5FQLxZqWawK
2qj6gNTKOKfo7cZCH5e2T7HvK0n+6ouyNx1ZmNCyZN44v4LcOFPnNbGZhVFv
FsU3nb1HBgwmn1cBFn790fVotnEpefJLgv7e1SzM8SSHnJbeIs/3sq44G7LQ
8vJZxUnhNfLLzjPDqYtZ+Nf2E+90hy+RldbvFw2rs7Bo3OSm6UA2Ccmp+gMs
Fnbfiz+wY28S2WbnQTdWYOEapROj3Y5h5J7PQyJChoUatzNcWjT3Q3zM661q
PwiU6g+MziPOwF3jGTERIwSG6vh6++Rnw/fu9/a+HwgUFXDvzdl1GcoXpjhe
7yZQvK7YeGzsGqjsT/gp30mgTJ913sj4TfhoH5cn00rg6opJVoxTKYSlwVY7
CYEWq5POa3jeAx32jISFHAJx1OXdjdIKyBDntis/JLCrJ1zpdFsl2Fs8sl9R
TmC3wc/akGfVsMGtWLf6FoF+ZzJDL8nUQoFK9Xt6AYGtllm3/lGsA8M5XepW
2QSqhr8teapSB3Vrn+xSo+xZZHynWaMOTJpvxA1nETgwo6Ocb1AHu1+rnbtC
WbpZva7Kvg7ot8ezJzMJ/MP1ZnN2ah2EbKUtuptB4IW9D7/sUKwHWpTSyR9p
BL7Kl//qpFIPAfXpcU8paz/+c9ROox7E618GFlEuN/r13cqgHk7vuPHMlrL4
6wYZY/t66KyINL+YSuD36ObZKqn1UJL4vtsghcDdWf+ZtSuwQTY4fJ35GQL7
v+72jFZhQ6WEz5alfMi1M2bJfDb4GUXPaksiMGVuuyDSiA22wtkqwZTZhY2O
853ZoMlRbsxMJFDjTrVv4AU2pF1sgxenqf7yk5MnFj2Cch2xwcY4AvfqyJVd
03sEUhujjstSHk1MeGq76hHEBsxIbIolUMk2VqXA6hFskX3U7EwZWg4Xbgh8
BHOn9U33jCHwykvvyuQ7j+DuitVxAdEEeo+adGmYNEDTttsi02MEek3nLVgF
DTDsplQ6HkmZ5eBns7kBqtHcrOa3V/p9PLizAYyrSjxX/XZo+pToSAMU8LXz
lhyl1quvX+tgbQN8WHBswVQEgbueXQwRmpIwUhkj9j1AuVe7osuSBE1yU8zs
3/5679vQFhIqbYYF4jAC3ZnCaLVdJHh6hY0uo+zmMJwedowE9vD1psFQAl2F
W6vn1ZNA//LZdGcIgUu7fkabzEcwmqk6RxhAYPMx94pcTYTGQ9VrvSiHzqvu
mdBBOLdm380JfwKr3ENs2EYIC6atd9CjbNHRybC0RNi9sfxmnC+V315TtNUP
Qbkn8ZqiF4ETh4h/S4MQMtXXOeTvIfASa7+c4j4ERh57gS7l7u06oU8iEFZ0
V+iBJ4H7WrNNdiQiXBPoX/bZTWD8kwONHrcRLt0a4R13I3DJ/sc/Gsqo/lga
FU3uJLBRaanRwkqE6UrRsZGU6Q6vs7rrEbp2LdM96EpgfrODR+BjhE/DH9td
dxB4X7JsKGwIIb+bPu+DI4H/8XpV4ldzYF2iqE53EzW+72MdT9dyYHbsF5t4
awLPrpC/pAEcuMkTHXllRf0fhYaaNZs5UHMhrzhtI4FJx44YDrhxwKg1ZfCl
BYHLV8htdoriQIhBT9IfZgROD1KTv3ySAwmRZg5H1xLYWWDw+P0pDsyr/xVe
Z0qNT8F5+6kUDsj4Gj0xXUNgx7u8PQ8ucyD1UtQmbWMCYwv0j6ojB1wFhppF
hr/nd71ZMJ8DN06pCZoMCNRX2ParWsyB+/sOHP+iT+CzyIh4xxYO9MWfJUyW
Eajn0pAe103V/1PlcHsJdV7Mcirpl+FCremQpv5CArUiwzurtnBBkHnDI1yZ
mp+ElLIaey7Ydbc/91ei1jf7RlzdNi4UTuudclGk9ue9f/XQnQtXs6avNJpF
YF6vWVRTMBcW3m49zZ9BINNZRr37DBc+W/44FPGTiVf3aAy9TeWCs/fmUvjB
xOX7VvPfZXCha++PxbKTTHRICgr5eJELZevlHqeOM/FMQzN7vIQL0tqX1CNH
mEhbluOh3MgFE3OJB6efiefWlK1g/s2FHEPfyN3vmDh/k2i6SisX6s+yfb72
MtHce+LuvE4uSEl8o+f1MPHIBY9fiwe4sGPx9JH1L5n4SVqn0FyeB0ZFa93e
PGXiyxcPXgdv5cGK2sBS22ompkn1WfEceLApIuPNpkomWuiqlKhv58GLc5nD
5hVMLAoPP/DkTx501T4ImXuXiSHyy6WM91H1LFvDzCImTpqUaNHSedDZ/F4c
kcnEOx4die7ZPLChbWyYk85Ez1Oyg/dzeeCpkpJXmcpE7t/+Vf5XeaCVrCro
SGLiWX9N66b7PBirWSXzbzQT52blB5xv58HH718LsoKZ2Fjb2Pj5OQ/sJ442
NwUw8firCcMtr3jwZWkX+cOXia+Xuo1N9vEgJkOmxMaTicXISvIe54GAc9oh
wZmJJp9SS/TV+BA1+SIywZSJLltiBrlefAjwHkn7TmMiWj/wbvXjA+d6RprP
Twbqbxh89iaID2Kn+w84EwyUMXPj0A7w4W2qko7/MAPv6y8/vz6WyoPEyXU9
DKTTX0PdVT74BLuf0+Qx8LjC7GrJDT5s0zWSHm5gYP9MO73nJXxItIyaV1PH
QHJaLWu8gvo+5KRk0X0Gho6ce2/M5cPUksw/Dl9hYPMzyKro5sP6eo1KqSgG
rmmLmMnp44PJwwmfBYcZWPSk9MTTAT4sifX+ZHSAgVHiOUGfh/nA5N1U0w9k
oF7dZ3MDaQHI2Lu4pzozMOlyYV+xlgA+nzp4+ZkOAzf6TZle8RPAr+o5K1L4
dHw99gHygwQQ7FN1QbqBjtHJHdbnQwQwkXJkfG8NHevuV2xLOSSAANU2Wbnb
dFw5zS/4aLwAMteF9JxIo6NmgTjXqUgAXvar/RbvoCOuqC6wLRbA8/Z1/CQ7
OnoKrhZtuiMALs0j5LkVHfMGj5WbVwnA/dL655bGdGSYGYh1+QKY6lk3sFSF
jrSOjDHaWwEMJfv9dL2mjAV/Rf+cfCcAqzXTW3LTldF8aq/02AcBhLac6S+L
VsajOlbKH0eoPM92fdddyjh0aFTnubQQRC0rW+KVlfE/xp+uFVpCuMqMVP0Z
poQNttrV3r5CWNmTIzekoIgnx3RsKwOF8CpTfRCHFdDi+tI3MiFCmNN09IRt
hwJyvxsqFh8Swg6pw/fOXlNAQYmp/6fTQmDl7P2Sv0oBm2UdVaKKhfDwmoWM
2+ZZmFq5rbT5jhB0Ro2f+OvOQoc9OyznVwjhkIu8x0K5Wfj0gfs+zkMhFKlG
mORK5LHN308g2yQE+W/teZGb5LGTFxmR/VEI9S5WscuN5DB///FZfV+EsLDG
0jBfXg53q528ajIqhF2+1s7Xe2fiq4Pxjzt/Ufmtik8S82bim0XnFi+ii6A2
fFrJqSlZ7D9Z1H53pQg2w950++oZOGr2xFh0RATHarcmPhRJ44GGjhd/R4mg
wHy0alquNA5adJ96dlIEQwarGloCpfGN9beW3kQRWJ+dKpSZIY3NjmqhMrki
GN2oV5hlLoXXfANvWtaK4GT3dmPzDBpq9IXZb2GLwEK2ShDiTsPcoGNfnVAE
9JolD+iLaJi6L3WDl1gEL/zkbXZ5TJFHj1S+iu4QASvNq2lhwk/SPnlqNntc
BNHcEeWQgglSrCjXwPshAre3UvldahPkhnSmfxNNDHHee0am5Y6Ta3IWV3bO
FEPVjKe//FPGSM1CW8cJVTF8zXdwNvT/Ro7fv5C42lQM8fDBtq5tiCzqNBov
jxRDTP/Lt016neRen/15y6PFsHzYcuCgwr/k8oEy8/I4MeDOARvH3jaSPWEQ
ey+ZcsA3TBpvJP9R1ZcvuywGWlD92S3LQkmZnbrqpRwxlNt+L1nEfAGNrwIb
9IRUve5bqb8k/0F6wC2v241UPnWPuSB4A+qHdW6UtIlh6NfpGU4XeuGPHG3D
4l4x6BrFck2PfwS/toUWN+Qk0Ny3rbBXfwz0/vTq1laSQNj+woN2NuMw1F0Y
X8SUQExZWk9rwAQcH54vua4mgUHFUjmfu5PQY3nX1EBfArT/Pxb/AxI33Qo=

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox[
     RowBox[{"x", "+", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"80", " ", "x"}]], "1000000"], "-", "5"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-0.2, 0.2}, {-6, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.6240158103378935`*^9, 3.6240158338248343`*^9}, {
   3.624015927606099*^9, 3.6240159535751443`*^9}, 3.624016011472747*^9, 
   3.6240160426916018`*^9}]
}, Open  ]]
},
WindowSize->{707, 637},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1141, 30, 91, "Input"],
Cell[1723, 54, 5378, 98, 393, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)