Title of presentation

Subtitle of presentation (if needed)

Author Name

Affiliation, Inc.

Section head

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque enim dolor, euismod sit amet, rutrum nec, fermentum id, risus. Mauris auctor nunc ac nisl. Nunc non turpis a dolor porta tristique. Nam accumsan massa scelerisque sapien.

Subsection head

Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Mauris scelerisque erat vel elit. Etiam a purus tincidunt tortor pulvinar laoreet. Proin tincidunt dolor ut lectus. Sed euismod augue.

Map[Sqrt, g[x^2, x^3]]

Vestibulum ornare, massa non auctor porta, erat elit varius lacus, a posuere nibh est ut pede. Fusce quis dolor. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Mauris scelerisque erat vel elit.

Section head

Subsection head

Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Mauris scelerisque erat vel elit. Etiam a purus tincidunt tortor pulvinar laoreet.

(Subscript[ϕ, n])(z)=(1/(Sqrt[(Sqrt[π])(2^n)n!]))(e^(-((z^2)/2)))(Subscript[H, n])(z)

Subsubsection head

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque enim dolor, euismod sit amet, rutrum nec, fermentum id, risus. Mauris auctor nunc ac nisl. Nunc non turpis a dolor porta tristique. Nam accumsan massa scelerisque sapien.

Section head

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque enim dolor, euismod sit amet, rutrum nec, fermentum id, risus.

Plot3D[Sin[x y],{x,0,4},{y,0,4}]

Mauris auctor nunc ac nisl. Nunc non turpis a dolor porta tristique. Nam accumsan massa scelerisque sapien.

TalkTimer

Initialization code

TalkTimer[talk_,questions_]:=DynamicModule[{
starttime=0,t=0,min=0,sec=0,rmin=0,rsec=0,total=talk+questions,remainingtime},
hand[t_]= Arrow[{{0,0},{Sin[2*Pi*t/total],Cos[2*Pi*t/total]}}];
dial={Opacity[0.5],Green,Disk[{0,0},1,{Pi/2-2Pi*talk/total,Pi/2}],
Red,Disk[{0,0},1,{Pi/2,Pi/2+2Pi-2Pi*talk/total}]};
Dynamic[Refresh[If[starttime=!=0,t=Floor[AbsoluteTime[]-starttime],0];
sec=Mod[t,60];min=Quotient[t,60];remainingtime=talk*60-t;
rsec=Mod[Abs[remainingtime],60];rmin=Quotient[Abs[remainingtime],60],UpdateInterval->1];
Pane[Column[{Row[{
Button[Style["Start",Bold,18],If[starttime===0,starttime=AbsoluteTime[]],ImageSize->{Automatic,25}],Button[Style["Stop",Bold,18],starttime=0,ImageSize->{Automatic,25}],
Button[Style["Reset",Bold,18],t=0;starttime=0,ImageSize->{Automatic,25}]
}],
Dynamic[Row[{"Elapsed: ",min," min ",sec," sec."}]],
Dynamic[Row[{If[Sign[remainingtime]>0,"Remain: ",Style["Extra: ",Red,Bold]],rmin," min ",rsec," sec."}]],
Dynamic[Graphics[{dial,Thickness[0.02],hand[t/60]},PlotRange->{{-1,1},{-1,1}}]]},Center]]]]

Example

TalkTimer[2,1]