(*^

::[	frontEndVersion = "Microsoft Windows Mathematica Notebook Front End Version 2.2";
	microsoftWindowsStandardFontEncoding;
	fontset = title, "Arial", 10, L0, center, nohscroll, bold;
	fontset = subtitle, "Arial", 18, L0, center, nohscroll, bold;
	fontset = subsubtitle, "Arial", 14, L0, center, nohscroll, bold;
	fontset = section, "Arial", 14, L0, bold, grayBox;
	fontset = subsection, "Arial", 12, L0, bold, blackBox;
	fontset = subsubsection, "Arial", 10, L0, bold, whiteBox;
	fontset = text, "Arial", 12, L0;
	fontset = smalltext, "Arial", 10, L0;
	fontset = input, "Arial", 10, L0, nowordwrap, bold, R65280;
	fontset = output, "Courier New", 12, L0, nowordwrap, bold;
	fontset = message, "Courier New", 10, L0, nowordwrap, R65280;
	fontset = print, "Courier New", 10, L0, nowordwrap;
	fontset = info, "Courier New", 10, L0, nowordwrap;
	fontset = postscript, "Courier New", 8, L0, nowordwrap;
	fontset = name, "Arial", 10, L0, nohscroll, italic, R32768, B32768;
	fontset = header, "Times New Roman", 10, L0, right, nohscroll;
	fontset = footer, "Times New Roman", 10, L0, right, nohscroll;
	fontset = help, "Arial", 10, L0, nohscroll;
	fontset = clipboard, "Arial", 12, L0, nohscroll;
	fontset = completions, "Arial", 12, L0, nowordwrap, nohscroll;
	fontset = graphics, "Courier New", 10, L0, nowordwrap, nohscroll;
	fontset = special1, "Arial", 12, L0, nowordwrap, nohscroll;
	fontset = special2, "Arial", 12, L0, center, nowordwrap, nohscroll;
	fontset = special3, "Arial", 12, L0, right, nowordwrap, nohscroll;
	fontset = special4, "Arial", 12, L0, nowordwrap, nohscroll;
	fontset = special5, "Arial", 12, L0, nowordwrap, nohscroll;
	fontset = leftheader, "Arial", 12, L0, nowordwrap, nohscroll;
	fontset = leftfooter, "Arial", 12, L0, nowordwrap, nohscroll;
	fontset = reserved1, "Courier New", 10, L0, nowordwrap, nohscroll;]
:[font = title; inactive; nohscroll; center; ]

Stefan.ma
:[font = input; nowordwrap; ]
$Version
:[font = input; nowordwrap; ]
Timing[3^10000;]
:[font = input; nowordwrap; ]
Timing[10000!;] 
:[font = input; nowordwrap; ]

hil = Table[1/(i+j-1), {i,30}, {j,30}];
Timing[Det[hil]]
:[font = input; nowordwrap; ]
Timing[ListPlot[Table[Prime[i],{i,10000}],PlotJoined->True]] 
:[font = input; nowordwrap; ]
Timing[N[Pi,3500]]
:[font = input; nowordwrap; ]
First[Timing[Eigenvalues[Table[Random[],{200},{200}]]]]
:[font = input; nowordwrap; ]
Timing[Factor[x^92259-1];]
:[font = input; nowordwrap; ]
Timing[Integrate[1/(1-x^3),x]]
:[font = input; nowordwrap; ]
Timing[ParametricPlot3D[{r*Cos[Cos[r]]*Cos[psi],r*Cos[Cos[r]]*Sin[psi],r*Sin[
Cos[r]]},{r, 0.001, (9*Pi)/2 + 0.001}, {psi, 0, (3*Pi)/2},PlotPoints -> {72, 
24}]]
:[font = input; nowordwrap; ]
bx = 6 Cos[u] (1 + Sin[u]);by = 16 Sin[u];rad = 4 (1 - Cos[u] / 2);
X = If[Pi < u <= 2 Pi, bx + rad Cos[v + Pi], bx + rad Cos[u] Cos[v]];
Y = If[Pi < u <= 2 Pi, by,by + rad Sin[u] Cos[v]];
Z = rad Sin[v];
Timing[ParametricPlot3D[{X, Y, Z},{u, 0, 2 Pi}, {v, 0, 2 Pi},PlotPoints ->
{48,12},Axes -> False,Boxed -> False,ViewPoint-> {1.4, -2.6, -1.7}];]
^*)