Komprese 

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

with(ImageTools); 1; with(DiscreteTransforms); 1; with(MTM); 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  

Uka~ obrázek  

Ulo~ obrázek  

Diskretní Fourierova transformace 

`assign`(obrCBFT, [real(FourierTransform(obrCB)), imag(FourierTransform(obrCB))]); 1 

Uka~ reálnou a imaginární 
ást  

 

Ořezání:  

`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
`assign`(orezani, proc (r, s, pole) local i, j, rMax, sMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(pole)[1]))[-1]); `assign`(sMax, (`$`(rtable_dims(pole)[2]))[-1]); `assign`(tmpPole, pole); for i to...
 

`assign`(n, 20); 1 

`assign`(obrCBFTorezane, [orezani(n, n, obrCBFT[1]), orezani(n, n, obrCBFT[2])]); 1 

Uka~ reálnou a imaginární 
ást  

Diskretní inverzní Fourierova transformace:  

`assign`(obrCBIFT, [InverseFourierTransform(op(obrCBFTorezane))]); 1 

Uka~ reálnou a imaginární 
ást  

 

`assign`(t, Matrix(1 .. 10, 1 .. 10, 1)) 

orezani(2, 2, t); 1