MatrixPower[(({{1, 2.}, {7, 13}})),(1/5)]

FindMinimum[{x+2y,(x^2)+(y^2)==1},{x,y}]

Minimize

Plot[-((-1+Tanh[1000(x-3)])/2),{x,-10,10}]

FcePulz[{amp_,a_,b_}]:=(amp/2)*(((1+Tanh[1000(x-a)])/2)-((-1+Tanh[1000(x-b)])/2))

Plot[Evaluate[FcePulz[{5,2,3}]],{x,-10,10}]

k=FcePulz[{20,-100,-15}]+FcePulz[{15,-15,-12}]+FcePulz[{12,-12,-8}];

Plot[FcePulz[{20,-100,-15}],{x,-30,10},PlotRange->{Automatic,{0,30}}]

Arg[1.+2I]

A=1+I
B=1-3I

((A*B)/(A+B))

(I^I)*1.

(E^(-(Pi/2.)))

Solve[x==1+Tanh[0.5x],x]

FindRoot[x==1+Tanh[0.5x],{x,100}]

Solve[Sin[x]==0,x]

((x/.FindRoot[Sin[x]==0,{x,(Pi/2)}])/Pi)

b1={0,0.5,0};
b2={2,0,0};
b3={0,0,1};
x={1,2,3};

Solve[a1*b1+a2*b2+a3*b3==x,{a1,a2,a3}]

ClearAll[x]

NIntegrate[((Sin[x])/x),{x,1,2}]

Plot[((Sin[x])/x),{x,1,2}]

Manipulate[DSolve[y''[t]+b*y'[t]+c*y[t]==0,y[t],t],{c,-5,5},{b,-5,5}]

Fit[{{1,2},{-3,5},{0,1},{4,-3}},{1,x,(x^2),(x^3)},x]