(* 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[    138539,       2754]
NotebookOptionsPosition[    135719,       2651]
NotebookOutlinePosition[    136053,       2666]
CellTagsIndexPosition[    136010,       2663]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Kb", "=", 
  RowBox[{"1.38065", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "23"}]}]}]}]], "Input",
 CellChangeTimes->{{3.578869425147489*^9, 3.578869541835167*^9}}],

Cell[BoxData["1.38065`*^-23"], "Output",
 CellChangeTimes->{3.57886954313115*^9, 3.578870519478023*^9, 
  3.578870989824459*^9, 3.578937360041072*^9, 3.579278651639635*^9, 
  3.580481233702773*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"T", "=", "300"}]}]], "Input",
 CellChangeTimes->{{3.578869544590428*^9, 3.578869552419862*^9}, {
  3.578870983137506*^9, 3.578870983871235*^9}, {3.57894801780112*^9, 
  3.578948024944997*^9}}],

Cell[BoxData["300"], "Output",
 CellChangeTimes->{3.578869553254959*^9, 3.578870521308487*^9, 
  3.578870984793943*^9, 3.578937357538377*^9, 3.578948025744255*^9, 
  3.579278653960854*^9, 3.580481235565393*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\[Sigma]", "=", "0.16"}]}]], "Input",
 CellChangeTimes->{{3.578869554269129*^9, 3.578869580756322*^9}, {
   3.578947103237458*^9, 3.578947103981926*^9}, 3.578947668729878*^9}],

Cell[BoxData["0.16`"], "Output",
 CellChangeTimes->{{3.578869573538591*^9, 3.578869581794451*^9}, 
   3.578870523138302*^9, 3.578870991956834*^9, 3.578937355199085*^9, 
   3.57894710489408*^9, 3.578947669620631*^9, 3.5792786559432*^9, 
   3.580481236921491*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"E0", "=", 
   RowBox[{"71.8", "*", 
    RowBox[{"10", "^", "9"}]}]}]}]], "Input",
 CellChangeTimes->{{3.578869583451377*^9, 3.578869615291292*^9}, {
  3.578947980603564*^9, 3.578947985584335*^9}}],

Cell[BoxData["7.18`*^10"], "Output",
 CellChangeTimes->{3.578869619903706*^9, 3.578870524835222*^9, 
  3.5788709938384*^9, 3.578937352836188*^9, 3.578948001558584*^9, 
  3.579278657987277*^9, 3.580481238061058*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r0", "=", "0.0156"}]], "Input",
 CellChangeTimes->{{3.578869624089662*^9, 3.578869631926306*^9}, {
  3.578945472786828*^9, 3.578945492611651*^9}, {3.578946842759638*^9, 
  3.578946848098129*^9}, {3.578946895636901*^9, 3.578946898147647*^9}, {
  3.578947650854003*^9, 3.5789476558548*^9}, {3.580481239053154*^9, 
  3.580481240088969*^9}}],

Cell[BoxData["0.0156`"], "Output",
 CellChangeTimes->{
  3.578869632774899*^9, 3.578870526775441*^9, 3.578870995934962*^9, 
   3.578937350414762*^9, {3.578945474475494*^9, 3.578945493698744*^9}, 
   3.578946899071962*^9, 3.578947656666994*^9, 3.57927866026982*^9, 
   3.580481240686958*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\[Phi]", "=", 
   RowBox[{"10", "^", 
    RowBox[{"-", "7"}]}]}]}]], "Input",
 CellChangeTimes->{{3.578870442356386*^9, 3.578870459050886*^9}, {
   3.578870507433797*^9, 3.578870509506489*^9}, {3.578937338659984*^9, 
   3.578937345354456*^9}, {3.578947287603921*^9, 3.578947288043799*^9}, {
   3.578947384010781*^9, 3.578947384422329*^9}, {3.578947546983855*^9, 
   3.578947577616283*^9}, {3.578947659779111*^9, 3.578947662744079*^9}, {
   3.578947901993339*^9, 3.578947905772044*^9}, 3.579280366590055*^9}],

Cell[BoxData[
 FractionBox["1", "10000000"]], "Output",
 CellChangeTimes->{3.57928056833718*^9, 3.580481242250268*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"RMirror", " ", "=", " ", "0.17"}]}]], "Input",
 CellChangeTimes->{{3.579280361590245*^9, 3.579280394165463*^9}, {
  3.579280554241366*^9, 3.579280560438219*^9}}],

Cell[BoxData["0.17`"], "Output",
 CellChangeTimes->{3.578947906277886*^9, 3.579278662460464*^9, 
  3.579280562972976*^9, 3.580481243431417*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"H", " ", "=", " ", "0.2"}]}]], "Input",
 CellChangeTimes->{{3.579280573409632*^9, 3.579280581730845*^9}}],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{3.579280582942122*^9, 3.580481244620585*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"p0", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{"\[Pi]", "*", 
     SuperscriptBox["RMirror", "2"]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.579280696035322*^9, 3.579280707386121*^9}, {
  3.579280770576134*^9, 3.57928077370314*^9}, {3.579280817259444*^9, 
  3.579280838460789*^9}}],

