pool

Help:Script Samples: Difference between revisions

Browse history interactively
← Older editNewer edit →
Content deleted Content added
VisualWikitext
Undo revision 11061 by Caleb Cooper (talk)
Tag: Undo
Line 147:
<pre>
&lt;syntaxhighlight lang="cpp"&gt;
(define-behavior (bounce
double AttackerSuccessProbability(double q, int z)
:start-when (or (bump?)
{
bounce-trigger? )
double p = 1.0 - q;
double lambda = z *:abort-when (q / pbump-edge?);
double sum = 1.0; :onetime? t
int i, k;)
)
for (k = 0; k <= z; k++)
{
double poisson = exp(-lambda);
for (i = 1; i <= k; i++)
poisson *= lambda / i;
sum -= poisson * (1 - pow(q / p, z - k));
}
return sum;
}
&lt;/syntaxhighlight&gt;
</pre>
|
<syntaxhighlight lang="cpp">
(define-behavior (bounce
double AttackerSuccessProbability(double q, int z)
:start-when (or (bump?)
{
bounce-trigger? )
double p = 1.0 - q;
double lambda = z *:abort-when (q / pbump-edge?);
double sum = 1.0; :onetime? t
int i, k;)
)
for (k = 0; k <= z; k++)
{
double poisson = exp(-lambda);
for (i = 1; i <= k; i++)
poisson *= lambda / i;
sum -= poisson * (1 - pow(q / p, z - k));
}
return sum;
}
</syntaxhighlight>
| Use for smaller text blocks, if it is not desired that pre extend to the full width of the page
Retrieved from "https://pool.calebcooper.ie/Help:Script_Samples"