(* 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[      7405,        239]
NotebookOptionsPosition[      6743,        210]
NotebookOutlinePosition[      7101,        226]
CellTagsIndexPosition[      7058,        223]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{"Log", "[", "2", "]"}]], 
   RowBox[{"Quantity", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"321", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"31.4", ",", "0.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"32.6", ",", "0.2"}], "}"}]}], "}"}], ",", 
     "\"\<Microseconds\>\""}], "]"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.582730445516941*^9, 3.582730503093896*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{"463.1051081253572`"},
      "QuantityUnit",
      DisplayFunction->(TooltipBox[
        StyleBox[
         RowBox[{#, 
           StyleBox["\"\[Micro]s\"", "QuantityUnitTraditionalLabel"]}], 
         ShowStringCharacters -> False], "Unit: microseconds"]& ),
      InterpretationFunction->(RowBox[{"Quantity", "[", 
         RowBox[{#, ",", "\"Microseconds\""}], "]"}]& )], ",", 
     TemplateBox[{"1.4426950408889634`"},
      "QuantityUnit",
      DisplayFunction->(TooltipBox[
        StyleBox[
         RowBox[{#, 
           StyleBox["\"\[Micro]s\"", "QuantityUnitTraditionalLabel"]}], 
         ShowStringCharacters -> False], "Unit: microseconds"]& ),
      InterpretationFunction->(RowBox[{"Quantity", "[", 
         RowBox[{#, ",", "\"Microseconds\""}], "]"}]& )]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{"45.30062428391345`"},
      "QuantityUnit",
      DisplayFunction->(TooltipBox[
        StyleBox[
         RowBox[{#, 
           StyleBox["\"\[Micro]s\"", "QuantityUnitTraditionalLabel"]}], 
         ShowStringCharacters -> False], "Unit: microseconds"]& ),
      InterpretationFunction->(RowBox[{"Quantity", "[", 
         RowBox[{#, ",", "\"Microseconds\""}], "]"}]& )], ",", 
     TemplateBox[{"0.2885390081777927`"},
      "QuantityUnit",
      DisplayFunction->(TooltipBox[
        StyleBox[
         RowBox[{#, 
           StyleBox["\"\[Micro]s\"", "QuantityUnitTraditionalLabel"]}], 
         ShowStringCharacters -> False], "Unit: microseconds"]& ),
      InterpretationFunction->(RowBox[{"Quantity", "[", 
         RowBox[{#, ",", "\"Microseconds\""}], "]"}]& )]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{"47.03185833298021`"},
      "QuantityUnit",
      DisplayFunction->(TooltipBox[
        StyleBox[
         RowBox[{#, 
           StyleBox["\"\[Micro]s\"", "QuantityUnitTraditionalLabel"]}], 
         ShowStringCharacters -> False], "Unit: microseconds"]& ),
      InterpretationFunction->(RowBox[{"Quantity", "[", 
         RowBox[{#, ",", "\"Microseconds\""}], "]"}]& )], ",", 
     TemplateBox[{"0.2885390081777927`"},
      "QuantityUnit",
      DisplayFunction->(TooltipBox[
        StyleBox[
         RowBox[{#, 
           StyleBox["\"\[Micro]s\"", "QuantityUnitTraditionalLabel"]}], 
         ShowStringCharacters -> False], "Unit: microseconds"]& ),
      InterpretationFunction->(RowBox[{"Quantity", "[", 
         RowBox[{#, ",", "\"Microseconds\""}], "]"}]& )]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5827304887323217`*^9, 3.5827305036531363`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"R", ",", "\[CapitalDelta]R"}], "}"}], "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0.05"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.05"}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.58273055949364*^9, 3.582730589183916*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "10", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.05`", ",", "0.5`", ",", "0.05`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5827305896495647`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"CC", ",", "\[CapitalDelta]C"}], "}"}], "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"470", ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.7", ",", "0.47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"47", ",", "4.7"}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.582730596727454*^9, 3.58273061842199*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"470", ",", "4.7`", ",", "47"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47", ",", "0.47`", ",", "4.7`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.582730619959839*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", "=", 
        RowBox[{"R", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"c", "=", 
        RowBox[{"CC", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"\[CapitalDelta]r", "=", 
        RowBox[{"\[CapitalDelta]R", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"\[CapitalDelta]c", "=", 
        RowBox[{"\[CapitalDelta]C", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", "*", "c"}], ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]r", "*", "c"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]c", "*", "r"}], ")"}], "2"]}], "]"}]}], 
      "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.582730632376287*^9, 3.582730744551195*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"470", ",", "52.547597471245055`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47.`", ",", "5.254759747124505`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47", ",", "5.254759747124506`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.582730681980433*^9, 3.5827307487963963`*^9}]
}, Open  ]]
},
WindowSize->{740, 701},
WindowMargins->{{Automatic, 322}, {28, Automatic}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \
2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 520, 16, 71, "Input"],
Cell[1102, 40, 2640, 64, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3779, 109, 439, 13, 28, "Input"],
Cell[4221, 124, 247, 7, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4505, 136, 442, 13, 28, "Input"],
Cell[4950, 151, 247, 7, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5234, 163, 1136, 33, 57, "Input"],
Cell[6373, 198, 354, 9, 86, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)