MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

how to add graphics options in a plot which is already produced and has a manipulator


Hi all,

I am novice to mathematica and stuck into one problem i.e.

 how can I add graphics option to an already made plot which has a manipulator to control itself.

s = Manipulate[
   PopupWindow[
    Graphics[
     DiscretePlot[Sin[a t], {t, 0, 2 Pi, Pi/6}, ExtentSize -> Full, 
      ImageSize->Scaled[1], AspectRatio -> .2]], {a}], 
   OpenerView[{"Vertical", Control[{{a, 1, "Manipulator"}, 1, 30}]}], 
   ControlPlacement -> Bottom]]


Now I want to add a plot Label by calling the already produced plot s.Because  I dont want the duplication of code again as  I have to use 4  more different plots  in a popupmenu. For eg.  when I select s from popupmenu then it should give the output t 

t= Show[ s, PlotLabel->"Popup Window Plot"]  but this is showing error  "Show::gtype: Manipulate is not a type of graphics"



  • Prev by Date: Re: Print TraditionalForm
  • Next by Date: Re: Stop on message?
  • Previous by thread: Re: GraphPath With Edge Weights
  • Next by thread: Re: how to add graphics options in a plot which is already produced and has a manipulator