Plot[x^2,{x,0,1}]

myfunction[x_]:=3x^3-2x^2+x-1
myfunction[10]

Plot[myfunction[x],{x,-2,3}]

Factor[14x^2+5x-66]

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

Expand[(x-17)(x+15)(x-2)(x+7)(x+3)]

Factor[10710-171 x-2084 (x^2)-270 (x^3)+6 (x^4)+(x^5)]

Factor[x^6+2x^5+3x^4-7x^3-12x^2+1]

Solve[3x^2+2x-9==0]

Solve[a x^2+b x+c==0,x]

Solve[3x^5+2x^4-6x^3+2x-9==0]

N[Solve[3x^5+2x^4-6x^3+2x-9==0]]

Roots[x^3+2x-7==0,x]

FindRoot[myfunction[x],{x,1}]

D[x^4,x]

D[x^4,x,x]

myfunction'[x]

myfunction''[x]

Simplify[D[Sin[x]/x,x] - (Cos[x] x - Sin[x])/x^2]

FullSimplify[D[Sin[x]/x,x] - (Cos[x] x - Sin[x])/x^2]

Factor[D[Sin[x]/x,x] - (Cos[x] x - Sin[x])/x^2]

For[n=1, n<2,n++,y=n]
Print[n,"  ",y]