Introdução ao Mathematica

Calculadora

2+2

N[ (1/137)^23 ]

Cos[Pi/6]

Cos[Pi/6.]

N[ Cos[Pi/6],52]

Processamento simbólico

p1=5x^3+3x-2

p2=7x^4-5x^3+3x

p1+p2

p1 p2

%5

p2-p1

Factor[%]

Simplify[%]

p1 p2

Expand[%]

Cálculo

D[Tan[x]Exp[x],x]

D[p1,x]

Integrate[1/(1+x^2),x]

Integrate[x^x,x]

Series[(Sin[x]/x)^2,{x,Pi,10}]

Sistema de visualização

meuGrafico=Plot[ Tan[x],{x,-3,3}]

Export["grafico.jpg",meuGrafico]

ParametricPlot[{20t,20t-5t^2},{t,0,4}]

Plot[p1,{x,-3,3}]

p1

aqui escrevo qualquer texto ...

Plot[{HermiteH[1,r],HermiteH[2,r],HermiteH[3,r]},{r,0,2},AxesLabel->{"x","hermite(x)"}]   (* um comentario *)

Plot3D[LegendreP[2,x]LegendreP[3,y],{x,-1,1},{y,-1,1}]

ContourPlot[LegendreP[2,x]LegendreP[3,y],{x,-1,1},{y,-1,1}]

Listas

u={1,2,3}

s={a,b,c}

u s

u.s

Cross[u,s]

u

u[[2]]

u/s