Tag Info

You can create SlideShows using Mathematica and run it to demonstrate presentation. Main advantage of using such Slideshow over Powerpoint / PDF is that you can play dynamic content. This Link gives further details on how to create http://reference.wolfram.com/mathematica/howto/CreateASlideShow.html This screencast gives detailed steps on how to create ...

Prashant gave excellent references. Some additional tips I've found useful: You can turn off cell labels (the In[_] and Out[_] labels) from the option inspector by unchecking Cell Options->CellLabels->Show Cell Labels I've had to make PDF versions of the slides for various reasons. Mathematica does not do PDF page breaks very well, so instead of ...

Another method that I sometimes prefer is to use the presentation software of your choice (e.g. PowerPoint) and hyperlink the notebooks into that. For some things like showing lots of images (especially fullscreen) Mathematica is not very handy (yet). You can simplify the preparation for this by opening and evaluating all these notebooks up front. For some ...

I would do it entirely without ToString. The main tool in combining mixed type output in a given order is Row: Ns = 1; Table[Row[ { Ket[Row[{ Replace[ Quotient[i - 1, Ns], {0 -> "\[UpArrow] ", 1 -> "\[DownArrow] "}], Mod[i, Ns]}] ], Bra[Row[{Replace[ Quotient[j - 1, Ns], {0 -> "\[UpArrow] ", ...

Please try this code, based on Sasha's adaption of my own answer to this question. AutoCollapse[] := ( If[$FrontEnd =!= $Failed, SelectionMove[EvaluationNotebook[], All, GeneratedCell]; FrontEndTokenExecute["SelectionCloseUnselectedCells"]]) Then in a new cell: 2 + 2 AutoCollapse[] Always place AutoCollapse[] as the last line of an Input cell. ...

In addition to my comment, I guess I could also point out that Mathematica plots can be combined using the Show command. So you could define two different plots as follows and then combine them: f[x_, y_] := (x^3 + y^3)^(1/3) surface = Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2}]; line = ParametricPlot3D[ With[{x = t, y = t}, {x, y, f[x, y]}], {t, 0, 2}, ...

You could alt-click an output bracket which will cause all output brackets to be selected and then ctrl-} to close all subgroups, which, in this case, will close all input brackets that had output. Alternatively, you could select all outputs in this way and check the menu item Cell>Grouping Close All Unselected

I have learned a lot from Wolfram Training: Computable Document Format (CDF) Courses. And for a more advanced example from Wolfram Software Development Training Course: Developing Enterprise-Class Web Applications. For all these videos you can download the notebook to study the code.

Here's a version which uses Inherited to pull the slide show's docked cell in. Unfortunately, there's a bug when Inherited references an empty value where it shows some needless whitespace. So this version uses Dynamic to detect the ScreenStyleEnvironment and switch its behavior accordingly. With[{mycell = Cell["Boo!", "DockedCell"]}, nb = ...

Well, I just figured out a simple minded solution, but I hope that someone has a more elegant one perhaps. Basically you can just use StringReplace & use string all the way Clear@i1 Table[ HS2[[i, j]]* StringReplace[ "\!\(\*TemplateBox[{\"row\"},\n\"Ket\"]\)\!\(\*TemplateBox[{\"col\ \"},\n\"Bra\"]\)", {"row" -> ( (Replace[ ...

I've just tried it out on an older iMac and an old white plastic Apple remote (last sold in 2009, apparently). Yes, it works. You have to hold the Forward/Back buttons down, rather than click. But Mathematica seems to detect these actions and advances to the next slide, or goes back to the previous one. I'd rather go for something wireless, myself, but if IR ...