1
$\begingroup$

I have 8 plots, and all these plots are generated using ListLogLinearPlot function. and later I have used Show command put all plot in one single figure, but could not able to fix the plot range.

Y = 2*^11;
ρ = 7850;
aa = 0.1*0.1;
Iyy = 0.1^4/12;
L=4;
ansys = {{34.108, 112.53, 226.24, 299.01, 432.03, 642.34, 876.13, 
    000.00, 1226.0, 1549.0, 1880.1, 2030.4, 2342.3, 2756.7, 3159.1, 
    3311.9, 3710.5, 4198.8, 4640.3, 4788.8}, {34.085, 112.42, 226.24, 
    296.24, 428.60, 638.60, 876.12, 960.90, 1196.6, 1516.5, 1795.2, 
    1881.1, 2232.8, 2562.2, 2835.3, 3162.2, 3498.5, 3832.8, 4239.4, 
    4652.9}, {33.991, 111.96, 226.24, 280.75, 405.66, 552.40, 669.71, 
    876.14, 1030.8, 1229.6, 1524.3, 1703.9, 1880.5, 2124.4, 2369.1, 
    2727.9, 2927.8, 3162.1, 3439.9, 3726.4}, {33.873, 111.26, 226.24, 
    235.94, 340.38, 449.22, 641.80, 838.74, 876.17, 1055.1, 1232.3, 
    1473.8, 1593.9, 1880.2, 1969.5, 2189.0, 2389.2, 2688.2, 2826.2, 
    3159.1}, {33.355, 94.087, 118.68, 226.24, 270.06, 332.20, 429.88, 
    520.47, 640.79, 720.67, 876.11, 898.40, 1023.7, 1135.7, 1240.3, 
    1362.3, 1521.7, 1590.1, 1753.4, 1880.2}, {32.647, 62.162, 113.15, 
    181.10, 226.24, 280.62, 328.47, 412.98, 458.67, 559.45, 640.01, 
    690.67, 803.53, 876.13, 916.05, 1007.3, 1082.3, 1175.0, 1246.7, 
    1332.4}};
ansys = 2*π*ansys;
ansysbeta = Surd[(ρ*aa*ansys^2*L^4)/(Y*Iyy), 4];
ansysbeta1 = ansysbeta[[All, 1]];
ansysbeta2 = ansysbeta[[All, 2]];
ansysbeta3 = ansysbeta[[All, 3]];
ansysbeta4 = ansysbeta[[All, 4]];

xaxis = {0.001, 0.1, 0.5, 1, 3, 5};

data5 = Transpose[{xaxis, ansysbeta1}];
data6 = Transpose[{xaxis, ansysbeta2}];
data7 = Transpose[{xaxis, ansysbeta3}];
data8 = Transpose[{xaxis, ansysbeta4}];
p[5] = ListLogLinearPlot[data5, Joined -> False, PlotRange -> All, 
   PlotStyle -> {Black, Thickness[0.006]}];
p[6] = ListLogLinearPlot[data6, Joined -> False, PlotRange -> All, 
   PlotStyle -> {Black, Thickness[0.006]}];
p[7] = ListLogLinearPlot[data7, Joined -> False, PlotRange -> All, 
   PlotStyle -> {Black, Thickness[0.006]}];
p[8] = ListLogLinearPlot[data8, Joined -> False, PlotRange -> All, 
   PlotStyle -> {Black, Thickness[0.006]}];
Show[Table[p[i], {i, 5, 8}], PlotRange -> All]

my final plot

$\endgroup$
5
  • 1
    $\begingroup$ Please share the code you are using $\endgroup$
    – Fraccalo
    Sep 14 '19 at 8:56
  • 2
    $\begingroup$ tried Show[plot1, plot2, ..., plot8, PlotRange -> All]? $\endgroup$
    – kglr
    Sep 14 '19 at 9:21
  • $\begingroup$ Yes I did still i am getting the same result $\endgroup$
    – acoustics
    Sep 14 '19 at 14:03
  • $\begingroup$ It looks to me as if you are seeing the full range of the data $\endgroup$
    – mikado
    Sep 14 '19 at 18:07
  • $\begingroup$ Show[ Array[ p, 4, 5], PlotRange -> { {-7.5, 2.3}, {0, 20} }, Frame -> True ] $\endgroup$
    – LouisB
    Sep 14 '19 at 21:53
1
$\begingroup$

Edit

The plot you wish to make can be accomplished with ListLogLinearPlot alone. Like so:

Y = 2*^11;
ρ = 7850;
aa = 0.1*0.1;
Iyy = 0.1^4/12;
L = 4;
ansys = 2*π*
   {{34.108, 112.53, 226.24, 299.01, 432.03, 642.34, 876.13, 
    000.00, 1226.0, 1549.0, 1880.1, 2030.4, 2342.3, 2756.7, 3159.1, 
    3311.9, 3710.5, 4198.8, 4640.3, 4788.8}, {34.085, 112.42, 226.24, 
    296.24, 428.60, 638.60, 876.12, 960.90, 1196.6, 1516.5, 1795.2, 
    1881.1, 2232.8, 2562.2, 2835.3, 3162.2, 3498.5, 3832.8, 4239.4, 
    4652.9}, {33.991, 111.96, 226.24, 280.75, 405.66, 552.40, 669.71, 
    876.14, 1030.8, 1229.6, 1524.3, 1703.9, 1880.5, 2124.4, 2369.1, 
    2727.9, 2927.8, 3162.1, 3439.9, 3726.4}, {33.873, 111.26, 226.24, 
    235.94, 340.38, 449.22, 641.80, 838.74, 876.17, 1055.1, 1232.3, 
    1473.8, 1593.9, 1880.2, 1969.5, 2189.0, 2389.2, 2688.2, 2826.2, 
    3159.1}, {33.355, 94.087, 118.68, 226.24, 270.06, 332.20, 429.88, 
    520.47, 640.79, 720.67, 876.11, 898.40, 1023.7, 1135.7, 1240.3, 
    1362.3, 1521.7, 1590.1, 1753.4, 1880.2}, {32.647, 62.162, 113.15, 
    181.10, 226.24, 280.62, 328.47, 412.98, 458.67, 559.45, 640.01, 
    690.67, 803.53, 876.13, 916.05, 1007.3, 1082.3, 1175.0, 1246.7, 
    1332.4}};
xaxis = {0.001, 0.1, 0.5, 1, 3, 5};
ansysbeta = Surd[(ρ*aa*ansys^2*L^4)/(Y*Iyy), 4];
data = Transpose[{xaxis, #}] & /@ Transpose[ansysbeta[[All, ;; 4]]];
ListLogLinearPlot[data,
  Joined -> True,
  PlotRangePadding -> {{.5, 1}, {Automatic, Automatic}},
  PlotStyle -> {Red, Green, Brown, Magenta},
  Mesh -> All,
  MeshStyle -> Black]

plot

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.