Message Boards Message Boards

How to write a caption under two graphics

Attachments:
POSTED BY: Nagata Hannya
8 Replies

Dear Abassi Thank you.

I was told that the previous code in this discussion was good for copying (getting) an entire image including any messages and manipulation bars on one operation of "cell-copy" of a graphic-cell.

Thanks again Nagata,

POSTED BY: Nagata Hannya

Dear Abassi Thank you.

I got the solution applying your idea/code. please visit

http://community.wolfram.com/groups/-/m/t/758482

thank you agian

Attachments:
POSTED BY: Nagata Hannya
Attachments:
POSTED BY: Nagata Hannya

Dear Abassi or anyone interesting in. I revised the last code to the new ver 5.3 resulting the attached nb and image. But not completed. There are some extra messages e.g. Grid[, {{ , }}, and Alignment->Center]. and also the common variables can not been copied with these graphics. Would you teach me ? How to remove the extra messages, and write the common variables which can been copied with them.

Nagata,

Attachments:
POSTED BY: Nagata Hannya
POSTED BY: Nagata Hannya

One possible way is to use Labeled

g1 = Plot[Sin[x], {x, -2 Pi, 2 Pi}, Frame -> True, FrameLabel -> {{"f(x)", None}, {"x", "sin(x)"}}];
g2 = Plot[Cos[x], {x, -2 Pi, 2 Pi}, Frame -> True, FrameLabel -> {{"f(x)", None}, {"x", "cos(x)"}}];
g = Grid[{{g1, g2}}];
Framed@Labeled[g, Style["My amazing plots", Red, 16], Alignment -> {Bottom, Center}]

You can also use just Grid, like this

lbl = Style["My amazing plots", Red, 16];
Framed@Grid[{{g1, g2}, {lbl, SpanFromLeft}}, Alignment -> Center]

enter image description here

POSTED BY: Nasser M. Abbasi
Attachments:
POSTED BY: Nagata Hannya
POSTED BY: Nagata Hannya
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract