index.htm (Mathematica 5.1 for Students

(* By Nasser AbbasiEECS 207A, Lab 5 Color detection, see report for algorithm Decmber 2, 2004 *)Remove["Global`*"] ;

raw = RawImageData[img] ; (*same as image[[1]] *)r = N[Take[raw, {1, nRow}, {1, nCol}, {1, 1}]] ;

Block[{$DisplayFunction = Identity}, pdfRedp = ListPlot[pdfRed〚All, 2〛 ... ;True, PlotLabel {"CDF Blue. num pixels=", nPixels}] ; ] ;

Show[GraphicsArray[ {pdfBluep, cdfBluep}], GraphicsSpacing {0.3, 0}] ; ɯ ... ;Graphics`Graphics`BarChart[cdfGreen] ; Graphics`Graphics`BarChart[cdfBlue] ; *)

For[i = 1, i≤nRow, i = i + 1,  {For[j = 1, j≤nCol, j = j + 1, &# ... [i, j]] = ss ; v[[i, j]] = vv ; } ] } ] ; <br />

h = h * 360 ; (*convert to degree*)b = Table[0, {i, nRow}, {j, nCol}] ; 

Print["Dimensions of Value (Brightness) =", Dimensions[v]] ; (*use 1 = RED, 2 = YELLOW, 3 = GREEN, 4 = CYAN, 5 = BLUE, 6 = MAGENTA*)

Print["Conversion completed, now counting colors..."] ; 

count = Table[0, {i, 6}] ; 

For[i = 1, i≤nRow, i = i + 1,  {For[j = 1, j≤nCol, j = j + 1, &# ... unt[[kMagenta]] = count[[kMagenta]] + 1}] ; } ] ; } ] ; 

$Print["Red pixels="<>ToString[count[[kRed]]] <> "\nYellow pixels="<>ToString[count[[kYellow]]] ] ;$

$Print["Green pixels="<>ToString[count[[kGreen]]] <> "\nCyan pixels="<>ToString[count[[kCyan]]] ] ;$

$Print["Blue pixels="<>ToString[count[[kBlue]]] <> "\nMagenta pixels="<>ToString[count[[kMagenta]]] ] ;$

$If[mcount[[kRed]], ListPlay[redSound, SampleRate22050, PlayRange {-2^15, 2^15}]] ;$

$If[mcount[[kYellow]], ListPlay[yellowSound, SampleRate22050, PlayRange {-2^15, 2^15}]] ;$

$If[mcount[[kGreen]], ListPlay[greenSound, SampleRate22050, PlayRange {-2^15, 2^15}]] ;$

$If[mcount[[kCyan]], ListPlay[cyanSound, SampleRate22050, PlayRange {-2^15, 2^15}]] ;$

$If[mcount[[kBlue]], ListPlay[blueSound, SampleRate22050, PlayRange {-2^15, 2^15}]] ;$

$If[mcount[[kMagenta]], ListPlay[magentaSound, SampleRate22050, PlayRange {-2^15, 2^15}]] ; $

[Graphics:HTMLFiles/index_92.gif]

{( {{254, 254, 254, 254, 254}, {254, 254, 254, 254, 254}, {254, 254, 254, 254, 254}, ... {{0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}} )}

[Graphics:HTMLFiles/index_100.gif]

[Graphics:HTMLFiles/index_102.gif]

[Graphics:HTMLFiles/index_106.gif]

[Graphics:HTMLFiles/index_107.gif]

[Graphics:HTMLFiles/index_108.gif]

$Red pixels=7220\nYellow pixels=0$

$Green pixels=0\nCyan pixels=0$

$Blue pixels=0\nMagenta pixels=0$

[Graphics:HTMLFiles/index_119.gif]

$General :: spell1 : Possible spelling error: new symbol name \"vSound\" is similar to existing symbol \"Sound\". More…$

$General :: spell : Possible spelling error: new symbol name \"hSound\" is similar to existing symbols {Sound, vSound} . More…$

$General :: spell1 : Possible spelling error: new symbol name \"kRed\" is similar to existing symbol \"Red\". More…$

$General :: spell1 : Possible spelling error: new symbol name \"kYellow\" is similar to existing symbol \"Yellow\". More…$

$General :: spell1 : Possible spelling error: new symbol name \"kGreen\" is similar to existing symbol \"Green\". More…$

$General :: spell1 : Possible spelling error: new symbol name \"kCyan\" is similar to existing symbol \"Cyan\". More…$

$General :: spell1 : Possible spelling error: new symbol name \"kBlue\" is similar to existing symbol \"Blue\". More…$

$General :: spell1 : Possible spelling error: new symbol name \"kMagenta\" is similar to existing symbol \"Magenta\". More…$

[Graphics:HTMLFiles/index_135.gif]

$General :: spell1 : Possible spelling error: new symbol name \"nRow\" is similar to existing symbol \"Row\". More…$

{( {{0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, ... 54}, {254, 254, 254, 254, 254}, {254, 254, 254, 254, 254}, {254, 254, 254, 254, 254}} )}