I am trying to plot several curves and show them in the same figure, but parts of curves being cut off by the frame and not showing fully.
I am using the commands Plot
and Show
P24 = Plot[Evaluate[FT /. sol7], {t, -20, 20},
FrameLabel -> {"t(s)", "FT(pN)"},
Frame -> True,
PlotStyle -> {Orange, Thick},
PlotRange -> Full]
P25 = Plot[Evaluate[Fz /. sol7], {t, -20, 20},
FrameLabel -> {"t(s)", "Fz(pN)"},
Frame -> True,
PlotStyle -> {Orange, Thick},
PlotRange -> Full]
P26 = Plot[Evaluate[FT /. sol8], {t, -20, 20},
FrameLabel -> {"t(s)", "FT(pN)"},
Frame -> True,
PlotStyle -> {Black, Thick},
PlotRange -> Full]
P27 = Plot[Evaluate[Fz /. sol8], {t, -20, 20},
FrameLabel -> {"t(s)", "Fz(pN)"},
Frame -> True,
PlotStyle -> {Black, Thick},
PlotRange -> Full]
P28 = Plot[Evaluate[FT /. sol9], {t, -20, 20},
FrameLabel -> {"t(s)", "FT(pN)"},
Frame -> True,
PlotStyle -> {Yellow, Thick},
PlotRange -> Full]
P29 = Plot[Evaluate[Fz /. sol9], {t, -20, 20},
FrameLabel -> {"t(s)", "Fz(pN)"},
Frame -> True,
PlotStyle -> {Yellow, Thick},
PlotRange -> Full]
P30 = Plot[Evaluate[FT /. sol10], {t, -20, 20},
FrameLabel -> {"t(s)", "FT(pN)"},
Frame -> True,
PlotStyle -> {Pink, Thick}, PlotRange -> Full]
P31 = Plot[Evaluate[Fz /. sol10], {t, -20, 20},
FrameLabel -> {"t(s)", "Fz(pN)"},
Frame -> True,
PlotStyle -> {Pink, Thick},
PlotRange -> Full]
P32 = Plot[Evaluate[FT /. sol11], {t, -20, 20},
FrameLabel -> {"t(s)", "FT(pN)"},
Frame -> True,
PlotStyle -> {Red, Thick},
PlotRange -> Full]
P33 = Plot[Evaluate[Fz /. sol11], {t, -20, 20},
FrameLabel -> {"t(s)", "Fz(pN)"},
Frame -> True,
PlotStyle -> {Red, Thick},
PlotRange -> Full]
P34 = Plot[Evaluate[FT /. sol12], {t, -20, 20},
FrameLabel -> {"t(s)", "FT(pN)"},
Frame -> True,
PlotStyle -> {Green, Thick},
PlotRange -> Full]
P35 = Plot[Evaluate[Fz /. sol12], {t, -20, 20},
FrameLabel -> {"t(s)", "Fz(pN)"},
Frame -> True,
PlotStyle -> {Green, Thick},
PlotRange -> Full]
p38 = Show[P24, P26, P28, P30, P32, P34]
p39 = Show[P25, P27, P29, P31, P33, P35]
In the plots made with Show
, parts of curves are missing, especially from the top of the figure. Look to the red and black curves.
Also, I want the scale of the x-axsis to be -20 , -15, -10, -5,0, 5, 10, 15, 20
. I tried to use Ticks
, but it didn't work.
Ticks -> {{-20, -15, -10, -5, 5, 10, 15, 20}, {-0.2, -0.1, 0.1}}
Also, if there is any way to make the curves clearer, please tell me