Cell[BoxData["0.09079202768874504`"], "Output",
 CellChangeTimes->{3.579280840001419*^9, 3.580481245859976*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"besselZeroes", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"BesselJZero", "[", 
       RowBox[{"1", ",", " ", "x"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "500"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.579281894920839*^9, 3.579281945194451*^9}, {
  3.579282001257877*^9, 3.579282090674047*^9}, {3.579284918517052*^9, 
  3.5792849192518*^9}, {3.579294306119412*^9, 3.579294306301407*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "3.831705970207512`", ",", "7.015586669815619`", ",", "10.173468135062722`",
    ",", "13.323691936314223`", ",", "16.470630050877634`", ",", 
   "19.615858510468243`", ",", "22.760084380592772`", ",", 
   "25.903672087618382`", ",", "29.046828534916855`", ",", 
   "32.189679910974405`", ",", "35.33230755008387`", ",", 
   "38.474766234771614`", ",", "41.61709421281445`", ",", 
   "44.75931899765282`", ",", "47.90146088718545`", ",", "51.04353518357151`",
    ",", "54.18555364106132`", ",", "57.32752543790101`", ",", 
   "60.46945784534749`", ",", "63.61135669848123`", ",", "66.75322673409849`",
    ",", "69.89507183749578`", ",", "73.03689522557383`", ",", 
   "76.17869958464146`", ",", "79.3204871754763`", ",", "82.46225991437356`", 
   ",", "85.60401943635023`", ",", "88.7457671449263`", ",", 
   "91.88750425169499`", ",", "95.0292318080447`", ",", "98.17095073079078`", 
   ",", "101.31266182303872`", ",", "104.45436579128275`", ",", 
   "107.59606325950917`", ",", "110.73775478089921`", ",", 
   "113.87944084759499`", ",", "117.02112189889243`", ",", 
   "120.16279832814901`", ",", "123.30447048863572`", ",", 
   "126.44613869851659`", ",", "129.587803245104`", ",", 
   "132.72946438850963`", ",", "135.871122364789`", ",", "139.0127773886597`",
    ",", "142.15442965585902`", ",", "145.29607934519592`", ",", 
   "148.43772662034223`", ",", "151.57937163140141`", ",", 
   "154.72101451628595`", ",", "157.8626554019303`", ",", "161.004294405362`",
    ",", "164.14593163464963`", ",", "167.2875671897441`", ",", 
   "170.42920116322662`", ",", "173.57083364097593`", ",", 
   "176.71246470276375`", ",", "179.8540944227884`", ",", 
   "182.99572287015297`", ",", "186.1373501092955`", ",", "189.278976200376`",
    ",", "192.4206011996257`", ",", "195.56222515966257`", ",", 
   "198.70384812977704`", ",", "201.84547015619088`", ",", 
   "204.98709128229234`", ",", "208.12871154885005`", ",", 
   "211.27033099420777`", ",", "214.41194965446198`", ",", 
   "217.5535675636242`", ",", "220.69518475376935`", ",", 
   "223.83680125517174`", ",", "226.97841709642947`", ",", 
   "230.1200323045791`", ",", "233.26164690520062`", ",", 
   "236.4032609225143`", ",", "239.54487437946986`", ",", 
   "242.6864872978287`", ",", "245.8280996982398`", ",", 
   "248.96971160030995`", ",", "252.11132302266859`", ",", 
   "255.25293398302813`", ",", "258.3945444982395`", ",", 
   "261.53615458434405`", ",", "264.6777642566215`", ",", 
   "267.81937352963456`", ",", "270.9609824172707`", ",", 
   "274.1025909327807`", ",", "277.2441990888146`", ",", "280.3858068974556`",
    ",", "283.5274143702514`", ",", "286.6690215182434`", ",", 
   "289.8106283519944`", ",", "292.9522348816139`", ",", 
   "296.09384111678247`", ",", "299.23544706677416`", ",", 
   "302.3770527404775`", ",", "305.5186581464156`", ",", "308.6602632927644`",
    ",", "311.8018681873705`", ",", "314.94347283776716`", ",", 
   "318.08507725119034`", ",", "321.22668143459276`", ",", 
   "324.36828539465785`", ",", "327.5098891378125`", ",", 
   "330.6514926702394`", ",", "333.79309599788854`", ",", "336.934699126488`",
    ",", "340.0763020615541`", ",", "343.2179048084012`", ",", 
   "346.35950737215103`", ",", "349.5011097577409`", ",", 
   "352.6427119699324`", ",", "355.7843140133188`", ",", "358.9259158923327`",
    ",", "362.06751761125264`", ",", "365.2091191742101`", ",", 
   "368.3507205851957`", ",", "371.4923218480648`", ",", "374.6339229665437`",
    ",", "377.77552394423464`", ",", "380.9171247846209`", ",", 
   "384.0587254910721`", ",", "387.2003260668482`", ",", "390.3419265151044`",
    ",", "393.48352683889493`", ",", "396.62512704117756`", ",", 
   "399.7667271248168`", ",", "402.90832709258797`", ",", 
   "406.0499269471804`", ",", "409.191526691201`", ",", "412.333126327177`", 
   ",", "415.4747258575594`", ",", "418.6163252847255`", ",", 
   "421.75792461098183`", ",", "424.89952383856667`", ",", 
   "428.04112296965263`", ",", "431.1827220063489`", ",", 
   "434.32432095070374`", ",", "437.46591980470663`", ",", 
   "440.60751857029015`", ",", "443.7491172493322`", ",", "446.890715843658`",
    ",", "450.03231435504165`", ",", "453.17391278520813`", ",", 
   "456.3155111358349`", ",", "459.45710940855355`", ",", 
   "462.5987076049513`", ",", "465.74030572657267`", ",", 
   "468.8819037749206`", ",", "472.0235017514582`", ",", 
   "475.16509965760974`", ",", "478.3066974947622`", ",", 
   "481.4482952642663`", ",", "484.5898929674376`", ",", "487.731490605558`", 
   ",", "490.8730881798765`", ",", "494.0146856916102`", ",", 
   "497.15628314194566`", ",", "500.29788053203947`", ",", 
   "503.43947786301936`", ",", "506.5810751359852`", ",", 
   "509.72267235200957`", ",", "512.8642695121389`", ",", 
   "516.0058666173942`", ",", "519.1474636687715`", ",", "522.2890606672431`",
    ",", "525.4306576137581`", ",", "528.5722545092428`", ",", 
   "531.7138513546017`", ",", "534.8554481507182`", ",", "537.9970448984548`",
    ",", "541.1386415986541`", ",", "544.2802382521394`", ",", 
   "547.4218348597149`", ",", "550.5634314221664`", ",", "553.7050279402621`",
    ",", "556.8466244147527`", ",", "559.9882208463721`", ",", 
   "563.1298172358377`", ",", "566.2714135838512`", ",", "569.4130098910987`",
    ",", "572.5546061582511`", ",", "575.6962023859651`", ",", 
   "578.8377985748825`", ",", "581.9793947256318`", ",", "585.1209908388277`",
    ",", "588.2625869150719`", ",", "591.4041829549533`", ",", 
   "594.5457789590482`", ",", "597.687374927921`", ",", "600.8289708621243`", 
   ",", "603.9705667621989`", ",", "607.1121626286747`", ",", 
   "610.2537584620707`", ",", "613.395354262895`", ",", "616.5369500316456`", 
   ",", "619.6785457688103`", ",", "622.8201414748671`", ",", 
   "625.9617371502843`", ",", "629.103332795521`", ",", "632.2449284110271`", 
   ",", "635.3865239972436`", ",", "638.5281195546027`", ",", 
   "641.6697150835282`", ",", "644.811310584436`", ",", "647.9529060577335`", 
   ",", "651.0945015038201`", ",", "654.2360969230882`", ",", 
   "657.377692315922`", ",", "660.5192876826989`", ",", "663.6608830237888`", 
   ",", "666.8024783395548`", ",", "669.944073630353`", ",", 
   "673.0856688965334`", ",", "676.2272641384387`", ",", "679.3688593564059`",
    ",", "682.5104545507655`", ",", "685.652049721842`", ",", 
   "688.7936448699539`", ",", "691.9352399954142`", ",", "695.0768350985298`",
    ",", "698.2184301796026`", ",", "701.3600252389285`", ",", 
   "704.5016202767986`", ",", "707.6432152934987`", ",", "710.7848102893092`",
    ",", "713.9264052645063`", ",", "717.0680002193608`", ",", 
   "720.2095951541387`", ",", "723.3511900691018`", ",", "726.492784964507`", 
   ",", "729.634379840607`", ",", "732.7759746976502`", ",", 
   "735.9175695358806`", ",", "739.059164355538`", ",", "742.2007591568583`", 
   ",", "745.3423539400735`", ",", "748.4839487054114`", ",", 
   "751.6255434530963`", ",", "754.7671381833486`", ",", "757.908732896385`", 
   ",", "761.0503275924187`", ",", "764.1919222716595`", ",", 
   "767.3335169343136`", ",", "770.4751115805839`", ",", "773.6167062106699`",
    ",", "776.7583008247682`", ",", "779.8998954230718`", ",", 
   "783.0414900057709`", ",", "786.1830845730526`", ",", "789.3246791251008`",
    ",", "792.4662736620969`", ",", "795.6078681842191`", ",", 
   "798.749462691643`", ",", "801.8910571845412`", ",", "805.0326516630838`", 
   ",", "808.1742461274383`", ",", "811.3158405777693`", ",", 
   "814.4574350142394`", ",", "817.5990294370082`", ",", "820.740623846233`", 
   ",", "823.8822182420688`", ",", "827.0238126246682`", ",", 
   "830.1654069941815`", ",", "833.3070013507564`", ",", "836.4485956945391`",
    ",", "839.590190025673`", ",", "842.7317843442996`", ",", 
   "845.8733786505583`", ",", "849.0149729445862`", ",", "852.1565672265189`",
    ",", "855.2981614964892`", ",", "858.439755754629`", ",", 
   "861.5813500010672`", ",", "864.7229442359318`", ",", "867.8645384593481`",
    ",", "871.0061326714402`", ",", "874.1477268723302`", ",", 
   "877.2893210621382`", ",", "880.4309152409832`", ",", "883.5725094089818`",
    ",", "886.7141035662494`", ",", "889.8556977128998`", ",", 
   "892.9972918490448`", ",", "896.1388859747951`", ",", "899.2804800902596`",
    ",", "902.4220741955457`", ",", "905.5636682907593`", ",", 
   "908.7052623760048`", ",", "911.8468564513855`", ",", "914.9884505170027`",
    ",", "918.1300445729568`", ",", "921.2716386193466`", ",", 
   "924.4132326562695`", ",", "927.5548266838221`", ",", "930.6964207020987`",
    ",", "933.8380147111934`", ",", "936.9796087111984`", ",", 
   "940.1212027022046`", ",", "943.2627966843023`", ",", "946.40439065758`", 
   ",", "949.5459846221253`", ",", "952.6875785780245`", ",", 
   "955.829172525363`", ",", "958.9707664642248`", ",", "962.1123603946929`", 
   ",", "965.2539543168494`", ",", "968.3955482307753`", ",", 
   "971.5371421365501`", ",", "974.6787360342528`", ",", "977.8203299239613`",
    ",", "980.9619238057522`", ",", "984.1035176797014`", ",", 
   "987.245111545884`", ",", "990.3867054043735`", ",", "993.5282992552433`", 
   ",", "996.669893098565`", ",", "999.8114869344101`", ",", 
   "1002.9530807628488`", ",", "1006.0946745839503`", ",", 
   "1009.2362683977833`", ",", "1012.3778622044155`", ",", 
   "1015.5194560039135`", ",", "1018.6610497963436`", ",", 
   "1021.8026435817708`", ",", "1024.9442373602594`", ",", 
   "1028.0858311318732`", ",", "1031.227424896675`", ",", 
   "1034.369018654727`", ",", "1037.51061240609`", ",", "1040.6522061508254`",
    ",", "1043.7937998889922`", ",", "1046.93539362065`", ",", 
   "1050.076987345857`", ",", "1053.2185810646715`", ",", 
   "1056.3601747771497`", ",", "1059.5017684833485`", ",", 
   "1062.6433621833235`", ",", "1065.7849558771295`", ",", 
   "1068.9265495648212`", ",", "1072.0681432464523`", ",", 
   "1075.2097369220758`", ",", "1078.351330591744`", ",", 
   "1081.4929242555095`", ",", "1084.634517913423`", ",", 
   "1087.776111565535`", ",", "1090.9177052118964`", ",", 
   "1094.0592988525561`", ",", "1097.2008924875636`", ",", 
   "1100.3424861169667`", ",", "1103.4840797408135`", ",", 
   "1106.6256733591517`", ",", "1109.7672669720275`", ",", 
   "1112.9088605794875`", ",", "1116.0504541815774`", ",", 
   "1119.1920477783424`", ",", "1122.3336413698273`", ",", 
   "1125.475234956076`", ",", "1128.6168285371327`", ",", "1131.75842211304`",
    ",", "1134.9000156838415`", ",", "1138.0416092495798`", ",", 
   "1141.183202810295`", ",", "1144.3247963660292`", ",", 
   "1147.4663899168238`", ",", "1150.607983462719`", ",", 
   "1153.7495770037547`", ",", "1156.8911705399705`", ",", 
   "1160.0327640714058`", ",", "1163.174357598099`", ",", 
   "1166.3159511200888`", ",", "1169.4575446374129`", ",", 
   "1172.599138150109`", ",", "1175.7407316582137`", ",", 
   "1178.8823251617641`", ",", "1182.0239186607964`", ",", 
   "1185.1655121553467`", ",", "1188.3071056454505`", ",", 
   "1191.4486991311428`", ",", "1194.5902926124584`", ",", 
   "1197.7318860894318`", ",", "1200.8734795620971`", ",", 
   "1204.0150730304883`", ",", "1207.1566664946383`", ",", 
   "1210.2982599545803`", ",", "1213.439853410347`", ",", 
   "1216.581446861971`", ",", "1219.7230403094838`", ",", 
   "1222.8646337529176`", ",", "1226.0062271923034`", ",", 
   "1229.1478206276722`", ",", "1232.289414059055`", ",", 
   "1235.431007486482`", ",", "1238.5726009099835`", ",", 
   "1241.7141943295892`", ",", "1244.8557877453286`", ",", 
   "1247.9973811572308`", ",", "1251.1389745653248`", ",", 
   "1254.2805679696392`", ",", "1257.4221613702023`", ",", 
   "1260.563754767042`", ",", "1263.7053481601865`", ",", 
   "1266.846941549663`", ",", "1269.9885349354986`", ",", 
   "1273.1301283177204`", ",", "1276.2717216963551`", ",", 
   "1279.4133150714292`", ",", "1282.5549084429688`", ",", 
   "1285.6965018109997`", ",", "1288.8380951755478`", ",", 
   "1291.9796885366382`", ",", "1295.1212818942963`", ",", 
   "1298.2628752485468`", ",", "1301.4044685994147`", ",", 
   "1304.546061946924`", ",", "1307.6876552910994`", ",", 
   "1310.8292486319644`", ",", "1313.9708419695432`", ",", 
   "1317.112435303859`", ",", "1320.2540286349351`", ",", 
   "1323.3956219627946`", ",", "1326.5372152874606`", ",", 
   "1329.6788086089555`", ",", "1332.8204019273016`", ",", 
   "1335.9619952425214`", ",", "1339.1035885546366`", ",", 
   "1342.2451818636694`", ",", "1345.3867751696412`", ",", 
   "1348.5283684725732`", ",", "1351.6699617724869`", ",", 
   "1354.811555069403`", ",", "1357.9531483633425`", ",", 
   "1361.094741654326`", ",", "1364.236334942374`", ",", 
   "1367.3779282275063`", ",", "1370.5195215097438`", ",", 
   "1373.6611147891053`", ",", "1376.8027080656113`", ",", 
   "1379.944301339281`", ",", "1383.085894610134`", ",", 
   "1386.2274878781886`", ",", "1389.3690811434649`", ",", 
   "1392.510674405981`", ",", "1395.6522676657557`", ",", 
   "1398.7938609228077`", ",", "1401.935454177155`", ",", 
   "1405.0770474288158`", ",", "1408.2186406778083`", ",", 
   "1411.36023392415`", ",", "1414.5018271678587`", ",", "1417.643420408952`",
    ",", "1420.785013647447`", ",", "1423.926606883361`", ",", 
   "1427.0682001167113`", ",", "1430.2097933475147`", ",", 
   "1433.3513865757877`", ",", "1436.492979801547`", ",", 
   "1439.6345730248092`", ",", "1442.7761662455905`", ",", 
   "1445.917759463907`", ",", "1449.059352679775`", ",", "1452.20094589321`", 
   ",", "1455.342539104228`", ",", "1458.4841323128448`", ",", 
   "1461.6257255190756`", ",", "1464.7673187229357`", ",", 
   "1467.9089119244406`", ",", "1471.050505123605`", ",", 
   "1474.1920983204443`", ",", "1477.333691514973`", ",", 
   "1480.4752847072061`", ",", "1483.616877897158`", ",", 
   "1486.758471084843`", ",", "1489.9000642702758`", ",", 
   "1493.0416574534704`", ",", "1496.1832506344408`", ",", 
   "1499.3248438132011`", ",", "1502.4664369897655`", ",", 
   "1505.6080301641473`", ",", "1508.7496233363602`", ",", 
   "1511.8912165064178`", ",", "1515.0328096743333`", ",", 
   "1518.1744028401204`", ",", "1521.315996003792`", ",", 
   "1524.4575891653612`", ",", "1527.5991823248412`", ",", 
   "1530.7407754822445`", ",", "1533.8823686375842`", ",", 
   "1537.0239617908728`", ",", "1540.1655549421228`", ",", 
   "1543.3071480913468`", ",", "1546.448741238557`", ",", 
   "1549.5903343837656`", ",", "1552.731927526985`", ",", 
   "1555.873520668227`", ",", "1559.0151138075037`", ",", 
   "1562.1567069448267`", ",", "1565.2983000802083`", ",", 
   "1568.4398932136596`", ",", "1571.5814863451924`"}], "}"}]], "Output",
 CellChangeTimes->{3.579282059691171*^9, 3.579282092486138*^9, 
  3.579284921296505*^9, 3.579294308239986*^9, 3.580481248551336*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"besselZeroes", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.579283864032142*^9, 3.579283869786175*^9}}],

