Dear Abassi
Thank you very much for your help. I tried your advice in my current code,
-----
(* changed from Grid[ List@{ Show[ *)
Framed@Labeled[ 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}],
(*end of Module *)
Style["My amazing plots", blue, 20], Bottom]],
(* here "lop" is the number of loops, "plm, p21, p22, p23, par, par2, and par3" are parts of a Torus Knot graphic, and "klm" is a graphic of Kolam pattern *)
and got the caption in the graphic (refer caption failed).
The construction is OK but the message could not be written in the capiable area of the graphic and and not correct.
I would like to write variables of n, l and the result values GCD[n, l] and the number of the crossings n*(l - 1).
I am showing captions I want, in the attached image (refer caption I want).
Would you please correct my code ? I attached the version 5.2 getting your second advice.
thank you very much again in advance.
Nagata,