İNSAN BEYNİ - Hasan Hüseyin BALIK

-1.renk(x+1,y+1)x-1,y-1 x,y-1 x+1,y-1x-1,y x,y x+1,yx-1,y+1 x,y+1 x+1,y+1Örneğin; Qbasic’te şöyle bulunur.g x =-point(x-1,y-1)-point(x-1,y)-point(x-1,y+1)+point(x+1,y-1)+point(x+1,y)+point(x+1,y+1)g y =+point(x-1,y-1)+point(x,y-1)+point(x+1,y-1)-point(x-1,y+1)-point(x,y+1)-point(x+1,y+1)2- Laplacien Operatörü:renk=-1/4-1/4 1 -1/4-1/4renk=point(x,y)-(1/4) * [point(x,y+1)+point(x,y-1)+point(x+1,y)+point(x-1,y)]Basic’te yazılışı;SUB use laplacienSHARED x,y,x 1 ,y 1 ,x 2 ,y 2FOR x=x 1 TO x 2 +1FOR y=y 1 -1 TO y 2 +1İntensity=0İntensity point(x,y)-(1/4) * [point (x,y+1)+point(x,y-1)point(x+1,y)+point(x-1,y)]PSET (x+x 2 -x 1 +2θ,y) , INT (intensity)NEXT y,x