I would like to generate a graphic with the Sen,cos and tan function and 3 box on the left, each under the previous.

Labeled[listacampi1 = {PopupMenu[ris1, {"Seno","Coseno","Tangente"}]};
         Plot[{Sin[x],Cos[x],Tan[x]},{x, -2 Pi, 2 Pi}, PlotRange->{-4,4},ImageSize->Large],Column[listacampi1],Right];

Using that, I can generate one in the place where I want, but if I write in addition ,Column[listacampi1],Left it doesn't work.

If I write instead Column[{listacampi1,listacampi1}],Right the output is like I want but there are the parenthesis that I don't want.

How can I do that?

  • $\begingroup$ The problem is that listacampi1 is a List. Either remove the braces from the definition of listacampi1, or use Column[Flatten@{listacampi1,listacampi1}]. The first is almost certainly cleaner. $\endgroup$
    – jjc385
    May 24, 2017 at 17:25
  • $\begingroup$ @jjc385 Flatten works, thank you $\endgroup$
    – Ale1794
    May 24, 2017 at 17:37
  • $\begingroup$ @jjc385 How can I put a label over each of them? Using Text[]? $\endgroup$
    – Ale1794
    May 24, 2017 at 17:40
  • $\begingroup$ I'm not an expert in plotting, and it's not entirely clear what you mean. Your best bet is to ask a new question. $\endgroup$
    – jjc385
    May 24, 2017 at 17:43
  • $\begingroup$ you could also draw an example of the result you want. Also supply code for working and not working examples. $\endgroup$
    – ivbc
    May 24, 2017 at 18:38

1 Answer 1


try this

Labeled[listacampi1 = {PopupMenu[
ris1, {"Seno", "Coseno", "Tangente"}]};
Plot[{Sin[x], Cos[x], Tan[x]}, {x, -2 Pi, 2 Pi}, 
PlotRange -> {-4, 4}, ImageSize -> Large], 
Column[Row /@ {listacampi1, listacampi1}], Right]

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.