## Mathematica Code to compute Weight diagrams   ## Mathematica

Availability Mathematica is installed on some computers in the basement of the Science center. It might also be installed on some computers in the houses. If you want to try an installation of mathematica on your own computer, get it here. Note that you have to be on a Harvard network and have your PIN ready to download the software and that requesting the Mathematica Password requires you to send the request from a Harvard computer.
Installation After you downloaded the program to your computer, start the program and follow the instructions. During the installation progress, you have to enter the Harvard Licence number L2482-2405. The number which you will get in return has to be entered in the Mathematica Registration page. You will then be sent a password by email. This is what you see during installation in
Running mathematica Mathematica is started like any other application on Macintoshs or PC's. On Linux, just type "mathematica" to start the notebook version, or "math" to start the terminal version.
Some frequently used commands: ( See more what you can do with Mathematica)
 N[Pi,1000] Get Pi to 1000 digits Eigenvalues[{{1,2,3},{3,2,1},{1,2,3}}] Compute the eigenvalues of a matrix Eigensystem[{{1,2,3},{3,2,1},{1,2,3}}] Find the eigensystem of a matrix Solve[x^2+3x+4==0,x] Solve an equation NSolve[x^2+3x+4==0,x] Solve an equation numerically Det[{{1,2,3},{3,2,1},{1,2,6}}] Find the determinant of a matrix Plot[ x Sin[x],{x,-10,10}] Graph function of one variable Plot3D[ Sin[x y],{x,-2,2},{y,-2,2}] Graph function of two variables ParametricPlot[ {Cos[3 t],Sin[5 t]} ,{t,0,2Pi}] Plot planar curve ParametricPlot3D[ {Cos[t],Sin[t],t} ,{t,0,4Pi},AspectRatio->1] Plot space curve ParametricPlot3D[ {Cos[t] Sin[s],Sin[t] Sin[s],Cos[s]},{t,0,2Pi},{s,0,Pi}] Parametric Surface ContourPlot[ Sin[x y],{x,-2,2},{y,-2,2} ] Contour lines (traces) Integrate[ x Sin[x], x] Integrate symbolically NIntegrate[ Exp[-x^2],{x,0,10}] Integrate numerically D[ Cos^5[x],x ] Differentiate symbolically Series[Exp[x],{x,0,3} ] Taylor series DSolve[ x''[t]==-x[t],x,t ] Solution to ODE Get["Graphics`ContourPlot3D`"]; ContourPlot3D[x^2+2y^2-z^2-1,{x,-2,2},{y,-2,2},{z,-2,2}] Implicit surface