source: Backup NB/Talks/MEMPHYS-Trigger/Binomial.nb @ 409

Last change on this file since 409 was 388, checked in by campagne, 16 years ago
File size: 6.6 KB
Line 
1(************** Content-type: application/mathematica **************
2
3                    Mathematica-Compatible Notebook
4
5This notebook can be used with any Mathematica-compatible
6application, such as Mathematica, MathReader or Publicon. The data
7for the notebook starts with the line containing stars above.
8
9To get the notebook into a Mathematica-compatible application, do
10one of the following:
11
12* Save the data starting with the line of stars above into a file
13  with a name ending in .nb, then open the file inside the
14  application;
15
16* Copy the data starting with the line of stars above to the
17  clipboard, then use the Paste menu command inside the application.
18
19Data for notebooks contains only printable 7-bit ASCII and can be
20sent directly in email or through ftp in text mode.  Newlines can be
21CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
22
23NOTE: If you modify the data for this notebook not in a Mathematica-
24compatible application, you must delete the line below containing
25the word CacheID, otherwise Mathematica-compatible applications may
26try to use invalid cache data.
27
28For more information on notebooks and Mathematica-compatible
29applications, contact Wolfram Research:
30  web: http://www.wolfram.com
31  email: info@wolfram.com
32  phone: +1-217-398-0700 (U.S.)
33
34Notebook reader applications are available free of charge from
35Wolfram Research.
36*******************************************************************)
37
38(*CacheID: 232*)
39
40
41(*NotebookFileLineBreakTest
42NotebookFileLineBreakTest*)
43(*NotebookOptionsPosition[      4421,        144]*)
44(*NotebookOutlinePosition[      5546,        180]*)
45(*  CellTagsIndexPosition[      5418,        173]*)
46(*WindowFrame->Normal*)
47
48
49
50Notebook[{
51Cell[BoxData[
52    \(BinomPDF[k_, N_, dt_, f_] := 
53      PDF[BinomialDistribution[N, 1 - Exp[\(-f\)*dt]], k]\)], "Input"],
54
55Cell[BoxData[
56    \(Trigger1[nTh_, N_, dt_, f_] := 
57      Evaluate[Sum[
58            BinomPDF[k, N, 5/10^9, f]*
59              BinomPDF[nTh - k, N, dt, 
60                f]*\((1 - Sum[BinomPDF[j, N, 5/10^9, f], {j, 0, k}])\), {k, 
61              0, nTh}]]*\((10^9/5)\)\)], "Input"],
62
63Cell[CellGroupData[{
64
65Cell[BoxData[
66    \(\(?BinomPDF\)\)], "Input"],
67
68Cell["Global`BinomPDF", "Print",
69  CellTags->"Info3362315879-8409761"],
70
71Cell[BoxData[
72    InterpretationBox[GridBox[{
73          {GridBox[{
74                {\(BinomPDF[k_, N_, dt_, f_] := 
75                    PDF[BinomialDistribution[N, 
76                        1 - \[ExponentialE]\^\(\(-f\)\ dt\)], k]\)}
77                },
78              GridBaseline->{Baseline, {1, 1}},
79              ColumnWidths->0.999,
80              ColumnAlignments->{Left}]}
81          },
82        GridBaseline->{Baseline, {1, 1}},
83        ColumnAlignments->{Left}],
84      Definition[ "BinomPDF"],
85      Editable->False]], "Print",
86  CellTags->"Info3362315879-8409761"]
87}, Open  ]],
88
89Cell[CellGroupData[{
90
91Cell[BoxData[
92    \(\(?Trigger1\)\)], "Input"],
93
94Cell[BoxData[
95    \(Information::"notfound" \(\(:\)\(\ \)\) 
96      "Symbol \!\(\"Trigger1\"\) not found."\)], "Message"]
97}, Open  ]],
98
99Cell[BoxData[
100    \(Trigger1[nTh_, N_, dt_, f_] := 
101      Evaluate[Sum[
102            BinomPDF[k, N, 0.0001/10^9, f]*
103              BinomPDF[nTh - k, N, dt, 
104                f]*\((1 - 
105                  Sum[BinomPDF[j, N, 0.0001/10^9, f], {j, 0, k}])\), {k, 0, 
106              nTh}]]*\((10^9/0.0001)\)\)], "Input"],
107
108Cell[CellGroupData[{
109
110Cell[BoxData[
111    \(\(?Trigger1\)\)], "Input"],
112
113Cell["Global`Trigger1", "Print",
114  CellTags->"Info3362315904-1598254"],
115
116Cell[BoxData[
117    InterpretationBox[GridBox[{
118          {GridBox[{
119                {\(Trigger1[nTh_, N_, dt_, f_] := 
120                    1\/5\ Evaluate[\[Sum]\+\(k = 0\)\%nTh BinomPDF[k, N, 
121                              5\/10\^9, f]\ BinomPDF[nTh - k, N, dt, 
122                              f]\ \((1 - \[Sum]\+\(j = 0\)\%k BinomPDF[j, N, 
123                                    5\/10\^9, f])\)]\ 10\^9\)}
124                },
125              GridBaseline->{Baseline, {1, 1}},
126              ColumnWidths->0.999,
127              ColumnAlignments->{Left}]}
128          },
129        GridBaseline->{Baseline, {1, 1}},
130        ColumnAlignments->{Left}],
131      Definition[ "Trigger1"],
132      Editable->False]], "Print",
133  CellTags->"Info3362315904-1598254"]
134}, Open  ]],
135
136Cell[CellGroupData[{
137
138Cell[BoxData[
139    \(N[Trigger1[249, 81000, 425/10^9, 6\ 10^3]]\)], "Input"],
140
141Cell[BoxData[
142    \(192707.40988527454`\)], "Output"]
143}, Open  ]]
144},
145FrontEndVersion->"4.1 for Microsoft Windows",
146ScreenRectangle->{{0, 1024}, {0, 685}},
147WindowSize->{495, 527},
148WindowMargins->{{0, Automatic}, {Automatic, 0}}
149]
150
151(*******************************************************************
152Cached data follows.  If you edit this Notebook file directly, not
153using Mathematica, you must remove the line containing CacheID at
154the top of  the file.  The cache data will then be recreated when
155you save this file from within Mathematica.
156*******************************************************************)
157
158(*CellTagsOutline
159CellTagsIndex->{
160  "Info3362315879-8409761"->{
161    Cell[2179, 67, 70, 1, 25, "Print",
162      CellTags->"Info3362315879-8409761"],
163    Cell[2252, 70, 568, 15, 44, "Print",
164      CellTags->"Info3362315879-8409761"]},
165  "Info3362315904-1598254"->{
166    Cell[3426, 112, 70, 1, 25, "Print",
167      CellTags->"Info3362315904-1598254"],
168    Cell[3499, 115, 738, 17, 77, "Print",
169      CellTags->"Info3362315904-1598254"]}
170  }
171*)
172
173(*CellTagsIndex
174CellTagsIndex->{
175  {"Info3362315879-8409761", 5027, 159},
176  {"Info3362315904-1598254", 5224, 164}
177  }
178*)
179
180(*NotebookFileOutline
181Notebook[{
182Cell[1705, 50, 120, 2, 50, "Input"],
183Cell[1828, 54, 277, 6, 130, "Input"],
184
185Cell[CellGroupData[{
186Cell[2130, 64, 46, 1, 30, "Input"],
187Cell[2179, 67, 70, 1, 25, "Print",
188  CellTags->"Info3362315879-8409761"],
189Cell[2252, 70, 568, 15, 44, "Print",
190  CellTags->"Info3362315879-8409761"]
191}, Open  ]],
192
193Cell[CellGroupData[{
194Cell[2857, 90, 46, 1, 30, "Input"],
195Cell[2906, 93, 120, 2, 24, "Message"]
196}, Open  ]],
197Cell[3041, 98, 311, 7, 130, "Input"],
198
199Cell[CellGroupData[{
200Cell[3377, 109, 46, 1, 30, "Input"],
201Cell[3426, 112, 70, 1, 25, "Print",
202  CellTags->"Info3362315904-1598254"],
203Cell[3499, 115, 738, 17, 77, "Print",
204  CellTags->"Info3362315904-1598254"]
205}, Open  ]],
206
207Cell[CellGroupData[{
208Cell[4274, 137, 75, 1, 30, "Input"],
209Cell[4352, 140, 53, 1, 29, "Output"]
210}, Open  ]]
211}
212]
213*)
214
215
216
217(*******************************************************************
218End of Mathematica Notebook file.
219*******************************************************************)
220
Note: See TracBrowser for help on using the repository browser.