# Tag Info

36

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 ...

28

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 ...

18

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. ...

16

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 ...

15

I do this pretty regularly, and my strategy is to talk at the blackboard, show static slides, try to get the students talking/asking questions, and then finish things off with a Manipulate or two. One thing I have found particularly effective is to ask students to download a .cdf version and to use it as a springboard for a homework question. It's usually ...

15

I've just completed the second run of a course I designed aimed at a roughly similar group of students. As background, my course, titled "Dynamics Systems Analysis & Modeling", is intended to be a bridge between calculus / very basic differential equations at the front end and control theory for engineers at the tail end. The goal of the course is to ...

12

I find technology such as Mathematica lends itself nicely to alternative methods of instructional delivery such as Process Oriented Guided Inquiry Learning and the Flipped Classroom. I use both of these methods in entry-level and upper-level undergraduate classes with reasonable success. To that end, I would strongly suggest that you consider the role of ...

9

I will tell you my personal thoughts. I don't like when my teacher uses a projector. He goes through slides, it's like you said, just fast. Two times per semester we have tutorials when he writes on the blackboard and it's far more interesting because he goes through every step and that's very important for me. When I exercise at home, I can recall every ...

9

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] ", ...

9

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

8

data = Reverse@Table[{2^n, 1}, {n, 1, 6}]; Graph[Table[DirectedEdge[i, i + 1], {i, Length@data - 1}], VertexLabels -> "Name", VertexCoordinates -> ({#2 Cos[#1], #2 Sin[#1]} & @@@ data), Axes -> True, ImageSize -> 300]

6

You can use SystemOpen to open the link with system-wide standard browser/application: SystemOpen["https://www.youtube.com/watch?v=yL_-1d9OSdk"] You can also use it to open files stored on the local hard drive using the default applications (i.e. the default movie player for movie files). E.g. in conjunction with Button: Button["Chicken", ...

6

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 = ...

6

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.

5

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}, ...

5

You should be able to Shift+drag the corner handles of the orange frame to change the aspect ratio. (You may need to double click to get the thick gray editing frame first.) Note: if resizing individual elements Shift operates in reverse: holding it constrains the aspect ratio, while not holding it allows free resizing. You can resize the canvas using ...

4

foo := Module[{r = Transpose@Through[{Cos, Sin}[2^Range[#]]], p}, p = Partition[r, 2, 1]; Graphics[{Opacity[.5], Red, Disk[#, .05] & /@ r, Opacity[1], Black, Text @@@ MapIndexed[{First@#2, #} &, r], Arrow[#, .05] & /@ p}, PlotRange -> {{-1.2, ...

4

This might be a good time to use Dynamic objects that will update as required with controls, buttons, or UpdateInterval, leaving direct evaluation of cells for outside of class.

3

CellPrint@ Cell[BoxData[ TagBox[GridBox[{{ToBoxes[Graphics[Circle[]]], Cell["Text", "SideCaption"]}}], "Grid"]], "SideCaptionArray"] SideCaption and SideCaptionArray are in the Default.nb style sheet if you want to change them.

3

After some frustrating hunting around, I think I found it. You have to enable this option in the option inspector (for the selected cells or the selected notebook): ShowGroupOpener WholeCellGroupOpener This will lead to the desired behaviour.

3

Yes, there is! Wolfram recently launched an online version of mathematica in various forms. You can register for the "programming cloud" and show them a full mathematica notebook online. With the free account you'll be missing a few IO abilities (no databases, limited file IO iirc). This should be more than enough to demonstrate your work. ...

3

Short answer: don't lecture; have students work hands-on, initially from notebooks you prepare. Long answer: Over nearly twenty years I taught mathematics courses ranging from freshman calculus and sophomore linear algebra through sophomore-junior discrete structures to junior-senior complex analysis in which students had to learn Mathematica from scratch ...

2

This problem is solved by TabView. In[1]:= 5+4 Out[1]=9 In[2]:= AbsoluteTiming[Pause[3]; Plot[Sin[x],{x,-1,1}] Out[2]= {3.013000, <plot of sin[x]>} In[3]:= AbsoluteTiming[TabView[{%1,%2[[2]]}]] Out[3]={0.,Tabbed pane with 9 and <plot of sin[x]>} The timing bits are there to indicate that % calls the output without re-computing the ...

1

PolarGraph[n_Integer] := Module[{lp = ListPolarPlot @ Table[{2^x, 1}, {x, 1, n}], p, a, t}, p = Reverse @ Take [Cases[lp, {_Real, _Real}, -1], n]; a = Arrow /@ Partition[p, 2, 1]; t = Text @@@ Transpose[{Range @ Length @ p, p}] /. Text[u_, v_] :> Text[Style[u, Red, 16], v + 0.1]; Graphics[{a, t}, Axes -> True]] PolarGraph[7]

1

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[ ...

1

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 ...

Only top voted, non community-wiki answers of a minimum length are eligible