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

*To*: mathgroup at smc.vnet.net*Subject*: [mg126683] Re: how to add graphics options in a plot which is already produced and has a manipulator*From*: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>*Date*: Thu, 31 May 2012 02:46:11 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

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" Hi, Is it the thing you need down here? s= Manipulate[PopupWindow[ Graphics[DiscretePlot[Sin[at],{t,0,2Pi,Piâ??6},ExtentSizeâ??Full, ImageSizeâ??Scaled[1],AspectRatioâ??".2",PlotRangeâ??{-1,1}, PlotLabelâ??Style["My blue label",14,Bold,Blue]]],{a}], OpenerView[{"Vertical",Control[{{a,1,"Manipulator"},1,30}]}], ControlPlacementâ??Bottom] Or this one? sss = Manipulate[ Â PopupWindow[ Â Â Graphics[ Â Â DiscretePlot[Sin[a t], {t, 0, 2 Pi, Pi/6}, ExtentSize -> Full, Â Â Â ImageSize -> Scaled[1], AspectRatio -> .2, Â Â Â PlotRange -> {-1, 1}]], {a}], Â OpenerView[{"Vertical", Control[{{a, 1, "Manipulator"}, 1, 30}]}], Â ControlPlacement -> Bottom]; t = Column[{ Â Text[Style["My blue label", 14, Bold, Blue]], Â sss Â }, Alignment -> Center] Have fun, Alexei Alexei BOULBITCH, Dr., habil. IEE S.A. ZAE Weiergewan, 11, rue Edmond Reuter, L-5326 Contern, LUXEMBOURG Office phoneÂ : Â +352-2454-2566 Office fax: Â Â Â +352-2454-3566 mobile phone: Â +49 151 52 40 66 44 e-mail: alexei.boulbitch at iee.lu