Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Plotting distribution of angles' topicStudent Support Forum > General > "Plotting distribution of angles"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
12/20/12 9:48pm

If I understand correctly then I believe you might want to add the values of your function at each multiple of 2Pi.

In[1]:= distriFunc[x_]:=E^(-((-Pi+x)^2/(18 π^2)))/(3 Sqrt[2] Pi^(3/2))

In[2]:= x=Pi-.0001;
Total[Table[distriFunc[x+theta],{theta,-8Pi,8Pi,2Pi}]]

Out[3]= 0.158798

In[4]:= x=-Pi+.0001;
Total[Table[distriFunc[x+theta],{theta,-8Pi,8Pi,2Pi}]]

Out[5]= 0.157752

This makes it appear that there is a discontinuity in your distribution. Perhaps that is real.

Now try a Plot.

In[6]:= Plot[Sum[distriFunc[x+theta],{theta,-8Pi,8Pi,2Pi}],{x,-Pi,Pi},PlotRange->All]

Out[6]= ...plot snipped...

If I misunderstood then see if explaining it another way might help find a solution.

URL: ,

Subject (listing for 'Plotting distribution of angles')
Author Date Posted
Plotting distribution of angles RKTCD 12/20/12 05:58am
Re: Plotting distribution of angles Bill Simpson 12/20/12 9:48pm
Re: Plotting distribution of angles Michael 12/21/12 3:46pm
Re: Plotting distribution of angles RKTCD 12/24/12 06:37am
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic