MATHEMATICA TOUR

2+2

2/3+3/4

2.167+3.452

3^100

N[%]

N[Sqrt[2],50]

(2+3 I)^12

BesselJ[0,6.25]

FindRoot[BesselJ[0,x],{x,6.25}]

N[Sin[ 1/2 + 3 I ]]

NIntegrate[Sin[Sin[x]],{x,0,Pi}]

FactorInteger[12345678987654321]

3 3 3 3 37 37 333667 333667

Plot[Sin[Exp[x]],{x,0,Pi}]

Show[%,Frame -> True,
       FrameLabel -> {"x coordinate","y coordinate"},
       GridLines -> Automatic ];

ContourPlot[Sin[x-Cos[y]],{x,-2,2},{y,-2,2}];

Plot3D[Sin[x]*Cos[y],{x,-Pi,Pi},{y,-Pi,Pi}];

ParametricPlot3D[{u Sin[t], u Cos[t], t/3},
                 {t,0,10},{u,-1,1}, Ticks -> None];

ParametricPlot3D[{Sin[t], Sin[2t] Sin[u], Sin[2t] Cos[u]},
                 {t,-Pi/2,Pi/2},{u,0,2 Pi}, Ticks -> None];

Show[ Graphics3D[
     {Cuboid[{0,0,0}], Cuboid[{2,2,2}],
      Cuboid[{2,0,0}], Cuboid[{0,2,0}],
      Cuboid[{0,0,2}], Cuboid[{2,2,0}],
      Cuboid[{2,0,2}], Cuboid[{0,2,2}]
     } ]];

Play[ Sin[2 Pi 440 t], {t,0,1}]