Cell[BoxData["3.831705970207512`"], "Output",
 CellChangeTimes->{3.579283870777364*^9, 3.580481248634641*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Qm", " ", "=", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "/", "H"}], ")"}], "*", 
     RowBox[{"besselZeroes", "/", "RMirror"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.579284181851572*^9, 3.579284204750154*^9}, {
  3.579284374752882*^9, 3.579284474172578*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.2954657431065391`*^-98", ",", "5.952122783372379`*^-180", ",", 
   "1.262156941754479`*^-260", ",", 
   "4.1993603744649299959503537`13.060414108972047*^-341", ",", 
   "1.6950850598863078285464553342811`12.968328479018474*^-421", ",", 
   "7.566167431805943733829544344`12.89243137129338*^-502", ",", 
   "3.582393478701630859636638`12.827864823742646*^-582", ",", 
   "1.7610577860781971829333306225918`12.771677357822087*^-662", ",", 
   "8.879555082331951899601256436`12.721939970504721*^-743", ",", 
   "4.558294478107584127792292`12.677322033417019*^-823", ",", 
   "2.370987691378154828572`12.475729383839095*^-903", ",", 
   "1.2455823745729737788005501632`12.503647702990252*^-983", ",", 
   "6.594087973394105208852995`12.537813373966767*^-1064", ",", 
   "3.512151723174558382313`12.534155221349504*^-1144", ",", 
   "1.8797907376054270241189995091`12.504689932944517*^-1224", ",", 
   "1.0101189669447964352442195`12.47709794635872*^-1304", ",", 
   "5.445804518126198286028`12.283731050008054*^-1385", ",", 
   "2.9440392595358330529591379148`12.336612070758857*^-1465", ",", 
   "1.5952597833316924976023581`12.391806163315465*^-1545", ",", 
   "8.661167536565322375153`12.381504033292217*^-1626", ",", 
   "4.710398559979567333486928709`12.36056642799044*^-1706", ",", 
   "2.565522385691165268737529`12.134383048735184*^-1786", ",", 
   "1.3990998721405669762055`12.196439361637982*^-1866", ",", 
   "7.638494221008660559796163062`12.259786299708125*^-1947", ",", 
   "4.174410608815402927025902`12.2856533186511*^-2027", ",", 
   "2.283294839190397979562`12.268783458910232*^-2107", ",", 
   "1.2498746903302640065017185183`12.252544534625246*^-2187", ",", 
   "6.846565168798504401313459`12.089559324942902*^-2268", ",", 
   "3.752751959788140339533`12.157806783220872*^-2348", ",", 
   "2.0581212490102366971639282175`12.207181473015678*^-2428", ",", 
   "1.129308541768428922900562`12.193055694654996*^-2508", ",", 
   "6.199466437592659182407`12.179374965693317*^-2589", ",", 
   "3.4046933961306092053896261999`12.003486916970832*^-2669", ",", 
   "1.8705432651522638544527034`12.074986033421576*^-2749", ",", 
   "1.0280386186877178320046`12.140742977668342*^-2829", ",", 
   "5.6518477034164387862377310483`12.128593365491621*^-2910", ",", 
   "3.1081330329864928847727869`12.116774434128859*^-2990", ",", 
   "1.7097272175644958147316`11.931593575597208*^-3070", ",", 
   "9.407259080936066349657342426`12.005400218219053*^-3151", ",", 
   "5.177263979747343741991578`12.07958982565*^-3231", ",", 
   "2.8499096981903004455652`12.072474563743159*^-3311", ",", 
   "1.5690935211279433238403073547`12.062071349707619*^-3391", ",", 
   "8.640670990003637961431094`11.869958368307426*^-3472", ",", 
   "4.759063865196307631246`11.94548402704044*^-3552", ",", 
   "2.6215975407127969523155151939`12.02130199029777*^-3632", ",", 
   "1.4443630342990693734847729`12.022784796071804*^-3712", ",", 
   "7.958814520865091319978`12.013494397225067*^-3793", ",", 
   "4.3860971044355886162028223915`11.816077480942255*^-3873", ",", 
   "2.4174773730285861156823363`11.892931606505762*^-3953", ",", 
   "1.332593429119285841414`11.97001590885954*^-4033", ",", 
   "7.3465087712513086776528658988`11.978201231613957*^-4114", ",", 
   "4.0505095365415792701632403`11.969808568381579*^-4194", ",", 
   "2.2334749542667122240037`11.768258040912194*^-4274", ",", 
   "1.2316659051510464475786304737`11.846168682790099*^-4354", ",", 
   "6.7927082735243215211193824`11.924265137777212*^-4435", ",", 
   "3.7465297055076525200314`11.937771507310368*^-4515", ",", 
   "2.0665678804129082030406693287`11.930118362481288*^-4595", ",", 
   "1.139994305909592800470746`11.725303641128528*^-4675", ",", 
   "6.289071833564299932638`11.804074078614493*^-4756", ",", 
   "3.4697625689229419656363828938`11.882997581793953*^-4836", ",", 
   "1.914436001564302849914165`11.900787124343816*^-4916", ",", 
   "1.0563516045195287080312`11.893753721429796*^-4996", ",", 
   "5.8290989710822707744274122537`11.686338328150029*^-5077", ",", 
   "3.2167585985174215819216683`11.765821792036943*^-5157", ",", 
   "1.7752458738260784915258`11.845433479927026*^-5237", ",", 
   "9.7976182053056739726572259524`11.866706695898163*^-5318", ",", 
   "5.4075866935682414432740156`11.860200178852944*^-5398", ",", 
   "2.9847401416289603299341`11.650701995919926*^-5478", ",", 
   "1.64751262043342596889395850189`11.730786148097707*^-5558", ",", 
   "9.0943013785643416749432116`11.810979244302361*^-5639", ",", 
   "5.0202752557481250828943`11.835107200672214*^-5719", ",", 
   "2.771421498314403002168855943`11.82905412856803*^-5799", ",", 
   "1.53000837209030564129576072`11.617885114916389*^-5879", ",", 
   "8.4469622506653191706953`11.69848210185487*^-5960", ",", 
   "4.6636097439194077458090370884`11.779172776348148*^-6040", ",", 
   "2.5748869373660789192065209`11.805651809017684*^-6120", ",", 
   "1.4216997479838027737499`11.799993095935173*^-6200", ",", 
   "7.8500214004660907264819254799`11.587486329317477*^-6281", ",", 
   "4.3345750412105982426952929`11.668526174423379*^-6361", ",", 
   "2.393505701185078200371`11.749647431585204*^-6441", ",", 
   "1.32170401466982151854855263182`11.778067948820846*^-6521", ",", 
   "7.2986968239841684568564762`11.772755351438656*^-6602", ",", 
   "4.030578661900513232984`11.559183958645354*^-6682", ",", 
   "2.22587130393223710477103099328`11.640610036373536*^-6762", ",", 
   "1.2292575932185630862739206`11.722107505213739*^-6842", ",", 
   "6.7888403210499641990122`11.752131933317903*^-6923", ",", 
   "3.74936563611124981854020110235`11.74712555087658*^-7003", ",", 
   "2.07075719441164644145871954`11.532716280730865*^-7083", ",", 
   "1.14369293388578465796231`11.614482133896855*^-7163", ",", 
   "6.3168167267048876528078201302`11.696311093301787*^-7244", ",", 
   "3.4889553619719605557407121`11.727657927505216*^-7324", ",", 
   "1.92708369707717899130625`11.722924383070483*^-7404", ",", 
   "1.06442118868974859107245459248`11.507867544054141*^-7484", ",", 
   "5.8794129854232478806626925`11.589934593787529*^-7565", ",", 
   "3.2475938377602536148243`11.67205782304223*^-7645", ",", 
   "1.7938928891299226016689493389`11.704489861903893*^-7725", ",", 
   "9.9091898372467122839838366`11.700000953643421*^-7806", ",", 
   "5.4737684298624460927374`11.484457825144824*^-7886", ",", 
   "3.02371687396369642974468839241`11.566793689663177*^-7966", ",", 
   "1.67032916931304194073196862`11.649179884486452*^-8046", ",", 
   "9.2271814523066263248191`11.68249539661936*^-8127", ",", 
   "5.09732040462745906874399463073`11.67822708049638*^-8207", ",", 
   "2.81592128550199669542689695`11.462335531111908*^-8287", ",", 
   "1.55562398126883717988909`11.544912769245375*^-8367", ",", 
   "8.59397590774354349104193941539`11.627535354077187*^-8448", ",", 
   "4.74776118483194141325616885`11.661561341853456*^-8528", ",", 
   "2.62294198198816195707663`11.65749295258827*^-8608", ",", 
   "1.44908361974913185054582755679`11.441371761957727*^-8688", ",", 
   "8.0057683334936285243554574`11.524166919086984*^-8769", ",", 
   "4.4230033409832108125724`11.607003142568887*^-8849", ",", 
   "2.44363348528952203652712195866`11.641590132486439*^-8929", ",", 
   "1.35007935954345865158489303`11.637703778814574*^-9009", ",", 
   "7.4591070517159718910439`11.421456006143766*^-9090", ",", 
   "4.12115151476485506862855812966`11.504448879375374*^-9170", ",", 
   "2.27695481949821973388453342`11.58747911580093*^-9250", ",", 
   "1.25803936008980746377129`11.622497078354352*^-9330", ",", 
   "6.950850171887140920895498356`11.618777167790025*^-9411", ",", 
   "3.84047912935281948674637625`11.402492808740348*^-9491", ",", 
   "2.12195700562903361485903`11.485665873628829*^-9571", ",", 
   "1.172441945910691148440778605092`11.568873076646302*^-9651", ",", 
   "6.47812945965197679826378894`11.604208194013907*^-9732", ",", 
   "3.57940894862022460391114`11.600641055205053*^-9812", ",", 
   "1.97777259404492010357176133862`11.384399160258118*^-9892", ",", 
   "1.092809967093201774762223841`11.467737118287305*^-9972", ",", 
   "6.03831993318825758656599`11.551106388741832*^-10053", ",", 
   "3.33649667578836321523803343811`11.58665846735391*^-10133", ",", 
   "1.84360681165176473666303361`11.583232046928309*^-10213", ",", 
   "1.01870601782123900233458`11.367102427073606*^-10293", ",", 
   "5.6290140239781220652601885254`11.450591844698758*^-10374", ",", 
   "3.11041698192223976717389295`11.534110085201515*^-10454", ",", 
   "1.71873000290637007890525`11.569790464691318*^-10534", ",", 
   "9.49728344706491223159353980767`11.566494081630733*^-10615", ",", 
   "5.24799941624152746717122796`11.35053869426377*^-10695", ",", 
   "2.89995149767454351686959`11.434167712128847*^-10775", ",", 
   "1.602471119703191626724527502895`11.51782334829936*^-10855", ",", 
   "8.85507315584107357635638806`11.553553196806408*^-10936", ",", 
   "4.89323988458044696929758`11.550377341727424*^-11016", ",", 
   "2.70397840944664247254`11.33465142608073*^-11096", ",", 
   "1.494212070250231427458703822`11.41840952272072*^-11176", ",", 
   "8.25702348633936173535815`11.502192276236302*^-11257", ",", 
   "4.56285859864025530639034538082`11.537901189447819*^-11337", ",", 
   "2.52146337922655901658482581`11.534837359284733*^-11417", ",", 
   "1.39338277852025366678025`11.319390373829052*^-11497", ",", 
   "7.69999223086617644332`11.403268172030419*^-11578", ",", 
   "4.25512347904680458616203725`11.487168874393209*^-11658", ",", 
   "2.35145156727523489427965`11.52279371560034*^-11738", ",", 
   "1.2994568369633217472717196304`11.519834276452492*^-11818", ",", 
   "7.1810770934326139333193361`11.304710678309936*^-11899", ",", 
   "3.96843427367076254338929`11.388699785232598*^-11979", ",", 
   "2.19306058178980470044`11.47271022376919*^-12059", ",", 
   "1.211947659163686756081389958`11.508194156866207*^-12139", ",", 
   "6.6975946873335282895473`11.505332229441503*^-12220", ",", 
   "3.70131108882701405595`11.29057212672063*^-12300", ",", 
   "2.045474214437688599993054783`11.374665000979872*^-12380", ",", 
   "1.13040505690068723019977`11.458777790620749*^-12460", ",", 
   "6.24706182736981842225`11.494069468749009*^-12541", ",", 
   "3.452384161677273821513371405`11.491298832078769*^-12621", ",", 
   "1.907936847176568378587029`11.276938533228744*^-12701", ",", 
   "1.05441218067608924883`11.361128373623044*^-12781", ",", 
   "5.82717878950907205651430514`11.445336849471783*^-12862", ",", 
   "3.22038469826178448223382`11.480389730191995*^-12942", ",", 
   "1.779748436887134111193`11.477704740228203*^-13022", ",", 
   "9.83582773481847876906735493`11.263777219276712*^-13103", ",", 
   "5.43581427026067722998406`11.348057871132282*^-13183", ",", 
   "3.0041366343430994862`11.432355997886633*^-13263", ",", 
   "1.660260000677070576139321101`11.467127761925285*^-13343", ",", 
   "9.17558696520103282646961`11.464523282342592*^-13424", ",", 
   "5.07099182329561163005`11.25105857507253*^-13504", ",", 
   "2.802549198467635762621631016`11.335424450902995*^-13584", ",", 
   "1.548869537626110968543189`11.419806746069236*^-13664", ",", 
   "8.56007692268167648962`11.454258801382107*^-13745", ",", 
   "4.73087758793715224149178988`11.451730144452672*^-13825", ",", 
   "2.614610178762143448316463`11.238755687426712*^-13905", ",", 
   "1.445018333594481074133`11.323201699396805*^-13985", ",", 
   "7.986213562057645801474116029`11.407663167859555*^-14066", ",", 
   "4.413769153529292838585399`11.441760224411333*^-14146", ",", 
   "2.439379808612171509423`11.43930310024278*^-14226", ",", 
   "1.348187603399433749501520929`11.226844022290969*^-14306", ",", 
   "7.45113292541952060745618`11.311365524437292*^-14387", ",", 
   "4.11808542882511833244`11.395901602411236*^-14467", ",", 
   "2.275985200603940103053750296`11.429611305928402*^-14547", ",", 
   "1.257895432330481983919296`11.427221778684375*^-14627", ",", 
   "6.95217433332369899851`11.215301152656886*^-14708", ",", 
   "3.84235740278761923396740372`11.299893891212204*^-14788", ",", 
   "2.123615267731295533444837`11.384500398026091*^-14868", ",", 
   "1.173693983848943763826`11.417793013144165*^-14948", ",", 
   "6.486865031321132307966051055`11.415467463125761*^-15029", ",", 
   "3.585219701329040042100334`11.204106524234383*^-15109", ",", 
   "1.981516079513794306459`11.288766594733794*^-15189", ",", 
   "1.0951669452686796030241025571`11.373439691145254*^-15269", ",", 
   "6.05290613812820161349097`11.406287826191319*^-15350", ",", 
   "3.345402856379096285895`11.404022916862425*^-15430", ",", 
   "1.848986608340618000370725765`11.193241252771166*^-15510", ",", 
   "1.0219271869598642983662526`11.277965062857376*^-15590", ",", 
   "5.648159763093143669629`11.362701214917966*^-15671", ",", 
   "3.121726215454794905500253364`11.395079581904398*^-15751", ",", 
   "1.72537482639484162388313`11.392872231107043*^-15831", ",", 
   "9.53614613681315290546`11.182687948064432*^-15912", ",", 
   "5.270637177064016000674631862`11.267472185132931*^-15992", ",", 
   "2.913091428258885578711775`11.352268132662763*^-16072", ",", 
   "1.610074119204053456696`11.38415333725697*^-16152", ",", 
   "8.898941895727502161590720985`11.382000691993634*^-16233", ",", 
   "4.918487934545727847925282`11.172430560557096*^-16313", ",", 
   "2.718476455691139403047`11.257272163448148*^-16393", ",", 
   "1.5025199854392735210171990044`11.342124892507707*^-16473", ",", 
   "8.30454120189150679854586`11.373495249560568*^-16554", ",", 
   "4.589989859068596686305`11.371394663825873*^-16634", ",", 
   "2.5369300519088481173530394348`11.162454247076058*^-16714", ",", 
   "1.4021869968633482033509797`11.247350381297531*^-16794", ",", 
   "7.750041772955492602348`11.33225710001242*^-16875", ",", 
   "4.283539811249158340309283093`11.363092471015623*^-16955", ",", 
   "2.367566677060850591389729`11.361041486245353*^-17035", ",", 
   "1.3085859942751607431677`11.152745252999551*^-17115", ",", 
   "7.23274153474473957204376884`11.237693288875919*^-17196", ",", 
   "3.997645170975187647509155`11.322651406175448*^-17276", ",", 
   "2.209561801649414981387`11.35293305559934*^-17356", ",", 
   "1.2212614992865472751272382998`11.35092938337453*^-17436", ",", 
   "6.750124351597394130829563`11.14329080840339*^-17517", ",", 
   "3.730915970023980591444`11.228288301866568*^-17597", ",", 
   "2.0621475690879341731755260554`11.313295408661054*^-17677", ",", 
   "1.139789322577758437707422`11.34300587659801*^-17757", ",", 
   "6.299846838504548272418`11.34104738329899*^-17838", ",", 
   "3.4820576200038308853535419643`11.134079036362463*^-17918", ",", 
   "1.924608785339376103768918`11.219123711856025*^-17998", ",", 
   "1.0637743522742381626747`11.30417756443077*^-18078", ",", 
   "5.8797261641278681380330376799`11.333300553356136*^-18159", ",", 
   "3.2498641850953628394789438`11.331385246508576*^-18239", ",", 
   "1.7962792084156001624976`11.125098871614023*^-18319", ",", 
   "9.928485073213414056053644737`11.210188606986177*^-18400", ",", 
   "5.487728760835812028351979`11.29528711220457*^-18480", ",", 
   "3.033212154396527482125`11.32380738603319*^-18560", ",", 
   "1.6765381130497238474997292945`11.321933402127085*^-18640", ",", 
   "9.26668842229888297563229`11.116339988326981*^-18721", ",", 
   "5.121959869302692780155`11.20147280133629*^-18801", ",", 
   "2.831054673418140736153345441`11.286614003465784*^-18881", ",", 
   "1.5648071077389337742881066`11.314517297340041*^-18961", ",", 
   "8.649157910121669360527`11.312682890934989*^-19042", ",", 
   "4.7806538487635003818743765734`11.107792735655602*^-19122", ",", 
   "2.6424161972613897622276736`11.192966771971117*^-19202", ",", 
   "1.460547184645908571818`11.27814884090849*^-19282", ",", 
   "8.0729153911185105097241918891`11.305421780377737*^-19363", ",", 
   "4.462165192621434151734439`11.303625314334885*^-19443", ",", 
   "2.4663875328816263667047`11.099448080234586*^-19523", ",", 
   "1.3632559833337311798035462754`11.184661602641192*^-19603", ",", 
   "7.5351851338565484520408234`11.269882823419987*^-19684", ",", 
   "4.164960194575229548993`11.296512851827364*^-19764", ",", 
   "2.3021212389879477026543767902`11.29475278853106*^-19844", ",", 
   "1.272465251863170304370545`11.091297554617968*^-19924", ",", 
   "7.033379806611068229285`11.176548933386526*^-20005", ",", 
   "3.8876092132789569921832660828`11.261807696692946*^-20085", ",", 
   "2.1488273566356621666339319`11.287783009845514*^-20165", ",", 
   "1.1877384900913349302156`11.28605790329668*^-20245", ",", 
   "6.5650874686500531536556709504`11.083333211015917*^-20326", ",", 
   "3.6287794910740238378417016`11.16862091519739*^-20406", ",", 
   "2.0057694446706036028706`11.253915708881518*^-20486", ",", 
   "1.10866876105520498123566989176`11.279225196108834*^-20566", ",", 
   "6.1280594877827738706770666`11.27753368478825*^-20647", ",", 
   "3.3872284836771653042826`11.075547579627585*^-20727", ",", 
   "1.87226089729153475950538684597`11.160870169250913*^-20807", ",", 
   "1.03487665790607043206675686`11.24619957067344*^-20887", ",", 
   "5.7201993154770948342425`11.270832761526538*^-20968", ",", 
   "3.1617976625182971878134551557`11.26917356193975*^-21048", ",", 
   "1.7476615221159724053531792`11.067933631096714*^-21128", ",", 
   "9.6600841451977321538584`11.153289750104834*^-21209", ",", 
   "5.3395520547475363558342156724`11.23865241919401*^-21289", ",", 
   "2.951406754935288611428102`11.262599435203535*^-21369", ",", 
   "1.6313743596740564481515`11.260971336030769*^-21449", ",", 
   "9.0173414931456899378354957742`11.060484742581723*^-21530", ",", 
   "4.984294762247806071345518`11.145873112430092*^-21610", ",", 
   "2.7550483885803423013863`11.231267785419403*^-21690", ",", 
   "1.522842726221742434178530553`11.25451929629126*^-21770", ",", 
   "8.4174623219699650938867146`11.252921153075508*^-21851", ",", 
   "4.6527274307110333205297`11.053194666998817*^-21931", ",", 
   "2.57178311199276332093917418838`11.138614080859462*^-22011", ",", 
   "1.42154746361461998525205443`11.22403956463503*^-22091", ",", 
   "7.8575776579245836948428`11.246586748409678*^-22172", ",", 
   "4.34326460125552833301209248087`11.245017478724657*^-22252", ",", 
   "2.40073476181038126568166849`11.046057505154009*^-22332", ",", 
   "1.32700438099960377200031`11.131506822660377*^-22412", ",", 
   "7.3350117255964319439550618079`11.216961989553553*^-22493", ",", 
   "4.0544275597337936486836771`11.238796496363667*^-22573", ",", 
   "2.2410861534437300461341`11.237255075410522*^-22653", ",", 
   "1.23876187449136725652497096602`11.03906768038784*^-22733", ",", 
   "6.8472688014109333997823914`11.124545822843459*^-22814", ",", 
   "3.7848370758301094213094`11.21002960596047*^-22894", ",", 
   "2.09207507010902159029499424995`11.231143524911175*^-22974", ",", 
   "1.15639871197316898054152825`11.229628981499085*^-23054", ",", 
   "6.3920209771114623274702`11.032219915486614*^-23135", ",", 
   "3.53320664453821264588832297529`11.117725861498153*^-23215", ",", 
   "1.95299053020020809099452302`11.203237250412549*^-23295", ",", 
   "1.07952197120358862698208`11.223623079369922*^-23375", ",", 
   "5.96709677142346322850298586176`11.222134492241148*^-23456", ",", 
   "3.29833619522094091608792489`11.02550921164498*^-23536", ",", 
   "1.8231693119233762776407`11.111041993138993*^-23616", ",", 
   "1.00776512017026374281613798917`11.19658002999237*^-23696", ",", 
   "5.57047052584792275362934242`11.216230647874875*^-23777", ",", 
   "3.07910623397619759837768`11.214767142339385*^-23857", ",", 
   "1.7019927177751209959646365306`11.018930829225285*^-23937", ",", 
   "9.40786229704255493741242`11.10448952779972*^-24018", ",", 
   "5.200252530840448301358`11.190053303708986*^-24098", ",", 
   "2.87447238925439271542131748864`11.208961945120649*^-24178", ",", 
   "1.58888356131449794849798888`11.207522689969586*^-24258", ",", 
   "8.7826630891054341906744`11.012480270149684*^-24339", ",", 
   "4.8546798303263073536`11.098064013718185*^-24419", ",", 
   "2.68346033179479038616131239`11.183652665508061*^-24499", ",", 
   "1.4833033607551081322305`11.201812897442196*^-24579", ",", 
   "8.19907754798812572587034146979`11.200397102112902*^-24660", ",", 
   "4.53210765672949374063329091`11.00615326175353*^-24740", ",", 
   "2.50516104284974222292502`11.091761221529227*^-24820", ",", 
   "1.384749724840855688192737425217`11.177373928698305*^-24900", ",", 
   "7.65432908053573305704183391`11.194779629103714*^-24981", ",", 
   "4.23100145160162599548646`11.193386541072082*^-25061", ",", 
   "2.33872640603799804664`10.999945742017186*^-25141", ",", 
   "1.29275391742425705515439612`11.085577129642253*^-25221", ",", 
   "7.14582707482212877244904`11.171213111612655*^-25302", ",", 
   "3.94992943229126814390612741849`11.187858449680206*^-25382", ",", 
   "2.18336510016995028056103379`11.186487352058858*^-25462", ",", 
   "1.20687858833972621254623`10.993853845904814*^-25542", ",", 
   "6.6711543637226276525`11.079507910891632*^-25623", ",", 
   "3.68755566487330005528507006`11.165166424455906*^-25703", ",", 
   "2.03833877233193138270824`11.181045842428853*^-25783", ",", 
   "1.12671565888435668816`11.179696051751948*^-25863", ",", 
   "6.22805554186932114681142534`10.987873892850924*^-25944", ",", 
   "3.44263360981328339992977`11.073549920196472*^-26024", ",", 
   "1.90295847135648620653`11.159230257175363*^-26104", ",", 
   "1.051884351389157643798702808`11.174338453558484*^-26184", ",", 
   "5.81442607814213039957811`11.173009317736005*^-26265", ",", 
   "3.21400010566921766482`10.982002375221727*^-26345", ",", 
   "1.776581324094137635856144515`11.06769968319146*^-26425", ",", 
   "9.82029352571552505979341`11.153401168261215*^-26506", ",", 
   "5.42830216792430579486`11.167733082315138*^-26586", ",", 
   "3.00056976244727322178827927`11.166423978741344*^-26666", ",", 
   "1.65860743709193590586927`10.976235947634947*^-26746", ",", 
   "9.16819101725474756624`11.06195388574886*^-26827", ",", 
   "5.06785127429695029325078581`11.14767587443643*^-26907", ",", 
   "2.80132973484055868047714`11.161226671810377*^-26987", ",", 
   "1.54847700870992203234`11.15993700561268*^-27067", ",", 
   "8.55944194848698773876742891`10.970571417118453*^-27148", ",", 
   "4.73136331004579769107949`11.056309364247213*^-27228", ",", 
   "2.6153348498376562924`11.142051241102548*^-27308", ",", 
   "1.445667636810868162157150692`11.154816300526562*^-27388", ",", 
   "7.99115897082228678431576`11.153545502942507*^-27469", ",", 
   "4.4172424173533734412`10.965005733994115*^-27549", ",", 
   "2.441703064574118593757783801`11.050763096641926*^-27629", ",", 
   "1.349691808711333964174192`11.136524273490506*^-27709", ",", 
   "7.46064755621892735375`11.148499174439992*^-27790", ",", 
   "4.123999303279537603908565354`11.147246701311259*^-27870", ",", 
   "2.279611230702853898282467`10.959535983411326*^-27950", ",", 
   "1.260094560830848309092`11.045312194095885*^-28030", ",", 
   "6.96539306486434695701509163`11.131092108478*^-28111", ",", 
   "3.85024409385842977086054`11.14227261970875*^-28191", ",", 
   "2.128291145647739772077`11.141037950082186*^-28271", ",", 
   "1.176451296511406429882234076`10.954159377551886*^-28351", ",", 
   "6.50304868681811573020002`11.039953893309768*^-28432", ",", 
   "3.59467966988739117087`11.12575200698025*^-28512", ",", 
   "1.987025870306913599640167513`11.136134075877372*^-28592", ",", 
   "1.098365751101979245861395`11.134916710704063*^-28672", ",", 
   "6.07142419634440994037`10.948873248343324*^-28753", ",", 
   "3.3560954530185330194151949`11.03468554931114*^-28833", ",", 
   "1.855146294704530227907547`11.120501346888997*^-28913", ",", 
   "1.025468094282253347546`11.130081089555103*^-28993", ",", 
   "5.668475465198672732120311888`11.128880550479353*^-29074", ",", 
   "3.133361610454749495223768`10.94367504065187*^-29154", ",", 
   "1.73202793567590307151`11.02950462881641*^-29234", ",", 
   "9.57413160245293705608477498`11.115337616488329*^-29315", ",", 
   "5.292294683704452970538229`11.124111308528697*^-29395", ",", 
   "2.925423650703936136971`11.12292713675955*^-29475", ",", 
   "1.617087950322301250014078686`10.938562306132386*^-29555", ",", 
   "8.9387879728811209040194`11.024408704091064*^-29636", ",", 
   "4.94110123673230107027`11.110258408459691*^-29716", ",", 
   "2.731297381730418168380144975`11.118222476274353*^-29796", ",", 
   "1.509782349627837953121982`11.117054231533022*^-29876", ",", 
   "8.34564327943254897051`10.93353269720196*^-29957", ",", 
   "4.613233197152559880954460374`11.019395447053565*^-30037", ",", 
   "2.550064209574136093403836`11.10526141397585*^-30117", ",", 
   "1.409603400335711977711`11.112412426836817*^-30197", ",", 
   "7.791891132187670874779683958`11.111259686373945*^-30278", ",", 
   "4.307139389803737988494291`10.928583961662572*^-30358", ",", 
   "2.380866752712449896535`11.014462623962421*^-30438", ",", 
   "1.3160772012549697534784786599`11.100344417574524*^-30518", ",", 
   "7.274912130568256082651568`11.106679080046518*^-30599", ",", 
   "4.021371988544933107529`11.10554143772379*^-30679", ",", 
   "2.222904750732981649467501102`10.923713937609847*^-30759", ",", 
   "1.2287614221529506289476957`11.009608090387243*^-30839", ",", 
   "6.792261367946345973535`11.095505292095956*^-30920", ",", 
   "3.75457961074623716690603744`11.101020437048303*^-31000", ",", 
   "2.075431248151253113871165`11.09989750247945*^-31080", ",", 
   "1.147243194746683995282`10.918920548668783*^-31160", ",", 
   "6.341656775456027113675956485`11.004829786501983*^-31241", ",", 
   "3.505500875310560177337219`11.090741994095918*^-31321", ",", 
   "1.937749034014224601522`11.09543457611776*^-31401", ",", 
   "1.0711371449477561396698899006`11.09432597386436*^-31481", ",", 
   "5.92096824777039707517462`10.91420179950807*^-31562", ",", 
   "3.27295839306651366408`11.00012573270292*^-31642", ",", 
   "1.809207320406319225388576245`11.08605255953497*^-31722", ",", 
   "1.0000835572758333580419149`11.08991964874319*^-31802", ",", 
   "5.52820749739130004065`11.088825017561138*^-31883", ",", 
   "3.0558531592614629416309967305`10.909555771725595*^-31963", ",", 
   "1.6891986437721725370639244`10.995494025473759*^-32043", ",", 
   "9.337466622433761035718`11.081435099616055*^-32124", ",", 
   "5.161518590122007356405043646`11.084473875953226*^-32204", ",", 
   "2.853159322956018477310476`11.083392868086133*^-32284", ",", 
   "1.5771559739018343658109`10.904980619915214*^-32364", ",", 
   "8.718130385051252104621262394`10.990932833573721*^-32445", ",", 
   "4.819169113674326511026913`11.076887797137463*^-32525", ",", 
   "2.663919306149429640475`11.079095544871894*^-32605", ",", 
   "1.4725500161360529890989195391`11.078027825387862*^-32685", ",", 
   "8.139901219479062572896295`10.900474568010974*^-32766", ",", 
   "4.499541938257055136847`10.986440394385978*^-32846", ",", 
   "2.48723924973293468156540748`11.072408902775328*^-32926", ",", 
   "1.374886694794357727784115`11.073783005484358*^-33006", ",", 
   "7.600048147336982025917`11.072728251653068*^-33087", ",", 
   "4.2011275283983279473241440161`10.896035905867391*^-33167", ",", 
   "2.3222847645051747910087866`10.982015010549636*^-33247", ",", 
   "1.2837048045847236110117`11.067996731848904*^-33327", ",", 
   "7.0960218731853904190875836523`11.068534667598133*^-33408", ",", 
   "3.9225167694644358905041024`11.067492568305271*^-33488", ",", 
   "2.1682769664408053136876`10.891662986042027*^-33568", ",", 
   "1.1985738192854523912159642916`10.977655046791243*^-33648", ",", 
   "6.625442673161690164347736`11.063649661124606*^-33729", ",", 
   "3.662394273410307794444`11.063348997985704*^-33809", ",", 
   "2.0244887768939189997103373735`11.062319253182125*^-33889", ",", 
   "1.1190918471215218387797091`10.88735422075425*^-33969", ",", 
   "6.186089093348319060098`10.97335892692357*^-34050", ",", 
   "3.419532132910504189384126076`11.059244587839348*^-34130", ",", 
   "1.890241470317554161116458`11.058224517695757*^-34210", ",", 
   "1.0448837224157525927707`11.057206837878892*^-34290", ",", 
   "5.7758874043651248708590633399`10.883108079033025*^-34371", ",", 
   "3.192784092346502442486112`10.969125131012126*^-34451", ",", 
   "1.7649014526643651823826`11.054168029015848*^-34531", ",", 
   "9.7559922522500016537115297705`11.053159799521191*^-34612", ",", 
   "5.3929017594651778286283427`11.0521539052465*^-34692", ",", 
   "2.9810801086617519797692`10.878923084061276*^-34772", ",", 
   "1.6478772552155991510886708571`10.964952192761316*^-34852", ",", 
   "9.1091141968949365912033286`11.049150126189817*^-34933", ",", 
   "5.0353250109581144996142`11.048153465613074*^-35013", ",", 
   "2.7834212753357257891754567107`11.047159087033458*^-35093", ",", 
   "1.5386167288857106405197522`10.874797810655792*^-35173", ",", 
   "8.505151032705877648476`10.960838697021554*^-35254", ",", 
   "4.7014701398057621448154134581`11.044189539372592*^-35334", ",", 
   "2.5988750850374945017430665`11.043204185230575*^-35414", ",", 
   "1.4366044260050042631346`11.042221061661856*^-35494", ",", 
   "7.9412535977750693057606540888`10.870730882854051*^-35575", ",", 
   "4.3897622569242148924737783`10.956783277401442*^-35655", ",", 
   "2.426571009354134420589`11.039284973975251*^-35735", ",", 
   "1.34135915698689413952374086032`11.038310672617657*^-35815", ",", 
   "7.4147620876776628441159035`11.037338552128364*^-35896", ",", 
   "4.0987311385901205972374`10.866720971693859*^-35976", ",", 
   "2.26569637262180854748987088795`10.95278461407736*^-36056", ",", 
   "1.2524317098265936374691616`11.034435178780576*^-36136", ",", 
   "6.9231934518076709677894`11.033471684998071*^-36217", ",", 
   "3.8270042607067033443432953918`11.032510324021958*^-36297", ",", 
   "2.115492501654999621588442`10.862766793120722*^-36377", ",", 
   "1.1694027219989649603247`10.948841431741911*^-36457", ",", 
   "6.4642296297299470347884725882`11.029638944027047*^-36538", ",", 
   "3.5733002959322600972777414`11.02868602068084*^-36618", ",", 
   "1.9752511319127337930903`11.02773518365057*^-36698", ",", 
   "1.09188069406341588670542562093`10.858867105939547*^-36778", ",", 
   "6.035706573108769842868372`10.944952497532014*^-36859", ",", 
   "3.3364230466158720584164`11.024895099597442*^-36939", ",", 
   "1.84431105367231582933378376674`11.023952517268974*^-37019", ",", 
   "1.01950013590522296295305583`11.023011976269663*^-37099", ",", 
   "5.6356039987254873302477`10.855020709967969*^-37180", ",", 
   "3.11525578052681968673650231286`10.941116619258416*^-37260", ",", 
   "1.72205498157840775459531739`11.020202513305353*^-37340", ",", 
   "9.5191983645586406284671`11.01927004996476*^-37421", ",", 
   "5.26203582509180864474629074495`11.018339584406077*^-37501", ",", 
   "2.90875594517934942454892776`10.851226444220504*^-37581", ",", 
   "1.60790663294523869602161`10.937332643576346*^-37661", ",", 
   "8.8882124880344083368867756994`11.015560089273244*^-37742", ",", 
   "4.9132412467842558219542115`11.014637529965455*^-37822", ",", 
   "2.7159502341753038722991`11.013716926271083*^-37902", ",", 
   "1.50132800076138750715002662681`10.847483185262947*^-37982", ",", 
   "8.2990698284959346109700373`10.933599454337852*^-38063", ",", 
   "4.5875764025412378380656`11.010966766396306*^-38143", ",", 
   "2.53592998223139998889447964841`11.010053902943627*^-38223", ",", 
   "1.40181680836756924349726539`11.009142954257035*^-38303", ",", 
   "7.7489939857799737473348`10.84378984554179*^-38384", ",", 
   "4.28350659963161846130663621729`10.929915971025578*^-38464", ",", 
   "2.3678468668134906590314641`11.006421516886713*^-38544", ",", 
   "1.30890413381343486540621`11.005518147606864*^-38624", ",", 
   "7.23539292764774449369661458906`11.004616653512324*^-38705", ",", 
   "3.99959905533726623446407548`10.840145371967957*^-38785", ",", 
   "2.2109088966124759529599`10.926281147231318*^-38865", ",", 
   "1.22215219224852215894312988917`11.001923344893239*^-38945", ",", 
   "6.75584673292028735325339941`11.001029274331932*^-39026", ",", 
   "3.73451612190685941487752`11.000137040589863*^-39106", ",", 
   "2.06437666651516261769`10.836548744370878*^-39186", ",", 
   "1.14115226611530803227053339`10.922693969212526*^-39266", ",", 
   "6.3080961519714363192831`10.997471285191661*^-39347", ",", 
   "3.4870089634035313659`10.996586323868769*^-39427", ",", 
   "1.92755986244314274995139715`10.995703162164563*^-39507", ",", 
   "1.06552277318757911751076`10.832998974216604*^-39587", ",", 
   "5.8900319264663476224`10.919153454604587*^-39668", ",", 
   "3.25591165242998522145256881`10.993064401941602*^-39748", ",", 
   "1.79981399862398820752039`10.992188366110147*^-39828", ",", 
   "9.9490746302187031213`10.991314093815609*^-39909", ",", 
   "5.49968482174605755316227518`10.829495103263534*^-39989", ",", 
   "3.04013566061376955457303`10.915658651107861*^-40069", ",", 
   "1.68053737211714629862`10.98870178750579*^-40149"}], "}"}]], "Output",
 CellChangeTimes->{{3.57928446051389*^9, 3.579284475133192*^9}, 
   3.579284932106932*^9, 3.57929431492978*^9, 3.580481249963844*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Um", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["Qm", "2"], "+", 
      RowBox[{"4", "*", 
       RowBox[{"(", 
        RowBox[{"besselZeroes", "/", "RMirror"}], ")"}], "*", "H", "*", 
       "Qm"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "Qm"}], ")"}], "2"], "-", 
      RowBox[{"4", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"besselZeroes", "/", "RMirror"}], ")"}], "2"], "*", 
       SuperscriptBox["H", "2"], "*", "Qm"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.579284483563356*^9, 3.579284497313092*^9}, {
  3.579284558907722*^9, 3.579284568661105*^9}, {3.579284622492502*^9, 
  3.579284730121717*^9}, {3.579284773021346*^9, 3.579284821304852*^9}, {
  3.579284967571584*^9, 3.579284996832049*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{367., {2., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"1.`", ",", "1.`", ",", "1.`", ",", 
           RowBox[{"\[LeftSkeleton]", "385", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "463", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "549", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "626", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "703", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "790", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "867", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "943", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "1031", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "1109", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "1186", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "1273", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "470", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39073", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39149", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39226", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39313", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39389", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39466", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39553", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39630", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39706", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39794", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39871", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "39948", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "40036", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "40112", "\[RightSkeleton]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "40189", "\[RightSkeleton]"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{63., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 13, 23464876580589536203, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{67., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 13, 23464876580589536203, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{104., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 13, 23464876580589536203, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{97., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[13]]], "Output",
 CellChangeTimes->{3.579284997991742*^9, 3.579294324504322*^9, 
  3.580481254693297*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"U0", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Sigma]", "2"]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"\[Pi]", "*", "RMirror", "*", "E0"}], ")"}]}], "*", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Um", "[", 
         RowBox[{"[", "x", "]"}], "]"}], ")"}], "*", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"besselZeroes", "[", 
             RowBox[{"[", "x", "]"}], "]"}], "2"]}], "*", 
          RowBox[{
           SuperscriptBox["r0", "2"], "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", 
             SuperscriptBox["RMirror", "2"]}], ")"}]}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"besselZeroes", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "*", 
          SuperscriptBox[
           RowBox[{"BesselJ", "[", 
            RowBox[{"0", ",", 
             RowBox[{"besselZeroes", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}], "]"}], "2"]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "500"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.579280275295988*^9, 3.579280327538317*^9}, {
   3.579281066401708*^9, 3.579281081107514*^9}, 3.579282516993745*^9, {
   3.579282779905989*^9, 3.579282809425948*^9}, {3.579282840098486*^9, 
   3.579282907054072*^9}, {3.579282990226267*^9, 3.579282996708683*^9}, {
   3.579283044717562*^9, 3.579283144905461*^9}, {3.579283193273148*^9, 
   3.579283193890474*^9}, {3.579283295694222*^9, 3.579283296229175*^9}, {
   3.579283369241216*^9, 3.579283494807263*^9}, {3.579283835288033*^9, 
   3.579283845772589*^9}, {3.579283989061991*^9, 3.579284014030203*^9}, {
   3.57928414118065*^9, 3.579284174616168*^9}, {3.579294292654854*^9, 
   3.579294293662367*^9}, {3.579294681273691*^9, 3.579294711161404*^9}, {
   3.579294773009112*^9, 3.579294773163592*^9}}],

