Message Boards Message Boards

How to write a caption under two graphics

I made two graphics in http://demonstrations.wolfram.com/KnotPatternSimilarToALotusKolam/

I would like to write a caption in the common bottom of these two graphics to copy them with the caption for publishing them in other papers.

Would you teach me how to write such a caption as "Torus knot (left) and Lotus Kolam (right) 12 leaves, 5 periods, 1 loop, and 46 crossings", instead of the present labels of each upper side of two graphics?

These variables are changed with animation control bars of n and l, and the results.

I could write a label in a graphic like http://demonstrations.wolfram.com/LissajousLikeKolam/ but for one graphic.

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
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