share/calculus/fourie.dem

   1 load('fourie)$
   2 funp(sin,sin(a)*cos(x)+sin(b));
   3 funp(sin,sin(a)*cos(x)+sin(b),x);
   4 remfun(abs,abs(a)+sin(abs(b)+c)*abs(d)/e);
   5 remfun(abs,abs(a*abs(x)+abs(b))+abs(c)+abs(x*abs(d)),x);
   6 f(f(f(a)+b)*c)*f(d)^f(e);
   7 remfun(f,''%);
   8 absint(abs(a)*abs(x),x,both);
   9 absint(abs(cos(x)),x);
  10 absint(abs(a)*exp(-abs(b)*abs(x)),x,minf,inf);
  11 absint(sin(x),x,-%pi,%pi);
  12 absint(abs(sin(x)),x,-%pi,%pi);
  13 fourier(abs(x),x,1);
  14 foursimp(%);
  15 fourexpand(%,x,1,inf);
  16 fourexpand(%th(2),x,1,5);
  17 totalfourier(x,x,%pi);
  18 foursin(1,x,%pi);
  19 foursimp(%);
  20 fourint(exp(-abs(x)),x);