SurfaceTension_Step1_Quantification.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     50983,        963]
NotebookOptionsPosition[     50253,        944]
NotebookOutlinePosition[     50740,        962]
CellTagsIndexPosition[     50697,        959]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
   "rndm", "=", 
    "\"\</file/path/to/random/image/file/in/folder/to/be/analyzed\>\""}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"DirectoryName", "[", "rndm", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"files", "=", 
   RowBox[{"FileNames", "[", "\"\<*.tif\>\"", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
   RowBox[{"Length", "[", "files", "]"}], ",", "\"\< files found!\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.829998942629668*^9, 3.829998994422895*^9}, {
  3.82999906173039*^9, 3.829999078195817*^9}, {3.8635307505507402`*^9, 
  3.8635307609703197`*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"4455a0e0-eb1c-498c-94e5-518d8af2665b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Load", " ", "specified", " ", "file"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"sele", "=", "18"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Specify", " ", "which", " ", "file", " ", "to", " ", "analyze"}], 
     "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"rein", "=", 
     RowBox[{"Import", "[", 
      RowBox[{"files", "[", 
       RowBox[{"[", "sele", "]"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"First", "[", 
      RowBox[{"StringSplit", "[", 
       RowBox[{
        RowBox[{"files", "[", 
         RowBox[{"[", "sele", "]"}], "]"}], ",", "\"\<_2\>\""}], "]"}], "]"}],
      ",", "\"\< imported!\>\""}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Image", " ", "segmentation"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BinImg", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Monitor", "[", 
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"i0", "=", 
           RowBox[{"ImageAdjust", "[", 
            RowBox[{"rein", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"i1", "=", 
           RowBox[{"GaussianFilter", "[", 
            RowBox[{
             RowBox[{"ImageDeconvolve", "[", 
              RowBox[{"i0", ",", 
               RowBox[{"GaussianMatrix", "[", "3", "]"}]}], "]"}], ",", "1"}],
             "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"i2", "=", 
           RowBox[{"Binarize", "[", 
            RowBox[{"i1", ",", "0.3"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"i3", "=", 
           RowBox[{"FillingTransform", "[", "i2", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"i4", "=", 
           RowBox[{"DeleteBorderComponents", "[", "i3", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"i5", "=", 
           RowBox[{"SelectComponents", "[", 
            RowBox[{"i4", ",", 
             RowBox[{
              RowBox[{"#Area", ">", "50"}], "&"}]}], "]"}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"BinImg", "=", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"BinImg", ",", "i5"}], "]"}]}]}], "\[IndentingNewLine]", 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "rein", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"ProgressIndicator", "[", 
      RowBox[{"i", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"Length", "[", "rein", "]"}]}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"Length", "[", "BinImg", "]"}], ",", "\"\< images for \>\"", ",", 
     RowBox[{"First", "[", 
      RowBox[{"StringSplit", "[", 
       RowBox[{
        RowBox[{"files", "[", 
         RowBox[{"[", "sele", "]"}], "]"}], ",", "\"\<_2\>\""}], "]"}], "]"}],
      ",", "\"\< segmented!\>\""}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aveImg", "=", 
     RowBox[{"ImageAdd", "[", "BinImg", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"meas1", "=", 
     RowBox[{
      RowBox[{"ComponentMeasurements", "[", 
       RowBox[{"aveImg", ",", "\"\<BoundingBox\>\""}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], " ", "]"}]}], 
    RowBox[{"(*", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["x", "TI"], 
          StyleBox["min", "TI"]], ",", 
         SubscriptBox[
          StyleBox["y", "TI"], 
          StyleBox["min", "TI"]]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["x", "TI"], 
          StyleBox["max", "TI"]], ",", 
         SubscriptBox[
          StyleBox["y", "TI"], 
          StyleBox["max", "TI"]]}], "}"}]}], "}"}], " ", "*)"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numbers", "=", 
     RowBox[{
      RowBox[{"ComponentMeasurements", "[", 
       RowBox[{"aveImg", ",", "\"\<Centroid\>\""}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Number of detected nucleoli: \>\"", ",", 
     RowBox[{"Length", "[", "meas1", "]"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"TableForm", "[", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"ImageAdjust", "[", 
           RowBox[{"First", "[", "rein", "]"}], "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], ",", 
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"HighlightImage", "[", 
           RowBox[{
            RowBox[{"ImageAdjust", "[", 
             RowBox[{"First", "[", "rein", "]"}], "]"}], ",", "aveImg"}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"White", ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"ToString", "[", "i", "]"}], ",", 
                 RowBox[{"numbers", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{"Length", "[", "numbers", "]"}]}], "}"}]}], "]"}]}], 
            "}"}], "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "}"}], "}"}], 
     "]"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SurfTen", "=", 
     RowBox[{"{", "}"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.829999182244616*^9, 3.829999290543604*^9}, {
   3.829999471641081*^9, 3.8299994925745363`*^9}, {3.829999528845447*^9, 
   3.829999549410926*^9}, {3.829999605319069*^9, 3.829999612537158*^9}, {
   3.8299996643920307`*^9, 3.829999683634605*^9}, {3.829999725202601*^9, 
   3.829999824163376*^9}, {3.830000325928516*^9, 3.830000371664447*^9}, {
   3.830000574668208*^9, 3.8300006009664707`*^9}, {3.830000673619215*^9, 
   3.83000070660113*^9}, {3.830002788129393*^9, 3.830002789010055*^9}, {
   3.830003399298265*^9, 3.830003399432879*^9}, 3.830024205524756*^9, {
   3.830024616708763*^9, 3.830024641031281*^9}, {3.830024707834888*^9, 
   3.830024708193008*^9}, {3.830024838086896*^9, 3.830024900818304*^9}, {
   3.8300278379813766`*^9, 3.830027839036901*^9}, {3.830028874198238*^9, 
   3.8300288748936453`*^9}, {3.8300290396576233`*^9, 3.830029040005982*^9}, {
   3.8300297881560793`*^9, 3.830029816809737*^9}, 3.830037199837641*^9, 
   3.830037302815823*^9, {3.8300374099896727`*^9, 3.83003741019939*^9}, 
   3.830037582825961*^9, {3.830038277985873*^9, 3.830038278511746*^9}, 
   3.830052264171113*^9, 3.830103928815772*^9, {3.830105657517421*^9, 
   3.8301056605013*^9}, {3.830108363497465*^9, 3.8301083929488487`*^9}, {
   3.830175395212324*^9, 3.830175415854946*^9}, {3.830175729766316*^9, 
   3.830175730160721*^9}, {3.8301757991277103`*^9, 3.8301758004158154`*^9}, {
   3.830175979756674*^9, 3.83017598337998*^9}, {3.830176127870783*^9, 
   3.830176128033779*^9}, {3.83017628448904*^9, 3.830176326964652*^9}, {
   3.8301769334928827`*^9, 3.83017694777596*^9}, {3.830214314168963*^9, 
   3.8302143310707808`*^9}, {3.8302157058316603`*^9, 
   3.8302157125424747`*^9}, {3.830220630359725*^9, 3.830220639782652*^9}, {
   3.830221112334908*^9, 3.830221112963854*^9}, {3.830223224095421*^9, 
   3.8302232244631977`*^9}, {3.8302998446202507`*^9, 3.830299845000289*^9}, 
   3.8303014758072577`*^9, {3.830303561435575*^9, 3.83030356168708*^9}, {
   3.8303052847437887`*^9, 3.8303052851435947`*^9}, {3.830307760387331*^9, 
   3.8303077613904343`*^9}, {3.830308170337031*^9, 3.8303081717468653`*^9}, {
   3.830308303900573*^9, 3.830308304095056*^9}, {3.830310084411935*^9, 
   3.83031008490241*^9}, {3.830311857324963*^9, 3.830311857534869*^9}, 
   3.830313523419442*^9, {3.8303136535270452`*^9, 3.830313654799943*^9}, 
   3.830313783428556*^9, {3.830314891305378*^9, 3.830314892256765*^9}, {
   3.8303433664858913`*^9, 3.830343366708065*^9}, 3.83034411051644*^9, {
   3.830352787512376*^9, 3.8303527899449883`*^9}, {3.830358077524926*^9, 
   3.83035807809485*^9}, {3.8303598374784107`*^9, 3.830359837608477*^9}, 
   3.830378202728118*^9, {3.830378651821303*^9, 3.830378651991496*^9}, {
   3.830379083972353*^9, 3.8303790844531918`*^9}, {3.830380292254242*^9, 
   3.830380292864582*^9}, {3.830381325552417*^9, 3.8303813256753798`*^9}, {
   3.830382491040715*^9, 3.830382491327722*^9}, {3.830384073984868*^9, 
   3.830384080366832*^9}, {3.830385527858*^9, 3.830385528188795*^9}, {
   3.8303873019168367`*^9, 3.8303873024202757`*^9}, {3.830389263995097*^9, 
   3.830389264346551*^9}, {3.830391445893681*^9, 3.8303914462052097`*^9}, {
   3.8303935828732157`*^9, 3.830393583589932*^9}, {3.830432071454885*^9, 
   3.830432071793745*^9}, {3.830434781525771*^9, 3.8304347816527348`*^9}, {
   3.8304432113607264`*^9, 3.830443212071869*^9}, {3.863530768487709*^9, 
   3.863530780008995*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"0a5ef19f-2267-478e-8ded-bc5436ac4957"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pixel", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"6.5", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "6"}]}], "*", "1"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"100", "*", "1", "*", "1"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Addition", " ", "=", "10"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kB", "=", 
   RowBox[{"1.380649", "\[Times]", 
    RowBox[{"10", "^", 
     RowBox[{"\[Minus]", "23"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "=", "310.15"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"POI", "=", "p"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"cutSeries", "=", 
          RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"FitSummaries", "=", 
          RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"FourierDist", "=", 
          RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"Monitor", "[", 
          RowBox[{
           RowBox[{"Do", "[", 
            RowBox[{
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"img", "=", 
                RowBox[{"BinImg", "[", 
                 RowBox[{"[", "c", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"xMin", "=", 
                 RowBox[{
                  RowBox[{"meas1", "[", 
                   RowBox[{"[", 
                    RowBox[{"POI", ",", "1", ",", "1"}], "]"}], "]"}], "-", 
                  "Addition"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"xMax", "=", 
                 RowBox[{
                  RowBox[{"meas1", "[", 
                   RowBox[{"[", 
                    RowBox[{"POI", ",", "2", ",", "1"}], "]"}], "]"}], "+", 
                  "Addition"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"yMin", "=", 
                 RowBox[{
                  RowBox[{"Last", "[", 
                   RowBox[{"ImageDimensions", "[", "img", "]"}], "]"}], "-", 
                  RowBox[{"meas1", "[", 
                   RowBox[{"[", 
                    RowBox[{"POI", ",", "1", ",", "2"}], "]"}], "]"}], "+", 
                  "Addition"}]}], " ", ";", "\[IndentingNewLine]", 
                RowBox[{"yMax", "=", 
                 RowBox[{
                  RowBox[{"Last", "[", 
                   RowBox[{"ImageDimensions", "[", "img", "]"}], "]"}], "-", 
                  RowBox[{"meas1", "[", 
                   RowBox[{"[", 
                    RowBox[{"POI", ",", "2", ",", "2"}], "]"}], "]"}], "-", 
                  "Addition"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"cut", "=", 
                 RowBox[{"DeleteBorderComponents", "[", 
                  RowBox[{"ImageTake", "[", 
                   RowBox[{"img", ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"yMax", ",", "yMin"}], "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"xMin", ",", "xMax"}], "}"}]}], "]"}], "]"}]}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"cutSeries", "=", 
                RowBox[{"AppendTo", "[", 
                 RowBox[{"cutSeries", ",", "cut"}], "]"}]}], ",", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"(*", " ", 
                RowBox[{"Get", " ", "nucleolar", " ", "outline"}], " ", 
                "*)"}], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"nucleolus", "=", 
                 RowBox[{"MorphologicalTransform", "[", 
                  RowBox[{"cut", ",", "\"\<Remove\>\""}], "]"}]}], ";", 
                "\[IndentingNewLine]", "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{
                  "Identify", " ", "center", " ", "of", " ", "mass", " ", 
                   "and", " ", "xy"}], "-", 
                  RowBox[{"positions", " ", "of", " ", "outline"}]}], " ", 
                 "*)"}], "\[IndentingNewLine]", 
                RowBox[{"TempCoM", "=", 
                 RowBox[{
                  RowBox[{"ComponentMeasurements", "[", 
                   RowBox[{"nucleolus", ",", "\"\<Centroid\>\""}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"com", "=", 
                 RowBox[{"First", "[", "TempCoM", "]"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"xy", "=", 
                 RowBox[{"Position", "[", 
                  RowBox[{
                   RowBox[{"ImageData", "[", "nucleolus", "]"}], ",", "1"}], 
                  "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{
                 "Center", " ", "around", " ", "center", " ", "of", " ", 
                  "mass"}], " ", "*)"}], "\[IndentingNewLine]", 
                RowBox[{"dc", "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "-", "com"}], "&"}], "/@", "xy"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{
                 "Convert", " ", "to", " ", "polar", " ", "coordinates"}], 
                 " ", "*)"}], "\[IndentingNewLine]", 
                RowBox[{"polar", "=", 
                 RowBox[{"Check", "[", 
                  RowBox[{
                   RowBox[{"Union", "@", 
                    RowBox[{"Transpose", "@", 
                    RowBox[{"Reverse", "@", 
                    RowBox[{"Transpose", "@", 
                    RowBox[{"(", 
                    RowBox[{"ToPolarCoordinates", "/@", "dc"}], ")"}]}]}]}]}],
                    ",", 
                   RowBox[{"Continue", "[", "]"}]}], "]"}]}], ";", 
                "\[IndentingNewLine]", "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{
                 "Fit", " ", "interpolation", " ", "function", " ", "to", " ",
                   "data"}], " ", "*)"}], "\[IndentingNewLine]", 
                RowBox[{"polpolpol", "=", 
                 RowBox[{"Join", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"#", "-", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"2", "\[Pi]"}], ",", "0"}], "}"}]}], "&"}], "/@", 
                    "polar"}], ",", "polar", ",", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"#", "+", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"2", "\[Pi]"}], ",", "0"}], "}"}]}], "&"}], "/@", 
                    "polar"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"if", "=", 
                 RowBox[{"Check", "[", 
                  RowBox[{
                   RowBox[{"Interpolation", "[", 
                    RowBox[{"DeleteDuplicatesBy", "[", 
                    RowBox[{"polpolpol", ",", "First"}], "]"}], "]"}], ",", 
                   RowBox[{"Continue", "[", "]"}]}], "]"}]}], ";", 
                "\[IndentingNewLine]", "\[IndentingNewLine]", 
                RowBox[{"intPlot", "=", 
                 RowBox[{"Show", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"ListPlot", "[", 
                    RowBox[{"polar", ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"Plot", "[", 
                    RowBox[{
                    RowBox[{"if", "[", "\[Theta]", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[Theta]", ",", 
                    RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Orange", ",", 
                    RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}]}], 
                    "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
                "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{
                 "Map", " ", "interpolation", " ", "function", " ", "over", 
                  " ", 
                  RowBox[{"2", "^", "12"}], " ", "data", " ", "points", " ", 
                  "to", " ", "create", " ", "datasets", " ", "with", " ", 
                  "equal", " ", "part", " ", "numbers"}], " ", "*)"}], 
                "\[IndentingNewLine]", 
                RowBox[{"angles", "=", 
                 RowBox[{"Rest", "@", 
                  RowBox[{"Subdivide", "[", 
                   RowBox[{
                    RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", 
                    RowBox[{"2", "^", "12"}]}], "]"}]}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"reg", "=", 
                 RowBox[{"if", "/@", "angles"}]}], ";", "\[IndentingNewLine]",
                 "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{"Fourier", " ", "transform", " ", 
                  RowBox[{"w", "/", "o"}], " ", "the", " ", "high", " ", 
                  "curvature", " ", "signal"}], " ", "*)"}], 
                "\[IndentingNewLine]", 
                RowBox[{"ft", "=", 
                 RowBox[{"Check", "[", 
                  RowBox[{
                   RowBox[{"Fourier", "[", "reg", "]"}], ",", 
                   RowBox[{"Continue", "[", "]"}]}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"regTrunc", "=", 
                 RowBox[{"Re", "@", 
                  RowBox[{"InverseFourier", "[", 
                   RowBox[{"PadRight", "[", 
                    RowBox[{
                    RowBox[{"Take", "[", 
                    RowBox[{"ft", ",", "25"}], "]"}], ",", 
                    RowBox[{"2", "^", "12"}]}], "]"}], "]"}]}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"ftPlot", "=", 
                 RowBox[{"ListPlot", "[", 
                  RowBox[{"{", 
                   RowBox[{"reg", ",", "regTrunc"}], "}"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"FourierDist", "=", 
                 RowBox[{"AppendTo", "[", 
                  RowBox[{"FourierDist", ",", 
                   RowBox[{"regTrunc", "*", "pixel"}]}], "]"}]}], ";", 
                "\[IndentingNewLine]", "\[IndentingNewLine]", 
                RowBox[{"fitSummary", "=", 
                 RowBox[{"TableForm", "[", 
                  RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Rotate", "[", 
                    RowBox[{"nucleolus", ",", 
                    RowBox[{"90", "Degree"}]}], "]"}], ",", 
                    RowBox[{"ListPlot", "[", "dc", "]"}], ",", "intPlot", ",",
                     "ftPlot"}], "}"}], "}"}], "]"}]}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"FitSummaries", "=", 
                RowBox[{"AppendTo", "[", 
                 RowBox[{"FitSummaries", ",", "fitSummary"}], "]"}]}]}], 
              "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"c", ",", "1", ",", 
               RowBox[{"Length", "[", "BinImg", "]"}]}], "}"}]}], "]"}], ",", 
           
           RowBox[{"ProgressIndicator", "[", 
            RowBox[{"c", ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", 
               RowBox[{"Length", "[", "BinImg", "]"}]}], "}"}]}], "]"}]}], 
          "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Clean", " ", "up", " ", "noise", " ", "level"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"selFD", "=", 
          RowBox[{"Check", "[", 
           RowBox[{
            RowBox[{"LowpassFilter", "[", 
             RowBox[{"FourierDist", ",", "0.1"}], "]"}], ",", 
            RowBox[{"Continue", "[", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{
          "Average", " ", "surface", " ", "fluctuations", " ", "over", " ", 
           "angle", " ", "and", " ", "time"}], " ", "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"uSquare", "=", 
          RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"fluct", "=", 
              RowBox[{
               RowBox[{"selFD", "[", 
                RowBox[{"[", "f", "]"}], "]"}], "-", 
               RowBox[{"Mean", "[", "selFD", "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"squareFluct", "=", 
              RowBox[{"fluct", "^", "2"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"uSquare", "=", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"uSquare", ",", 
                RowBox[{"Mean", "[", "squareFluct", "]"}]}], "]"}]}]}], 
            "\[IndentingNewLine]", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"f", ",", "1", ",", 
             RowBox[{"Length", "[", "selFD", "]"}]}], "}"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{"Calculate", " ", "surface", " ", "tension"}], " ", "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"tension", "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"kB", "*", "T"}], ")"}], "/", 
           RowBox[{"Mean", "[", "uSquare", "]"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"SurfTen", "=", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"SurfTen", ",", 
            RowBox[{"{", 
             RowBox[{"sele", ",", "POI", ",", 
              RowBox[{"Length", "[", "selFD", "]"}], ",", "tension"}], 
             "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "1", ",", 
        RowBox[{"Length", "[", "numbers", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"ProgressIndicator", "[", 
     RowBox[{"p", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"Length", "[", "numbers", "]"}]}], "}"}]}], "]"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"BoxWhiskerChart", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Transpose", "[", "SurfTen", "]"}], "[", 
    RowBox[{"[", "4", "]"}], "]"}], ",", "\"\<Outliers\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Mean surface tension: \>\"", ",", 
   RowBox[{"Mean", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", "SurfTen", "]"}], "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], ",", "\"\< N/m\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.830104080068453*^9, 3.8301041324966717`*^9}, {
   3.830172553782248*^9, 3.8301726716160583`*^9}, {3.830172818940843*^9, 
   3.830172875668622*^9}, {3.830173330910182*^9, 3.830173353683519*^9}, {
   3.830173553918023*^9, 3.8301736002045183`*^9}, {3.830174143488044*^9, 
   3.830174143764635*^9}, {3.830175163344577*^9, 3.8301752124466467`*^9}, 
   3.830175290392865*^9, {3.830175432636869*^9, 3.830175448724621*^9}, {
   3.830175997982333*^9, 3.830176022382605*^9}, {3.830176137133971*^9, 
   3.830176194849461*^9}, {3.830177210620414*^9, 3.830177356824011*^9}, {
   3.830178172572075*^9, 3.830178258288186*^9}, {3.83018852233952*^9, 
   3.830188551467312*^9}, 3.830188680670628*^9, {3.830188993808523*^9, 
   3.830189033968095*^9}, {3.830189188122558*^9, 3.830189213421973*^9}, {
   3.83018942198529*^9, 3.830189444611302*^9}, {3.830189518607979*^9, 
   3.830189548530449*^9}, {3.8301898086694183`*^9, 3.83018980883772*^9}, 
   3.830189941279908*^9, {3.830191529270369*^9, 3.8301915543562737`*^9}, {
   3.830191658560356*^9, 3.830191659295507*^9}, {3.8302142683427057`*^9, 
   3.8302143032568293`*^9}, {3.830214335530014*^9, 3.8302143518221827`*^9}, 
   3.830214840842585*^9, {3.830214895564082*^9, 3.830214896548806*^9}, {
   3.830215070083626*^9, 3.830215116471161*^9}, {3.830215186356599*^9, 
   3.830215186739056*^9}, {3.8302152210634604`*^9, 3.830215225204709*^9}, {
   3.830215448214531*^9, 3.830215450993137*^9}, {3.830215612520821*^9, 
   3.8302156620777683`*^9}, {3.830215755940084*^9, 3.830215756875997*^9}, {
   3.830215801793618*^9, 3.830215802120494*^9}, {3.830215844441949*^9, 
   3.830215844632935*^9}, {3.830215915681527*^9, 3.830215916584646*^9}, {
   3.8302159524004517`*^9, 3.83021595594346*^9}, {3.830215998275949*^9, 
   3.83021599848532*^9}, {3.8302160562832327`*^9, 3.8302160567410192`*^9}, {
   3.830216135531019*^9, 3.8302161871296*^9}, {3.830216257167494*^9, 
   3.830216257667674*^9}, {3.830216303481106*^9, 3.83021630792767*^9}, {
   3.830216364907366*^9, 3.830216367684742*^9}, {3.830216397782938*^9, 
   3.8302164330684977`*^9}, 3.830216483531983*^9, {3.830216523625309*^9, 
   3.830216552615106*^9}, {3.830216593210024*^9, 3.8302165936498613`*^9}, 
   3.830216641580971*^9, {3.830216849790167*^9, 3.830216875658771*^9}, {
   3.83021691360509*^9, 3.83021691658449*^9}, {3.83021699256039*^9, 
   3.830217005993281*^9}, {3.830218619993751*^9, 3.830218630317782*^9}, {
   3.830218734490457*^9, 3.830218735495615*^9}, {3.83021887079873*^9, 
   3.83021887121933*^9}, 3.830218922634342*^9, {3.830218986155499*^9, 
   3.8302190009052362`*^9}, {3.830219040661442*^9, 3.8302190412276173`*^9}, {
   3.830219244615919*^9, 3.830219270457631*^9}, {3.830219324923244*^9, 
   3.83021932519339*^9}, {3.8302193672608423`*^9, 3.8302193717317343`*^9}, {
   3.8302194904896717`*^9, 3.830219490921565*^9}, {3.8302195620045023`*^9, 
   3.8302196008265877`*^9}, 3.830219642669511*^9, {3.830219689219961*^9, 
   3.830219690558576*^9}, {3.8302197331280947`*^9, 3.830219749568766*^9}, {
   3.8302198079394836`*^9, 3.8302198644025583`*^9}, 3.830220041627058*^9, {
   3.830220234653479*^9, 3.83022025827603*^9}, 3.830220294833991*^9, {
   3.830220505629684*^9, 3.830220505951786*^9}, {3.830220829339342*^9, 
   3.830220878338499*^9}, {3.830220969255806*^9, 3.830221012298267*^9}, {
   3.830221102406971*^9, 3.8302211030791683`*^9}, 3.830221139915597*^9, 
   3.830221183290101*^9, 3.8302212335730143`*^9, {3.830221283481167*^9, 
   3.830221284055026*^9}, 3.830221499409966*^9, {3.8302215369836473`*^9, 
   3.830221554116665*^9}, 3.830221678867828*^9, {3.830221745327777*^9, 
   3.8302217458131123`*^9}, 3.830221831477971*^9, 3.83022186256717*^9, 
   3.830221894207637*^9, {3.830221938131053*^9, 3.830221938462834*^9}, {
   3.83022196926597*^9, 3.830222001132998*^9}, 3.8302220957041283`*^9, 
   3.830222127614932*^9, {3.830222162209113*^9, 3.830222171157321*^9}, 
   3.8302222483932047`*^9, {3.8302223393464823`*^9, 3.830222373183585*^9}, {
   3.830222412154025*^9, 3.830222430900985*^9}, 3.83022246969064*^9, 
   3.830222544288465*^9, {3.830222581098618*^9, 3.8302225906012707`*^9}, 
   3.830222621639718*^9, {3.8302226682797337`*^9, 3.830222672591655*^9}, {
   3.8302227433845778`*^9, 3.830222744716329*^9}, {3.830222794593894*^9, 
   3.830222794838057*^9}, 3.830222906945299*^9, {3.8302229413301487`*^9, 
   3.830222955295711*^9}, 3.830222996890617*^9, {3.8302233626238737`*^9, 
   3.830223383807715*^9}, 3.830223419572218*^9, {3.830223473517221*^9, 
   3.83022348417115*^9}, {3.830223536710824*^9, 3.830223536900041*^9}, {
   3.830223620066195*^9, 3.830223620759966*^9}, {3.8302237055756073`*^9, 
   3.830223722339364*^9}, 3.830223800394314*^9, 3.8302238413341303`*^9, 
   3.8302239437634478`*^9, {3.8302239748615294`*^9, 3.830223975025045*^9}, 
   3.830224041465176*^9, 3.830224089235671*^9, 3.830224156017017*^9, 
   3.8302242562867937`*^9, {3.83022428732176*^9, 3.830224296586331*^9}, {
   3.83022432779921*^9, 3.830224349465289*^9}, {3.830224388575898*^9, 
   3.830224388808276*^9}, 3.830224463959402*^9, {3.8302245058311863`*^9, 
   3.830224567959203*^9}, {3.830224603743285*^9, 3.830224621867408*^9}, {
   3.830224661879478*^9, 3.830224662384822*^9}, 3.830226103006921*^9, {
   3.830259079585593*^9, 3.8302590796958647`*^9}, {3.830259117613552*^9, 
   3.830259117991993*^9}, {3.830259152133381*^9, 3.830259152527275*^9}, 
   3.830259197362114*^9, {3.83025924023352*^9, 3.830259240378265*^9}, {
   3.830282843634406*^9, 3.830282844074533*^9}, {3.8302828816555367`*^9, 
   3.830282882082486*^9}, {3.8302829451409693`*^9, 3.830282973369473*^9}, {
   3.83028302924271*^9, 3.8302830302551947`*^9}, {3.830283087091489*^9, 
   3.830283087649308*^9}, {3.830283130715863*^9, 3.8302831312760363`*^9}, {
   3.830283166172625*^9, 3.8302831668478107`*^9}, {3.830287589049197*^9, 
   3.8302875900898*^9}, {3.8302876389909773`*^9, 3.8302876391519814`*^9}, 
   3.830287670758843*^9, {3.830287709698208*^9, 3.830287713769699*^9}, 
   3.830287747842555*^9, {3.8302877959150343`*^9, 3.830287796218811*^9}, {
   3.830287836631076*^9, 3.83028783682161*^9}, {3.830287873378458*^9, 
   3.830287873936442*^9}, {3.830287930616809*^9, 3.830287931197075*^9}, {
   3.8302879900766706`*^9, 3.830287991195801*^9}, 3.8302880262625713`*^9, {
   3.8302884375409527`*^9, 3.8302884437995358`*^9}, 3.830288560522419*^9, {
   3.830288593657802*^9, 3.8302885943374367`*^9}, {3.830288643952284*^9, 
   3.830288645114915*^9}, {3.830300052508275*^9, 3.830300071036418*^9}, {
   3.830300119895067*^9, 3.830300120221987*^9}, {3.830300153138179*^9, 
   3.8303001534961243`*^9}, {3.8303001933574333`*^9, 3.830300218552167*^9}, {
   3.830300266583489*^9, 3.830300266857724*^9}, {3.830300318835441*^9, 
   3.8303003336081944`*^9}, 3.830300366991611*^9, 3.830300403176296*^9, {
   3.830300442441127*^9, 3.830300455112052*^9}, {3.830300496013543*^9, 
   3.830300496292501*^9}, {3.8303005354774446`*^9, 3.830300536012186*^9}, {
   3.830300580166109*^9, 3.8303005804201517`*^9}, {3.8303006203139353`*^9, 
   3.8303006206439743`*^9}, {3.830300660899845*^9, 3.830300661060964*^9}, {
   3.830300700249773*^9, 3.83030071782034*^9}, {3.830300757981674*^9, 
   3.8303007588082857`*^9}, {3.830300798905519*^9, 3.83030079919269*^9}, {
   3.830300836302065*^9, 3.830300836517007*^9}, {3.830300873986238*^9, 
   3.83030087421656*^9}, {3.8303009098020144`*^9, 3.830300910192821*^9}, {
   3.830300953074436*^9, 3.830300954224824*^9}, {3.830300993149692*^9, 
   3.830301015344894*^9}, {3.830301064215445*^9, 3.830301064677043*^9}, {
   3.8303011042664967`*^9, 3.830301105108947*^9}, {3.830301162130865*^9, 
   3.8303011632292747`*^9}, {3.830301224637945*^9, 3.8303012248890467`*^9}, {
   3.830301261666615*^9, 3.830301262048852*^9}, {3.830301316928306*^9, 
   3.830301317149529*^9}, {3.830301356414378*^9, 3.830301379601273*^9}, {
   3.830301415038492*^9, 3.8303014152328367`*^9}, {3.830301630158977*^9, 
   3.8303016311296377`*^9}, {3.830301667607202*^9, 3.830301667861587*^9}, {
   3.8303017117306356`*^9, 3.830301712273613*^9}, {3.830301751106138*^9, 
   3.8303017684566717`*^9}, {3.830301814565213*^9, 3.830301814988953*^9}, {
   3.830301855850898*^9, 3.830301856219441*^9}, {3.830301901528932*^9, 
   3.830301901735217*^9}, {3.8303019444036913`*^9, 3.8303019447626143`*^9}, {
   3.830301981787874*^9, 3.830301982161762*^9}, {3.83030202444694*^9, 
   3.830302024881936*^9}, {3.830302069315967*^9, 3.830302070266357*^9}, {
   3.830302107182804*^9, 3.830302119817185*^9}, {3.830302167253943*^9, 
   3.8303021896162252`*^9}, {3.830302232202317*^9, 3.8303022578516817`*^9}, {
   3.830302302337254*^9, 3.8303023231074343`*^9}, {3.830302363964147*^9, 
   3.8303023643466253`*^9}, {3.830302401712496*^9, 3.830302402178945*^9}, {
   3.830302438968281*^9, 3.83030246189063*^9}, {3.8303024991439257`*^9, 
   3.830302500178961*^9}, {3.8303025585019283`*^9, 3.830302558594206*^9}, {
   3.830302614299341*^9, 3.8303026144993553`*^9}, {3.8303026625277567`*^9, 
   3.830302663694919*^9}, {3.8303027097592793`*^9, 3.8303027100816917`*^9}, {
   3.830302752439043*^9, 3.83030275287815*^9}, {3.830302794327071*^9, 
   3.8303027946338053`*^9}, {3.83030282817903*^9, 3.830302828429287*^9}, {
   3.830302866534869*^9, 3.830302866773555*^9}, {3.830302911894833*^9, 
   3.8303029121138477`*^9}, {3.830302949042941*^9, 3.830302949869178*^9}, {
   3.8303029891506844`*^9, 3.830302989557469*^9}, {3.830303036173946*^9, 
   3.830303037693273*^9}, {3.830303073590665*^9, 3.830303073861533*^9}, {
   3.830303117794662*^9, 3.830303118133279*^9}, {3.830303160226128*^9, 
   3.830303160469534*^9}, {3.830303205118376*^9, 3.8303032053888903`*^9}, {
   3.830303254466453*^9, 3.830303254853059*^9}, {3.830303295589715*^9, 
   3.830303296268815*^9}, {3.8303033453298264`*^9, 3.830303364153154*^9}, {
   3.8303034029385977`*^9, 3.830303403192913*^9}, {3.830303443977689*^9, 
   3.8303034441286783`*^9}, {3.830303478822468*^9, 3.830303479096521*^9}, {
   3.830303513338106*^9, 3.830303513700862*^9}, {3.83030372109101*^9, 
   3.830303733108308*^9}, {3.830303780409747*^9, 3.830303780668017*^9}, {
   3.830303820069375*^9, 3.830303833946868*^9}, {3.830303962026723*^9, 
   3.830303962593329*^9}, {3.830303995463879*^9, 3.830303995840637*^9}, {
   3.830304029578727*^9, 3.8303040300411797`*^9}, {3.830304067842093*^9, 
   3.830304068476137*^9}, {3.830304109040669*^9, 3.830304109291525*^9}, {
   3.830304157732235*^9, 3.830304158035145*^9}, {3.830304195204104*^9, 
   3.830304195507225*^9}, {3.8303042334845552`*^9, 3.8303042336829023`*^9}, {
   3.830304279837145*^9, 3.830304280118486*^9}, {3.8303043115693293`*^9, 
   3.830304311777132*^9}, {3.8303043557306023`*^9, 3.830304355961561*^9}, {
   3.830304402650811*^9, 3.8303044037774553`*^9}, {3.830304441394614*^9, 
   3.830304441621397*^9}, {3.830304485141719*^9, 3.830304485412163*^9}, {
   3.8303045385812407`*^9, 3.830304539071933*^9}, {3.830304586875101*^9, 
   3.8303045870494547`*^9}, {3.830304624609228*^9, 3.830304624852985*^9}, {
   3.830304669204769*^9, 3.830304669503718*^9}, {3.8303047164963207`*^9, 
   3.8303047167349577`*^9}, {3.8303047631158867`*^9, 3.830304763482888*^9}, {
   3.8303048014041224`*^9, 3.830304801574531*^9}, {3.830304843975532*^9, 
   3.830304844346367*^9}, {3.830304885315439*^9, 3.830304886426362*^9}, {
   3.8303049209443398`*^9, 3.830304943206315*^9}, {3.830304984087308*^9, 
   3.830304984337676*^9}, {3.8303050247964067`*^9, 3.8303050249828053`*^9}, {
   3.830305064458988*^9, 3.8303050646810904`*^9}, {3.830305113208305*^9, 
   3.830305113409395*^9}, {3.830305160262867*^9, 3.830305160745199*^9}, {
   3.830305199506277*^9, 3.830305200006215*^9}, {3.830305243666552*^9, 
   3.830305244020873*^9}, {3.830305437157674*^9, 3.8303054382324123`*^9}, {
   3.830305480462158*^9, 3.830305506168716*^9}, {3.830305550421153*^9, 
   3.830305550927657*^9}, {3.8303055935725946`*^9, 3.830305593951716*^9}, {
   3.830305631857078*^9, 3.830305696327552*^9}, {3.8303057376761713`*^9, 
   3.830305737950879*^9}, {3.8303057738442163`*^9, 3.830305774046504*^9}, {
   3.830305818359412*^9, 3.8303058186059427`*^9}, {3.8303058565629187`*^9, 
   3.830305875967482*^9}, {3.830305913359446*^9, 3.8303059144381847`*^9}, {
   3.8303059578134203`*^9, 3.830305958292172*^9}, {3.83030599466159*^9, 
   3.830305995167163*^9}, {3.830306048350543*^9, 3.830306048757842*^9}, {
   3.830306088229265*^9, 3.830306088760096*^9}, {3.830306125437077*^9, 
   3.8303061467661333`*^9}, {3.8303061952545633`*^9, 
   3.8303062113004217`*^9}, {3.8303062593524303`*^9, 3.830306259930698*^9}, {
   3.830306308307445*^9, 3.830306308870536*^9}, {3.830306347439393*^9, 
   3.8303063616493177`*^9}, {3.830306428852791*^9, 3.8303064292916193`*^9}, {
   3.830306475551758*^9, 3.830306475967094*^9}, {3.830306524091097*^9, 
   3.830306525390439*^9}, {3.830306556268948*^9, 3.830306556741366*^9}, {
   3.830306599697811*^9, 3.830306600229*^9}, {3.830306638626243*^9, 
   3.83030663914038*^9}, {3.8303066820024033`*^9, 3.830306684263603*^9}, {
   3.830306730587948*^9, 3.830306730862872*^9}, {3.830306773784493*^9, 
   3.830306774266736*^9}, {3.830306815899353*^9, 3.830306816997295*^9}, {
   3.830306859282591*^9, 3.8303068597653303`*^9}, {3.830306905601638*^9, 
   3.830306906120281*^9}, {3.830306946597982*^9, 3.830306946903919*^9}, {
   3.83030698757621*^9, 3.830306987983541*^9}, {3.830307022868672*^9, 
   3.830307023391178*^9}, {3.830307075239946*^9, 3.830307075490275*^9}, {
   3.83030711118181*^9, 3.830307111810087*^9}, {3.830307154578882*^9, 
   3.830307178321467*^9}, {3.830307230951414*^9, 3.830307232309025*^9}, {
   3.830307282268474*^9, 3.830307282764155*^9}, {3.830307319565282*^9, 
   3.8303073199917717`*^9}, {3.830307373624915*^9, 3.83030737415965*^9}, {
   3.8303074214598417`*^9, 3.830307422799099*^9}, {3.83030746224818*^9, 
   3.830307474390259*^9}, {3.830307514091428*^9, 3.830307514546123*^9}, {
   3.8303075579868183`*^9, 3.830307558425583*^9}, {3.830307591251216*^9, 
   3.830307591817642*^9}, {3.830307630215963*^9, 3.8303076307890244`*^9}, {
   3.8303076916132593`*^9, 3.830307693136091*^9}, 3.830308413331689*^9, {
   3.830308457911235*^9, 3.830308458325923*^9}, {3.83030849664683*^9, 
   3.8303084970538263`*^9}, {3.830308530318536*^9, 3.830308530609371*^9}, {
   3.8303085665263367`*^9, 3.830308567376822*^9}, {3.830308601098177*^9, 
   3.830308601644809*^9}, {3.8303086337023478`*^9, 3.830308633893209*^9}, {
   3.830308672369781*^9, 3.830308672728491*^9}, {3.830308708381133*^9, 
   3.830308708831812*^9}, {3.830308745844749*^9, 3.830308746655777*^9}, {
   3.830308788076674*^9, 3.83030878895529*^9}, {3.830308824580406*^9, 
   3.8303088250065536`*^9}, {3.8303088638199368`*^9, 3.830308864390728*^9}, {
   3.830308900457646*^9, 3.830308901012731*^9}, {3.830308939325157*^9, 
   3.8303089400155067`*^9}, {3.830308984748282*^9, 3.830308985014947*^9}, {
   3.830309020103496*^9, 3.830309020533801*^9}, {3.8303090511133537`*^9, 
   3.830309051668024*^9}, {3.830309086459343*^9, 3.830309087029862*^9}, {
   3.8303091211934834`*^9, 3.8303091224804907`*^9}, {3.830309157127171*^9, 
   3.830309157646112*^9}, {3.830309193833852*^9, 3.8303091944680357`*^9}, {
   3.830309229770707*^9, 3.8303092303752117`*^9}, {3.830309267320842*^9, 
   3.8303092677593517`*^9}, {3.830309304834632*^9, 3.8303093158253193`*^9}, {
   3.830309351544065*^9, 3.830309351978985*^9}, {3.830309386205317*^9, 
   3.830309386652265*^9}, {3.8303094248068867`*^9, 3.830309425393385*^9}, {
   3.830309464032235*^9, 3.830309465210783*^9}, {3.830309505045372*^9, 
   3.830309505588215*^9}, {3.830309541922419*^9, 3.830309542397318*^9}, {
   3.830309578927597*^9, 3.830309579790316*^9}, {3.8303096174807568`*^9, 
   3.830309617867008*^9}, {3.830309653249815*^9, 3.830309653691908*^9}, {
   3.83030969891854*^9, 3.830309711105105*^9}, {3.830309751436441*^9, 
   3.83030975189435*^9}, {3.83030978813654*^9, 3.830309788675077*^9}, {
   3.8303098265412693`*^9, 3.8303098278561*^9}, {3.830309862189549*^9, 
   3.83030986304815*^9}, {3.830309912726717*^9, 3.830309913225346*^9}, {
   3.830309949750554*^9, 3.830309950286133*^9}, {3.830309995676044*^9, 
   3.830310016698803*^9}, {3.8303102175206127`*^9, 3.830310241025098*^9}, {
   3.83031028271163*^9, 3.830310295982355*^9}, {3.8303103300641212`*^9, 
   3.830310330527152*^9}, {3.830310373084391*^9, 3.830310373355062*^9}, {
   3.8303104135931396`*^9, 3.8303104223798532`*^9}, {3.8303104610091953`*^9, 
   3.83031046156057*^9}, {3.8303105009656687`*^9, 3.83031050128901*^9}, {
   3.830310536262311*^9, 3.830310536652854*^9}, {3.830310569630525*^9, 
   3.8303105701334248`*^9}, {3.830310607082644*^9, 3.830310607357538*^9}, {
   3.8303106446552553`*^9, 3.830310645149496*^9}, {3.830310681128542*^9, 
   3.830310681581801*^9}, {3.830310715443761*^9, 3.830310715650227*^9}, {
   3.8303107503557997`*^9, 3.830310750935671*^9}, {3.830310784256084*^9, 
   3.83031078468935*^9}, {3.830310818868431*^9, 3.830310819903685*^9}, {
   3.830310857416472*^9, 3.8303108587433453`*^9}, {3.830310892936311*^9, 
   3.8303108933995333`*^9}, {3.830310933385318*^9, 3.830310933907791*^9}, {
   3.830310970360209*^9, 3.830310970691163*^9}, {3.830311009871294*^9, 
   3.830311010642647*^9}, {3.830311055673791*^9, 3.830311056168763*^9}, {
   3.830311093190466*^9, 3.830311093528585*^9}, {3.830311132929014*^9, 
   3.8303111336675262`*^9}, {3.830311171904377*^9, 3.8303111723510523`*^9}, {
   3.830311206835307*^9, 3.830311207918545*^9}, {3.8303112420670557`*^9, 
   3.830311242510243*^9}, {3.830311279314761*^9, 3.830311279757414*^9}, {
   3.830311313822297*^9, 3.8303113143932257`*^9}, {3.8303113504858923`*^9, 
   3.830311350740945*^9}, {3.8303114038053303`*^9, 3.8303114042241087`*^9}, {
   3.830311436885519*^9, 3.830311449539864*^9}, {3.830311489612239*^9, 
   3.830311489946903*^9}, {3.830311527035733*^9, 3.830311527799189*^9}, {
   3.830311571525214*^9, 3.8303115720009604`*^9}, {3.8303116134272842`*^9, 
   3.830311613782044*^9}, {3.830311652463526*^9, 3.830311652898086*^9}, {
   3.830311692195307*^9, 3.8303116993101788`*^9}, {3.830311754718824*^9, 
   3.830311755201935*^9}, {3.83031179390256*^9, 3.830311794173514*^9}, {
   3.830311989795347*^9, 3.8303119967089767`*^9}, {3.8303120298103447`*^9, 
   3.830312030329118*^9}, {3.830312080825815*^9, 3.830312081011292*^9}, {
   3.830312118121863*^9, 3.830312118868655*^9}, {3.830312153949416*^9, 
   3.830312154500476*^9}, {3.830312186769857*^9, 3.830312193672647*^9}, {
   3.830312226189557*^9, 3.830312226756772*^9}, {3.830312266421645*^9, 
   3.830312267348915*^9}, {3.8303123005739098`*^9, 3.8303123011125097`*^9}, {
   3.8303123357455893`*^9, 3.830312336080594*^9}, {3.830312371365225*^9, 
   3.8303123716805067`*^9}, {3.8303124043215933`*^9, 
   3.8303124046482573`*^9}, {3.830312441689288*^9, 3.830312442001835*^9}, {
   3.830312480971403*^9, 3.830312481227989*^9}, {3.83031251514156*^9, 
   3.8303125157804213`*^9}, {3.8303125537468843`*^9, 3.830312554008918*^9}, {
   3.83031258792153*^9, 3.830312588792343*^9}, {3.8303126472423687`*^9, 
   3.8303126484806643`*^9}, {3.830312688977384*^9, 3.830312715492206*^9}, {
   3.8303127562093983`*^9, 3.830312756760519*^9}, {3.8303127997896214`*^9, 
   3.830312809268105*^9}, {3.830312864145403*^9, 3.8303128647118263`*^9}, {
   3.830312901433559*^9, 3.830312901652238*^9}, {3.830312937605549*^9, 
   3.830312945364437*^9}, {3.830312979509265*^9, 3.830312980660749*^9}, {
   3.830313013263164*^9, 3.830313013630125*^9}, {3.83031304925669*^9, 
   3.830313066052567*^9}, {3.8303131065603647`*^9, 3.830313106854331*^9}, {
   3.830313141828554*^9, 3.830313142191526*^9}, {3.8303131775377493`*^9, 
   3.830313178076991*^9}, {3.830313216331452*^9, 3.8303132172179937`*^9}, {
   3.830313250548305*^9, 3.8303132508310204`*^9}, {3.8303132911416807`*^9, 
   3.830313291400433*^9}, {3.8303133255242357`*^9, 3.8303133353368464`*^9}, {
   3.8303133888443604`*^9, 3.83031338931143*^9}, {3.830313994179716*^9, 
   3.830314003006085*^9}, {3.830314045596105*^9, 3.8303140466535053`*^9}, {
   3.830314079188241*^9, 3.8303140854178333`*^9}, {3.830314126976439*^9, 
   3.830314168288369*^9}, {3.830314203277884*^9, 3.830314203608385*^9}, {
   3.830314234137714*^9, 3.8303142349333353`*^9}, {3.830314267790182*^9, 
   3.830314268404334*^9}, {3.8303143389907637`*^9, 3.830314340113693*^9}, {
   3.83031437428965*^9, 3.830314374468439*^9}, {3.8303146083109903`*^9, 
   3.830314619856551*^9}, {3.830314665437911*^9, 3.83031466578012*^9}, {
   3.830314707505878*^9, 3.830314707992982*^9}, {3.830314750052071*^9, 
   3.8303147502688627`*^9}, {3.830314786250888*^9, 3.830314786711885*^9}, {
   3.830314830118836*^9, 3.830314830429717*^9}, 3.830315152196274*^9, {
   3.830315183012703*^9, 3.8303151832953033`*^9}, {3.830315214575039*^9, 
   3.8303152578475018`*^9}, {3.830315290388774*^9, 3.830315290755402*^9}, {
   3.830315323204987*^9, 3.830315323655973*^9}, {3.830315356765347*^9, 
   3.830315357096293*^9}, {3.830315389341416*^9, 3.8303153898363*^9}, 
   3.830343574594902*^9, {3.8303436395628357`*^9, 3.8303436400657988`*^9}, {
   3.830343677751178*^9, 3.830343684449761*^9}, {3.830343721724256*^9, 
   3.8303437223703003`*^9}, {3.830343759503812*^9, 3.8303437758287373`*^9}, {
   3.830343816203187*^9, 3.830343816581978*^9}, {3.830343855115198*^9, 
   3.830343855483632*^9}, {3.830343892035694*^9, 3.830343893604713*^9}, {
   3.830343933341421*^9, 3.8303439339551773`*^9}, {3.8303439735398893`*^9, 
   3.830343974049564*^9}, {3.830344011652769*^9, 3.830344012208334*^9}, {
   3.830344049436213*^9, 3.8303440498886967`*^9}, 3.830344315948736*^9, {
   3.8303443550076637`*^9, 3.8303443551298933`*^9}, {3.83034440702666*^9, 
   3.830344407474855*^9}, {3.830344450146021*^9, 3.8303444502483788`*^9}, {
   3.830344495028171*^9, 3.830344495183323*^9}, {3.830344546766358*^9, 
   3.830344547093129*^9}, {3.8303446439267406`*^9, 3.830344689317865*^9}, {
   3.8303447284858713`*^9, 3.83034490286664*^9}, 3.8303452113191*^9, {
   3.8303455460348988`*^9, 3.830345576580524*^9}, {3.830345649366261*^9, 
   3.830345658038155*^9}, {3.830346658781279*^9, 3.830346707972348*^9}, {
   3.830346739123003*^9, 3.83034674474892*^9}, {3.830346786005713*^9, 
   3.830346913326745*^9}, {3.830347216506922*^9, 3.830347217077215*^9}, {
   3.83034727562938*^9, 3.830347280941309*^9}, {3.830347541499902*^9, 
   3.830347558222559*^9}, {3.8303479737238283`*^9, 3.830347984353598*^9}, 
   3.830348019443384*^9, {3.830348110781487*^9, 3.830348118500901*^9}, {
   3.830348152558401*^9, 3.830348189934827*^9}, {3.830348225392797*^9, 
   3.830348247779467*^9}, {3.830349540200303*^9, 3.830349542498397*^9}, 
   3.8303506800839243`*^9, {3.830350766921514*^9, 3.830350797844767*^9}, {
   3.830350920203905*^9, 3.830350953590598*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[41]:=",ExpressionUUID->"45a6ea31-6528-4140-9603-e899002d3e54"],

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"name", "=", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"First", "[", 
      RowBox[{"StringSplit", "[", 
       RowBox[{
        RowBox[{"files", "[", 
         RowBox[{"[", "sele", "]"}], "]"}], ",", "\"\<_20\>\""}], "]"}], 
      "]"}], ",", "\"\<_SurfaceTension.xlsx\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"name", ",", 
   RowBox[{"TableForm", "[", "SurfTen", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8300250644407167`*^9, 3.830025065855814*^9}, {
   3.830030627843627*^9, 3.830030641887591*^9}, {3.830030699079496*^9, 
   3.830030734560749*^9}, 3.830223046317387*^9, {3.830223120340733*^9, 
   3.830223121693665*^9}, {3.830344872924199*^9, 3.830344878272667*^9}},
 Background->RGBColor[1, 0.85, 0.85],
 CellLabel->"In[48]:=",ExpressionUUID->"366388ef-1960-41bc-bb05-04f02efb2d5f"]
},
WindowSize->{1386, 852},
WindowMargins->{{0, Automatic}, {0, Automatic}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"43177ded-e3f7-4b35-a310-4ad2bb98b58f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 864, 23, 149, "Input",ExpressionUUID->"4455a0e0-eb1c-498c-94e5-518d8af2665b"],
Cell[1425, 45, 9639, 214, 665, "Input",ExpressionUUID->"0a5ef19f-2267-478e-8ded-bc5436ac4957"],
Cell[11067, 261, 38184, 657, 1593, "Input",ExpressionUUID->"45a6ea31-6528-4140-9603-e899002d3e54"],
Cell[49254, 920, 995, 22, 87, "Input",ExpressionUUID->"366388ef-1960-41bc-bb05-04f02efb2d5f"]
}
]
*)