> using lib::ptri;
> simplify $ df ((x+5)^3) x;
3*x^2+30*x+75
> redpp ans;
3⋅x2+30⋅x+75
> let r = simplify $ intg (exp (2*x)) x;
> r;
e^(2*x)/2
> redpp r;
e2⋅x2
> simplify $ solve (x^2+7) x;
[x==sqrt 7*i,x==-sqrt 7*i]
> redpp ans;
{x=√7⋅i,x=−√7⋅i}
> redpp $ df (log(sin x)^2) x;
2⋅cos(x)⋅ln(sin(x))sin(x)
> declare depend [z,cos x,y];
()
> simplify (df (sin z) (cos x));
cos z*df z (cos x)
> redpp ans;
cos(z)⋅∂z∂cos(x)
> redpp (df (z^2) x);
2⋅∂z∂x⋅z
> I a b n = simplify $ intg (x^2*(a*x+b)^n) x;
> I a b n;
((a*x+b)^n*a^3*n^2*x^3+3*(a*x+b)^n*a^3*n*x^3+2*(a*x+b)^n*a^3*x^3+(a*x+b)^n*a^2*b*n^2*x^2+(a*x+b)^n*a^2*b*n*x^2-2*(a*x+b)^n*a*b^2*n*x+2*(a*x+b)^n*b^3)/(a^3*n^3+6*a^3*n^2+11*a^3*n+6*a^3)
> redpp ans;
(a⋅x+b)n⋅a3⋅n2⋅x3+3⋅(a⋅x+b)n⋅a3⋅n⋅x3+2⋅(a⋅x+b)n⋅a3⋅x3+(a⋅x+b)n⋅a2⋅b⋅n2⋅x2+(a⋅x+b)n⋅a2⋅b⋅n⋅x2−2⋅(a⋅x+b)n⋅a⋅b2⋅n⋅x+2⋅(a⋅x+b)n⋅b3a3⋅n3+6⋅a3⋅n2+11⋅a3⋅n+6⋅a3
> simplify $ 'map (y=>df y x) [x^n,x^m,sin x];
[x^n*n/x,x^m*m/x,cos x]
> redpp ans;
{xn⋅nx,xm⋅mx,cos(x)}
> let f = 2/((x+1)^2*(x+2));
> simplify $ pf f x;
[2/(x+2),(-2)/(x+1),2/(x^2+2*x+1)]
> redpp ans;
{2x+2,−2x+1,2x2+2⋅x+1}
> reduce::switch "exp" 0 ;
0
> redpp $ pf f x;
{2x+2,−2x+1,2(x+1)2}
> let eqn1 = log(sin (x+3))^5 == 8 ;
> let sol1 = simplify $ solve eqn1 x;
> sol1!0;
x==pi-3-asin (e^2^(3/5))+2*arbint 1*pi
> redpp ans;
x=π−3−\asin(e235)+2⋅arbint(1)⋅π
> let s0 = {1,0;0,1} ;
... let s1 = {0,1;1,0} ;
... let s2 = {0,-i;i,0};
... let s3 = {1,0;0,-1};
> redpp s0;
(1001)
> redpp [s0,s1,s2,s3];
{(1001),(0110),(0−ii0),(100−1)}
> map (simplify.tp) [s1,s2,s3] ;
[{0,1;1,0},{0,i;-i,0},{1,0;0,-1}]
> redpp ans;
{(0110),(0i−i0),(100−1)}
> redpp (1/{a11,a12;a21,a22}*{y1;y2}) ;
⎛⎜⎝−(a12⋅y2−a22⋅y1)a11⋅a22−a12⋅a21a11⋅y2−a21⋅y1a11⋅a22−a12⋅a21⎞⎟⎠
> simplify $ limit (1/x) x 0 ;
inf
> redpp ans;
∞
> simplify $ odesolve [(df y x 2) == y] [y] x [[x==0,y==A],[x==1,y==B]] ;
*** depend y , x
[y==((A*e-B)*e-e^(2*x)*(A-B*e))/(e^x*(e^2-1))]
> declare depend [y,x];
()
> simplify $ odesolve [(df y x 2) == y] [y] x [[x==0,y==A],[x==1,y==B]] ;
[y==((A*e-B)*e-e^(2*x)*(A-B*e))/(e^x*(e^2-1))]
> redpp ans;
{y=(A⋅e−B)⋅e−e2⋅x⋅(A−B⋅e)ex⋅(e2−1)}
> simplify $ plot (sin x/x) (x=='(-15..15));
[]
>