Segmentace 

Nahrání balíčku pro práci s obrázky: 

with(ImageTools); 1; with(plots); 1; with(plottools); 1 

 

Příkazy Read, View, Write - případně spolu s vyhledávačem souborů skryty pod knoflíky: Obrázku je při nahrání přiděleno jméno "obr" a předpokládá se i v dalších krocích zpracování. 

Nahraj obrazek  

Ukaz obrazek  

`assign`(h, Histogram(obr, 10)); 1 

PlotHistogram(obr) 

 

CodeEditor-Buttonn := 60; #Matice zeleno-modrá

60Matrix(%id = 175564236)proc (r, g, b, n) local m; `assign`(m, sqrt(`+`(`*`(`^`(r, 2)), `*`(`^`(g, 2)), `*`(`^`(b, 2))))); if `<`(0, m) then [round(`+`(`/`(`*`(g, `*`(`+`(n, `-`(1)))), `*`(m)), 1)), round(`+`(`/`(`*`(b, `*`(...
proc (r, g, b, n) local m; `assign`(m, sqrt(`+`(`*`(`^`(r, 2)), `*`(`^`(g, 2)), `*`(`^`(b, 2))))); if `<`(0, m) then [round(`+`(`/`(`*`(g, `*`(`+`(n, `-`(1)))), `*`(m)), 1)), round(`+`(`/`(`*`(b, `*`(...
proc (r, g, b, n) local m; `assign`(m, sqrt(`+`(`*`(`^`(r, 2)), `*`(`^`(g, 2)), `*`(`^`(b, 2))))); if `<`(0, m) then [round(`+`(`/`(`*`(g, `*`(`+`(n, `-`(1)))), `*`(m)), 1)), round(`+`(`/`(`*`(b, `*`(...
proc (r, g, b, n) local m; `assign`(m, sqrt(`+`(`*`(`^`(r, 2)), `*`(`^`(g, 2)), `*`(`^`(b, 2))))); if `<`(0, m) then [round(`+`(`/`(`*`(g, `*`(`+`(n, `-`(1)))), `*`(m)), 1)), round(`+`(`/`(`*`(b, `*`(...
proc (r, g, b, n) local m; `assign`(m, sqrt(`+`(`*`(`^`(r, 2)), `*`(`^`(g, 2)), `*`(`^`(b, 2))))); if `<`(0, m) then [round(`+`(`/`(`*`(g, `*`(`+`(n, `-`(1)))), `*`(m)), 1)), round(`+`(`/`(`*`(b, `*`(... 

 

CodeEditor-Buttonmatrixplot(colorHistogramMatri

Plot_2d 

CodeEditor-Buttonzastoupení barev

0[33, 42], 1304proc (x, sh) options operator, arrow; `/`(`*`(ln(`+`(1, x, sh))), `*`(ln(`+`(1, mm, sh)))) end procproc (i, j) options operator, arrow; evalf(f(colorHistogramMatrix[i, j], sh)) end proc3proc (x, y, r) options operator, arrow; plots:-display(plottools[plottools:-circle]([x, y], r, color = red)) end proc 

Embedded component 

 

 

CodeEditor-Buttonmaska := Create(Height(obr), Width(obr), channels = 3, [

Array(%id = 216967568)