Cell[BoxData["1.4548800931593787`*^-10"], "Output",
 CellChangeTimes->{
  3.579283497744197*^9, 3.579283847724855*^9, {3.579283991469429*^9, 
   3.579284015042655*^9}, 3.579285024047721*^9, 3.579294294580311*^9, 
   3.579294331338955*^9, {3.57929469485249*^9, 3.579294712295523*^9}, 
   3.579294773874698*^9, 3.58048125479524*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"s", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"besselZeroes", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "2"]}], "*", 
        RowBox[{
         SuperscriptBox["r0", "2"], "/", 
         RowBox[{"(", 
          RowBox[{"4", "*", 
           SuperscriptBox["RMirror", "2"]}], ")"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"besselZeroes", "[", 
          RowBox[{"[", "x", "]"}], "]"}], "2"], "*", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", 
          RowBox[{"besselZeroes", "[", 
           RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "500"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.579294528471855*^9, 3.579294541948086*^9}, {
  3.579294581270088*^9, 3.579294664590235*^9}, {3.579294742099162*^9, 
  3.579294770048794*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.12289480968858134`"}]], "Output",
 CellChangeTimes->{3.57929477783707*^9, 3.580481254875277*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dU", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["RMirror", "2"], "/", 
     RowBox[{"(", 
      RowBox[{"6", "\[Pi]", "*", 
       SuperscriptBox["H", "3"], "*", "E0"}], ")"}]}], ")"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Pi]", "2"], "*", 
      SuperscriptBox["H", "4"], "*", 
      SuperscriptBox["p0", "2"]}], "+", 
     RowBox[{"12", "\[Pi]", "*", 
      SuperscriptBox["H", "2"], "\[Sigma]", "*", "p0", "*", "s"}], "+", 
     RowBox[{"72", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]"}], ")"}], "*", 
      SuperscriptBox["s", "2"]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.579294348743402*^9, 3.579294526879667*^9}}],

Cell[BoxData["2.431315776727023`*^-12"], "Output",
 CellChangeTimes->{3.579294803073958*^9, 3.580481255951525*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"besselFactor", "=", 
   RowBox[{"U0", " ", "+", " ", "dU"}]}]}]], "Input",
 CellChangeTimes->{{3.579279873906253*^9, 3.579279896479325*^9}, {
  3.579280227973543*^9, 3.579280228362656*^9}, {3.579280267053847*^9, 
  3.579280294197614*^9}}],

