Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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



  • Prev by Date: solving DE numerically....
  • Next by Date: Re: Notebook Format History?
  • Previous by thread: Re: how to add graphics options in a plot which is already produced and has a manipulator
  • Next by thread: Sum of Products