Message Boards Message Boards

0
|
6345 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
Share this post:

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

Posted 11 years ago
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 11 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