Show code in slide show notebook?

Questions
, ,
1

May I ask is it possible to show to mathematica code used in a side show, for example, the notebook in

( I do not mean the .wl file for package but the slide show .nb file itself.)
I have tried Palettes->Slide Show->View Environment->Working, but it did not showed the code for the graphics.
I just want to learn how to make a great slide from examples. Thank John McGee from Radford University for this great slide.

2

go to Palette menu and select “Slide Show”. This brings up the slide show palette, Click on “End Slideshow”. Now all the cells are there.

3

Thank you, @Neil Singer. I suppose you mean “Start presentation” and “End presentation”? I have tried it but it give me the same result. I can see the cells but I cannot see the codes such as

Manipulate[Plot[...]]

I only see the result graphics for manipulation.

4

I make a screenshot for this condition: the graphics work well but no codes are shown

screenshot.136.jpg
screenshot.136.jpg1418Ă—864 85.7 KB

5

yes, “End Presentation”, sorry – doing it from memory.

I looked at the notebook, I see your issue. Evidently he must have deleted the source cells and kept the dynamic output. You can still see what he did by copying the cell and pasting it in a new notebook and doing //InputForm.. For example, type

a = [paste dynamic cell here]
a //InputForm

you will get the input.

I also suppose you can try contacting the author to see if he will send it to you but its a short presentation so you can probably get what you want with the InputForm.

I hope this helps.

Regards,

Neil

6

Using your example from the notebook, I get :

Manipulate[Plot[{x^3 + a*x + b, Sqrt[x^3 + a*x + b], -Sqrt[x^3 + a*x + b]}, {x, -5, 5}, 
  PlotStyle -> {{Thin, Blue}, {Thick, Red}, {Thick, Red}}, 
  PlotRange -> {{-5, 5}, {-20, 20}}, PlotLabel -> Style[
          2              3
    Chop[y  == a x + b + x ]
    , 18], AxesStyle -> Directive[14], ImageSize -> Large], 
 {{a, 4, Style["A", Italic, 18]}, -5, 5, 0.1}, {{b, -3, Style["B", Italic, 18]}, -5, 5, 
  0.1}, Initialization :> {a = 4, b = -3}]
7

Thank you alot. Only a a little modification of code give me the result (Mathematica seems cannot recognize power in the PlotLabel). It is smart of you to use //InputForm!

Manipulate[
 Plot[{x^3 + a*x + b, 
   Sqrt[x^3 + a*x + b], -Sqrt[x^3 + a*x + b]}, {x, -5, 5}, 
  PlotStyle -> {{Thin, Blue}, {Thick, Red}, {Thick, Red}}, 
  PlotRange -> {{-5, 5}, {-20, 20}}, 
  PlotLabel -> Style[Chop[y ^2 == x^3 + a x + b  ] , 18], 
  AxesStyle -> Directive[14], 
  ImageSize -> Large], {{a, 4, Style["A", Italic, 18]}, -5, 5, 
  0.1}, {{b, -3, Style["B", Italic, 18]}, -5, 5, 0.1}, 
 Initialization :> {a = 4, b = -3}]