Mitä näet tässä kuvassa
Tätä et pysty olemaan näkemättä
Tämän näkee tietokone
Esimerkkisovelluksia 1
Lyhyt aikajana tutkimusalueista
Esimerkkejä 70-luvulta
Esimerkkejä 80-luvulta
Esimerkkejä 90-luvulta
Esimerkkejä 2000-luvulta
Konenäön esitiedot
Projektityö: Kokeillaan menetelmiä käytännön ongelmaan.
Tutoriaalit: Tutustutaan tarkemmin eri menetelmiin, sekä käytännössä, että teorian kautta
Kurssikirja: Hankitaan kokonaiskuva konenäöstä.
Klo. | Ma | Ti | Ke | To | Pe |
---|---|---|---|---|---|
8-10 | - | - | - | - | - |
10-12 | Luku & puuha- tuokio | - | - | - | Tutoriaali |
14-16 | - | - | - | - | Kotitenttien palautus |
16-20 | - | - | - | - | - |
t/vko | viikkoja | yht. | |
---|---|---|---|
Lukutuokiot | 2 | 8 | 16 |
Tutoriaalit | 2 | 9 | 18 |
Kotitentti + kirja | 5 | 8 | 40 |
Harjoitustyö (kotona) | 7 | 5 | 35 |
9-16 | 9 | 109h = 4op |
Pts | Arvosana |
---|---|
16 | 1 |
18 | 2 |
21 | 3 |
24 | 4 |
28 | 5 |
Chironomus-toukan hammasrivistö
Palkallinen gradu kesällä 2012
Lohi
Palkallinen gradu kesällä 2012
Paljonko tässä juostaan?
Miten tämä tehdään automaattisesti
Mahdollisesti palkallinen gradu kesällä 2012
Onko kuvassa tekstiä? Missä kohdassa? Mitä tekstiä?
Mitä tekstiä kuvassa on?
vs.
-- Haskell esim. 1.
k (x,y) | l1norm (x-y) < 50 = 1
| otherwise = 0
vs.
-- Haskell esim. 2.
t f (x,y) | f(x,y) > 0.5 = 1
| otherwise = f(x,y)
Herra Fourier
import WebTools
import CV.Pixelwise
-- Haskell esim. 3.
main = webG "testikuva" "images/FourierSmall.jpg" (remapImage t)
t f (x,y) | f(x,y) > 0.5 = 1
| otherwise = f(x,y)
Komentotulkkiesimerkki
awgre:kurssi2012(master) aleator$ ghci
GHCi, version 7.4.1: http://www.haskell.org/ghc/ :? for help
Prelude> import CV.Filters
Prelude CV.Filters> import CV.Image
Prelude CV.Filters CV.Image> Just x <- loadImage "images/FourierSmall.jpg"
Prelude CV.Filters CV.Image> let result = gaussian (13,13) x
Prelude CV.Filters CV.Image> saveImage "tulos.png" result
Prelude CV.Filters CV.Image> ^d
{-#LANGUAGE DeriveGeneric, RecordWildCards#-}
module Main where
import Graphics.Tools.DefaultGUI
import CV.Image
import CV.Filters
import CV.ImageMath as IM
data Parameters = P {threshold :: Bool
,t :: DoubleRange Zero One
,mat :: ConvolutionMask Five Five } deriving (Generic)
instance Default Parameters
instance Persist Parameters
instance Tangible Parameters
main :: IO ()
main = defaultGUI "ParametriTiedosto" "rectangle_5.png" experiment
experiment :: Parameters -> Image GrayScale D32 -> [PaintableBox]
experiment P{..} image = [PB result, PB conv]
where
conv = convolve2D (value mat) (2::Int,2::Int) image
result | threshold = unsafeImageTo32F (IM.moreThan (realToFrac (value t)) conv)
| otherwise = conv
GraphicsTools GUI
cabal update ; cabal install CV -fopencv23 ; cabal install Graphicstools
cabal install CV -fopencv23 --extra-include-dirs=<mihin opencv on asennettu> --extra-lib-dirs=<samoin>
cabal install hakyll
.cabal update ; cabal install --extra-lib-dirs=/usr/local/lib -fopencv23
LD_LIBRARY_PATH=/usr/local/lib <ohjelma>
brew install opencv
cabal install -fopencv23 --extra-lib-dirs=/usr/local/lib/libcv.dylib --extra-include-dirs=/usr/local/include/opencv/
Anna vain olla. Niin teki IT-tukikin kahden päivän jälkeen.