E

N[E]

N[E,200]

2.718281828459045235360287471352662497757247093699959574966967627724076630353547594571382178525166427427466391932003059921817413596629043572900334295260595630738132328627943490763233829880753195251019011573833518628492306386741251339`200.

Pi

N[Pi,10]

Cos[Pi/8]

N[Cos[(π/8)]]

Factor[x^4-3x^2+2]

(-1+x) (1+x) (-2+(x^2))

D[(Sin[3 x])^2,x]

D[x^3 Sin[2x]ArcTan[x],x]

Integrate[x^3 Sin[2x] ArcTan[x],x]

NIntegrate[x^3 Sin[2x] ArcTan[x],{x,0,3}]

f[x_]:= x E^x

f[2]

N[f[2]]

Solve[x E^x==2,x]

N[Solve[x E^x == 2, x]]

f[_x]==(E^x) x

f[2]

N[f[2]]

Plot[Sin[x],{x,0, 2*Pi}]

Manipulate[Plot[A*Sin[k*x-w*t],{x,0,10*Pi}],{A,0,10},{k,0,10},{w,0,100},{t,0,10}]

h=6.626 * 10^-34
e=1.602 * 10^-19

Manipulate[Plot[(h/e)*nu - phi/e,{nu,0, 7 * 10^14}],{phi,0,4*1.602*10^-19}]