Размытие по Гауссу в Maple

> restart;
> with(ImageTools);
 
> FileLocation := cat("C:/image1.jpg");
  MyImg := Read(FileLocation);
 
> View(MyImg);
 
> GaussianBlur := proc(Img::Image, RADIUS::integer)::Image;
    sigma, W, Kernel, x, y;
    flag := true;
    sigma := RADIUS;
    W := 3*sigma;
    Kernel := Matrix(1 .. W, 1 .. W);
    for x to W do for y to W do
      Kernel[x, y] := (1/2)*evalf(exp(1), 10)^((-1)*.5*((1/2)*((x-(1/2)*W)^2+(y-(1/2)*W)^2)/sigma^2))/(evalf(Pi, 10)*sigma^2)
    end do end do;
    Img1 := Img;
    Img1 := Convolution(Img, Kernel, weight = 1);
    return Img1
  end proc;
 
> GaussianBlurConv := proc(Img::Image, RADIUS::integer)::Image;
    sigma, W, Kernel, x, y;
    flag := true;
    sigma := RADIUS;
    W := 3*sigma;
    Kernel := Matrix(1 .. W, 1 .. W);
    for x to W do for y to W do
      Kernel[x, y] := (1/2)*evalf(exp(1), 10)^((-1)*.5*((1/2)*((x-(1/2)*W)^2+(y-(1/2)*W)^2)/sigma^2))/(evalf(Pi, 10)*sigma^2)
    end do end do;
    kCenterX := (1/2)*W;
    kCenterY := (1/2)*W;
    Img1 := Img;
    for i to Height(Img) do for j to Width(Img) do
      Img1[i][j] := 0;
      for m from 0 to W-1 do
        mm := W-m;
        for n from 0 to W-1 do
          nn := W-n;
          ii := i+m-kCenterY;
          jj := j+n-kCenterX;
          if 1 <= ii and ii <= Height(Img) and 1 <= jj and jj <= Width(Img) then
            Img1[i][j] := Img1[i][j]+Img[ii][jj]*Kernel[mm][nn];
          end if
        end do
      end do
    end do end do;
    return Img1
  end proc;
 
> MyImg1Blur := GaussianBlur(MyImg1, 3);
  View(MyImg1, MyImg1Blur);
 
> MyImg1Blur1 := GaussianBlurConv(MyImg1, 3);
  View(MyImg1, MyImg1Blur1);

Error, (in GaussianBlurConv) bad index into Array
Error, (in ImageTools:-View) parameters must be images or lists of images