Group Abstract

Message Boards

WOLFRAM COMMUNITY

2.4K Views

1 Reply

1 Total Like

View groups...

Follow this post

Share this post:

GROUPS:

Graphics and Visualization Wolfram Language

How to find the overlapped area?

Louis Lan

Louis Lan, NUS

Posted 10 years ago

Hi, all of you! I intend to find out how many percentage of the plotted curves are overlapped(the more orange areas), which is very important for my project. Can anybody help me? I used plotting parameters below: R = 1 Vcp = 0.1 r = 0.09 w = 2 K = 1 Plot[{RSin[wx] + Vcp, RSin[wx] + K + Vcp, RSin[wx] + 2*K + Vcp}, {x, 0, 10}, PlotStyle -> {{Orange, Opacity[0.5], Thickness[r]}, {Orange,Opacity[0.5], Thickness[r]}, {Orange, Opacity[0.5], Thickness[r]}}]

Hi, all of you! I intend to find out how many percentage of the plotted curves are overlapped(the more orange areas), which is very important for my project. Can anybody help me?

I used plotting parameters below:

R = 1
Vcp = 0.1
r = 0.09
w = 2
K = 1
Plot[{R*Sin[w*x] + Vcp, R*Sin[w*x] + K + Vcp, R*Sin[w*x] + 2*K + Vcp}, {x, 0, 10},  PlotStyle -> {{Orange, Opacity[0.5], Thickness[r]}, {Orange,Opacity[0.5], Thickness[r]}, {Orange, Opacity[0.5], Thickness[r]}}]

plot result

POSTED BY: Louis Lan

1 Reply

Sort By:

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 10 years ago

One way is to rasterize the graph and count the pixels of various colours: R = 1; Vcp = 0.1; r = 0.09; w = 2; K = 1; img = Rasterize@ Plot[{R Sin[w x] + Vcp, R Sin[w x] + K + Vcp, R Sin[w x] + 2*K + Vcp}, {x, 0, 10}, PlotStyle -> {{Orange, Opacity[0.5], Thickness[r]}, {Orange, Opacity[0.5], Thickness[r]}, {Orange, Opacity[0.5], Thickness[r]}}, Axes -> False]; Tally[Flatten[ImageData[img], 1]]

One way is to rasterize the graph and count the pixels of various colours:

R = 1; Vcp = 0.1; r = 0.09; w = 2; K = 1;
img = Rasterize@
   Plot[{R Sin[w x] + Vcp, R Sin[w x] + K + Vcp, 
     R Sin[w x] + 2*K + Vcp}, {x, 0, 10}, 
    PlotStyle -> {{Orange, Opacity[0.5], Thickness[r]}, {Orange, 
       Opacity[0.5], Thickness[r]}, {Orange, Opacity[0.5], 
       Thickness[r]}}, Axes -> False];
Tally[Flatten[ImageData[img], 1]]

POSTED BY: Gianluca Gorni

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback