4 added 90 characters in body
source | link

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[π i j x], {x, 0, 1}, 
       PlotRange -> {{0, 1}, {-1, 1}}, 
       Frame -> True,
       FrameTicks -> {{If[j < 2, Automatic, None], None}, 
                      {If[i == 3, Automatic, None], None}}, 
       ImageSize -> 200
   ], 
   PlotRangePadding -> 0, 
   ImagePadding -> 0
  ], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

enter image description here

Any suggestion?

Thanks!

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[π i j x], {x, 0, 1}, 
       PlotRange -> {{0, 1}, {-1, 1}}, 
       Frame -> True,
       FrameTicks -> {{If[j < 2, Automatic, None], None}, 
                      {If[i == 3, Automatic, None], None}}, 
       ImageSize -> 200
   ], 
   PlotRangePadding -> 0, 
   ImagePadding -> 0
  ], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

Any suggestion?

Thanks!

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[π i j x], {x, 0, 1}, 
       PlotRange -> {{0, 1}, {-1, 1}}, 
       Frame -> True,
       FrameTicks -> {{If[j < 2, Automatic, None], None}, 
                      {If[i == 3, Automatic, None], None}}, 
       ImageSize -> 200
   ], 
   PlotRangePadding -> 0, 
   ImagePadding -> 0
  ], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

enter image description here

Any suggestion?

Thanks!

3 added 64 characters in body
source | link

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[\[Pi]Plot[Sin[π i j x], {x, 0, 1}, 
       PlotRange -> {{0, 1}, {-1, 1}}, 
       Frame -> True,
       FrameTicks -> {{If[j < 2, Automatic, None], None}, 
        None},              {If[i == 3, Automatic, None], None}}, 
       ImageSize -> 200
     ], 
   PlotRangePadding -> 0, 
   ImagePadding -> 0]0
  ], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

Any suggestion?

Thanks!

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[\[Pi] i j x], {x, 0, 1}, PlotRange -> {{0, 1}, {-1, 1}}, 
     Frame -> True,
     FrameTicks -> {{If[j < 2, Automatic, None], 
        None}, {If[i == 3, Automatic, None], None}}, ImageSize -> 200
     ], PlotRangePadding -> 0, ImagePadding -> 0], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

Any suggestion?

Thanks!

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[π i j x], {x, 0, 1}, 
       PlotRange -> {{0, 1}, {-1, 1}}, 
       Frame -> True,
       FrameTicks -> {{If[j < 2, Automatic, None], None}, 
                      {If[i == 3, Automatic, None], None}}, 
       ImageSize -> 200
   ], 
   PlotRangePadding -> 0, 
   ImagePadding -> 0
  ], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

Any suggestion?

Thanks!

2 deleted 2844 characters in body; edited title
source | link

Spacing and dimension of plots in Grid/GraphicsGrid

I need to use the following codeThere is a way to generate thealign axis/picture in this kind of plot?

fDD[\[Omega]_, 
   c_, \[Rho]_, \[Alpha]_] := ((2 - 2 c^2 \[Rho]^2) Sin[
      c \[Alpha] \[Omega]] + (1 + 
       c \[Rho])^2 Sin[(1 + (-1 + c) \[Alpha]) \[Omega]] + (-1 + 
       c \[Rho])^2 Sin[(-1 + \[Alpha] + c \[Alpha]) \[Omega]]);
fNN[\[Omega]_, 
   c_, \[Rho]_, \[Alpha]_] := (2 (-1 + c^2 \[Rho]^2) Sin[
      c \[Alpha] \[Omega]] + (1 + 
       c \[Rho])^2 Sin[(1 + (-1 + c) \[Alpha]) \[Omega]] + (-1 + 
       c \[Rho])^2 Sin[(-1 + \[Alpha] + c \[Alpha]) \[Omega]]);
fRR[\[Omega]_, 
   c_, \[Rho]_, \[Alpha]_] := (2 (-1 + \[Beta]^2) (-1 + 
       c^2 \[Rho]^2) Sin[
      c \[Alpha] \[Omega]] + (1 + \[Beta]^2) ((1 + 
          c \[Rho])^2 Sin[(1 + (-1 + c) \[Alpha]) \[Omega]] + (-1 + 
          c \[Rho])^2 Sin[(-1 + \[Alpha] + c \[Alpha]) \[Omega]]));
pp = 20;