Cell[BoxData["1.479193250926649`*^-10"], "Output",
 CellChangeTimes->{3.57929482631847*^9, 3.580481257901608*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"SxFTMThorne", "[", "f_", "]"}], ":=", 
   RowBox[{"8", "*", "Kb", "*", 
    RowBox[{"T", "/", 
     RowBox[{"(", 
      RowBox[{"2", "\[Pi]", "*", "f"}], ")"}]}], "*", "\[Phi]", "*", 
    "besselFactor"}]}]}]], "Input",
 CellChangeTimes->{{3.579280193449732*^9, 3.579280216563921*^9}, {
  3.579294843039756*^9, 3.579294921559508*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Sx", "[", "f_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"4", "*", "Kb", "*", 
      RowBox[{"T", "/", "f"}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Sigma]", "2"]}], ")"}], "*", "1.87322", "*", 
    RowBox[{"\[Phi]", "/", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Pi]", "3"], "*", "E0", "*", "r0"}], 
      ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.578869638278267*^9, 3.578869643992898*^9}, {
  3.578869757771438*^9, 3.578869847607762*^9}, {3.578870468437628*^9, 
  3.578870505001435*^9}, {3.578947473128277*^9, 3.578947505799336*^9}, {
  3.57894776600612*^9, 3.57894779261718*^9}, {3.579280185253544*^9, 
  3.579280190499686*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"Sx", "[", "f", "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"SxFTMThorne", "[", "f", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"f", ",", "0.1", ",", "5000"}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Frequency in Hz\>\"", ",", 
       "\"\<Noise Profile in \!\(\*FractionBox[\(m\), \
SqrtBox[\(Hz\)]]\)\>\""}], "}"}]}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Levin\>\"", ",", "\"\<Liu and Thorne\>\""}], "}"}]}], ",", 
    
    RowBox[{
    "PlotLabel", "\[Rule]", "\"\<Noise Profile at Variable Frequency\>\""}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{
  3.578869852111149*^9, {3.578869897921258*^9, 3.578869918377766*^9}, {
   3.578869962559959*^9, 3.578870113508309*^9}, {3.578870153669293*^9, 
   3.578870178794063*^9}, {3.578944238297137*^9, 3.578944242901539*^9}, {
   3.57894539778946*^9, 3.578945443453486*^9}, {3.578945519742703*^9, 
   3.578945522639557*^9}, {3.578947232747849*^9, 3.57894723989237*^9}, {
   3.580481715276542*^9, 3.58048182262795*^9}, {3.580482353372329*^9, 
   3.580482386779576*^9}, 3.580482458417792*^9, {3.580482611183838*^9, 
   3.580482625867164*^9}, {3.580482722215794*^9, 3.58048272811859*^9}, {
   3.580482765797702*^9, 3.580482780503679*^9}, {3.580482822367125*^9, 
   3.580482938472328*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {}, {
      Hue[0.67, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwVz3s0lHkYB/CZcYlqEKaS2emdXLoui1p0DvMr877vRNOgVnGiUIksM6lZ
2UQ3ihzlMqmRW7ocrUq3GaWZJ8mlzI6TlIS2Jcm0xqVNhPbdP57zPZ9/vuf7
cCPiA3cyaDSakLr/U+9nWVS1hwEG232zDGr50DjKev5+BwPq1lboPCmXyW2M
F4QxIM1hpq+YcpAOizvizwATXZNxF2VVhrP3xlUMYErXpd57zIdTTeu7P0/T
Ye4pQUL0Ez4sIdM5Hjl0WKokgrWNfAhfO1mkUtLA38LHQa7lw48GkfF7aqfU
QbuSYzd384HU9B5uD5hQO21zU9p84sN10dXszJEvavuASZ1snA+FkQyNpe+o
+kW/sdbDBIeEtA8vXUCvDrLLuvcXC4cHu8f29gX3q88Y/CKstMfhwoMMo8Vz
36l1nc7NK91wqPE7d+dp0Qv1vOA0US3CIe5cl2T7LYV6MolzZJ8IB86aVV2/
O6l5t3mu1StCcVA4zOKovNt4J6a2tBfH4HA8xN2H0L3jzQ9/dNn9AA4tGavv
Ot/v5yVGXTrQloaD8XqTHUrmEC/X6tm3s/k4bD7vMmJZOcprVhrsYpXjMF7o
UzzIHOO9oilfFFThYGWmZn9RTPDkg5UjCHA45GZXfchumueSspCl1+BQFfk1
x+YTDaXefd73qBOH5ADVs5aHDKTvLSgR6XCQnPuaKxAbIidFR1jPVxxKC6L4
QaQxWuIc1iyfQcD4sO8x++8z0Mi6UO8QFgHL47PqRddNUWdofEHrIgLOXzQc
tjgyC6XMe1wqcSHAxXWoIudnJvqckHODxSPAMNFCWGFujuykF2O7hQS8HmpI
NBdbILGkYU7EVgLqnj+yrBDMQdnmUQ900QQILV6WZLtZoqiNAuvziQQMJJVL
28ys0JzVlyQb0gjY91uZpum9FeqwYSke5hJQqL0/31RrjbYW118LKKP6N2Vd
u3qVhW42jJbrbhBwZ1WSa27eXKTKjxBWqAi46MOld4vnoQvGwom4ZgJSesb8
XwnmI7nYN3vwNfVvd3+erZsNCkw92ZrTT0D6jDwMmAvQG1c+2+sLAbczg0tu
TCxAnExkPduIhObSDaXCHluU0in6nG9Fwnjv1Ee/Gja61dLR7sAloe5og2P+
lR9QccyV2A5nEspFfte8j3JQ6BW9Yb4XCeLK6ZuykIVodZfv8Zl+JPzqtquN
vQhDLcoPd8qDSfjDcZmUk40hD3faR34UCX8OR7gancFQoX86HKY8VCMf1OVg
iB5jVqCivHIjM6pahqGmQjbpsZuEmpShzZuKMBTC8Ly0PJra237PM6MSQwc1
knDLPST8k+Ez9e8zDEFkz+u3cSRYBB2s7tRgyCE5poodT4Ir9+7+x1oMnZQN
nwimLFU4Dp5uxVBA03f3VsrTPaZvl7/B0N9ObFm9mAQzrxYIH8CQ4cSmwMq9
JPxkYpos+IShaKvOpQOUA1vXeDoPYkizIpK+OIEEWfTtqslhDOVvk9wsocyR
ycrOjmPI8UmWWd4+ElC4NuzQNwxldlv3tVCOWGFiu3MKQ/ox+UPmfhIu1x7I
daVzkWJZRWw65casWyIbAy5i8134dZQHtuhm0Yy4KDVUaUuXkjDb3r6xz5iL
eqW8US/KTvqtxzQmXCQ4Xf80ifJ/UQVPdg==
       "]]}, {
      Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwVz3s0lAkYBvAxTSINdnQbNH3TRVqVEOKUeWW+75t1iWSnVa3j1tqOXZcu
UpHSbQ87mySFIbdSikSIZN5uy6SJQ6QW1ZnURBmXFDbab/94z3N+/zzneYXB
kb472CwWy4u5/1Prwcu5Ec7GB3Infa5SjI0jc1p7Q9l4PCEjzI1xfhZf1zSA
jVTw+MP9jKX9RESiDxuVy2oS3zKuT7J22WzPRlX52q+KR2L8U+nZ82lKB581
Omp3PRajJX1SsDZVB/s+2bd3NosxaMPXnPpbLDT2ss0r7BDjymkhkeH3JhXz
Cn7TBPaKkVa9OdK5aUIxkLVozeIRMZZ6Xz6VPPxZ0SvrD8tlkSgPYat47iOK
s0s/u28wInH3iXcdNqhVzA2Ms+0zJ/H2r192vfXXKHxBrKyyIjH7dtL0ZXNf
K67xF0pcnEms88i4+SjnqaLz7N6mJprEiIzu6MDyasWdau5UvJREgat998FV
CtGeOKG9QyiJ1UsNBPUu7aIfnCV+V6JJPL7V0Y3qfy3qzC5b5HqYxJYk50rr
Wo3IqTBttEdGoq6nXugt7qBos0/tvjw5iVsybYZ5JSMi2ejwa8FVEsflbhcG
uF9E59YX+eTfItHEUGH+uXpCtN0qO8K9gcRDdotrDi2eEg3dNjw99pTEGyFj
qfwPLHAdvhvcpCYxflN9U8sdNlwX/mHuP0xidMbYGUkUB7QjyhcfvpGYdz5M
LKV1QRPuJbloSOH4kPuxJd9mQMUJz9oQcwqtImV/e5fqQ3ZmwOzu5RRmFnCG
jBMNAPzKFxxcS6GN7WBxqgMXKsuOWC2kKOTEGnsVGxmBujxV886PwueDDbFG
UcZgU1olCw+h8EHrXV6x5Dvw8ZQ6jkZR6GXckXvKjgeWKY4pBQkU9h0ojGk3
NIHWmLSPW2QU7tmXr1L2mkCWlGPXkEmhvLl2vn7zbFjQVbls2xWm30929fLl
ORDNUROjVRTetD9geyZtLiS0blJWPKSwwE2o0xM1DwLc1sXEtlGYoP7i80wy
H7aVOBmMvWL+7dGkmdnxweROrLdcS+HJGWkEck1BHml3npqksCLZP/f6hCm8
bLBOmTOLxsd5G/O81GYAfFHUBVMax99MvveoM4fd3Ed+1pY0PjjaYHG2aAEE
FqVr1A40Fnp7XHU5KgDBm57DOWIao0qmytK3LoQJvrPObF8af7f7pd18EQGn
RztWlwbSeM3i+xjBKQLGd2tDN0bQ+GQo2Hb6aQJ+lsWsS2Y8WJc10J9KwN1L
kyaNjNds5obVpBOQ9NzgvmskjXUJg1v8cggwE1kK7aOYvZ1VTkklBKyfGdRt
tovGj0luk6NNBBzJbf3x/V4ajaVxNV0qAnpr/FdaxNBoK6zce7+ZAPe2V5wQ
xjHVFgMpbQTwdLUVXYyn1Povrf4hoCDcgNeyj0bD9S0Y1EfAQwfxk6r9NK7W
04+XfCBguU/TxRHGvm2uTtYDBPy10zd+9QEa03dW3Pg6RIBUHriimLEgPT3/
3DgB73Tik7IP0ghBzQGH/iXAw4wT/IJx8Ao9sx2TBJStSXaaF0fjpXv7z9jq
CCE2LEOTwrhRVu7NnyaErsMEqhj3/dRvwJouBNfMonMz42mctWRJ41tdIVys
WBVJM16l3X5MpScEfVUldYzxf2bJUuk=
       "]]}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, 
    AxesLabel -> {
      FormBox["\"Frequency in Hz\"", TraditionalForm], 
      FormBox[
      "\"Noise Profile in \\!\\(\\*FractionBox[\\(m\\), SqrtBox[\\(Hz\\)]]\\)\
\"", TraditionalForm]}, 
    AxesOrigin -> {-2.3025850929940455`, -46.98059924962042}, 
    CoordinatesToolOptions :> {"DisplayFunction" -> ({
        Exp[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Exp[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}, FrameTicks -> {{{{-46.051701859880914`, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
            TemplateBox[{"10", 
              RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-45.35855467932097, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
            TemplateBox[{"10", 
              RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-44.44226394744681, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
            TemplateBox[{"10", 
              RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-43.74911676688687, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
            TemplateBox[{"10", 
              RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-43.055969586326924`, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
            TemplateBox[{"10", 
              RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-42.13967885445277, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
            TemplateBox[{"10", 
              RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-41.44653167389282, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
            TemplateBox[{"10", 
              RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-40.753384493332874`, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
            TemplateBox[{"10", 
              RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-39.837093761458725`, 
         FormBox[
          TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
            TemplateBox[{"10", 
              RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
             SuperscriptBox]}, "RowWithSeparators"], 
          TraditionalForm]}, {-44.95308957121281, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-44.66540749876102, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-44.25994239065286, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-44.1057917108256, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-43.97226031820108, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-43.85447728254469, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-42.65050447821876, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-42.36282240576698, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.95735729765881, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.803206617831556`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.66967522520703, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.55189218955065, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-40.34791938522471, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-40.060237312772934`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}}, {{-46.051701859880914`, 
         FormBox["\"\"", TraditionalForm]}, {-45.35855467932097, 
         FormBox["\"\"", TraditionalForm]}, {-44.44226394744681, 
         FormBox["\"\"", TraditionalForm]}, {-43.74911676688687, 
         FormBox["\"\"", TraditionalForm]}, {-43.055969586326924`, 
         FormBox["\"\"", TraditionalForm]}, {-42.13967885445277, 
         FormBox["\"\"", TraditionalForm]}, {-41.44653167389282, 
         FormBox["\"\"", TraditionalForm]}, {-40.753384493332874`, 
         FormBox["\"\"", TraditionalForm]}, {-39.837093761458725`, 
         FormBox["\"\"", TraditionalForm]}, {-44.95308957121281, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-44.66540749876102, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-44.25994239065286, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-44.1057917108256, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-43.97226031820108, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-43.85447728254469, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-42.65050447821876, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-42.36282240576698, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.95735729765881, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.803206617831556`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.66967522520703, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-41.55189218955065, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-40.34791938522471, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-40.060237312772934`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}}}, {{{-2.3025850929940455`, 
         FormBox["0.1`", TraditionalForm]}, {0., 
         FormBox["1", TraditionalForm]}, {2.302585092994046, 
         FormBox["10", TraditionalForm]}, {4.605170185988092, 
         FormBox["100", TraditionalForm]}, {6.907755278982137, 
         FormBox["1000", TraditionalForm]}, {9.210340371976184, 
         FormBox[
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox], TraditionalForm]}, {-1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-1.203972804325936, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.916290731874155, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.6931471805599453, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.5108256237659905, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.3566749439387323, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.2231435513142097, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.10536051565782628`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {0.6931471805599453, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.0986122886681098`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.3862943611198906`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.791759469228055, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.9459101490553132`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {2.0794415416798357`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {2.1972245773362196`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {2.995732273553991, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {3.4011973816621555`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {3.6888794541139363`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {3.912023005428146, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.0943445622221, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.248495242049359, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.382026634673881, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.499809670330265, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.298317366548036, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.703782474656201, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.991464547107982, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.214608098422191, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.396929655216146, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.551080335043404, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.684611727667927, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.802394763324311, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {7.600902459542082, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.006367567650246, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.294049640102028, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.517193191416238, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.699514748210191, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.85366542803745, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.987196820661973, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {9.104979856318357, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}}, {{-2.3025850929940455`, 
         FormBox["\"\"", TraditionalForm]}, {0., 
         FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
         FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
         FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
         FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
         FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-1.203972804325936, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.916290731874155, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.6931471805599453, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.5108256237659905, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.3566749439387323, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.2231435513142097, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-0.10536051565782628`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {0.6931471805599453, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.0986122886681098`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.3862943611198906`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.791759469228055, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {1.9459101490553132`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {2.0794415416798357`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {2.1972245773362196`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {2.995732273553991, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {3.4011973816621555`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {3.6888794541139363`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {3.912023005428146, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.0943445622221, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.248495242049359, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.382026634673881, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.499809670330265, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.298317366548036, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.703782474656201, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.991464547107982, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.214608098422191, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.396929655216146, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.551080335043404, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.684611727667927, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {6.802394763324311, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {7.600902459542082, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.006367567650246, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.294049640102028, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.517193191416238, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.699514748210191, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.85366542803745, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {8.987196820661973, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {9.104979856318357, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}}}}, GridLines -> {None, None}, Method -> {}, 
    PlotLabel -> 
    FormBox["\"Noise Profile at Variable Frequency\"", TraditionalForm], 
    PlotRange -> NCache[{{-2.3025850929940455`, 
        Log[
        5000]}, {-46.98059924962042, -41.51573339587778}}, \
{{-2.3025850929940455`, 
      8.517193191416238}, {-46.98059924962042, -41.51573339587778}}], 
    PlotRangeClipping -> True, PlotRangePadding -> {
      Scaled[0.02], 
      Scaled[0.02]}, Ticks -> {{{-2.3025850929940455`, 
        FormBox["0.1`", TraditionalForm]}, {0., 
        FormBox["1", TraditionalForm]}, {2.302585092994046, 
        FormBox["10", TraditionalForm]}, {4.605170185988092, 
        FormBox["100", TraditionalForm]}, {6.907755278982137, 
        FormBox["1000", TraditionalForm]}, {9.210340371976184, 
        FormBox[
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox], TraditionalForm]}, {-1.6094379124341003`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-1.203972804325936, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-0.916290731874155, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-0.6931471805599453, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-0.5108256237659905, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-0.3566749439387323, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-0.2231435513142097, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-0.10536051565782628`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {0.6931471805599453, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {1.0986122886681098`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {1.3862943611198906`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {1.6094379124341003`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {1.791759469228055, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {1.9459101490553132`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {2.0794415416798357`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {2.1972245773362196`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {2.995732273553991, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {3.4011973816621555`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {3.6888794541139363`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {3.912023005428146, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.0943445622221, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.248495242049359, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.382026634673881, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.499809670330265, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {5.298317366548036, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {5.703782474656201, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {5.991464547107982, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {6.214608098422191, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {6.396929655216146, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {6.551080335043404, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {6.684611727667927, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {6.802394763324311, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {7.600902459542082, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {8.006367567650246, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {8.294049640102028, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {8.517193191416238, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {8.699514748210191, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {8.85366542803745, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {8.987196820661973, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {9.104979856318357, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}}, {{-46.051701859880914`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
           TemplateBox[{"10", 
             RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-45.35855467932097, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
           TemplateBox[{"10", 
             RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-44.44226394744681, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
           TemplateBox[{"10", 
             RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-43.74911676688687, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
           TemplateBox[{"10", 
             RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-43.055969586326924`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
           TemplateBox[{"10", 
             RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-42.13967885445277, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
           TemplateBox[{"10", 
             RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-41.44653167389282, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
           TemplateBox[{"10", 
             RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-40.753384493332874`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
           TemplateBox[{"10", 
             RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-39.837093761458725`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
           TemplateBox[{"10", 
             RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], 
         TraditionalForm]}, {-44.95308957121281, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-44.66540749876102, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-44.25994239065286, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-44.1057917108256, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-43.97226031820108, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-43.85447728254469, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-42.65050447821876, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-42.36282240576698, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-41.95735729765881, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-41.803206617831556`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-41.66967522520703, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-41.55189218955065, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-40.34791938522471, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-40.060237312772934`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}}}],
   TemplateBox[{"\"Levin\"", "\"Liu and Thorne\""}, "LineLegend", 
    DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.24720000000000017`, 0.24, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.24720000000000017`, 0.24, 0.6]], {}}}, 
                 AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.6, 0.24, 0.4428931686004542]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.6, 0.24, 0.4428931686004542]], {}}}, 
                 AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
              GridBoxAlignment -> {
               "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {
               "Columns" -> {{False}}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], 
             "Grid"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Times"}, 
      Background -> Automatic, StripOnInput -> False]& ), Editable -> True, 
    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             RowBox[{"Directive", "[", 
               RowBox[{"RGBColor", "[", 
                 RowBox[{"0.24720000000000017`", ",", "0.24`", ",", "0.6`"}], 
                 "]"}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{"RGBColor", "[", 
                 RowBox[{"0.6`", ",", "0.24`", ",", "0.4428931686004542`"}], 
                 "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
           RowBox[{#, ",", #2}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.578946925099925*^9, 3.578947242100499*^9, 3.578947294562767*^9, 
   3.578947388880497*^9, 3.57894750892964*^9, 3.57894755297052*^9, 
   3.578947583675746*^9, 3.578947679298605*^9, 3.578947797607691*^9, 
   3.578947920761089*^9, 3.578948007191551*^9, 3.580481264534515*^9, {
   3.580481800164961*^9, 3.580481837349371*^9}, 3.580482388464565*^9, {
   3.580482894293814*^9, 3.580482908273928*^9}, 3.58048293942755*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"Sx", "[", "f", "]"}], "]"}], "-", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"SxFTMThorne", "[", "f", "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"f", ",", "0.1", ",", "5000"}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Frequency in Hz\>\"", ",", 
       "\"\<Difference in Noise Profile in \!\(\*FractionBox[\(m\), \
SqrtBox[\(Hz\)]]\)\>\""}], "}"}]}], ",", 
    RowBox[{
    "PlotLabel", "\[Rule]", 
     "\"\<Difference in Levin and Liu/Thorne's Noise Profiles\>\""}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "21"}]]}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.580481838516228*^9, 3.580481943258672*^9}, {
  3.580482039598533*^9, 3.580482125807773*^9}, {3.580482171130516*^9, 
  3.580482215916292*^9}, {3.580482263680778*^9, 3.580482310292386*^9}, {
  3.580482971297946*^9, 3.580482977348166*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkHtUkwUUwCfJQ+VZzpk8dKFbCimShnBDbyjHUbmYaKAF7sB4hIDft4Ei
j9hgoLwhCGjiANGQINj28RAQmxJpnlF01MApL/EgD5camKDY+vrjnnt+5/zO
Pb9z2aHH9oebMBgMHj3/7yEvdsn74d74YpJpU3CwEYyaBx/qv+Vh0af77vT4
XIBCo3STuDAIGdtbrLhMJXD/Sfk3svQrFFa7DRkGSmHK6ua1LqMYtfV23aZr
iqHwYv8R5qqTiM/czxp78iGkIXYmQ5WGwoiAut7kHJg2WQy1M6Sj0NRdcQRO
g6cob+/M7iwkblXN8QOzgPDTr96cm43Vfh0u6ntySNIr7ZYp8lA45tfl0pYB
FVVNsr+mC5EoZMzoL6bDntMKyzZZMfr3VeTq+mWgSr/M32hWgkI5e4jNkgGH
JdfVNJSiqkPxZG+4FLKWmIdMbCtDaUisN6M2DZ5mbnFxGylHKb+97WjG18DX
tcU1yb7DdQGzijl5KpRFLfTOm5/BdeTR9VcbU2BSORbEa65ELVNpa/FnMji7
ZBrDvJQo9XvJ7nRMhijBb2PyiSpkrN8RLwhPgj8cwDG2txq1HySM6btPwnhX
zK3U7BqUWvZ7HnY9CS+5JNcu5Bz2mxsdjBWJYLYrIDNnfS2O9k11bVydCJbt
IienR7Vom/27h3fNCWAt8g5u6zyPRabLGRouzY+Xl7mlXUBGeWl07eXj4FBf
Fd984Ht0mxfxp/nHwf56WAGPU4dF+TyTpVMJYF1kqrk+VYe2GkNEZ0ECmHGS
JL92X0Q0V4SUbk2A2QjdTnVGPT61eXRcOxwPegu+L+X7A2opwz52cTz8cuLc
lMfqBvTPbw86i/FQV3y7/Nz9BtTe+3i0c14C+Yl3xwvVjbguZiaA2SSBqOWX
PcMSf0Sp90APHpWA9+u+m/7QhCpJXdcuVwmwujULWutmlHY3ns+dFsMEN8Gd
dbsZq/fHdeQ2i+H+lsyl8wdUyLBVlr8ixeCTEpn/rFuFtq/bLHQeYnBW7rAf
XqtG/7TdK6PfEEMWZ/bFihw1qlIW9xTpSBDJK++6GtQojJv0YJ4h4advhgYP
8zUoLXMQ2ceQUGluwb3ZrkHCeavZz14kzAnYSa5rKFSNCC65WJMwb+l0Y9ye
QinHUBdpRcKr62tWnXGkkOh5oq61JMFk50rNMjaFjM/eYjqsIMFmk/n0BJdC
7UebWdYWJGwyMRyq2U5h0ScFpi+WkCDUXPJcJaDQX+Uaev85AaLY1lN9+yl8
uvBFiT3Nke9q7sgPUIglO4YPzxEQp2wgZwMpHH38QHv3bwKSc5T1/SEUCjcE
dww+IaAsVP52bgx978oceW+KAIWjLNInjsJqdwE40Hx2MLV14RjNNQyn4EkC
zvNPCKIkdD/LZ8vIBAFqr+hs3yS6L4iSPhwnoOV5xMBiMt2ft2Ilh+ZLqrAN
Lan0PzxytJEPCLjCCb76joz2+x+KZkYJuDZ2yEafTqGbpvXL92jurfw8uFhO
+8/KYo+NEHAjMKCBl0WhrVVGuXqYAN2b/gvGU7Qvj9fPDhHwHxAjHsQ=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Frequency in Hz\"", TraditionalForm], 
    FormBox[
    "\"Difference in Noise Profile in \\!\\(\\*FractionBox[\\(m\\), \
SqrtBox[\\(Hz\\)]]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Method->{},
  PlotLabel->FormBox[
   "\"Difference in Levin and Liu/Thorne's Noise Profiles\"", TraditionalForm],
  PlotRange->NCache[{{0.1, 5000}, {0, 
      Rational[3, 1000000000000000000000]}}, {{0.1, 5000}, {0, 3.*^-21}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.580482293918436*^9, 3.580482311229727*^9}, 
   3.580482978240261*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"Sx", "[", "100", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.578869935701346*^9, 3.57886994073881*^9}, {
  3.578946981647156*^9, 3.578947014516535*^9}, {3.578947155493371*^9, 
  3.578947155820194*^9}, {3.578947249668171*^9, 3.578947250681666*^9}, {
  3.578947693570733*^9, 3.578947700832964*^9}, {3.579294930654246*^9, 
  3.579294971433061*^9}, {3.580482238318178*^9, 3.580482242521013*^9}}],

Cell[BoxData["2.950843125932415`*^-20"], "Output",
 CellChangeTimes->{
  3.578869941378044*^9, 3.578871007125359*^9, 3.578937371825488*^9, {
   3.578946982599546*^9, 3.578947015319312*^9}, 3.578947156504872*^9, 
   3.578947253417655*^9, 3.578947300688829*^9, {3.578947392880404*^9, 
   3.578947401721094*^9}, 3.578947511659824*^9, {3.578947556035563*^9, 
   3.578947585823921*^9}, {3.578947681571086*^9, 3.578947701585542*^9}, 
   3.578947799768595*^9, 3.578947911904042*^9, {3.578948009205961*^9, 
   3.578948032515175*^9}, {3.579294933103269*^9, 3.579294972145548*^9}, 
   3.580481266186368*^9, 3.580482243555132*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"SxFTMThorne", "[", "100", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.579294973779629*^9, 3.579294980308333*^9}, {
  3.580482246048383*^9, 3.580482249630308*^9}}],

Cell[BoxData["2.7929936196938065`*^-20"], "Output",
 CellChangeTimes->{3.579294980863204*^9, 3.580481268144836*^9, 
  3.580482250305243*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"SxFTMThorne", "[", "f", "]"}], "]"}], ",", ",", 
    RowBox[{"{", 
     RowBox[{"f", ",", "0.1", ",", "5000"}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Frequency\>\"", ",", "\"\<Noise Profile\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.579294982197472*^9, 3.57929499809948*^9}, {
  3.580481696338418*^9, 3.580481708199177*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVz3s0lAkYBvAxTSINdnQbNH3TRVqVEOKUeWW+75t1iWSnVa3j1tqOXZcu
UpHSbQ87mySFIbdSikSIZN5uy6SJQ6QW1ZnURBmXFDbab/94z3N+/zzneYXB
kb472CwWy4u5/1Prwcu5Ec7GB3Infa5SjI0jc1p7Q9l4PCEjzI1xfhZf1zSA
jVTw+MP9jKX9RESiDxuVy2oS3zKuT7J22WzPRlX52q+KR2L8U+nZ82lKB581
Omp3PRajJX1SsDZVB/s+2bd3NosxaMPXnPpbLDT2ss0r7BDjymkhkeH3JhXz
Cn7TBPaKkVa9OdK5aUIxkLVozeIRMZZ6Xz6VPPxZ0SvrD8tlkSgPYat47iOK
s0s/u28wInH3iXcdNqhVzA2Ms+0zJ/H2r192vfXXKHxBrKyyIjH7dtL0ZXNf
K67xF0pcnEms88i4+SjnqaLz7N6mJprEiIzu6MDyasWdau5UvJREgat998FV
CtGeOKG9QyiJ1UsNBPUu7aIfnCV+V6JJPL7V0Y3qfy3qzC5b5HqYxJYk50rr
Wo3IqTBttEdGoq6nXugt7qBos0/tvjw5iVsybYZ5JSMi2ejwa8FVEsflbhcG
uF9E59YX+eTfItHEUGH+uXpCtN0qO8K9gcRDdotrDi2eEg3dNjw99pTEGyFj
qfwPLHAdvhvcpCYxflN9U8sdNlwX/mHuP0xidMbYGUkUB7QjyhcfvpGYdz5M
LKV1QRPuJbloSOH4kPuxJd9mQMUJz9oQcwqtImV/e5fqQ3ZmwOzu5RRmFnCG
jBMNAPzKFxxcS6GN7WBxqgMXKsuOWC2kKOTEGnsVGxmBujxV886PwueDDbFG
UcZgU1olCw+h8EHrXV6x5Dvw8ZQ6jkZR6GXckXvKjgeWKY4pBQkU9h0ojGk3
NIHWmLSPW2QU7tmXr1L2mkCWlGPXkEmhvLl2vn7zbFjQVbls2xWm30929fLl
ORDNUROjVRTetD9geyZtLiS0blJWPKSwwE2o0xM1DwLc1sXEtlGYoP7i80wy
H7aVOBmMvWL+7dGkmdnxweROrLdcS+HJGWkEck1BHml3npqksCLZP/f6hCm8
bLBOmTOLxsd5G/O81GYAfFHUBVMax99MvveoM4fd3Ed+1pY0PjjaYHG2aAEE
FqVr1A40Fnp7XHU5KgDBm57DOWIao0qmytK3LoQJvrPObF8af7f7pd18EQGn
RztWlwbSeM3i+xjBKQLGd2tDN0bQ+GQo2Hb6aQJ+lsWsS2Y8WJc10J9KwN1L
kyaNjNds5obVpBOQ9NzgvmskjXUJg1v8cggwE1kK7aOYvZ1VTkklBKyfGdRt
tovGj0luk6NNBBzJbf3x/V4ajaVxNV0qAnpr/FdaxNBoK6zce7+ZAPe2V5wQ
xjHVFgMpbQTwdLUVXYyn1Povrf4hoCDcgNeyj0bD9S0Y1EfAQwfxk6r9NK7W
04+XfCBguU/TxRHGvm2uTtYDBPy10zd+9QEa03dW3Pg6RIBUHriimLEgPT3/
3DgB73Tik7IP0ghBzQGH/iXAw4wT/IJx8Ao9sx2TBJStSXaaF0fjpXv7z9jq
CCE2LEOTwrhRVu7NnyaErsMEqhj3/dRvwJouBNfMonMz42mctWRJ41tdIVys
WBVJM16l3X5MpScEfVUldYzxf2bJUuk=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Frequency\"", TraditionalForm], 
    FormBox["\"Noise Profile\"", TraditionalForm]},
  AxesOrigin->{-2.3025850929940455`, -46.98059924962042},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-46.051701859880914`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
          TemplateBox[{"10", 
            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-45.35855467932097, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
          TemplateBox[{"10", 
            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-44.44226394744681, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
          TemplateBox[{"10", 
            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-43.74911676688687, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
          TemplateBox[{"10", 
            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-43.055969586326924`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
          TemplateBox[{"10", 
            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-42.13967885445277, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
          TemplateBox[{"10", 
            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-41.44653167389282, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
          TemplateBox[{"10", 
            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-40.753384493332874`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
          TemplateBox[{"10", 
            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-39.837093761458725`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
          TemplateBox[{"10", 
            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], 
        TraditionalForm]}, {-44.95308957121281, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-44.66540749876102, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-44.25994239065286, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-44.1057917108256, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-43.97226031820108, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-43.85447728254469, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-42.65050447821876, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-42.36282240576698, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.95735729765881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.803206617831556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.66967522520703, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.55189218955065, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-40.34791938522471, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-40.060237312772934`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-46.051701859880914`, 
       FormBox["\"\"", TraditionalForm]}, {-45.35855467932097, 
       FormBox["\"\"", TraditionalForm]}, {-44.44226394744681, 
       FormBox["\"\"", TraditionalForm]}, {-43.74911676688687, 
       FormBox["\"\"", TraditionalForm]}, {-43.055969586326924`, 
       FormBox["\"\"", TraditionalForm]}, {-42.13967885445277, 
       FormBox["\"\"", TraditionalForm]}, {-41.44653167389282, 
       FormBox["\"\"", TraditionalForm]}, {-40.753384493332874`, 
       FormBox["\"\"", TraditionalForm]}, {-39.837093761458725`, 
       FormBox["\"\"", TraditionalForm]}, {-44.95308957121281, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-44.66540749876102, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-44.25994239065286, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-44.1057917108256, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-43.97226031820108, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-43.85447728254469, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-42.65050447821876, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-42.36282240576698, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.95735729765881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.803206617831556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.66967522520703, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-41.55189218955065, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-40.34791938522471, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-40.060237312772934`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0., 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->NCache[{{-2.3025850929940455`, 
      Log[
      5000]}, {-46.98059924962042, -41.57071032822708}}, \
{{-2.3025850929940455`, 
    8.517193191416238}, {-46.98059924962042, -41.57071032822708}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0., 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.3566749439387323, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.699514748210191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.85366542803745, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.987196820661973, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.104979856318357, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-46.051701859880914`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
         TemplateBox[{"10", 
           RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-45.35855467932097, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
         TemplateBox[{"10", 
           RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-44.44226394744681, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
         TemplateBox[{"10", 
           RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-43.74911676688687, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
         TemplateBox[{"10", 
           RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-43.055969586326924`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
         TemplateBox[{"10", 
           RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-42.13967885445277, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
         TemplateBox[{"10", 
           RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-41.44653167389282, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
         TemplateBox[{"10", 
           RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-40.753384493332874`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "2", 
         TemplateBox[{"10", 
           RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-39.837093761458725`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
         TemplateBox[{"10", 
           RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], 
       TraditionalForm]}, {-44.95308957121281, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-44.66540749876102, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-44.25994239065286, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-44.1057917108256, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-43.97226031820108, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-43.85447728254469, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-42.65050447821876, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-42.36282240576698, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-41.95735729765881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-41.803206617831556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-41.66967522520703, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-41.55189218955065, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-40.34791938522471, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-40.060237312772934`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.579295002397869*^9, 3.580481270484907*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.579305529856406*^9, 3.579305531052105*^9}}]
},
WindowSize->{683, 716},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"9.0 for Linux x86 (32-bit) (February 7, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 191, 5, 32, "Input"],
Cell[773, 29, 197, 3, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1007, 37, 250, 5, 55, "Input"],
Cell[1260, 44, 210, 3, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1507, 52, 233, 4, 55, "Input"],
Cell[1743, 58, 261, 4, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2041, 67, 254, 6, 55, "Input"],
Cell[2298, 75, 214, 3, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2549, 83, 361, 6, 32, "Input"],
Cell[2913, 91, 290, 5, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3240, 101, 565, 10, 55, "Input"],
Cell[3808, 113, 118, 2, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3963, 120, 219, 4, 55, "Input"],
Cell[4185, 126, 143, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4365, 133, 163, 3, 55, "Input"],
Cell[4531, 138, 95, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4663, 144, 345, 8, 58, "Input"],
Cell[5011, 154, 111, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5159, 160, 548, 12, 55, "Input"],
Cell[5710, 174, 14754, 228, 1661, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20501, 407, 191, 4, 55, "Input"],
Cell[20695, 413, 109, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20841, 419, 386, 10, 55, "Input"],
Cell[21230, 431, 33141, 503, 5766, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54408, 939, 918, 24, 83, "Input"],
Cell[55329, 965, 6291, 150, 228, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61657, 1120, 2062, 49, 156, "Input"],
Cell[63722, 1171, 330, 5, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64089, 1181, 1064, 30, 107, "Input"],
Cell[65156, 1213, 127, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65320, 1220, 731, 21, 62, "Input"],
Cell[66054, 1243, 114, 1, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66205, 1249, 296, 6, 55, "Input"],
Cell[66504, 1257, 113, 1, 34, "Output"]
}, Open  ]],
Cell[66632, 1261, 404, 10, 55, "Input"],
Cell[67039, 1273, 783, 20, 58, "Input"],
Cell[CellGroupData[{
Cell[67847, 1297, 1539, 35, 194, "Input"],
Cell[69389, 1334, 33882, 647, 214, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103308, 1986, 1137, 29, 226, "Input"],
Cell[104448, 2017, 2389, 47, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106874, 2069, 478, 8, 55, "Input"],
Cell[107355, 2079, 619, 9, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108011, 2093, 249, 5, 55, "Input"],
Cell[108263, 2100, 140, 2, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108440, 2107, 524, 13, 77, "Input"],
Cell[108967, 2122, 26641, 523, 203, "Output"]
}, Open  ]],
Cell[135623, 2648, 92, 1, 32, "Input"]
}
]
*)

(* End of internal cache information *)