Mixing
Unknown (Graphics) Pleasure
Clash Royale CLAN TAG#URR8PPP
up vote
2
down vote
favorite
I want to make a program that produces images like this one
What I have tried...
ListLinePlot[
Table[Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 1, 300, 10],
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]], Axes -> False, Background -> Black]
this code returns random images like the following
as you can see every line must cover the line(s) above it.
I tried Filling and FillingStyle but I can't make it work.
How can I accomplish this?
You don't have to use my code.
Make your own if it is easier for you..
plotting
asked 2 hours ago
J42161217
2,309218
 |Â
show 1 more comment
up vote
2
down vote
favorite
I want to make a program that produces images like this one
What I have tried...
ListLinePlot[
Table[Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 1, 300, 10],
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]], Axes -> False, Background -> Black]
this code returns random images like the following
as you can see every line must cover the line(s) above it.
I tried Filling and FillingStyle but I can't make it work.
How can I accomplish this?
You don't have to use my code.
Make your own if it is easier for you..
plotting
asked 2 hours ago
J42161217
2,309218
3
intothecontinuum.tumblr.com/post/27443100682/…
– Kuba♦
2 hours ago
nice! but I think that it would be better without Sin curves. Any ideas on how to make something very similar to the first pic I posted?
– J42161217
2 hours ago
Search for "pulsar" and few related topic will appear.
– Kuba♦
1 hour ago
@Kuba I don't have a problem making a pulsar like img. My problem which is about plotting in Mathematica is how to make the upper lines disappear. It has nothing to do with pulsars or if you like joy division..
– J42161217
1 hour ago
1
I didn't mean google but se. mathematica.stackexchange.com/search?q=pulsar
– Kuba♦
1 hour ago
 |Â
show 1 more comment
up vote
2
down vote
favorite
up vote
2
down vote
favorite
I want to make a program that produces images like this one
What I have tried...
ListLinePlot[
Table[Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 1, 300, 10],
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]], Axes -> False, Background -> Black]
this code returns random images like the following
as you can see every line must cover the line(s) above it.
I tried Filling and FillingStyle but I can't make it work.
How can I accomplish this?
You don't have to use my code.
Make your own if it is easier for you..
plotting
asked 2 hours ago
J42161217
2,309218
I want to make a program that produces images like this one
What I have tried...
ListLinePlot[
Table[Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 1, 300, 10],
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]], Axes -> False, Background -> Black]
this code returns random images like the following
as you can see every line must cover the line(s) above it.
I tried Filling and FillingStyle but I can't make it work.
How can I accomplish this?
You don't have to use my code.
Make your own if it is easier for you..
plotting
plotting
asked 2 hours ago
J42161217
2,309218
asked 2 hours ago
J42161217
2,309218
asked 2 hours ago
J42161217
2,309218
asked 2 hours ago
J42161217
2,309218
asked 2 hours ago
J42161217
2,309218
2,309218
3
intothecontinuum.tumblr.com/post/27443100682/…
– Kuba♦
2 hours ago
nice! but I think that it would be better without Sin curves. Any ideas on how to make something very similar to the first pic I posted?
– J42161217
2 hours ago
Search for "pulsar" and few related topic will appear.
– Kuba♦
1 hour ago
@Kuba I don't have a problem making a pulsar like img. My problem which is about plotting in Mathematica is how to make the upper lines disappear. It has nothing to do with pulsars or if you like joy division..
– J42161217
1 hour ago
1
I didn't mean google but se. mathematica.stackexchange.com/search?q=pulsar
– Kuba♦
1 hour ago
 |Â
show 1 more comment
3
intothecontinuum.tumblr.com/post/27443100682/…
– Kuba♦
2 hours ago
nice! but I think that it would be better without Sin curves. Any ideas on how to make something very similar to the first pic I posted?
– J42161217
2 hours ago
Search for "pulsar" and few related topic will appear.
– Kuba♦
1 hour ago
@Kuba I don't have a problem making a pulsar like img. My problem which is about plotting in Mathematica is how to make the upper lines disappear. It has nothing to do with pulsars or if you like joy division..
– J42161217
1 hour ago
1
I didn't mean google but se. mathematica.stackexchange.com/search?q=pulsar
– Kuba♦
1 hour ago
3
3
intothecontinuum.tumblr.com/post/27443100682/…
– Kuba♦
2 hours ago
intothecontinuum.tumblr.com/post/27443100682/…
– Kuba♦
2 hours ago
nice! but I think that it would be better without Sin curves. Any ideas on how to make something very similar to the first pic I posted?
– J42161217
2 hours ago
nice! but I think that it would be better without Sin curves. Any ideas on how to make something very similar to the first pic I posted?
– J42161217
2 hours ago
Search for "pulsar" and few related topic will appear.
– Kuba♦
1 hour ago
Search for "pulsar" and few related topic will appear.
– Kuba♦
1 hour ago
@Kuba I don't have a problem making a pulsar like img. My problem which is about plotting in Mathematica is how to make the upper lines disappear. It has nothing to do with pulsars or if you like joy division..
– J42161217
1 hour ago
@Kuba I don't have a problem making a pulsar like img. My problem which is about plotting in Mathematica is how to make the upper lines disappear. It has nothing to do with pulsars or if you like joy division..
– J42161217
1 hour ago
1
1
I didn't mean google but se. mathematica.stackexchange.com/search?q=pulsar
– Kuba♦
1 hour ago
I didn't mean google but se. mathematica.stackexchange.com/search?q=pulsar
– Kuba♦
1 hour ago
 |Â