figblocks = Grid[Table[
   Show[
    ContourPlot[
     fDD[\[Omega], c, \[Rho], \[Alpha]] == 0, {\[Omega], 0, 
      5.5 \[Pi]}, {\[Alpha], 0, 1}, PlotPoints -> pp, 
     ContourStyle -> {Red, Thickness[0.003]}, PlotRange -> All],Table[
    ContourPlot[(fRR[\[Omega], c, \[Rho], \[Alpha]] /. \[Beta] -> Graphics[
         0.5) == 0, {\[Omega],Plot[Sin[\[Pi] 0,i 5.5j \[Pi]}x], {\[Alpha]x, 0, 1}, 
     PlotPoints -> pp, ContourStyle -> {Orange, Thickness[0.003]}, 
     PlotRange -> All],
    ContourPlot[(fRR[\[Omega], c, \[Rho], \[Alpha]] /. \[Beta] -> 
         1) == 0, {\[Omega], 0, 5.5 \[Pi]}, {\[Alpha], 0, 1}, 
     PlotPoints -> pp, ContourStyle -> {Green, Thickness[0.003]}, 
     PlotRange -> All],
    ContourPlot[(fRR[\[Omega], c, \[Rho], \[Alpha]] /. \[Beta] -> 
         2) == 0, {\[Omega], 0, 5.5 \[Pi]}, {\[Alpha], 0, 1}, 
     PlotPoints -> pp, ContourStyle -> {Blue, Thickness[0.003]}, 
     PlotRange -> All],
    ContourPlot[
     fNN[\[Omega], c, \[Rho], \[Alpha]] == 0, {\[Omega], 0, 
      5.5 \[Pi]}, {\[Alpha], 0, 1}, PlotPoints -> pp, 
     ContourStyle -> {Purple, Thickness[0.003]}, PlotRange -> All],
    AspectRatio -> 1/GoldenRatio, BaseStyle -> {FontSize -> 15}, 
    ImageSize -> 400, PlotRange -> {{0, 5.5 \[Pi]}, {0, 1}},
    FrameLabelFrame -> {{Style["\[Alpha]", If[c > 0.5, White, Black]], 
       None}, {Style["\[Omega]/\[Pi]", If[\[Rho] < 2, White, Black]]True, 
       None}},
    FrameTicks -> {{Table[{y, 
         NumberForm[Style[y, If[c > 0.5, White, Black]], {2, 1}]}, {y,
          0,If[j 1,< 0.2}], 
       Table[{y, ""}, {y, 0, 1, 0.2}]}Automatic, {Table[{x \[Pi]None], 
         Style[x, If[\[Rho] < 2, White, Black]]}, {x, 0, 8, 1None}], 
       Table[{x \[Pi],If[i ""},== {x3, 0Automatic, 8None], 1}]None}},
    EpilogImageSize -> 
     Inset[Framed[
       Row@{"\[Rho] = ", NumberForm[\[Rho], {1, 1}], ", c = ", 200
         NumberForm[c, {1, 1}]}, 
       BoxFramePlotRangePadding -> {{0.25, 0.25}, {0.25, 0.25}}], {4.6 \[Pi], 0.92}, 
      Background -> White], BackgroundImagePadding -> Transparent
    ], {\[Rho]0], {0.5, 1i, 2}3}, {c, {0.5, 1j, 2}3}];
 myGrid = ]GraphicsGrid[blocks, Spacings -> {-0.3, -2.50}, Frame -> None, 
  Background -> Transparent
  ]None]

can the space between the picture be reduced? I know that the problem is in using "ghost" labels. Does someone has an alternative solutionAny suggestion?

Thanks, Fabio!

Spacing in Grid/GraphicsGrid

I need to use the following code to generate the plot

fDD[\[Omega]_, 
   c_, \[Rho]_, \[Alpha]_] := ((2 - 2 c^2 \[Rho]^2) Sin[
      c \[Alpha] \[Omega]] + (1 + 
       c \[Rho])^2 Sin[(1 + (-1 + c) \[Alpha]) \[Omega]] + (-1 + 
       c \[Rho])^2 Sin[(-1 + \[Alpha] + c \[Alpha]) \[Omega]]);
fNN[\[Omega]_, 
   c_, \[Rho]_, \[Alpha]_] := (2 (-1 + c^2 \[Rho]^2) Sin[
      c \[Alpha] \[Omega]] + (1 + 
       c \[Rho])^2 Sin[(1 + (-1 + c) \[Alpha]) \[Omega]] + (-1 + 
       c \[Rho])^2 Sin[(-1 + \[Alpha] + c \[Alpha]) \[Omega]]);
fRR[\[Omega]_, 
   c_, \[Rho]_, \[Alpha]_] := (2 (-1 + \[Beta]^2) (-1 + 
       c^2 \[Rho]^2) Sin[
      c \[Alpha] \[Omega]] + (1 + \[Beta]^2) ((1 + 
          c \[Rho])^2 Sin[(1 + (-1 + c) \[Alpha]) \[Omega]] + (-1 + 
          c \[Rho])^2 Sin[(-1 + \[Alpha] + c \[Alpha]) \[Omega]]));
pp = 20;

fig = Grid[Table[
   Show[
    ContourPlot[
     fDD[\[Omega], c, \[Rho], \[Alpha]] == 0, {\[Omega], 0, 
      5.5 \[Pi]}, {\[Alpha], 0, 1}, PlotPoints -> pp, 
     ContourStyle -> {Red, Thickness[0.003]}, PlotRange -> All],
    ContourPlot[(fRR[\[Omega], c, \[Rho], \[Alpha]] /. \[Beta] -> 
         0.5) == 0, {\[Omega], 0, 5.5 \[Pi]}, {\[Alpha], 0, 1}, 
     PlotPoints -> pp, ContourStyle -> {Orange, Thickness[0.003]}, 
     PlotRange -> All],
    ContourPlot[(fRR[\[Omega], c, \[Rho], \[Alpha]] /. \[Beta] -> 
         1) == 0, {\[Omega], 0, 5.5 \[Pi]}, {\[Alpha], 0, 1}, 
     PlotPoints -> pp, ContourStyle -> {Green, Thickness[0.003]}, 
     PlotRange -> All],
    ContourPlot[(fRR[\[Omega], c, \[Rho], \[Alpha]] /. \[Beta] -> 
         2) == 0, {\[Omega], 0, 5.5 \[Pi]}, {\[Alpha], 0, 1}, 
     PlotPoints -> pp, ContourStyle -> {Blue, Thickness[0.003]}, 
     PlotRange -> All],
    ContourPlot[
     fNN[\[Omega], c, \[Rho], \[Alpha]] == 0, {\[Omega], 0, 
      5.5 \[Pi]}, {\[Alpha], 0, 1}, PlotPoints -> pp, 
     ContourStyle -> {Purple, Thickness[0.003]}, PlotRange -> All],
    AspectRatio -> 1/GoldenRatio, BaseStyle -> {FontSize -> 15}, 
    ImageSize -> 400, PlotRange -> {{0, 5.5 \[Pi]}, {0, 1}},
    FrameLabel -> {{Style["\[Alpha]", If[c > 0.5, White, Black]], 
       None}, {Style["\[Omega]/\[Pi]", If[\[Rho] < 2, White, Black]], 
       None}},
    FrameTicks -> {{Table[{y, 
         NumberForm[Style[y, If[c > 0.5, White, Black]], {2, 1}]}, {y,
          0, 1, 0.2}], 
       Table[{y, ""}, {y, 0, 1, 0.2}]}, {Table[{x \[Pi], 
         Style[x, If[\[Rho] < 2, White, Black]]}, {x, 0, 8, 1}], 
       Table[{x \[Pi], ""}, {x, 0, 8, 1}]}},
    Epilog -> 
     Inset[Framed[
       Row@{"\[Rho] = ", NumberForm[\[Rho], {1, 1}], ", c = ", 
         NumberForm[c, {1, 1}]}, 
       BoxFrame -> {{0.25, 0.25}, {0.25, 0.25}}], {4.6 \[Pi], 0.92}, 
      Background -> White], Background -> Transparent
    ], {\[Rho], {0.5, 1, 2}}, {c, {0.5, 1, 2}}
   ], Spacings -> {-0.3, -2.5}, Frame -> None, 
  Background -> Transparent
  ]

can the space between the picture be reduced? I know that the problem is in using "ghost" labels. Does someone has an alternative solution?

Thanks, Fabio

Spacing and dimension of plots in Grid/GraphicsGrid

There is a way to align axis/picture in this kind of plot?

blocks = Table[
   Graphics[
    Plot[Sin[\[Pi] i j x], {x, 0, 1}, PlotRange -> {{0, 1}, {-1, 1}}, 
     Frame -> True,
     FrameTicks -> {{If[j < 2, Automatic, None], 
        None}, {If[i == 3, Automatic, None], None}}, ImageSize -> 200
     ], PlotRangePadding -> 0, ImagePadding -> 0], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]

Any suggestion?

Thanks!

1
source | link