RANDOMIZE
PRINT
PRINT "画像処理  不鮮明化フィルタリング の 原理モデル"
PRINT "　 ２×２画素のセグメントで平均値をとっていきます。"
PRINT " 　６×６画素　→　５×５画素 →　４×４画素 →　３×３画素　→　２×２画素 "
PRINT
DIM A1(6,6),A2(5,5),A3(4,4),A4(3,3),A5(2,2)
LET Q = 0
LET W = 0
FOR i=1 TO 6
   LET A1(i,1) = 0
   LET A1(i,5) = 0
   LET A1(i,6) = 0
NEXT i
FOR j=2 TO 4
   LET A1(1,j) = 0
   LET A1(5,j) = 0
   LET A1(6,j) = 0
NEXT j
LET A1(2,2) = 55
LET A1(2,3) = 97
LET A1(2,4) = 55
LET A1(3,2) = 97
LET A1(3,3) = 100
LET A1(3,4) = 97
LET A1(4,2) = 55
LET A1(4,3) = 97
LET A1(4,4) = 55
FOR i=1 TO 6
   FOR j=1 TO 6
      LET Q = Q + A1(i,j)
   NEXT j
NEXT i
MAT PRINT A1
PRINT
FOR i=1 TO 5
   FOR j=1 TO 5
      LET A2(i,j) = ( A1(i,j) + A1(i+1,j) + A1(i,j+1) + A1(i+1,j+1) ) / 4
   NEXT j
NEXT i
MAT PRINT A2
PRINT
FOR i=1 TO 4
   FOR j=1 TO 4
      LET A3(i,j) = ( A2(i,j) + A2(i+1,j) + A2(i,j+1) + A2(i+1,j+1) ) / 4
   NEXT j
NEXT i
MAT PRINT A3
PRINT
FOR i=1 TO 3
   FOR j=1 TO 3
      LET A4(i,j) = ( A3(i,j) + A3(i+1,j) + A3(i,j+1) + A3(i+1,j+1) ) / 4
   NEXT j
NEXT i
MAT PRINT A4
PRINT
FOR i=1 TO 2
   FOR j=1 TO 2
      LET A5(i,j) = ( A4(i,j) + A4(i+1,j) + A4(i,j+1) + A4(i+1,j+1) ) / 4
      LET W = W + A5(i,j)
   NEXT j
NEXT i
MAT PRINT A5
PRINT
PRINT "平均値（ フィルタリング前 ） ＝ " ; Q / (6^2)
PRINT "平均値（ フィルタリング後 ） ＝ " ; W / (2^2)
PRINT
END