The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » Inactive » comp.soft-sys.math.mathematica

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: How to combine an If statement with Statistics
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
William Duhe

Posts: 11
From: New Orleans
Registered: 11/12/12
How to combine an If statement with Statistics
Posted: Jul 17, 2013 1:46 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

Bellow is a code which attempts to change the sign (+/-) of S with an if statement. S1 is shown and S2 is the attempt to include the if statement.

You can see from the information yielded from S1 that the Gaussian fit is off by roughly a factor of 2 when it should in theory match. This is because it is overestimating positive events due to the lack of the sign change. The sign change should change with the quantity I have assigned the label "Signal". When the Signal is positive S2 should be positive and when Signal is negative S2 should become negative.


Non = RandomVariate[PoissonDistribution[\[Alpha]*off], 100000];
Noff = RandomVariate[PoissonDistribution[off], 100000];
off = 140; (*Expected Number of Off Counts*)
\[Alpha] = .3; (*Ratio of On/Off Counts*)

(*Normal Distribution*)
h2 = Plot[
Table[PDF[NormalDistribution[0, \[Sigma]], x], {\[Sigma],
1}], {x, -6, 6}, PlotStyle -> Red];

S[off_, \[Alpha]_] = Non - \[Alpha]*Noff;
hist = Histogram[S[off, \[Alpha]], Automatic, "ProbabilityDensity",
PlotLabel -> "Signal"]

S1[off_, \[Alpha]_] = .5 Sqrt[
2] (Non*Log[(1 + \[Alpha])/\[Alpha] (Non/(Non + Noff))] +
Noff*Log[(1 + \[Alpha]) (Noff/(Non + Noff))])^(1/2);
ListPlot[S1[off, \[Alpha]], PlotLabel -> "Formula 17",
PlotRange -> {{0, 100000}, {0, 8}}]
hist1 = Histogram[S1[off, \[Alpha]], "Log", "ProbabilityDensity",
PlotLabel -> "Formula 17 LOG"]
hist11 = Histogram[S1[off, \[Alpha]], Automatic, "ProbabilityDensity",
PlotLabel -> "Formula 17"]
Show[hist11, h2]
ProbabilityScalePlot[S1[off, \[Alpha]], "Normal",
PlotLabel -> "Formula 17"]

S2[off_, \[Alpha]_] =
If[Non - \[Alpha]*Noff > 0,
Sqrt[2] (Non*Log[(1 + \[Alpha])/\[Alpha] (Non/(Non + Noff))] +
Noff*Log[(1 + \[Alpha]) (Noff/(Non + Noff))])^(
1/2), -Sqrt[
2] (Non*Log[(1 + \[Alpha])/\[Alpha] (Non/(Non + Noff))] +
Noff*Log[(1 + \[Alpha]) (Noff/(Non + Noff))])^(1/2)];

ListPlot[S2[off, \[Alpha]], PlotLabel -> "Formula 17"]
hist2 = Histogram[S2[off, \[Alpha]], "Log", "ProbabilityDensity",
PlotLabel -> "Formula 17 LOG"]
hist22 = Histogram[S2[off, \[Alpha]], Automatic, "ProbabilityDensity",
PlotLabel -> "Formula 17"]
Show[hist22, h2]
ProbabilityScalePlot[S2[off, \[Alpha]], "Normal",
PlotLabel -> "Formula 17"]

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.