Отрезок -10.10 разбить на N - 1 частей

restart;
N := 32;
                                     32
x:=-10..10;
                                  -10 .. 10
A:=array(1..N);
 
F:=x->piecewise(x>-3 and x<3,1,x<>-3..3,0);
for i from 1 to N by 1 do 
A[i]:=evalf(F(i)):
end do:
B:=convert(A,list);
x -> piecewise(-3 < x and x < 3, 1, x <> -3 .. 3, 0)
[1., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 
 
  0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.]
 
x:=array(B);
 
y:=array(B);
 
FFT(4,x,y);
                                     16
print(x);
                                      x
print(y);
                                      y
iFFT(4,x,y);
                                     16
print(x);
                                      x
print(y);
                                      y

restart; N := 32; 
F :=x-> piecewise(-3 < x and x < 3, 1, x <> -3 .. 3, 0) ; 
plot(F);# график
FF := seq(F(-10+20*i/N), i = 1 .. N); 
FF[1], FF[10], FF[32];# пример