?CrossProduct
?Cross

CrossProduct[input1_,input2_] := Cross[input1,input2]
DotProduct[input1_,input2_] := Dot[input1,input2]

e1 = {1,0,0};
e2 = {0,1,0};
e3 = {0,0,1};
Cross[e1+e2,e2]
Cross[{a,b,c} + {d,e,f}, {g,h,k}] - (Cross[{a,b,c} , {g,h,k}]+ Cross[{d,e,f}, {g,h,k}])

Dot[e1+e2,e2]
Expand[Dot[{a,b,c} + {d,e,f}, {g,h,k}] - (Dot[{a,b,c} , {g,h,k}]+ Dot[{d,e,f}, {g,h,k}])]
Print["Go to wolfram alpha"]

M = {{1,2},{3,4}};
MatrixForm[M]
Det[M]

onetonsquare[n_] := Module[{},
M = {}; (* initializes M to be empty, this will be our matrix *)
For[i = 1, i ≤ n, i++,
{
temp = {}; (* where I will store the entries of the row we are constructing *)
For[j = 1, j ≤ n, j++, temp = AppendTo[temp, (i-1)*n+j]];
M = AppendTo[M,temp]; (* append the new row to M *)
}]; (* end of i loop *)
Print["We have n = ", n, " and the matrix is ", MatrixForm[M], "."];
Print["The determinant is ", Det[M], "."];
Return[M]; (* passes out the value M *)
];

onetonsquare[5]

MatrixForm[NoOne]

For[n = 3, n ≤ 10, n++, onetonsquare[n]]

Hyperlink["https://en.wikipedia.org/wiki/Spherical_coordinate_system"]

Hyperlink["https://web.williams.edu/Mathematics/sjmiller/public_html/150Sp20/winninglotterynumbersonedayearly.htm"]

x^2 + y^2 + z^2 - 3 x y z = C
rho^2 - 3 (rho Sin[phi] Cos[theta]) (rho Sin[phi]Sin[theta]) (rho Cos[phi]) = C
x = r Cos[theta]    and   y = r Sin[theta]
r = Sqrt[x^2 + y^2]  and  theta = ArcTan[y/x]

D[Cos[x^3 +2x y+ 17],y]

Simplify[Integrate[x^4 + 2x,y]]

Integrate[x^4 + 2x,{x,0,1}]