PRINT
PRINT "　0.05　0.10　0.05"
PRINT "　0.10　0.40　0.10"
PRINT "　0.05　0.10　0.05"
PRINT
PRINT "上のスキャンマシーンを使って、畳込みをしていきます。"
PRINT
DIM A(16,16),B(14,14)
LET Q = 0
LET W = 0
FOR i=1 TO 16
   FOR j=1 TO 16
      LET A(i,j) = 72
   NEXT j
NEXT i
FOR i=1 TO 3
   FOR j=1 TO 16
      LET A(i,j) = 10
   NEXT j
NEXT i
FOR i=14 TO 16
   FOR j=1 TO 16
      LET A(i,j) = 10
   NEXT j
NEXT i
FOR i=1 TO 16
   FOR j=1 TO 3
      LET A(i,j) = 10
   NEXT j
   FOR j=14 TO 16
      LET A(i,j) = 10
   NEXT j
NEXT i
FOR i=6 TO 11
   FOR j=6 TO 11
      LET A(i,j) = 10
   NEXT j
NEXT i
FOR i=6 TO 11
   LET A(i,i) = 72
NEXT i
FOR i=1 TO 16
   FOR j=1 TO 16
      LET Q = Q + A(i,j)
      PRINT A(i,j);"　";
   NEXT j
   PRINT
NEXT i
PRINT
PRINT
FOR i=1 TO 14
   FOR j=1 TO 14
      LET B(i,j)=SISYAGO(A(i,j)*0.05+A(i,j+1)*0.1+A(i,j+2)*0.05+A(i+1,j)*0.1+A(i+1,j+1)*0.4+A(i+1,j+2)*0.1+A(i+2,j)*0.05+A(i+2,j+1)*0.1+A(i+2,j+2)*0.05,0)
   NEXT j
NEXT i

FOR i=1 TO 14
   FOR j=1 TO 14
      LET W = W + B(i,j)
      PRINT B(i,j);"　";
   NEXT j
   PRINT
NEXT i

PRINT
PRINT "平均値（ フィルタリング前 ） ＝ ";SISYAGO(Q/(16*16),0)
PRINT "平均値（ フィルタリング後 ） ＝ ";SISYAGO(Q/(14*14),2)
PRINT
END

EXTERNAL  FUNCTION  SISYAGO (n,m)
LET SISYAGO = INT(n*10^m+0.5)/10^m
END FUNCTION