RowBox[{"2", " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{"h", "+", "x"}], ")"}]}]]}]}], "h"]], "Output",
CellChangeTimes->{{3.777221572693533*^9, 3.7772215853765774`*^9},
3.7772220618683863`*^9}],

Cell[BoxData["0.03663127777746836`"], "Output",
CellChangeTimes->{{3.777221572693533*^9, 3.7772215853765774`*^9},
3.7772220618683863`*^9}],

Cell[BoxData["0.00009079985952496971`"], "Output",
CellChangeTimes->{{3.777221572693533*^9, 3.7772215853765774`*^9},
3.7772220618683863`*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"2.07", " ", "letra", " ", "D"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"a", "=",
RowBox[{"-", "1"}]}], "\[IndentingNewLine]", " ",
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
RowBox[{"a", " ",
RowBox[{"E", "^",
RowBox[{"(",
RowBox[{
RowBox[{"-", "a"}], " ", "x"}], ")"}]}]}]}], " ",
"\[IndentingNewLine]",
RowBox[{"f", "[", "0", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[",
RowBox[{"-", "1"}], "]"}], " ", "//", "N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", "+", "h"}], "]"}], " ", "-", " ",
RowBox[{"f", "[", "x", "]"}]}], ")"}], "/",
RowBox[{"(", "h", ")"}]}], " ", "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "2", "]"}], " ", "//", "N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "[", "5", "]"}], " ", "//", "N"}]}]}]], "Input",
CellChangeTimes->{{3.7772218056740556`*^9, 3.777221820214467*^9}, {
3.7772220056105976`*^9, 3.7772220411815615`*^9}}],

Cell[BoxData[
RowBox[{"-", "1"}]], "Output",
CellChangeTimes->{
3.777221820932127*^9, {3.777222006172244*^9, 3.7772220418056135`*^9}}],

Cell[BoxData[
RowBox[{"-", "1"}]], "Output",
CellChangeTimes->{
3.777221820932127*^9, {3.777222006172244*^9, 3.7772220418056135`*^9}}],

Cell[BoxData[
RowBox[{"-", "0.36787944117144233`"}]], "Output",
CellChangeTimes->{
3.777221820932127*^9, {3.777222006172244*^9, 3.7772220418056135`*^9}}],

Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]", "x"], "-",
SuperscriptBox["\[ExponentialE]",
RowBox[{"h", "+", "x"}]]}], "h"]], "Output",
CellChangeTimes->{
3.777221820932127*^9, {3.777222006172244*^9, 3.7772220418056135`*^9}}],

Cell[BoxData[
RowBox[{"-", "7.38905609893065`"}]], "Output",
CellChangeTimes->{
3.777221820932127*^9, {3.777222006172244*^9, 3.7772220418056135`*^9}}],

Cell[BoxData[
RowBox[{"-", "148.4131591025766`"}]], "Output",
CellChangeTimes->{
3.777221820932127*^9, {3.777222006172244*^9, 3.7772220418056135`*^9}}]
}, Open ]]
},
WindowSize->{518, 765},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
Magnification->1.100000023841858,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 407, 8, 93, "Input"],
Cell[955, 30, 1078, 26, 153, "Input"],
Cell[2036, 58, 2535, 65, 333, "Input"],
Cell[4574, 125, 978, 22, 173, "Input"],
Cell[5555, 149, 1256, 36, 133, "Input"],
Cell[6814, 187, 1109, 29, 213, "Input"],
Cell[7926, 218, 511, 13, 73, "Input"],
Cell[8440, 233, 321, 7, 73, "Input"],
Cell[CellGroupData[{
Cell[8786, 244, 538, 14, 93, "Input"],
Cell[9327, 260, 2795, 52, 239, "Output"]
}, Open ]],
Cell[12137, 315, 971, 24, 193, "Input"],
Cell[13111, 341, 613, 15, 93, "Input"],
Cell[CellGroupData[{
Cell[13749, 360, 1673, 49, 213, "Input"],
Cell[15425, 411, 3345, 61, 230, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[18807, 477, 680, 19, 113, "Input"],
Cell[19490, 498, 2475, 46, 236, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[22002, 549, 656, 21, 53, "Input"],
Cell[22661, 572, 201650, 3329, 220, "Output"]
}, Open ]],
Cell[224326, 3904, 89, 1, 53, "Input"],
Cell[224418, 3907, 89, 1, 53, "Input"],
Cell[224510, 3910, 489, 11, 73, "Input"],
Cell[CellGroupData[{
Cell[225024, 3925, 1329, 39, 113, "Input"],
Cell[226356, 3966, 223, 4, 32, "Output"],
Cell[226582, 3972, 216, 3, 32, "Output"],
Cell[226801, 3977, 217, 3, 32, "Output"],
Cell[227021, 3982, 216, 3, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[227274, 3990, 758, 25, 73, "Input"],
Cell[228035, 4017, 359, 10, 41, "Output"],
Cell[228397, 4029, 347, 11, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[228781, 4045, 720, 23, 93, "Input"],
Cell[229504, 4070, 380, 14, 32, "Output"],
Cell[229887, 4086, 452, 14, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[230376, 4105, 1790, 58, 233, "Input"],
Cell[232169, 4165, 357, 12, 52, "Output"],
Cell[232529, 4179, 445, 17, 57, "Output"],
Cell[232977, 4198, 389, 14, 77, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[233403, 4217, 276, 6, 93, "Input"],
Cell[233682, 4225, 237, 8, 47, "Output"],
Cell[233922, 4235, 314, 12, 52, "Output"],
Cell[234239, 4249, 343, 13, 57, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[234619, 4267, 1248, 41, 113, "Input"],
Cell[235870, 4310, 110, 3, 32, "Output"],
Cell[235983, 4315, 158, 5, 32, "Output"],
Cell[236144, 4322, 336, 12, 49, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[236517, 4339, 1233, 40, 113, "Input"],
Cell[237753, 4381, 281, 8, 32, "Output"],
Cell[238037, 4391, 386, 11, 32, "Output"],
Cell[238426, 4404, 283, 8, 32, "Output"],
Cell[238712, 4414, 624, 18, 53, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[239373, 4437, 2536, 82, 193, "Input"],
Cell[241912, 4521, 247, 8, 47, "Output"],
Cell[242162, 4531, 265, 8, 32, "Output"],
Cell[242430, 4541, 315, 10, 47, "Output"],
Cell[242748, 4553, 413, 13, 47, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[243198, 4571, 655, 21, 73, "Input"],
Cell[243856, 4594, 1226, 30, 133, "Output"],
Cell[245085, 4626, 1326, 33, 133, "Output"]