show 1 more comment
1 Answer
1
active
oldest
votes
up vote
3
down vote
accepted
It seems that the lines are shown through the axis filling if you plot all the data series in one plot. The solution to that is to plot them separately and then combine them using Show. The second problem is that we have to plot the upper ones before the lower ones since the lower ones are supposed to overlap the upper ones and not vice-versa. For that I used k, 300, 1, -10 instead of k, 1, 300, 10. The code now looks like this:
data = Table[
Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 300, 1, -10];
Show[ListLinePlot[
#,
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]],
Axes -> False,
Background -> Black,
Filling -> Axis,
FillingStyle -> Black,
PlotRange -> 0, 50, 0, 400
] & /@ data]
And if you're wondering how I found the plot range, I simply plotted all the data in one plot first and took notice of what the plot range seemed to be and wrote that down.
answered 1 hour ago
C. E.
48.7k394197
1
this is very nice. thank you
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
add a comment |Â
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
up vote
3
down vote
accepted
It seems that the lines are shown through the axis filling if you plot all the data series in one plot. The solution to that is to plot them separately and then combine them using Show. The second problem is that we have to plot the upper ones before the lower ones since the lower ones are supposed to overlap the upper ones and not vice-versa. For that I used k, 300, 1, -10 instead of k, 1, 300, 10. The code now looks like this:
data = Table[
Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 300, 1, -10];
Show[ListLinePlot[
#,
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]],
Axes -> False,
Background -> Black,
Filling -> Axis,
FillingStyle -> Black,
PlotRange -> 0, 50, 0, 400
] & /@ data]
And if you're wondering how I found the plot range, I simply plotted all the data in one plot first and took notice of what the plot range seemed to be and wrote that down.
answered 1 hour ago
C. E.
48.7k394197
1
this is very nice. thank you
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
add a comment |Â
up vote
3
down vote
accepted
It seems that the lines are shown through the axis filling if you plot all the data series in one plot. The solution to that is to plot them separately and then combine them using Show. The second problem is that we have to plot the upper ones before the lower ones since the lower ones are supposed to overlap the upper ones and not vice-versa. For that I used k, 300, 1, -10 instead of k, 1, 300, 10. The code now looks like this:
data = Table[
Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 300, 1, -10];
Show[ListLinePlot[
#,
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]],
Axes -> False,
Background -> Black,
Filling -> Axis,
FillingStyle -> Black,
PlotRange -> 0, 50, 0, 400
] & /@ data]
And if you're wondering how I found the plot range, I simply plotted all the data in one plot first and took notice of what the plot range seemed to be and wrote that down.
answered 1 hour ago
C. E.
48.7k394197
1
this is very nice. thank you
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
add a comment |Â
up vote
3
down vote
accepted
up vote
3
down vote
accepted
It seems that the lines are shown through the axis filling if you plot all the data series in one plot. The solution to that is to plot them separately and then combine them using Show. The second problem is that we have to plot the upper ones before the lower ones since the lower ones are supposed to overlap the upper ones and not vice-versa. For that I used k, 300, 1, -10 instead of k, 1, 300, 10. The code now looks like this:
data = Table[
Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 300, 1, -10];
Show[ListLinePlot[
#,
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]],
Axes -> False,
Background -> Black,
Filling -> Axis,
FillingStyle -> Black,
PlotRange -> 0, 50, 0, 400
] & /@ data]
And if you're wondering how I found the plot range, I simply plotted all the data in one plot first and took notice of what the plot range seemed to be and wrote that down.
answered 1 hour ago
C. E.
48.7k394197
It seems that the lines are shown through the axis filling if you plot all the data series in one plot. The solution to that is to plot them separately and then combine them using Show. The second problem is that we have to plot the upper ones before the lower ones since the lower ones are supposed to overlap the upper ones and not vice-versa. For that I used k, 300, 1, -10 instead of k, 1, 300, 10. The code now looks like this:
data = Table[
Join[Table[2 RandomReal, 15],
Accumulate[RandomChoice[Range[-20, 20], 20]],
Table[2 RandomReal, 15]] + k, k, 300, 1, -10];
Show[ListLinePlot[
#,
PlotStyle ->
Directive[RGBColor[1., 1., 1.], Opacity[1.],
AbsoluteThickness[1.015]],
Axes -> False,
Background -> Black,
Filling -> Axis,
FillingStyle -> Black,
PlotRange -> 0, 50, 0, 400
] & /@ data]
And if you're wondering how I found the plot range, I simply plotted all the data in one plot first and took notice of what the plot range seemed to be and wrote that down.
answered 1 hour ago
C. E.
48.7k394197
edited 1 hour ago
answered 1 hour ago
C. E.
48.7k394197
answered 1 hour ago
C. E.
48.7k394197
answered 1 hour ago
C. E.
48.7k394197
48.7k394197
1
this is very nice. thank you
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
add a comment |Â
1
this is very nice. thank you
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
1
1
this is very nice. thank you
– J42161217
1 hour ago
this is very nice. thank you
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
PlotRange -> -20, 70, -70, 400 gives a better result ;-)
– J42161217
1 hour ago
add a comment |Â
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f185200%2funknown-graphics-pleasure%23new-answer', 'question_page');
);
Post as a guest
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
3
intothecontinuum.tumblr.com/post/27443100682/…
– Kuba♦
2 hours ago
nice! but I think that it would be better without Sin curves. Any ideas on how to make something very similar to the first pic I posted?
– J42161217
2 hours ago
Search for "pulsar" and few related topic will appear.
– Kuba♦
1 hour ago
@Kuba I don't have a problem making a pulsar like img. My problem which is about plotting in Mathematica is how to make the upper lines disappear. It has nothing to do with pulsars or if you like joy division..
– J42161217
1 hour ago
1
I didn't mean google but se. mathematica.stackexchange.com/search?q=pulsar
– Kuba♦
1 hour ago