Group Abstract

Message Boards

WOLFRAM COMMUNITY

10.6K Views

11 Replies

3 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Combine Plots into one using a loop?

Betty Boo

Posted 8 years ago

I want this program's plots to be combined into one plot - just can't seem to make it appear in one plot. Any suggestions? n = -1; While[n < 3, sol = NDSolve[{D[xtraj[t], t] == -(Sinh[ 2 xtraj[t] (-t)]/ (Cosh[2 xtraj[t] (-t)])), xtraj[0] == n}, xtraj[t], {t, -4, 8}]; n = n + 0.25; p = ParametricPlot[{t, xtraj[t]} /. sol, {t, -4, 8}, PlotRange -> All, PlotStyle -> {Blue, Full, Thick}, AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}]; Print[p]] Attachments:

I want this program's plots to be combined into one plot - just can't seem to make it appear in one plot. Any suggestions?

n = -1; While[n < 3, 
sol = NDSolve[{D[xtraj[t], 
  t] == -(Sinh[
     2 xtraj[t] (-t)]/ 
      (Cosh[2 xtraj[t] (-t)])), xtraj[0] == n}, 
xtraj[t], {t, -4, 8}]; n = n + 0.25; 
p = ParametricPlot[{t, xtraj[t]} /. sol, {t, -4, 8}, 
PlotRange -> All, PlotStyle -> {Blue, Full, Thick}, 
AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}]; 
Print[p]]

POSTED BY: Betty Boo

11 Replies

Sort By:

Neil Singer

Neil Singer, AC Kinetics, Inc.

Posted 8 years ago

Are you asking about excluding a range of y values when plotted or when integrated? Your question is not clear. To restrict your plot you can use RegionFunction: Plot[sol, {t, -4, 8}, PlotRange -> All, PlotStyle -> Automatic, AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}, AxesOrigin -> {0, -10}, AspectRatio -> Automatic, RegionFunction -> Function[{x, y}, (y > -2) && (y < 2)]] to get

Are you asking about excluding a range of y values when plotted or when integrated? Your question is not clear.

To restrict your plot you can use RegionFunction:

Plot[sol, {t, -4, 8}, PlotRange -> All, PlotStyle -> Automatic, 
 AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}, 
 AxesOrigin -> {0, -10}, AspectRatio -> Automatic, 
 RegionFunction -> Function[{x, y}, (y > -2) && (y < 2)]]

to get

enter image description here

POSTED BY: Neil Singer

Alexander Trounev

Alexander Trounev, Docsie Inc.

Posted 8 years ago

POSTED BY: Alexander Trounev

Betty Boo

Posted 8 years ago

Interesting code but it's not quite what I wanted - thanks.

POSTED BY: Betty Boo

Betty Boo

Posted 8 years ago

I have another question - how can I restrict the domain such that: -0.1> xtraj[t]> 0.1 Any help would be much appreciated.

POSTED BY: Betty Boo

Betty Boo

Posted 8 years ago

How about reversing the plot?

POSTED BY: Betty Boo

Betty Boo

Posted 8 years ago

That looks much better :-) thank you!

POSTED BY: Betty Boo

Alexander Trounev

Alexander Trounev, Docsie Inc.

Posted 8 years ago

We can use the additional option AspectRatio -> Automatic Plot[sol, {t, -4, 8}, PlotRange -> All, PlotStyle -> Automatic, AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}, AxesOrigin -> {0, -10}, AspectRatio -> Automatic]

POSTED BY: Alexander Trounev

Alexander Trounev

Alexander Trounev, Docsie Inc.

Posted 8 years ago

sol = Table[ NDSolveValue[{D[xtraj[t], t] == -(Sinh[2 xtraj[t] (-t)]/(Cosh[2 xtraj[t] (-t)])), xtraj[0] == n}, xtraj[t], {t, -4, 8}], {n, -1, 2.75, .25}]; Plot[sol, {t, -4, 8}, PlotRange -> All, PlotStyle -> Automatic, AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}, AxesOrigin -> {0, -10}]

sol = Table[
   NDSolveValue[{D[xtraj[t], 
       t] == -(Sinh[2 xtraj[t] (-t)]/(Cosh[2 xtraj[t] (-t)])), 
     xtraj[0] == n}, xtraj[t], {t, -4, 8}], {n, -1, 2.75, .25}];
Plot[sol, {t, -4, 8}, PlotRange -> All, PlotStyle -> Automatic, 
 AxesStyle -> Thickness[.001], LabelStyle -> {Black, Medium}, 
 AxesOrigin -> {0, -10}]

traj