Message Boards

WOLFRAM COMMUNITY

4756 Views

6 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematica Presentation and Notebooks User Interface

Show code in slide show notebook?

Tsung-Ju Yang

Posted 7 years ago

May I ask is it possible to show to mathematica code used in a side show, for example, the notebook in http://library.wolfram.com/infocenter/Conferences/9260/#downloads ( 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.

POSTED BY: Tsung-Ju Yang

6 Replies

Sort By:

Neil Singer

Neil Singer, AC Kinetics, Inc.

Posted 7 years ago

Using your example from the notebook, I get : Manipulate[Plot[{x^3 + ax + b, Sqrt[x^3 + ax + 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}]

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}]

POSTED BY: Neil Singer

Tsung-Ju Yang

Posted 7 years ago

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 + ax + b, Sqrt[x^3 + ax + 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}]

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}]

POSTED BY: Tsung-Ju Yang

Neil Singer

Neil Singer, AC Kinetics, Inc.

Posted 7 years ago

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

POSTED BY: Neil Singer

Tsung-Ju Yang

Posted 7 years ago

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

POSTED BY: Tsung-Ju Yang

Neil Singer

Neil Singer, AC Kinetics, Inc.

Posted 7 years ago

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.

POSTED BY: Neil Singer

Tsung-Ju Yang

Posted 7 years ago

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.

POSTED BY: Tsung-Ju Yang

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback