22/7

N[%]

Първо упражнение върху Mathematica

E

10 + I - (13 + 2 I)

(2012^2012)

100!

1000!

x/x+1

(x/(x+1))

(Sqrt[((((3^(1/4))^(1/2))^(1/2))^(1/2))])

Simplify[(Sqrt[(x^2)]),Assumptions -> {x <0 }]

(Sqrt[(5^2)])

(Sqrt[2])+(Sqrt[3])

N[%]

(((Sqrt[2])+(Sqrt[3]))/((Sqrt[2])-(Sqrt[3])))

Rationalize[(((Sqrt[2])+(Sqrt[3]))/((Sqrt[2])-(Sqrt[3])))]

Simplify[Sin[n Pi],n∈Integers]

∫(1/(((1+(x^2)))^2))\[DifferentialD]x

Solve[ x+1==0,x]

Solve[z+(x^2)-Log[y]==0,y]

Solve[x+y==1,{x,y,Assumptions->{x-> Integer,y->Integer,0<x<5,0<y<5}}]

FindRoot[Sin[x]+Exp[x],{x,0}]

?Solve

NSolve[{x+y-(x^3)==0,(y^2)-x==0},{x,y}]

Solve[{x+y==0,2x+2y==0},{x,y}]

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

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

(∂_x)(x^2)

FullSimplify[(((Sqrt[2])+(Sqrt[3]))/((Sqrt[2])-(Sqrt[3])))]

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

Plot[(x/(x-1)),{x,0,1},{Axes->False,PlotLabel->"Function Plot"}]

?Plot

Plot[Sin[x],{x,0,10},{Axes->True,Filling->Top}]

Plot[Sin[x],{x,0,10},{Axes->True,Filling->Top,AspectRatio->Automatic}]

Plot[{Sin[0.5x],Sin[x],Sin[2x],Sin[3x],Sin[4x]},{x,0,4π},{Axes->True,Filling->Axis}]

Plot[((E^x)/(1+x))+Log[x]-(3^((E^x)-(x^2))),{x,0,1}]

Plot3D[x+(y^2)-1,{x,0,10},{y,0,10}]

ParametricPlot[{Sin[x]x,x Cos[x]},{x,0,10},Mesh->10]

?ParametricPlot3D

ChemicalData["Water"]