Dear All, I got the following code. I think this consists of a simple structure of "label = Style[..]" and
" Labeled[ Grid[..], label, Bottom]". It was based on these discussions and modified from the advice by the technical support of Wolfram. Thank again.

Manipulate[
  label = Style[
                Row[{"X-axis width of ", y, If[y == 1, " Pi-unit", " Pi-units"], 
                "(left) and ", w, If[w == 1, " Pi-unit", " Pi-units"], "(Right)"}
                ], FontSize -> 18, Bold, Blue]; (*endof Style*)
  Labeled[
      Grid[{{   (*the sample graphics*)
            Show[Plot[Sin[x], {x, 0, y*Pi}], ImageSize ->Small],         
            Show[Plot[Cos[x], {x, 0, w*Pi}], ImageSize -> Medium]}}
       ],(*endof Grid*)
       label, Bottom (*Can be Bottom, Left, Top, or Right*)
    ],(*endof Labeled*)
   {y, 1, 10, 1}, {w, 1, 10, 1}
](*endof Manipulate*)

Dear All the previous message "the original code was correct" was not correct. As the code

label = StringTemplate["`1` leaves `2` periods `3` loop(s) `4` crossings by S.N."]
          [nn, ln, lop, nn (ln - 1)];

can not change automatically a singular or plural form of the unit "loop", like the following.

captn = Graphics[      
ImageSize -> {380, 20},
PlotLabel -> Style[Row[{nn, " leaves, ", ln, " periods, ", lop, If[ lop == 1, " loop, ", " loops, "], nn(ln - 1), 
" crossings     S.N."}], FontSize -> 18, Blue]   ];

I return to the previous code again of the label (caption) as a label of a Graphic..

Dear Patrik Ekenberg-san and David Keith-san I found the original 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,

additional post by Nagata,

My code makes three graphics, the third one is only 4 variable-labels underneath the graphics. and I copy each graphic as an image using the Mouse right menu (copy the graphic) and combine them to one image using another painting software. Thank all. Nagata

Dear Patrik Ekenberg-san Thank you very much for your advices. your pointings were correct. I tried many codes from your sample. Finally I got the following;

(* common variable labels *)
captn = Graphics[      
ImageSize -> {380, 20},(* SphericalRegion\[Rule] True,*)
PlotLabel -> 
Style[Row[{nn, " leaves, ", ln, " periods, ", lop, 
If[lop == 1, " loop, ", " loops, "], nn*(ln - 1), 
" crossings     S.N."}], FontSize -> 18, Blue]
];
(* display all left, right two graphics and common variables*)  
Framed@Labeled[
Grid[ List@{  Show[ 
       If[lop == 1, {plm, p21, par}, {}], (* left graph of Torus Knot*)
       If[lop == 2, {plm, p21, p22, par, par2}, {}],
       If[lop >= 3, {plm, p21, p22, p23, par, par2, par3}, {}] 
        ], klm} ] ,  (* right graph of Lotus Kolam *)   (* end of Show, List, Grid *)
Style[captn], Bottom ]  (* end of Framed@Labeled *)  
] , (* end of Module *) 

I could not change two plottings(graphs ) to one graph, as the size of each of which were too large. I could not make your Style[ "variable name" <> ToString[ multi-variable] ], and I could not make it as an image and located it at the bottom. I modified the code to the attached code. Thank you very much. Nagata,

Attachments:

Hello! Simon Cadrin. The demo posted by you is the first trial version for comparing Lotus Kolam with Torus Knot contributed by me. I am submitting an advanced version in such points that animations of lengthening the Kolam and Knot are synchronous, a multi-loop condition is plotted in the graphics with color lines, and even when the periods are odd, the leave shapes are symmetry like Michelangelo's form etc.

I would like to write variables of the condition and result in the plotting area and to copy them with the graphics.

enter code herecaptn = Graphics[ ImageSize -> {380, 20}, PlotLabel -> Style[Row[{"", nn, " leaves, ", ln, " periods, ", lop, If[lop == 1, " loop, ", " loops, "], nn*(ln - 1), " crossings S.N."}], FontSize -> 18, Blue] ]; Grid[ List@{ Show[ If[lop == 1, {plm, p21, par}, {}], If[lop == 2, {plm, p21, p22, par, par2}, {}], If[lop >= 3, {plm, p21, p22, p23, par, par2, par3}, {}] ], klm} ] (*endof Show, List, Grid *) captn (* is not located underneath the graphics, why not? *) '

In this code, the variables "captn" are written in the upper side, and in an image area. I would like to write them underneath the graphics. Would you teach me how to code it? Thanks you
`

Attachments: