Chapter 1 - An Introduction to Mathematica

Section 1.3 - Lists and Matrices

L1 = {a,b,1,3,c,5}

L2={7,2,5,2,5,1,c,b}

Union[L1,L2]

Intersection[L1,L2]

Complement[L1,L2]

Join[L1,L2]

Length[L1]

L1[[2]]

Squares=Table[(k^2),{k,1,10}]

Sum[Squares[[k]],{k,1,10}]

M={{1,2,3},{4,5,6},{7,8,9}}

MatrixForm[M]

K={{-5,7,1},{0,-4,6},{2,-1,9}}

MatrixForm[K]

(L=M+K)//MatrixForm

MatrixForm[M.K]

Det[M]

Det[K]

Det[M.K]

Inverse[M]

Inverse[K]//MatrixForm

Transpose[M]//MatrixForm