(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     19576,        407]
NotebookOptionsPosition[     18945,        380]
NotebookOutlinePosition[     19300,        396]
CellTagsIndexPosition[     19257,        393]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{"Rs", "\[Equal]", 
    RowBox[{"R2", " ", 
     SuperscriptBox["E", 
      RowBox[{"B", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "Ts"], "-", 
         FractionBox["1", "T2"]}], ")"}]}]]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{"vo", "\[Equal]", 
    RowBox[{
     FractionBox["R", 
      RowBox[{"Rs", "+", "R"}]], "ve"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.646562197552095*^9, 3.646562330101191*^9}, {
   3.64656264200662*^9, 3.6465626423778477`*^9}, 3.646562846244821*^9, {
   3.64656497087724*^9, 3.6465649748645477`*^9}, 3.646565365099903*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"eq1", ",", "eq2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ts", ",", "Rs"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{
    RowBox[{"C", "[", "1", "]"}], "\[Rule]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ts", "/.", "%"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"t", "=", 
  RowBox[{"%", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.646562350076025*^9, 3.646562391459515*^9}, {
  3.646563155866198*^9, 3.646563157481017*^9}, {3.6465646037049923`*^9, 
  3.646564811945096*^9}, {3.646564875799749*^9, 3.646564886458302*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"B", " ", "T2"}], 
  RowBox[{"B", "+", 
   RowBox[{"T2", " ", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"R", " ", 
       RowBox[{"(", 
        RowBox[{"ve", "-", "vo"}], ")"}]}], 
      RowBox[{"R2", " ", "vo"}]], "]"}]}]}]]], "Output",
 CellChangeTimes->{
  3.6465623939224787`*^9, {3.646562647054571*^9, 3.6465626601491413`*^9}, 
   3.646562854316317*^9, {3.646563153424255*^9, 3.646563158854033*^9}, {
   3.646564711819769*^9, 3.646564773236885*^9}, 3.646564813948324*^9, {
   3.646564878208211*^9, 3.6465648879021072`*^9}, 3.646564986192357*^9, 
   3.646565370568275*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"t", "-", "273"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"B", "\[Rule]", "3420"}], ",", 
      RowBox[{"T2", "\[Rule]", "273.0"}], ",", 
      RowBox[{"R2", "\[Rule]", "30000"}], ",", 
      RowBox[{"R", "\[Rule]", "10000"}], ",", 
      RowBox[{"ve", "\[Rule]", "1.0"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"vo", ",", "0.1", ",", "0.9"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6465625441265583`*^9, 3.64656263423485*^9}, {
   3.6465626739531527`*^9, 3.646562691143547*^9}, 3.6465627342060633`*^9, {
   3.6465627721467752`*^9, 3.646562773443544*^9}, {3.646562967125846*^9, 
   3.646563010611712*^9}, {3.646563065110249*^9, 3.646563080627817*^9}, {
   3.646563178962512*^9, 3.646563207337689*^9}, {3.646563278102676*^9, 
   3.646563278394577*^9}, {3.646565093610523*^9, 3.646565124297636*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVkHs01AkUxwfTshSTZJfIY0cz1XpkvXq5d0ovGw2bmbE7nJFo9JhQU9uD
JnogqiMVabdshHUqTGmQ+m0kNMibJhlGGH5Hmkqzu6Wd/eOeez7ne+73fs/X
Ydve4Ch9CoUSoJv/955W2UBOTiXwCoQudfpeBFESuPl2cSU831DBID94EuYp
w7LHlZVAqfOatlJ7EjKkZU70VYKsOnf6VKsnoV++w2+1dRX0PmQ9LrjqSVzK
sixWXqkCgej7y1PengQRuj+ecbUaZMxUx7PxHoTFsOuse7/XgDbUqT5v2p0Q
jrPs3T4TYB+TaCB+60o4nY9lmX5VC5K4xEN/tSwh6C1va+5Sn4Ag9Zr44oJF
hPPhiHU3XJ6CpHBmSo/tQFzsCGFf+aERKJspKi+6NWGY6xPdF/kMJKJvFKbh
c4kH/+zpUaY2g4Svamr20idaDZnyqbRWoAgYYrLoxaMDrLGofMVzoNQnpfXe
0MLdrsTCrQNtIDn2uiQz3RjnVTy0VPe3AxpZfaFbWeDBZvEZB00HUIKOCML4
CzBt5RvWq3edQGFNJlw0cMA/lAOffU26QUm/f4mbRceXbYdGk217gGIhmLxl
zMQnVt3mAba9oKxJSm73XYrS7OK1Ve59oOygUs9JXZAtgooSzxegTJfsEH5w
Q83hzS6sQAXQrHcbLpS6Y0WHfmdVxEtwm7V3fE+MBy5OPlIt29YP7Ht8qcrA
C/NidhX9fOgV4DlhY26tNzbctO2RJAyAstRVYxmzHL/OfpCzzlcJ6H8iR2S8
Et20BU1XG5TgNpy0UNG5Cu8kx9pUbBoEWtzbvplTvlj253RsXtcg2C+N5HS4
I9YeDHo5Ez4Eko+RFWcdWegcmyFcODAERqvLus0M16AV9eRHs50qoN2c7/c3
dS2G1YYV1k6owOh8C5mkXYvlTBOReucwNFCYAUsn/TB18X7vwffDoI2M7zqm
tx5lIQ8dcsWvQWIXRJOabMAY2zpTht4I4I7WD53eGzGeVmIjTh4BbRVVHsvf
hOnF0SxPg1FIkUfmpKT4I/NVv/BpxihsnOcQZDDwI9r4epUtMBsDWUfvv/rL
AjBzuf8nVu4YFG2jsa5VBKKVwj38BV0NVDl9KI7JRm3hJ6VHgRqy1VnhydNs
DKUlRUe4jcOUvb/zSnUQmuePzWaXj0N+1BKrtsFgVPR/11S6bALOk0SmZvIn
ZEit01TVE3DU+1Rjt1cIPpNqdvauImHqo8b1lywOZs3mrvoWSLjr5Dg6coWD
4VHVc3gsEtIvrNEeyOPglOWJ0p51JNB9+iD/NgctDs+f7g7U6aJ9Jh6NHAxD
n+NdAhK0YSveO3/h4Bt5wuX2EyQMV+8rlIm4KHMaEpqf1vlzBGqFmItJietX
BKeSgAOZodQELlq4mfW3ZZBQ6jdHtf0MF30uXHdsu0QCm38/LqqIi8dDa2+1
FpHAC76zd5eKi/7ljGNmJTpOcPd7Pa67N0lnb7ml4/7ip9s1XLz5YOu7ljJd
3py5M/v1eNhkN+LTUkWCB4dlp7Dj4YVf/Y1Na0hdX4KIZAYP+W23FQGPSDga
W5izzJWHk0kHE5trdf93P5l73ZeH9xWKLXPqSai7w98uWM9DiQc6BDSQMJv2
W/uiQB76Z+Rr0pt0fTBtot+F8HDeiFGdXE5CtvAksz6Mh/8BrSdQKw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.2, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{Automatic, Automatic},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.1, 0.9}, {-22.010805988834676`, 97.46521962192708}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.646563012562767*^9, 3.646563082334094*^9, {3.646563182666568*^9, 
   3.646563209107461*^9}, 3.646563280957144*^9, 3.646564817838966*^9, 
   3.6465649905152493`*^9, {3.6465651027001143`*^9, 3.646565125739327*^9}, 
   3.646565373778102*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQdYVVe2vsotajTRaDKJ0WjKOMkkmUnvozHFmcxMJmX6TBJjVLDEjiZm
4kQF1NiwG2ti0CiWxIINRQwWkKIIooio2EFEQBREVN7519773n1xXzzIPefk
vZfvk+LmnHP/3dZae61/rfNGp+BuXXt1Cu7euVPr3/bv1Ldb984DWnfo019r
Cqhjs9VtYbPVeae1Db9X2mziW6X2j327G9/QXPuGjvTDPnD9+vU5gwcPPqx9
DYiOjraz5srAwMAHTp06hf8ljBw50okGW4Booq8u1T0hQH6CzaFoC6ru9gZe
l2pfda5evTokKirqyCeffHJy4MCBY5YuXeqsqKio2VMaX7hwYUZERMSp4ODg
gn79+n0zd+7cpufPn2/HxuR9+uH8e1JS0hntr7/bs2fPH9LS0nAl2gJYX2bP
mzfvzqKiIvxvnvaAQ59++qnN8Y/ExERbwM1lZWXuAeqs53EB8uOUAxWo5zEN
vB6jfXWNi4vDYP0lJSXlnZ07dx7UUI5dsmTJjT1t2fTp03eGhIT8KTU19fX0
9PQdI0aMWDllyhTvgds0bty4Xps2bRJ39dm4cWPM+PHjnaxXL+/btw89a7d/
/35bD1233Hbu3DkMBA1GXfpOg/N7DcPdBQUFYnB8PcZFDa6U0NBQfLr4c9us
rKzSnj17Bly5csXWVReSRtrM4pPb5Obm2uqytvvz8vLQhr/Z2rKheI/9qa62
Xi9369btlydPnhSXP3TixIkKrQ1/s7HH2kOWL19+qXv37r1jYmKAJkjn7Xyh
hGq3AwFtTzvbpBs10FXWoO7nOS5fvoyn3HTx4kVxHX5HW8uzZ8/yTa/7edhc
uBfzKK7D72jD36qMmrgc+1Rcfitvo8vZfNqxoPMGDBiwS1uSjx85ciRQ5+0c
FVYxbv9ZcXGxuM5ry3Wt2fOwU9D2ZE5OjrjusaNHj14JCgqqd+nSJTFq130e
WxTOuDFjxiycNWvWHRo+PBu/J4eFhbXzGqz7Tp8+jTvtWMR1vefv3vz8fFs9
Nli3lJaWTluwYAGW2SvaJuiq83YOBqJg9aRJkyCBSYnwgQrU+Rg2Ri78jrbd
w4cPhwRpn5mZiW25YPbs2bYaQmpWUlJS1KdPH7HyMc7Yl97j00QbZV+jjTGx
NWBtw1esWAHpSOu2i857OZKG2t448Nlnn/WMjY1VDM51H8MHRwiXdxMSEvYM
HTr0bN++faGb6L6uNYM0atmyZWnDhg17be/evS9kZ2dHh4eHL586dar34GA2
y3v06PGwtmnF0x45fvw42upIG7j/hg0bFs+YMYP+V9d7ubeQBMJ1n8d2ruPp
w4cPn+vduzeEhXvLBdYME34/36tXL1n4QKi8qW1ryTK5/vPYiLlgDcjaoXlh
YaF7pNt6abjYsWPHBmu2hrgUdgcUB1cSWAbYZmQG8E98QhMKEJX1IQi6Vv+Y
+mzH/mf16tXYJ2KAgqq/iw2tM3LmzJm4U/x56MqVK+NHjRoVqOduF+Rhh4yM
DPHnVmfOnPExCLATMIfvxcfHv699lWhzgTY+nJgKPA1S7I+7d+/+s2aBZGl7
JGLOnDmyMaN6BB8AaMIto0ePrjIAvu7iA/DigQMH0NRDm4W3NQ2R379//+6b
N2++zmfyuycuWrRo/5AhQ6BbYBXh89dPmDDB28TBuoGBCWMT5hVGEW38IZBS
sIvQ/1xtWU2fP38+FkNg9XdzSYQxL9YQ0qYIqv4WJtwdb+3atQuqARJj/OLF
i0l0XufTONYG5eXl4ZGRkScGDRoE82++Nj+3a3PHO2zIqeMGGu5hDdpKqMC3
OlKrLQAtYsVyEePddpfOthY/3au8jsa0zk8D/+Mc+FcUbR8r2gbpbHv1f+OH
BiYnJ1f9gOu2/X//UHq+vz/qZfeTLe/fTx/6f/5Duc3dKW7XscDYlCP0v+eN
BsItNfhEq/hd6nk5RyuZgS37JOspsLETjePJQyeKLn4Yurby/WGrZ81Zmeaq
uHzF9pxJfRE+TPJg2ul7fdmP6ctVqFT7rEPOB07ml+wZPO0HdAhfO4bO3nb3
maLSZ03qk5erkdu71fsIVWvL2aisvCJyypKdohv5Pcds6JCenf+M0d2wBcC7
GTV58mR82ez0vd4i7YQnr7CqzkPuetfpe/SGz1ans++6hEMVnULWoLdXOg5f
E7J003775StXnzK+x/DGwXmBL5udvgd8vmrVKvc9rCvXOP+4H12nc827C+y8
6fxN5pGCk73HbRTzvDVk7nYs1yeN7nUj1qWqLjoOX58/zIHn1aPPcQbHbUvc
M2SauyMXAkesnR4ZtfUJ+jN1BL/R/z5mbRHaQLvbBulsewnfHVJHbqEfLi9f
mtai02nlPcI3sbY6VzUZunrbwUvacrTVRW9sAdO+Xp1e71LFFbriUZOEicIH
5vLygVWy+JQOX5M3WDb7zmeyjxceGjAxVkxahiY4oRHM6t91vVas7ToeJG+c
N7Nhanyh7NJiSYBCtAz7LjYLIsX2K3P6V71DikmP6ziHvDE2Zre8uy3t+Nnu
X0SLviV9PmvrL4+fLnnE6G6x/eHT18R7VL33xxteEzZQd509V7Z2zIJE0aOy
zmFrB6zZfoh280NGd0tl493qEQXdY5KOnO86Yp0QBZtHfB1/z+nCC3TFg1aA
a8YG+r68sxe2hH61XYzaucCR67ts3nnUEky3sTbMWPCa7Qcxg2LAosZ9m3Rn
YclFuqKNFeB+xpYZNgk2ixiwwm5fRMOCp2X2cyuA3cHaIJX++/0PWbLGgSnw
yLG8c3TFfVaAa85G7bGcU8XyqAHkyMUbM+uXV1y23WsKMHr+XZ4V1jt6x+Hi
oFHrxVgdHDAp9ndpB07TFa39DEmXc6Ela4MgWzZpcQrB4uAWTlu6644ivvzv
tmIiW7GJfGPn/ryc/hM2ycs/aFMyW/4trQDGp6phWfnlcd+u31shLf/tw+ds
x8qjK1R+SsPB3etZ/onS8sfhBEflZuculPMtYjKw+zwbocfGpJwzPUZvEKOG
KcVJisycO6wAx8UoRmfqvNV75CmFefla+sF8uuJ2K8D9grU9euRUceyIeQny
Lv1uYmTKvafPMq3ezApwTG27/p6w5+SRfp5dWtolbF2odhi+ufRiha2pFcB+
ydog74cvi90PQGLU4JfAGqT11sQKcA+zNhyaMYXylGYNnLz57eR9zDd2ixXg
+EEDp/z4YXO2yeDiwr6Kfzb7WCFd0cgUcPT8X7PLYdj+dUfGyQMDJ8cKSFc7
DlsNZXV/bsEFW0M/Q9KlRR9jbc6Ky1eg4rG6BLjyD0PXjl0YvbdpSWm5OD+a
O5lPsDacLEcsjsmUtwFOY/AYkEmkcrcaDu4pzzaYO2vFbigpAQ7+pY82JOZg
VJXeAMPBca8lNKk45QlwsEc6a2cWEiB2K8Bxb/eL+4+cxZ6Uwe0fNGXzv7an
nyADqa4V4F5gbXD9ChuEg7OnfTo97q3kfbnYybhnsNFYXvRIDnxuuvb5tgA2
UPCyu6/9xGggjBRE9s+/t6edgJgXM4brEobN3vb71KzTxs/OS/TdjrULOxpr
GX/nWDBhf9y1P48mKNhoLC+zNtrkWvvh/hM3idnB4Q22PwHp73cgUkTXjl8B
AW4IeBY5gpT/ztz6ZkomW6t9a4GgBoFep9zm0KaoszemZA2Te//0Nnp6VIFK
LlGwfBBLzA6eFCumDCEsSB4Six9ZAc7uAfdBXOoxiEIBDkDhNqG11sMKcE6P
BPibZsSkfvblFgHueJ/xMf3WxR+66eKly7ZuVoDj+h/r6g+pWXnbQuZuF+BO
awbNZyviDsCGEORTc8HxEMdL+w6fiR4dsUPWdnCoTJi/LqNVflGpYLL6Bxzz
DV6TK6MylFSYuXX89MHjhd9PjEyGmSowwxcV8eV3qeQo+9CfmLmP1VcMWuXM
VmHnx46Hjp8ugV0GK1Y2t1eP+zax3b6cAtsHBmCvSdxZhZ2f55oXnisbvWjD
PnK48YUMHftO0t5TZBm950/sTT1bu8ahZFUn+PNweh4Ute3gid7jY0QnMj+e
shnOfRIV/zagEzcUGVZ1gjvXIXA//GHXMThSRCcKuo+ODlsSk0kO9n8a0Al9
seBreLL87huKw6qGoLlHCIAYIfmV7NhI68bMT4SVDKn7FwNG4YbCrKp+cBom
hGz4gnV7EbMRUwmLvuOW1GOkV98xQCDUJI6qwn63Zy8hxnO0b7h7L+GQCc12
G7yibxmAvSZxUhX21mLlXrn6z/j0E7D+BHbEqubMXrH7V0dzz9n+ZAD2mkRE
Vdi5wxdKGwqQDvcc+6aR8xJgxZJM/IM/seu1KLjDF77T8QvW75W1BMIysMXI
dfm6FeC4wxd0KrhA6KjIwWHnTf86Kp1Mh99aAY45fO2YOpwTN3wRsQOiTJpZ
eC8Drmgz+6oV+Lhr9WFtgGbOXZV2ocuIdWLwcLyEOm1yXjNkX7YCHHetAgBk
kXzeBVAAppl9yQpwjEBjx9Rhc24c9U1ClZn9s2Y8QRbZfuN3fNJ5XOnARBT8
y6+i0onTIJ2aPv9+cxZsPeF0MvqArnRg4mTUf238IfJLc3CXO4ashq7pvX7H
YeGuM3c+n/Hs1N+mZZ9eEb4o+fIHw9dwfPCEwf9DduTTVuDj7OP7TxWcB21A
UxCrxeAhIojY6s9zC87bnrQCHPcb3qzJYHgScHTg4MhywzH0Hb4bHrMCXzvW
BuLbV7OW7ybmCh88nBbAGmtRUFxm+7UV4NqztlvPl14CIUpSYHasQJgDWJFY
mQ9bgY/7/WB2v7rnYP7SSYtTcCaXDACoiduLz5eLMKK5+DqwNsi1Ict/OHDM
Y7LawXtHuAtmFfD/wgp8v2PjB00BBynCIzDv+Pjt+3jqDwjnY/qFoWUuPm5S
wrobFbkxM++jsRvE5kAAbN6M71Ofzzp6Vpio5oJ7g7UhaQE2/Q9hX8fb7Azc
7v98GYfA9C0wPVv7HZxPHcuPPtCxkyLWZhRJ1nBJ4Mh1II5A0IijlLk6lp8p
oafgDEdcQIwXPPRdY1OOgooj6DbmTuZfWdsTh08WzZi7Kh2jVdVUB2/DdqcV
4P7O2jA68HzT6dHuiX3BKdOgXNP+t1sB7l++Rw7rb8o3a/b8+khusWC1mAvu
Xd8jB0sAI0d2UxMrwHWsfuRAYKKRu8UKcJ28R07erVhz3WKSj5B0a2gFOB4f
eFwbOZwlZDcWjl8wpJ47cOysYGqYCy7QM3KQaYnSyMHH1it6x2GKwLisANed
tUGWYX3JGkJo1BegUR1+B+dTafVkbWCvwEKniJXdw9lzWyB1awHphpUWD81C
o8K/BH+3bMHNn/4dWXBBScnJepkHNzx3LHRth8GB6CwO8tK5Pq/32PUfR23N
JmvX8HU0gLWBrAXLLLfX2I1iXGCBwxIHJRongwFGYxnIxgVHOBzl0odM2yBZ
sWAzgt1Op6h+RmNhrA87HgY2FI5vcB5IhybkI8DYRmxbb+C/lnBc8sNg7IOg
snzComRi/EunTYRykNehO+hvdKKw3gxrngyJg9bgVVuyJTKDHUsBzk2E6rF1
uteya37NG9bbPyaO6aD7SsahMzg4QvyIra+di8BORPoxL6Bz4/2rbQ6x3i7x
6YZoh5eeoopc7OMo9d7W3ceJ0KiXC+AjX+yaUoO1yRbW2zfOc8DZFLaI7OuE
R2yyZhNTuEcvZ+CavjGry685wXr7xvkQMP4Qvt45ZMYW2TAE94qOcR1vtG9+
Sw5uT59DPcJv9D9V9m9j1ha2JiY+bvRXsWWdQ91C8WKXsDVoG7EmJsH2nuJe
07OE9U4TTyHEVGBKyO/JpwlThqkj+/1ftRQXhmUJ6+0oZydgP2FfVfV5ILRK
TPd/1LKjRqQL6+0jyyAkExkh+q2SiQxXE4KLNJl/rV0f/Z4yrLd/nF4BKxu0
BMnKplMJZCj5+f58o/3zf+6w3q4xxgUZ7aALI31XMtrT+YGQIpl6iQt+rU3T
irX94uSZ82MWRu8DR1B5INTLTPAruHs8g/eP+D1VTzwwGfqsTzhMp0O97AO/
4ruftbU5pR48cAPB7NfNPvAruDbVDh44vr2FK6KDFfgerH7wvp7JnTh62Qd+
BfeQZ/Dg3Ee+njR4Xv799rXC59MtokLFaQew8xFVleUkbMzZc1amPQX/fjud
kPxauYzX7UCdEtSIQG0AoaTgd3Ubhi9aMZ8S+2BixNoMWOFVfa1kkT9vBTjO
PoB6BxWf8lnsnjx8HIWo+sszVoDjtauQPgVfq+ylxvrDuZOi+09ZAY5PFxhW
sGglKj5F99ePnr9DsJgetwIf59fAAIUmlaP7CAYjKEzU2UetAMelBHIaQWKS
nSZwDKGATfu9LDr9iBX4mGAl3gt8iSvDFyZJvBdEp6HASAY/ZAU+rphApoXj
TPKBkjQGCYxihg9aAY6rdCfX/nJ0Gh522KJUbq+NFeC4PQSKHEpbyTIFZgAS
XFvnF5YK+8oM1crtR5BFodllkrugulCqxL06IflVtXLjG5EG7ErZbZsm079a
WTGZ/NgCOQY/O7jYsrMLBzpSEC2tAMdJB4gNoLQBcmxlxzAYL0iTgoxpbgU+
fmKHnID1RmndUqIb5DKUm6imYS44zjuAggCPSma5gmiNmaVogV7egV/BsWyT
a1iudT2TC4UBbzkUWFMrIHL2ASjMCPDLFGYc/BFXJ96GXvaBX8G975lchA3l
dArUdEFUDxEs3ewDv4LjCWmIkSFus1XKYqzgpgk5hBpZAY6/XAhMKpzwKatO
SkWHuiVytV72gV/B8demoOQTyqXIlDlMMaaanE31agWuRqqVR6RwhAHxK01K
3YedhLMXnADCC2yuamXhQDeFFCmRHjESADGyavzCJNjBIinZ3Pn8iLXBPwcS
miRDHDhVY7FRmrZ2Fd2nYiH4FRCPWcPphlDrqV4edX+8T3jM0smLUwbEbU80
HgjP5IcVi2W195OpbosNFHSY5FT4zPAp4kUNYEPgsFkU5PEtIEgLvQ6/g7IK
wzVAuLj1ei8Xc0/fcAazCjPjTKCK+NHUoV9uhIkrZwZjzZPnUlWwQRdmHg2p
bQaz7yoaxLEAMxhMV8iRAI/HxF1voo8e+FxOX/ele7xLRgTDWZecchs2GJJi
UIZIcngj/kPapVcNuqZ4X55DvC/P0EC4au+536936TJCH1S3RNJQ4HvRYaZn
DTqoeLWdq+pbMA2Niqs6KhWxgEMUTmPZc4bJpdCFipHiK4Ll67V0xkXHVRFu
tlADwHqbtGzt9v2Dp7iNDETP102MiA2GDghS3HtNdJz3zNc75XgvDA2Wq2aP
1UgPQJVqlHaTa1rBjQdeM9Wq6Kpn9hrSD/Vr4HhnDA2SqzrISSoPnsgv+WbG
96lyrUQ4GBB0hdUhzN3qO8hJG1Vf4cYDq0bExFVd4scB1EeGX0kuA4z5w7GB
qnp2qkGXqr6UzcAwuKpLXLfCuwJXO7nKJEUNBwZFyTrq6RIrT+79wjUDY9+q
/jQRW7f0EsiRcggLuXhkdOCKd/X0pzZWmwoc9xLA4/LJqq3ZckgyZtQ3CW0z
cwroChVpxnBwnOgC3Qi3kHyyQ3gSzkG6QkV0MRwcZ6jAnYEEWtkXDtfzyxmH
GLi/WQGOJ+0gvgbrQvZQIipO+wdXqEp3GA7uLg84hDOQCy3AgSpM+Vq4QlWS
w3Bw3GeLoztGjtacJH3AIaaw6du6wdXIc6CC1Iq1IZSMPSrXHxYyHirN9qbi
XsPf1MWfhygCzLsiqUo4wMFdRL7wN6yYTJ4lCdGLCuqyKoHyh3uBgpEqKo3h
4Hh+KbIX4FeW65vidwAmqoqKSmM4OJ6ci9EBe0Cuo4Xiq3CqEVdZVcjDcHA8
vAijB+tLNlTB6UdwiDxEr1kBjgdmISTgWpMrviGbHM5dOqi/YgU4HtVuq6n1
qgWSkZHq1qgqho/h4HjCP2IbGfyVYnK1cCqTjCvaWQGO8xUQfEEOJdU1k0ol
g4hLFerbWgGOMz2gIRCQlOUcApKoZEBFrlREJMPBPekRJaAmy7sV8TWQzWhD
qIhIBmnUpz17tGqBZGwLd53wZxX3Gq5R+YeCAKLaBnQElzph7mQ+570NyLCU
lBYK55NeUHGjDAfHC+ngMIOTo6y0kBOHyAFd8YQV4DgxClKsql7AYcb97g1V
TRbDwTGR6sKaA8sIsPAFIwnBKpJsKsaW4cB4OSlIL0gxYjHW9XgUQYEjl+2v
rADHC3GhBl9VyYbscaS50xUPWwGOcbXodSpC1eMLIBE/INNSRSIzHBi3yjBt
sNTkKYU4gT6gK1QkMsPBcXsWRjnoi3LtW6RUUtQWV6iK1xgOjp0EXG01601+
5ypCbvAskeBVsdsM0qK/Z22IzYAsI1sdKCeGOkl0hYrTZrgW/SNrU72nBDx7
CkPgChW7zfCJZOw2J6oQyu+DhA8JLwmxBBP3HsCGhHyQhRmogFSpDle0sgIc
87a4wIBB1FsMGGQHIuFkP6pK/BgOjPuoEJJH+F0OKcB/6n7DUQs94HhcCE7o
IVFRUXBKnxw4cOCYpUuXOisqKlh0za9BcVWXmE/QBYIezoRirMHDgKOTTtaq
ikW+utM1Li4OXflLSkoK0neREDp2yZIlUljBmHi5dxvnHQI+vBeyuwXvPiMn
Fa5Q1Tvy0TVXSmhoKLLHxYVts7KySnv27BngCUYaGDz3bmPURRc0FPzPYtrA
E4CVRFtExan0FWAWQdSbLl68KALM+B1tLXmaq+mRdO7pR2d6bkjMIW4Qn0RU
pMbrAOkKFT/TV0dF7u6TOTk5oqOPHT169EpQUFA9pLlWWhBJZ/EWJ8KRYNiJ
2YTvDQZSDfrnQhQcOBGlfD09Pb19ZmYmFu6C2bNn28yNov+btXVLTEpeOfXb
zVc+GO5WyskhM2P6bYtPoiuaKu69JorOu9eorKwMMN9NSEjYM3To0LN9+/b9
Zu7cufJUmR5KZyX6nUhNk89TsG9RiUTFzfW1PKENzvfq1UvaY5S1/GZqaqq4
2fRIOqPSuhD8gucLZjL6h5/g/RKBW8Xx9aUjImfOnIlIurhw6MqVK+NHjRpl
cjSdkXCdeGkiolJi2mDNIirVuAY9evHAgQOIkPeIjY19W9N6+f379+++efNm
k4PpLO7vAgEWJVTkIwMSiUkr3KynWw3ph+OtXbt2JYeFhWGXjV+8eDEJDJMD
6oye4YQ7B6R80SdYqTDrVQxpw+1AVrOFXhEtv7sXbid4ExtagYnxdFywTVHJ
S2xS2KiwgGjuVYxtw4ExerQTnEUEM8VgQYPDl1LfCkzs1UXOlgXFZeK1dPiC
GAAVWkUeNxwTo8m5YLKGLN20H0cyYAJ1FW5+2cIyFxgjKjqRagI2tBisNWMX
JMKvpCqlZ5AP4iOGBLRn+GdkiY1cOxWB3XDXA+OpOjFtyFkXmOAfwek+wIoZ
Y7TgerAdYTQLZf1F5IZ99MKDSkam72A0DkZhd6HKJ4pVi7EBEQp5OXSt4SBY
TTwnPhD50gIEXDEh6zYlGP75jGLuxMAj6UgI5vIPQ9dggl4z+vMZLd+JxYhF
KfqPmhSQKa8Y/fmMiu/ES7ryeo91fz5e5A4f5stGfz7nnvfdFp8ozz8qRsHx
296cz6c2OE+RLiGOQdgUVNQOV7QzB0g9ue3TlVuyxYJEhAUpwCbhqO/Vpn1h
M8BSFRYrUrhZgN3/isQ3b9+B10ljKITQxHuXWKzRSC2iauOGNnw8yJUVCxdv
usNCesHEhetuYyrWCcMNfjSBCdoYhQqetwITM0CcECZLJi9JEZiQgoqAwHNW
YGKGmhMCFoJWYEIyCHyPz1qBiVm1DrAwxZ6HiwKCmZVeMRsQM/0dqIoMKxeA
cEJA2WvGdzAbEDsfOcDaKueSCBRHIm0/ZQUg5l5wIIUfLmzhmUcmJ2PamA2I
OwZAHUNVciGr/7QzM5cRLcwGxM7/DqSxwF0KQMjuoLjy41YAYv4VB2xeRPjE
EQ7loRjbwxxtxvIqHHApwy0htBk2P6NPmK3NmDvNgbonQpsBEIoEMC6g2RPF
PJYORBHE4QQThVQ2NkJmA2IlTR3wKqF4kgCEnFtG5TQbEHNcO2ChIlWEn1rW
gjfEWC5mA2rm2VsIBgtxSIVrHrICEMtZIekjxCEUBv7P3sik8BUjLDEjIiLi
VHBwMMKfCF8gqmRSwFfVxgJMJNWFvwDClF7x96CPbiybPn36zpCQEKSmItC0
Y8SIEag9anKg13eyjuP13QdOCzWO9UvZfg9U7Q73iYrAUpvc3FwRVLk/Ly8P
bY08JXFNC/Cq2lhA14GXAAh7CYICzHhGUVL0S8QyEUSSA0ruWGalBYFd30lM
DhQDFK5P6Al63UMbH2sQdXwXzpo1647i4mIEdvE74hV1vftefRy31nFOVVtz
+u6Y//V3W4StfWjQxOieOxKTbfeQK+Da3jQrKSkp6tOnj8hkR0gay7FGUVuD
Z4lRQRzITBJnGrwjhKIL9/uYpVHawKQNGzbstb17976QnZ0dHR4evnzq1KlW
hWtVbbyMMcKZol8oL+OjSzdBdstUkOaFhYXuPlRaEKL13ScH2LRgJwmLi/wq
96k75kKRgQ4ZGRniIUilrTI5psVnfSfsOeBrwAvmhUlCxZLu9bH+Ji5atGj/
kCFDQEeCOkK28/oJEyaYHJxVtTEWmwM0cWFh4Sclv9zjozsNysvLwyMjI08M
GjQIWnX+nDlzbtckuslxWd+5iw6cl4XiBYHP85pAs+0z9m5CB5a8EMPYCpQe
08oKQOwz7MicEHIGeYkWYnFAdkOGCzxg97KFaTYgxoR1gGcC77w4AJFzoaUV
gFhGqQPeTsHchX389EHNvG+hBGTIWZ5Rqh0wx4s4BQJnemI13+n+VBPHhSWz
OvCaJ7GtkCpNVkBzKyaqDdtWE+avyxDLGIQXC7GQ2hXkEAhD8mreaQUglr1A
fgWxfGBZI4mbHSnMBvQAmy0ULBWz9e20ZbsswcLyTuwQwgILXFI/sw6LA4EM
VPoW4oYc9LdbAYi9VJocQCJ0DH1ORT1vswIQf20BDolitpCLZQmWhxkW1BES
WGBnNLMOC2lOkTEBfxQV12iqBGSIomIJ5w4UhC3lfqSyLmHryP5r7P5UE8eF
JQra8WJoMUdbQ+duv9WKOWIJ73YUkRSpeYg1N7EOiwNEqnx+7gCJiurSNbYC
EEs3tcPXLSaK8hatwMJycu0Lpi/bJUxQlNC5xTosDqTkojgN8CBNnErb32wF
IFZ8wEt3w1FiCRaW2W2H6SnifggNNLIOiwOJc8LIgvVHdLuGVgBihRjsSLoV
E4UkGgux0EkT5UuFeqIEnpuUgAxRT6xMgR3qCWsFMCKnLNlZ3/2BJg7J0wwL
6v6I6UEKbQMrpodhIevhKA88ongNCZn6VgB6hg2OrA1mfBWVbgkWVqDDnvw5
S47EeffRI7nn6lmIBXQQMS5JGi5LsLDaIPbYkfPiBXEHDglXVSyclI1ajJXi
s/nrfquGOn00mxEB5ZVOYKkie4JKYFwzrKqucEKcr3DnjyAaeg3bvJpu+Ipu
BlT/5x9NNzjbXhHQdHkFNCt/JEHPmnRKEc10eUUzKy3IXK1tpxRBTZdXUFNr
qUm6qp+78pL7ydfviiKO6fKKY1Ya/ErkG54fBsSOKDoClmB00HizexWxTJdX
LLPyRxLv9NUv6BO82VjE1Tlf2FcY0+QsVF094UsM72H+YtmyZazCPcPpK3z5
I4hu+hIE2LzQhmx6GE5fYUv/RjW92gbpbKttupZxH6rq/V0621r8dK/yumsM
2J8G3sqBr0RDhdRayVq1L0aesNnq/A9ofbKM\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CForm", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.6465632149847517`*^9, 3.64656325138332*^9}, {
  3.6465648222947817`*^9, 3.646564824832698*^9}}],

Cell["(B*T2)/(B + T2*Log((R*(ve - vo))/(R2*vo)))", "Output",
 CellChangeTimes->{{3.646563244870515*^9, 3.6465632528549967`*^9}, 
   3.646564826210597*^9, 3.646564992864397*^9, 3.6465653820029697`*^9}]
}, Open  ]]
},
WindowSize->{1200, 1087},
WindowMargins->{{-4, 0}, {36, -38}},
Magnification:>1.5 Inherited,
FrontEndVersion->"10.0 for Linux ARM (32-bit) (February 3, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 683, 20, 125, "Input"],
Cell[CellGroupData[{
Cell[1266, 44, 729, 21, 129, "Input"],
Cell[1998, 67, 630, 16, 76, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2665, 88, 1002, 21, 73, "Input"],
Cell[3670, 111, 14843, 254, 360, 2592, 52, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18550, 370, 176, 3, 44, "Input"],
Cell[18729, 375, 200, 2, 44, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
