(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 20211, 575]*) (*NotebookOutlinePosition[ 21008, 602]*) (* CellTagsIndexPosition[ 20964, 598]*) (*WindowFrame->Normal*) Notebook[{ Cell["Mathematica \:521d\:7d1a\:30fb\:5165\:9580\:30b3-\:30b9 ", "Title"], Cell["Jun Hirabayashi jun@hirax.net", "Subsubtitle"], Cell[CellGroupData[{ Cell["\:30e9\:30a4\:30d6\:30e9\:30ea\:8aad\:307f\:8fbc\:307f", "Section"], Cell[BoxData[ \(<< Graphics`Graphics`\)], "Input"], Cell[BoxData[ \(<< Graphics`Graphics3D`\)], "Input"], Cell[BoxData[ \(<< Graphics`Polyhedra`\)], "Input"], Cell[BoxData[ \(Needs["\"]\)], "Input", InitializationCell->True], Cell[BoxData[ \(Needs["\"]\)], "Input", InitializationCell->True], Cell[BoxData[ \(Needs["\"]\)], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:306e\:5165\:51fa\:529b", "Section"], Cell[CellGroupData[{ Cell["\:753b\:50cf\:30d5\:30a1\:30a4\:30eb\:3092\:8aad\:307f\:8fbc\:3080", \ "Subsubsection"], Cell[BoxData[ \(\(image\ = \ Import["\", "\"];\)\)], "Input"], Cell[BoxData[ \(Show[image]\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:30d5\:30a1\:30a4\:30eb\:306e\:60c5\:5831\:3092\:77e5\:308b\ ", "Subsubsection"], Cell[BoxData[ \(\(pixels = image[\([1, 1]\)];\)\)], "Input"], Cell[BoxData[ \(\(pixels[\([2]\)]\)[\([2]\)]\)], "Input"], Cell[BoxData[ \(height\ = \ Length[\ pixels\ ]\)], "Input"], Cell[BoxData[ \(width\ = \ Length[\ pixels[\([1]\)]\ ]\)], "Input"], Cell[BoxData[ \(\(redPixels\ = \ Table[\ \[IndentingNewLine]\(\(pixels[\([\ y\ ]\)]\)[\([\ x\ ]\)]\)[\([1]\)]\ , \[IndentingNewLine]{y, 1, height\ \ }, {x, 1, width\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(ListDensityPlot[\ redPixels\ \ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width]\)], "Input"], Cell[BoxData[ \(\(rgbPixels\ = \ \[IndentingNewLine]Table[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ Table[\ \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(\(pixels[\([\ y\ ]\)]\)[\([\ x\ ]\)]\)[\([i]\)]\ , \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {y, 1, height\ \ }, {x, 1, width\ \ }\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ]\[IndentingNewLine], {i, \ 1, 3}\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(\(rgbImage\ = \ \[IndentingNewLine]Table[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ ListDensityPlot[\ \ rgbPixels[\([i]\)]\ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width\ ]\[IndentingNewLine], {i, \ 1, 3}\[IndentingNewLine]];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:30b0\:30e9\:30d5\:3092BMP\:30d5\:30a1\:30a4\:30eb\:3068\:3057\:3066\ \:4fdd\:5b58", "Subsubsection"], Cell[BoxData[ \(\(Export[\ "\", rgbImage[\([1]\)], \ "\"\ ];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:67a0\:304c\:306a\:3044\:753b\:50cf\:3092\:4f5c\:6210", "Subsubsection"], Cell[BoxData[ \(\(rgbImage\ = \ \[IndentingNewLine]Table[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ ListDensityPlot[\ \ rgbPixels[\([i]\)]\ , \ Mesh \[Rule] False, Frame \[Rule] False, \ AspectRatio \[Rule] height/width\ , ImageSize \[Rule] {width, height}]\[IndentingNewLine], {i, \ 1, 3}\[IndentingNewLine]];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:30c7\:30fc\:30bf\:3092BMP\:30d5\:30a1\:30a4\:30eb\:3068\ \:3057\:3066\:4fdd\:5b58", "Subsubsection"], Cell[BoxData[ \(\(Export[\ "\", rgbImage[\([2]\)], \ "\"\ ];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:30c7\:30fc\:30bf\:3092CSV\:30d5\:30a1\:30a4\:30eb\:3068\ \:3057\:3066\:4fdd\:5b58", "Subsubsection"], Cell[BoxData[ \(\(Export[\ "\", rgbPixels[\([1]\)], \ "\"\ ];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["CSV\:30d5\:30a1\:30a4\:30eb\:304b\:3089\:753b\:50cf\:3092\:8aad\:307f\ \:8fbc\:307f", "Subsubsection"], Cell[BoxData[ \(\(csvPixels\ = \ Import[\ \ "\"\ \ , "\"\ ];\)\)], \ "Input"], Cell[BoxData[ \(ListDensityPlot[\ csvPixels\ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width]\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:3092\:3055\:307e\:3056\:307e\:306a\:51fa\:529b\:5f62\:5f0f\ \:3067\:8868\:793a\:3059\:308b", "Section"], Cell[BoxData[ \(\(birdGraph\ = \ ListPlot3D[\ \[IndentingNewLine]rgbPixels[\([\ 1\ ]\)], \[IndentingNewLine]Mesh \[Rule] False, \[IndentingNewLine]BoxRatios \[Rule] {\ width, height, 20\ }\[IndentingNewLine]];\)\)], "Input"], Cell[CellGroupData[{ Cell["\:30a2\:30cb\:30e1-\:30b7\:30e7\:30f3\:4f5c\:6210", "Subsubsection"], Cell[BoxData[ \(\(birdGraph\ = \ ListPlot3D[\ \[IndentingNewLine]rgbPixels[\([1]\)], \ \[IndentingNewLine]Mesh \[Rule] False, \[IndentingNewLine]BoxRatios \[Rule] {\ width, height, 50\ }, \[IndentingNewLine]ViewPoint \[Rule] {\ 0, \(-2\), 2\ }, \[IndentingNewLine]Lighting \[Rule] False, \[IndentingNewLine]ImageSize \[Rule] {320, 240}, \[IndentingNewLine]Axes \[Rule] False\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"ani3D", " ", "=", " ", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot3D", "[", " ", "\[IndentingNewLine]", RowBox[{\(rgbPixels[\([1]\)]\), ",", "\[IndentingNewLine]", \(Mesh \[Rule] False\), ",", "\[IndentingNewLine]", \(BoxRatios \[Rule] {\ width, height, 30\ }\), ",", "\[IndentingNewLine]", \(ViewPoint \[Rule] {\ 2*\ Cos[i], \ 2\ *\ Sin[i], 2\ }\), ",", "\[IndentingNewLine]", \(ImageSize \[Rule] {320, 240}\), ",", "\[IndentingNewLine]", \(ViewCenter \[Rule] {\ 0.5, 0.5, 0}\), ",", "\[IndentingNewLine]", \(Axes \[Rule] False\), ",", "\[IndentingNewLine]", \(Lighting \[Rule] False\), ",", "\[IndentingNewLine]", StyleBox[\(SphericalRegion -> True\), "MR"]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", \({i, 0, 2\ \[Pi], \ 2\ \[Pi]\ /\ 128\ }\)}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:52d5\:753b\:30d5\:30a1\:30a4\:30eb\:3068\:3057\:3066\:4fdd\:5b58", \ "Subsubsection"], Cell[BoxData[ \(\(Export["\", \ ani3D\ \ ];\)\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:89e3\:6790", "Section"], Cell[CellGroupData[{ Cell["\:65ad\:9762\:4f5c\:6210", "Subsubsection"], Cell[BoxData[ \(\(redProfile\ = \ \(rgbPixels[\([\ 1\ ]\)]\)[\([100]\)];\)\)], "Input"], Cell[BoxData[ \(redProfilePlot\ = \ ListPlot[\ redProfile\ , \ PlotJoined \[Rule] True, \ \[IndentingNewLine]PlotRange -> {0, 255}, \[IndentingNewLine]PlotStyle -> RGBColor[1, 0, 0]\ \ ]\)], "Input"], Cell[BoxData[ \(greenProfilePlot\ = \ ListPlot[\ \ \(rgbPixels[\([\ 2]\)]\)[\([100]\)]\ , \ \[IndentingNewLine]PlotRange -> {0, 255}, PlotJoined \[Rule] True, \ PlotStyle -> RGBColor[0, 1, 0]\ \ ]\)], "Input"], Cell[BoxData[ \(blueProfilePlot\ = \ ListPlot[\ \ \(rgbPixels[\([\ 3]\)]\)[\([100]\)]\ , \ \[IndentingNewLine]PlotRange -> {0, 255}, PlotJoined \[Rule] True, \ PlotStyle -> RGBColor[0, 0, 1]\ \ ]\)], "Input"], Cell[BoxData[ \(Show[\ {redProfilePlot, \ greenProfilePlot, \ blueProfilePlot}\ ]\)], "Input"], Cell[BoxData[ \(\(redProfilePlots\ = \ Table[\[IndentingNewLine]ListPlot[\ \ \(rgbPixels[\([\ 1\ ]\)]\)[\([i]\)]\ , \ PlotJoined \[Rule] True, \ \[IndentingNewLine]PlotRange -> {0, 255}, \[IndentingNewLine]PlotStyle \[Rule] {Thickness[ 0.02], \ RGBColor[1, 0, 0]\ \ }\ , \[IndentingNewLine]ImageSize \[Rule] {320, 240}\[IndentingNewLine]], \[IndentingNewLine]{i, 1, \ height\ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(\(Export["\", \ redProfilePlots\ \ ];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:65ad\:9762\:30c7\:30fc\:30bf\:3092CSV\:30d5\:30a1\:30a4\:30eb\:3068\ \:3057\:3066\:4fdd\:5b58", "Subsubsection"], Cell[BoxData[ \(\(Export["\", \ \[IndentingNewLine]{\ \ \(rgbPixels[\([\ 1\ ]\)]\)[\([100]\)], \ \ \[IndentingNewLine]\(rgbPixels[\([\ 2\ ]\)]\)[\([100]\)], \ \ \[IndentingNewLine]\(rgbPixels[\([\ 3\ ]\)]\)[\([100]\)]}, \ \[IndentingNewLine]"\"];\)\)], \ "Input"], Cell[BoxData[ \(\(ListPlot[\ profiles\ , \ PlotJoined \[Rule] True\ ];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:30d2\:30b9\:30c8\:30b0\:30e9\:30e0\:4f5c\:6210", "Subsubsection"], Cell[BoxData[ \(\(hs\ = \ Table[i, {i, 0, 255, \ 8}];\)\)], "Input"], Cell[BoxData[ RowBox[{"redHistogram", " ", "=", " ", RowBox[{"Histogram", "[", " ", RowBox[{\(Flatten[\ rgbPixels[\([\ 1\ ]\)]\ \ ]\), ",", " ", "\[IndentingNewLine]", StyleBox[\(HistogramRange -> {0, 255}\), "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], StyleBox[",", "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], StyleBox["\[IndentingNewLine]", "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], \(HistogramCategories \[Rule] hs\), " ", ",", "\[IndentingNewLine]", \(BarStyle -> RGBColor[\ 1, 0, 0\ ]\)}], " ", "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"greenHistogram", " ", "=", " ", RowBox[{"Histogram", "[", " ", RowBox[{\(Flatten[\ rgbPixels[\([\ 2\ ]\)]\ \ ]\), ",", " ", "\[IndentingNewLine]", StyleBox[\(HistogramRange -> {0, 255}\), "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], StyleBox[",", "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], StyleBox["\[IndentingNewLine]", "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], \(HistogramCategories \[Rule] hs\), " ", ",", "\[IndentingNewLine]", \(BarStyle -> RGBColor[\ 0, 1, 0\ ]\)}], " ", "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"blueHistogram", " ", "=", " ", RowBox[{"Histogram", "[", " ", RowBox[{\(Flatten[\ rgbPixels[\([\ 3\ ]\)]\ \ ]\), ",", " ", "\[IndentingNewLine]", StyleBox[\(HistogramRange -> {0, 255}\), "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], StyleBox[",", "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], StyleBox["\[IndentingNewLine]", "MR", GridBoxOptions->{RowSpacings->0.4, RowLines->{True, False}}], \(HistogramCategories \[Rule] hs\), " ", ",", "\[IndentingNewLine]", \(BarStyle -> RGBColor[\ 0, 0, 1\ ]\)}], " ", "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ \(Show[\ \ {\ \ redHistogram, \ greenHistogram, \ blueHistogram\ }\ \ ]\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["RGB\:8272\:7a7a\:9593\:5206\:5e03", "Subsubsection"], Cell[BoxData[ \(\(scatterData\ = \ Table[\[IndentingNewLine]Cuboid[\ {\ \ \[IndentingNewLine]\(\(rgbPixels[\([\ 1\ ]\)]\)[\([y]\)]\)[\([x]\)]\ /\ 10, \ \[IndentingNewLine]\(\(rgbPixels[\([\ 2\ ]\)]\)[\([y]\)]\)[\([x]\)]\ /\ 10, \ \[IndentingNewLine]\(\(rgbPixels[\([\ 3\ ]\)]\)[\([y]\)]\)[\([x]\)]\ /\ 10}\ ]\[IndentingNewLine], {y, 1, height\ , 50\ }, {x, 1, width\ , 50\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(Show[\ Graphics3D[\ scatterData\ ]\ \ , BoxRatios \[Rule] Automatic]\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"ani3D", " ", "=", " ", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{\(Graphics3D[\ scatterData\ ]\), " ", ",", "\[IndentingNewLine]", \(BoxRatios \[Rule] Automatic\), ",", "\[IndentingNewLine]", \(ViewPoint \[Rule] {\ 2*\ Cos[i], \ 2\ *\ Sin[i], 2\ }\), ",", "\[IndentingNewLine]", \(ImageSize \[Rule] {320, 240}\), ",", "\[IndentingNewLine]", \(ViewCenter \[Rule] {128/100, \ 128/\ 10, 128\ /\ 10}\), ",", "\[IndentingNewLine]", \(Axes \[Rule] False\), ",", "\[IndentingNewLine]", \(Lighting \[Rule] False\), ",", "\[IndentingNewLine]", StyleBox[\(SphericalRegion -> True\), "MR"]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", \({i, 0, 2\ \[Pi], \ 2\ \[Pi]\ /\ 128\ }\)}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"], Cell[BoxData[ \(\(Export["\", \ ani3D\ \ ];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\:30af\:30e9\:30b9\:30bf\:30ea\:30f3\:30b0\:306b\:3088\:308b\:6e1b\:8272\ ", "Subsubsection"], Cell[BoxData[ \(\(dataSparse\ = \ 7;\)\)], "Input"], Cell[BoxData[ \(\(SampleData\ = \ Table[\[IndentingNewLine]{y, x, \[IndentingNewLine]\(\(rgbPixels[\([\ 1\ ]\)]\)[\([y]\)]\)[\([x]\)]\ , \ \ \[IndentingNewLine]\(\(rgbPixels[\([\ 2\ ]\)]\)[\([y]\)]\)[\([x]\)], \ \[IndentingNewLine]\(\(rgbPixels[\([\ 3\ ]\)]\)[\([y]\)]\)[\([x]\)]}\ \[IndentingNewLine], {y, 1, height\ , dataSparse\ }, {x, 1, width\ , dataSparse\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(\(SampleData\ = \ Flatten[\ SampleData\ , 1];\)\)], "Input"], Cell[BoxData[ \(\(cl\ = \ FindClusters[\ \ Drop[SampleData, None, {1, 2}] \[Rule] SampleData\ , 10\ ];\)\)], "Input"], Cell[BoxData[ \(Length[cl]\)], "Input"], Cell[BoxData[ \(\(g\ = \ Table[\[IndentingNewLine]tmp\ = \ cl[\([i]\)]; \ \[IndentingNewLine]Table[\[IndentingNewLine]Graphics3D[{\[IndentingNewLine]\ RGBColor[\(tmp[\([1]\)]\)[\([3]\)]/255, \(tmp[\([1]\)]\)[\([4]\)]/ 255, \(tmp[\([1]\)]\)[\([5]\)]/ 255], \[IndentingNewLine]Cuboid[{\[IndentingNewLine]\(tmp[\ \([j]\)]\)[\([2]\)]/dataSparse, \[IndentingNewLine]\(tmp[\([j]\)]\)[\([1]\)]/ dataSparse, \[IndentingNewLine]0\[IndentingNewLine]}\ \ \ \ ]\ \ }]\[IndentingNewLine], {j, 1, Length[tmp]}\[IndentingNewLine]]\[IndentingNewLine], {i, 1, Length[cl]}\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(Show[\ g\ , Lighting \[Rule] False, ViewPoint \[Rule] {\ 0, 0, 2\ }]\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:753b\:50cf\:52a0\:5de5", "Section"], Cell[BoxData[ \(\(screen\ = \ Table[\[IndentingNewLine]\((Sin[\ y\ /\ height\ *20\ *\ 2\ \[Pi]\ \ ]\ Cos[\ x\ /\ width\ *20\ *\ 2\ \[Pi]\ ]\ + \ 1\ )\)\ /\ 2, \[IndentingNewLine]{y, 1, height\ \ }, {x, 1, width\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(ListDensityPlot[\ screen\ \ \ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width, Frame \[Rule] False, \ ImageSize \[Rule] {width, \ height\ }]\)], "Input"], Cell[BoxData[ \(\(screenData\ = \ Table[\[IndentingNewLine]If[\ \(screen\ [\([y]\)]\)[\([x]\)]\ > \ \(\ \(rgbPixels[\([\ 1\ ]\)]\)[\([y]\)]\)[\([x]\)]\ /\ 255\ , 1, 0]\[IndentingNewLine], {y, 1, height\ \ }, {x, 1, width\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(RF[x_]\ := \ RGBColor[x, 1, 1]\)], "Input"], Cell[BoxData[ \(RS\ = \ ListDensityPlot[\ screenData\ \ \ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width, Frame \[Rule] False, \ ImageSize \[Rule] {width, \ height\ }\ , ColorFunction \[Rule] RF\ ]\)], "Input"], Cell[BoxData[ \(GF[x_]\ := \ RGBColor[1, x, 1]\)], "Input"], Cell[BoxData[ \(\(screenData\ = \ Table[\[IndentingNewLine]If[\ \(screen\ [\([y]\)]\)[\([x]\)]\ > \ \(\ \(rgbPixels[\([\ 2]\)]\)[\([y]\)]\)[\([x]\)]\ /\ 255\ , 1, 0]\[IndentingNewLine], {y, 1, height\ \ }, {x, 1, width\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(GS\ = \ ListDensityPlot[\ screenData\ \ \ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width, Frame \[Rule] False, \ ImageSize \[Rule] {width, \ height\ }\ , ColorFunction \[Rule] GF\ ]\)], "Input"], Cell[BoxData[ \(BF[x_]\ := \ RGBColor[1, 1, x]\)], "Input"], Cell[BoxData[ \(\(screenData\ = \ Table[\[IndentingNewLine]If[\ \(screen\ [\([y]\)]\)[\([x]\)]\ > \ \(\ \(rgbPixels[\([\ 3\ ]\)]\)[\([y]\)]\)[\([x]\)]\ /\ 255\ , 1, 0]\[IndentingNewLine], {y, 1, height\ \ }, {x, 1, width\ \ }\[IndentingNewLine]];\)\)], "Input"], Cell[BoxData[ \(BS\ = \ ListDensityPlot[\ screenData\ \ \ , \ Mesh \[Rule] False, AspectRatio \[Rule] height/width, Frame \[Rule] False, \ ImageSize \[Rule] {width, \ height\ }\ , ColorFunction \[Rule] BF\ ]\)], "Input"] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1400}, {0, 1005}}, AutoGeneratedPackage->Automatic, WindowSize->{730, 919}, WindowMargins->{{-1228, Automatic}, {-13, Automatic}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, StyleDefinitions -> "Demo.nb" ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1754, 51, 73, 0, 56, "Title"], Cell[1830, 53, 52, 0, 57, "Subsubtitle"], Cell[CellGroupData[{ Cell[1907, 57, 73, 0, 82, "Section"], Cell[1983, 59, 54, 1, 34, "Input"], Cell[2040, 62, 56, 1, 34, "Input"], Cell[2099, 65, 55, 1, 34, "Input"], Cell[2157, 68, 101, 2, 34, "Input", InitializationCell->True], Cell[2261, 72, 109, 2, 34, "Input", InitializationCell->True], Cell[2373, 76, 112, 2, 34, "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[2522, 83, 55, 0, 82, "Section"], Cell[CellGroupData[{ Cell[2602, 87, 93, 1, 43, "Subsubsection"], Cell[2698, 90, 105, 2, 34, "Input"], Cell[2806, 94, 44, 1, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2887, 100, 99, 1, 43, "Subsubsection"], Cell[2989, 103, 64, 1, 34, "Input"], Cell[3056, 106, 61, 1, 34, "Input"], Cell[3120, 109, 64, 1, 34, "Input"], Cell[3187, 112, 72, 1, 34, "Input"], Cell[3262, 115, 249, 4, 94, "Input"], Cell[3514, 121, 128, 2, 34, "Input"], Cell[3645, 125, 490, 7, 174, "Input"], Cell[4138, 134, 296, 4, 114, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4471, 143, 108, 1, 43, "Subsubsection"], Cell[4582, 146, 128, 2, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4747, 153, 79, 0, 43, "Subsubsection"], Cell[4829, 155, 367, 5, 134, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5233, 165, 120, 1, 43, "Subsubsection"], Cell[5356, 168, 124, 2, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5517, 175, 120, 1, 43, "Subsubsection"], Cell[5640, 178, 125, 2, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5802, 185, 108, 1, 43, "Subsubsection"], Cell[5913, 188, 127, 3, 34, "Input"], Cell[6043, 193, 126, 2, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6218, 201, 123, 1, 82, "Section"], Cell[6344, 204, 281, 5, 114, "Input"], Cell[CellGroupData[{ Cell[6650, 213, 74, 0, 43, "Subsubsection"], Cell[6727, 215, 508, 9, 194, "Input"], Cell[7238, 226, 1197, 22, 294, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8472, 253, 93, 1, 43, "Subsubsection"], Cell[8568, 256, 103, 2, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8720, 264, 43, 0, 82, "Section"], Cell[CellGroupData[{ Cell[8788, 268, 49, 0, 43, "Subsubsection"], Cell[8840, 270, 92, 1, 34, "Input"], Cell[8935, 273, 255, 6, 74, "Input"], Cell[9193, 281, 258, 5, 54, "Input"], Cell[9454, 288, 257, 5, 54, "Input"], Cell[9714, 295, 107, 2, 34, "Input"], Cell[9824, 299, 575, 11, 174, "Input"], Cell[10402, 312, 113, 2, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[10552, 319, 120, 1, 43, "Subsubsection"], Cell[10675, 322, 355, 6, 114, "Input"], Cell[11033, 330, 89, 1, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11159, 336, 73, 0, 43, "Subsubsection"], Cell[11235, 338, 73, 1, 34, "Input"], Cell[11311, 341, 818, 19, 114, "Input"], Cell[12132, 362, 820, 19, 114, "Input"], Cell[12955, 383, 819, 19, 114, "Input"], Cell[13777, 404, 111, 2, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[13925, 411, 58, 0, 43, "Subsubsection"], Cell[13986, 413, 540, 9, 154, "Input"], Cell[14529, 424, 108, 2, 34, "Input"], Cell[14640, 428, 1118, 21, 254, "Input"], Cell[15761, 451, 93, 1, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[15891, 457, 99, 1, 43, "Subsubsection"], Cell[15993, 460, 56, 1, 34, "Input"], Cell[16052, 463, 518, 10, 154, "Input"], Cell[16573, 475, 81, 1, 34, "Input"], Cell[16657, 478, 142, 3, 34, "Input"], Cell[16802, 483, 43, 1, 34, "Input"], Cell[16848, 486, 708, 12, 294, "Input"], Cell[17559, 500, 108, 2, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17716, 508, 43, 0, 82, "Section"], Cell[17762, 510, 334, 6, 94, "Input"], Cell[18099, 518, 196, 3, 54, "Input"], Cell[18298, 523, 302, 5, 94, "Input"], Cell[18603, 530, 64, 1, 34, "Input"], Cell[18670, 533, 259, 5, 54, "Input"], Cell[18932, 540, 64, 1, 34, "Input"], Cell[18999, 543, 300, 5, 94, "Input"], Cell[19302, 550, 259, 5, 54, "Input"], Cell[19564, 557, 64, 1, 34, "Input"], Cell[19631, 560, 302, 5, 94, "Input"], Cell[19936, 567, 259, 5, 54, "Input"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)