c1ddb4c814 2021-03-01 jeff@gridfini: % Introduction to Reduce
c1ddb4c814 2021-03-01 jeff@gridfini: %
c1ddb4c814 2021-03-01 jeff@gridfini: (x+y+z)^2;
c1ddb4c814 2021-03-01 jeff@gridfini: for i:= 1:40 product i;
c1ddb4c814 2021-03-01 jeff@gridfini: factorial 40;
c1ddb4c814 2021-03-01 jeff@gridfini: u := (x+y+z)^2;
c1ddb4c814 2021-03-01 jeff@gridfini: df(ws,x);
c1ddb4c814 2021-03-01 jeff@gridfini: int(ws,y);
c1ddb4c814 2021-03-01 jeff@gridfini: matrix m(2,2);
c1ddb4c814 2021-03-01 jeff@gridfini: m := mat((a,b),(c,d));
c1ddb4c814 2021-03-01 jeff@gridfini: %
c1ddb4c814 2021-03-01 jeff@gridfini: (sin(a+b)+cos(a+b))*(sin(a-b)-cos(a-b))
c1ddb4c814 2021-03-01 jeff@gridfini: where cos(~x)*cos(~y) => (cos(x+y)+cos(x-y))/2,
c1ddb4c814 2021-03-01 jeff@gridfini: cos(~x)*sin(~y) => (sin(x+y)-sin(x-y))/2,
c1ddb4c814 2021-03-01 jeff@gridfini: sin(~x)*sin(~y) => (cos(x-y)-cos(x+y))/2;
c1ddb4c814 2021-03-01 jeff@gridfini: %
c1ddb4c814 2021-03-01 jeff@gridfini: on fort;
c1ddb4c814 2021-03-01 jeff@gridfini: df(log(x)*(sin(x)+cos(x))/sqrt(x),x,2);
c1ddb4c814 2021-03-01 jeff@gridfini: off fort;
c1ddb4c814 2021-03-01 jeff@gridfini: %