แสดงนาฬิกา Mathematica
เอาไปประยุกต์เป็นนาฬิกาบนสไลด์ระหว่างพรีเซ้นต์ได้
สักงอย ดอท คอม
hrdpic= ; (*รูปสำหรับใช้เป็น header: copy มา paste ได้เลย*)
nb=CreateDocument[];
SetOptions[nb,DockedCells->{FEPrivate`FrontEndResource[“FEExpressions”,”SlideshowToolbar”],First[ToBoxes[TextCell[Row[{hrdpic}],TextAlignment->Left]]]}]