Message Boards Message Boards

GROUPS:

How to shorten the space between the two rows of graphics in GraphicsGrid?

Posted 10 years ago
5658 Views
|
2 Replies
|
0 Total Likes
|
Hi, everyone,
Would you please tell me how to shorten the space between the two rows of graphics?
 Clear["`*"];
 
 f[\[Alpha]_, \[Lambda]r_, \[Lambda]s_,
 
    k_] = (-1 + (-1 + \[Alpha]) \[Lambda]s)^2/((1 + \[Alpha] \
 
 (\[Lambda]r - \[Lambda]s) + \[Lambda]s) (2 +
 
       k - (1 + k) (-1 + \[Alpha]) \[Lambda]s)^2) - (1/(

     1 + k (1 + \[Lambda]s - \[Alpha] \[Lambda]s)))^(

    1 + 1/k) (1 + \[Lambda]s - \[Alpha] \[Lambda]s + ((2 +

         k - (1 + k) (-1 + \[Alpha]) \[Lambda]s) ((

         k (1 + k) (-1 + (-1 + \[Alpha]) \[Lambda]s))/(

         1 + k (1 + \[Lambda]s - \[Alpha] \[Lambda]s)) -

         Log[1/(1 + k (1 + \[Lambda]s - \[Alpha] \[Lambda]s))]))/k^2);

h1 = Labeled[

   Plot[{f[0.3, 20, 1, k], f[0.3, 1, 20, k], f[0.3, 20, 20, k]}, {k,

     0, 10}, PlotStyle -> {Blue, Red, Green},

    AxesLabel -> {"k value", Increasing Speed

      }, PlotLegends ->

     Placed[{"\[Lambda]r>\[Lambda]s", "\[Lambda]r<\[Lambda]s",

       "\[Lambda]r=\[Lambda]s"}, Above]], "\[Alpha]=0.3"];

h2 = Labeled[

   Plot[{f[0.5, 20, 1, k], f[0.5, 1, 20, k], f[0.5, 20, 20, k]}, {k,

     0, 10}, PlotStyle -> {Blue, Red, Green},

    AxesLabel -> {"k value", Increasing Speed

      }, PlotLegends ->

     Placed[{"\[Lambda]r>\[Lambda]s", "\[Lambda]r<\[Lambda]s",

       "\[Lambda]r=\[Lambda]s"}, Above]], "\[Alpha]=0.5"];

h3 = Labeled[

   Plot[{f[0.8, 20, 1, k], f[0.8, 1, 20, k], f[0.8, 20, 20, k]}, {k,

     0, 10}, PlotStyle -> {Blue, Red, Green},

    AxesLabel -> {"k value", Increasing Speed

      }, PlotLegends ->

     Placed[{"\[Lambda]r>\[Lambda]s", "\[Lambda]r<\[Lambda]s",

       "\[Lambda]r=\[Lambda]s"}, Above]], "\[Alpha]=0.8"];

h4 = Labeled[

   Plot[{f[\[Alpha], 20, 1, 10], f[\[Alpha], 1, 20, 10],

     f[\[Alpha], 20, 20, 10]}, {\[Alpha], 0, 1},

    PlotStyle -> {Blue, Red, Green},

    AxesLabel -> {"\[Alpha] value", Increasing Speed

      }, PlotLegends ->

     Placed[{"\[Lambda]r>\[Lambda]s", "\[Lambda]r<\[Lambda]s",

       "\[Lambda]r=\[Lambda]s"}, Above]], "k=100"];

GraphicsGrid[{{h1, h2}, {h3, h4}}]
In this groups of graphics, there are two graphics in the first row and two in the second row, but the space between the rows are so large, I wonder if there is any solution to solve this problem. Furthermore, how to align the two graphics in the second row? Thank you very much.
POSTED BY: Shaoyan Robert
2 Replies
Check "Row Spacings on Mathematics Documentation.
POSTED BY: S M Blinder
Posted 10 years ago
Thank you, but it seems doesn't work.
POSTED BY: Shaoyan Robert
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