source: sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/USANS_EmptyWaves.ipf @ 1103

Last change on this file since 1103 was 570, checked in by srkline, 13 years ago

Change (1):
In preparation for release, updated pragma IgorVersion?=6.1 in all procedures

Change (2):
As a side benefit of requiring 6.1, we can use the MultiThread? keyword to thread any model function we like. The speed benefit is only noticeable on functions that require at least one integration and at least 100 points (resolution smearing is NOT threaded, too many threadSafe issues, too little benefit). I have chosen to use the MultiThread? only on the XOP assignment. In the Igor code there are too many functions that are not explicitly declared threadsafe, making for a mess.

File size: 18.3 KB
Line 
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma IgorVersion=6.1
3
4
5Function Write2Save(w,name)
6        wave w
7        String name
8       
9        Variable ii,num
10        num=numpnts(w)
11       
12        printf "Make/O/D/N=%d  %s\r\r",num,name
13
14        for(ii=0;ii<num;ii+=1)
15                printf "%s[%d] = %g\r",name,ii,w[ii]
16        endfor
17       
18        return(0)
19end
20
21Function MakeUSANSEmptyWaves()
22
23        SetDataFolder root:Packages:NIST:USANS:Globals
24       
25//Write2Save(CR_EC_0p25Gd,"CR_0p25")
26  Make/O/D/N=44  CR_0p25
27
28  CR_0p25[0] = 3873.7
29  CR_0p25[1] = 3227.55
30  CR_0p25[2] = 2617.25
31  CR_0p25[3] = 1918.8
32  CR_0p25[4] = 1286.5
33  CR_0p25[5] = 647.8
34  CR_0p25[6] = 166.5
35  CR_0p25[7] = 35.15
36  CR_0p25[8] = 14.15
37  CR_0p25[9] = 6.95
38  CR_0p25[10] = 1.62
39  CR_0p25[11] = 1.04
40  CR_0p25[12] = 0.44
41  CR_0p25[13] = 0.4
42  CR_0p25[14] = 0.18
43  CR_0p25[15] = 0.22
44  CR_0p25[16] = 0.15
45  CR_0p25[17] = 0.11
46  CR_0p25[18] = 0.06
47  CR_0p25[19] = 0.07
48  CR_0p25[20] = 0.09
49  CR_0p25[21] = 0.05
50  CR_0p25[22] = 0.0453333
51  CR_0p25[23] = 0.0226667
52  CR_0p25[24] = 0.0333333
53  CR_0p25[25] = 0.028
54  CR_0p25[26] = 0.0413333
55  CR_0p25[27] = 0.0253333
56  CR_0p25[28] = 0.028
57  CR_0p25[29] = 0.024
58  CR_0p25[30] = 0.0266667
59  CR_0p25[31] = 0.0158333
60  CR_0p25[32] = 0.0275
61  CR_0p25[33] = 0.0208333
62  CR_0p25[34] = 0.0275
63  CR_0p25[35] = 0.0291667
64  CR_0p25[36] = 0.035
65  CR_0p25[37] = 0.0291667
66  CR_0p25[38] = 0.0208333
67  CR_0p25[39] = 0.0283333
68  CR_0p25[40] = 0.0208333
69  CR_0p25[41] = 0.0241667
70  CR_0p25[42] = 0.0175
71  CR_0p25[43] = 0.0266667
72 
73//
74///Write2Save(Q_EC_0p25Gd,"Q_0p25")
75  Make/O/D/N=44  Q_0p25
76
77  Q_0p25[0] = 5.52469e-06
78  Q_0p25[1] = 8.29969e-06
79  Q_0p25[2] = 1.10747e-05
80  Q_0p25[3] = 1.38497e-05
81  Q_0p25[4] = 1.66247e-05
82  Q_0p25[5] = 1.93997e-05
83  Q_0p25[6] = 2.21747e-05
84  Q_0p25[7] = 2.49497e-05
85  Q_0p25[8] = 2.77247e-05
86  Q_0p25[9] = 3.04997e-05
87  Q_0p25[10] = 4.15997e-05
88  Q_0p25[11] = 5.26997e-05
89  Q_0p25[12] = 6.37997e-05
90  Q_0p25[13] = 7.48997e-05
91  Q_0p25[14] = 8.59997e-05
92  Q_0p25[15] = 9.70997e-05
93  Q_0p25[16] = 0.0001082
94  Q_0p25[17] = 0.00013595
95  Q_0p25[18] = 0.0001637
96  Q_0p25[19] = 0.00019145
97  Q_0p25[20] = 0.0002192
98  Q_0p25[21] = 0.00024695
99  Q_0p25[22] = 0.0002747
100  Q_0p25[23] = 0.00030245
101  Q_0p25[24] = 0.0003302
102  Q_0p25[25] = 0.00035795
103  Q_0p25[26] = 0.0003857
104  Q_0p25[27] = 0.00041345
105  Q_0p25[28] = 0.0004412
106  Q_0p25[29] = 0.00046895
107  Q_0p25[30] = 0.0004967
108  Q_0p25[31] = 0.0005522
109  Q_0p25[32] = 0.000593825
110  Q_0p25[33] = 0.00063545
111  Q_0p25[34] = 0.000677075
112  Q_0p25[35] = 0.0007187
113  Q_0p25[36] = 0.000760325
114  Q_0p25[37] = 0.00080195
115  Q_0p25[38] = 0.000843575
116  Q_0p25[39] = 0.0008852
117  Q_0p25[40] = 0.000926825
118  Q_0p25[41] = 0.00096845
119  Q_0p25[42] = 0.00101007
120  Q_0p25[43] = 0.0010517
121
122//¥Write2Save(CR_EC_0p50Gd,"CR_0p50")
123  Make/O/D/N=38  CR_0p50
124
125  CR_0p50[0] = 15828.3
126  CR_0p50[1] = 14044.4
127  CR_0p50[2] = 12109.6
128  CR_0p50[3] = 10097.2
129  CR_0p50[4] = 7897.4
130  CR_0p50[5] = 5685.8
131  CR_0p50[6] = 1497.28
132  CR_0p50[7] = 22
133  CR_0p50[8] = 4.15
134  CR_0p50[9] = 1.60833
135  CR_0p50[10] = 0.841667
136  CR_0p50[11] = 0.591667
137  CR_0p50[12] = 0.2625
138  CR_0p50[13] = 0.141667
139  CR_0p50[14] = 0.0791667
140  CR_0p50[15] = 0.075
141  CR_0p50[16] = 0.05
142  CR_0p50[17] = 0.0291667
143  CR_0p50[18] = 0.0333333
144  CR_0p50[19] = 0.05
145  CR_0p50[20] = 0.0416667
146  CR_0p50[21] = 0.0416667
147  CR_0p50[22] = 0.0208333
148  CR_0p50[23] = 0.0291667
149  CR_0p50[24] = 0.022
150  CR_0p50[25] = 0.021
151  CR_0p50[26] = 0.035
152  CR_0p50[27] = 0.023
153  CR_0p50[28] = 0.035
154  CR_0p50[29] = 0.0225
155  CR_0p50[30] = 0.026
156  CR_0p50[31] = 0.022
157  CR_0p50[32] = 0.0245
158  CR_0p50[33] = 0.0355
159  CR_0p50[34] = 0.0255
160  CR_0p50[35] = 0.0265
161  CR_0p50[36] = 0.028
162  CR_0p50[37] = 0.0235
163 
164//¥Write2Save(Q_EC_0p50Gd,"Q_0p50")
165  Make/O/D/N=38  Q_0p50
166
167  Q_0p50[0] = 3.68132e-06
168  Q_0p50[1] = 6.45632e-06
169  Q_0p50[2] = 9.23131e-06
170  Q_0p50[3] = 1.20063e-05
171  Q_0p50[4] = 1.47813e-05
172  Q_0p50[5] = 1.75563e-05
173  Q_0p50[6] = 2.31063e-05
174  Q_0p50[7] = 3.42063e-05
175  Q_0p50[8] = 4.53063e-05
176  Q_0p50[9] = 5.64063e-05
177  Q_0p50[10] = 6.75063e-05
178  Q_0p50[11] = 7.86063e-05
179  Q_0p50[12] = 9.52563e-05
180  Q_0p50[13] = 0.000117456
181  Q_0p50[14] = 0.000139656
182  Q_0p50[15] = 0.000161856
183  Q_0p50[16] = 0.000184056
184  Q_0p50[17] = 0.000206256
185  Q_0p50[18] = 0.000228456
186  Q_0p50[19] = 0.000261756
187  Q_0p50[20] = 0.000317256
188  Q_0p50[21] = 0.000372756
189  Q_0p50[22] = 0.000428256
190  Q_0p50[23] = 0.000483756
191  Q_0p50[24] = 0.000539256
192  Q_0p50[25] = 0.000650256
193  Q_0p50[26] = 0.000761256
194  Q_0p50[27] = 0.000872256
195  Q_0p50[28] = 0.000983256
196  Q_0p50[29] = 0.00109426
197  Q_0p50[30] = 0.00131626
198  Q_0p50[31] = 0.00153826
199  Q_0p50[32] = 0.00176026
200  Q_0p50[33] = 0.00198226
201  Q_0p50[34] = 0.00220426
202  Q_0p50[35] = 0.00242626
203  Q_0p50[36] = 0.00264826
204  Q_0p50[37] = 0.00287026
205 
206//  ¥Write2Save(CR_EC_0p625Gd,"CR_0p625")
207  Make/O/D/N=111  CR_0p625
208
209  CR_0p625[0] = 21097
210  CR_0p625[1] = 18615.3
211  CR_0p625[2] = 16007.7
212  CR_0p625[3] = 12783.3
213  CR_0p625[4] = 9399.83
214  CR_0p625[5] = 5951.17
215  CR_0p625[6] = 2945.17
216  CR_0p625[7] = 938.8
217  CR_0p625[8] = 210.3
218  CR_0p625[9] = 75.4667
219  CR_0p625[10] = 34.4333
220  CR_0p625[11] = 18.5
221  CR_0p625[12] = 11.6667
222  CR_0p625[13] = 7
223  CR_0p625[14] = 5.26667
224  CR_0p625[15] = 4.06667
225  CR_0p625[16] = 3.06667
226  CR_0p625[17] = 1.96667
227  CR_0p625[18] = 1.73333
228  CR_0p625[19] = 1.4
229  CR_0p625[20] = 1
230  CR_0p625[21] = 1.03333
231  CR_0p625[22] = 0.9
232  CR_0p625[23] = 0.666667
233  CR_0p625[24] = 0.466667
234  CR_0p625[25] = 0.733333
235  CR_0p625[26] = 0.4
236  CR_0p625[27] = 0.433333
237  CR_0p625[28] = 0.4
238  CR_0p625[29] = 0.333333
239  CR_0p625[30] = 0.266667
240  CR_0p625[31] = 0.366667
241  CR_0p625[32] = 0.2
242  CR_0p625[33] = 0.3
243  CR_0p625[34] = 0.3
244  CR_0p625[35] = 0.233333
245  CR_0p625[36] = 0.2
246  CR_0p625[37] = 0.3
247  CR_0p625[38] = 0.172222
248  CR_0p625[39] = 0.166667
249  CR_0p625[40] = 0.105556
250  CR_0p625[41] = 0.1
251  CR_0p625[42] = 0.127778
252  CR_0p625[43] = 0.116667
253  CR_0p625[44] = 0.111111
254  CR_0p625[45] = 0.122222
255  CR_0p625[46] = 0.0944444
256  CR_0p625[47] = 0.0777778
257  CR_0p625[48] = 0.0888889
258  CR_0p625[49] = 0.0777778
259  CR_0p625[50] = 0.0888889
260  CR_0p625[51] = 0.102778
261  CR_0p625[52] = 0.0777778
262  CR_0p625[53] = 0.05
263  CR_0p625[54] = 0.0472222
264  CR_0p625[55] = 0.05
265  CR_0p625[56] = 0.0416667
266  CR_0p625[57] = 0.0444444
267  CR_0p625[58] = 0.0388889
268  CR_0p625[59] = 0.0305556
269  CR_0p625[60] = 0.0333333
270  CR_0p625[61] = 0.0583333
271  CR_0p625[62] = 0.0388889
272  CR_0p625[63] = 0.0277778
273  CR_0p625[64] = 0.05
274  CR_0p625[65] = 0.0361111
275  CR_0p625[66] = 0.0355556
276  CR_0p625[67] = 0.0455556
277  CR_0p625[68] = 0.0411111
278  CR_0p625[69] = 0.0388889
279  CR_0p625[70] = 0.0433333
280  CR_0p625[71] = 0.0366667
281  CR_0p625[72] = 0.0288889
282  CR_0p625[73] = 0.0244444
283  CR_0p625[74] = 0.0377778
284  CR_0p625[75] = 0.04
285  CR_0p625[76] = 0.0355556
286  CR_0p625[77] = 0.0322222
287  CR_0p625[78] = 0.0355556
288  CR_0p625[79] = 0.0277778
289  CR_0p625[80] = 0.0277778
290  CR_0p625[81] = 0.0344444
291  CR_0p625[82] = 0.0233333
292  CR_0p625[83] = 0.0322222
293  CR_0p625[84] = 0.0233333
294  CR_0p625[85] = 0.0411111
295  CR_0p625[86] = 0.0305556
296  CR_0p625[87] = 0.0222222
297  CR_0p625[88] = 0.0259259
298  CR_0p625[89] = 0.037037
299  CR_0p625[90] = 0.025
300  CR_0p625[91] = 0.0342593
301  CR_0p625[92] = 0.0333333
302  CR_0p625[93] = 0.0277778
303  CR_0p625[94] = 0.0240741
304  CR_0p625[95] = 0.0287037
305  CR_0p625[96] = 0.0333333
306  CR_0p625[97] = 0.0231481
307  CR_0p625[98] = 0.0240741
308  CR_0p625[99] = 0.025
309  CR_0p625[100] = 0.025
310  CR_0p625[101] = 0.0266667
311  CR_0p625[102] = 0.0225
312  CR_0p625[103] = 0.0358333
313  CR_0p625[104] = 0.0233333
314  CR_0p625[105] = 0.0208333
315  CR_0p625[106] = 0.0366667
316  CR_0p625[107] = 0.0266667
317  CR_0p625[108] = 0.0308333
318  CR_0p625[109] = 0.0341667
319  CR_0p625[110] = 0.0208333
320 
321//¥Write2Save(Q_EC_0p625Gd,"Q_0p625")
322  Make/O/D/N=111  Q_0p625
323
324  Q_0p625[0] = 4.51567e-06
325  Q_0p625[1] = 7.29067e-06
326  Q_0p625[2] = 1.00657e-05
327  Q_0p625[3] = 1.28407e-05
328  Q_0p625[4] = 1.56157e-05
329  Q_0p625[5] = 1.83907e-05
330  Q_0p625[6] = 2.11657e-05
331  Q_0p625[7] = 2.39407e-05
332  Q_0p625[8] = 2.67157e-05
333  Q_0p625[9] = 2.94907e-05
334  Q_0p625[10] = 3.22657e-05
335  Q_0p625[11] = 3.50407e-05
336  Q_0p625[12] = 3.78157e-05
337  Q_0p625[13] = 4.05907e-05
338  Q_0p625[14] = 4.33657e-05
339  Q_0p625[15] = 4.61407e-05
340  Q_0p625[16] = 4.89157e-05
341  Q_0p625[17] = 5.16907e-05
342  Q_0p625[18] = 5.44657e-05
343  Q_0p625[19] = 5.72407e-05
344  Q_0p625[20] = 6.00157e-05
345  Q_0p625[21] = 6.27907e-05
346  Q_0p625[22] = 6.55657e-05
347  Q_0p625[23] = 6.83407e-05
348  Q_0p625[24] = 7.11157e-05
349  Q_0p625[25] = 7.38907e-05
350  Q_0p625[26] = 7.66657e-05
351  Q_0p625[27] = 7.94407e-05
352  Q_0p625[28] = 8.22157e-05
353  Q_0p625[29] = 8.49907e-05
354  Q_0p625[30] = 8.77657e-05
355  Q_0p625[31] = 9.05407e-05
356  Q_0p625[32] = 9.33157e-05
357  Q_0p625[33] = 9.60907e-05
358  Q_0p625[34] = 9.88657e-05
359  Q_0p625[35] = 0.000101641
360  Q_0p625[36] = 0.000104416
361  Q_0p625[37] = 0.000107191
362  Q_0p625[38] = 0.000112741
363  Q_0p625[39] = 0.000118291
364  Q_0p625[40] = 0.000123841
365  Q_0p625[41] = 0.000129391
366  Q_0p625[42] = 0.000134941
367  Q_0p625[43] = 0.000140491
368  Q_0p625[44] = 0.000146041
369  Q_0p625[45] = 0.000151591
370  Q_0p625[46] = 0.000157141
371  Q_0p625[47] = 0.000162691
372  Q_0p625[48] = 0.000168241
373  Q_0p625[49] = 0.000173791
374  Q_0p625[50] = 0.000179341
375  Q_0p625[51] = 0.000184891
376  Q_0p625[52] = 0.000195991
377  Q_0p625[53] = 0.000207091
378  Q_0p625[54] = 0.000218191
379  Q_0p625[55] = 0.000229291
380  Q_0p625[56] = 0.000240391
381  Q_0p625[57] = 0.000251491
382  Q_0p625[58] = 0.000262591
383  Q_0p625[59] = 0.000273691
384  Q_0p625[60] = 0.000284791
385  Q_0p625[61] = 0.000295891
386  Q_0p625[62] = 0.000306991
387  Q_0p625[63] = 0.000318091
388  Q_0p625[64] = 0.000329191
389  Q_0p625[65] = 0.000340291
390  Q_0p625[66] = 0.000351391
391  Q_0p625[67] = 0.000379141
392  Q_0p625[68] = 0.000406891
393  Q_0p625[69] = 0.000434641
394  Q_0p625[70] = 0.000462391
395  Q_0p625[71] = 0.000490141
396  Q_0p625[72] = 0.000517891
397  Q_0p625[73] = 0.000545641
398  Q_0p625[74] = 0.000573391
399  Q_0p625[75] = 0.000601141
400  Q_0p625[76] = 0.000628891
401  Q_0p625[77] = 0.000684391
402  Q_0p625[78] = 0.000739891
403  Q_0p625[79] = 0.000795391
404  Q_0p625[80] = 0.000850891
405  Q_0p625[81] = 0.000906391
406  Q_0p625[82] = 0.000961891
407  Q_0p625[83] = 0.00101739
408  Q_0p625[84] = 0.00107289
409  Q_0p625[85] = 0.00112839
410  Q_0p625[86] = 0.00118389
411  Q_0p625[87] = 0.00129489
412  Q_0p625[88] = 0.00140589
413  Q_0p625[89] = 0.00151689
414  Q_0p625[90] = 0.00162789
415  Q_0p625[91] = 0.00173889
416  Q_0p625[92] = 0.00184989
417  Q_0p625[93] = 0.00196089
418  Q_0p625[94] = 0.00207189
419  Q_0p625[95] = 0.00218289
420  Q_0p625[96] = 0.00229389
421  Q_0p625[97] = 0.00240489
422  Q_0p625[98] = 0.00251589
423  Q_0p625[99] = 0.00262689
424  Q_0p625[100] = 0.00273789
425  Q_0p625[101] = 0.00284889
426  Q_0p625[102] = 0.00312639
427  Q_0p625[103] = 0.00340389
428  Q_0p625[104] = 0.00368139
429  Q_0p625[105] = 0.00395889
430  Q_0p625[106] = 0.00423639
431  Q_0p625[107] = 0.00451389
432  Q_0p625[108] = 0.00479139
433  Q_0p625[109] = 0.00506889
434  Q_0p625[110] = 0.00534639
435
436
437//¥Write2Save(CR_EB_1p75Cd,"CR_1p75")
438  Make/O/D/N=62  CR_1p75
439
440  CR_1p75[0] = 56049.9
441  CR_1p75[1] = 51240.5
442  CR_1p75[2] = 45919
443  CR_1p75[3] = 39577.8
444  CR_1p75[4] = 32971.3
445  CR_1p75[5] = 25348.7
446  CR_1p75[6] = 15999.1
447  CR_1p75[7] = 5576.9
448  CR_1p75[8] = 1142.1
449  CR_1p75[9] = 387.5
450  CR_1p75[10] = 167.9
451  CR_1p75[11] = 78.5
452  CR_1p75[12] = 44.7
453  CR_1p75[13] = 29.3
454  CR_1p75[14] = 13.0967
455  CR_1p75[15] = 7.51667
456  CR_1p75[16] = 4.38667
457  CR_1p75[17] = 3.09
458  CR_1p75[18] = 1.97667
459  CR_1p75[19] = 1.48667
460  CR_1p75[20] = 1.18333
461  CR_1p75[21] = 0.953333
462  CR_1p75[22] = 0.84
463  CR_1p75[23] = 0.736667
464  CR_1p75[24] = 0.596667
465  CR_1p75[25] = 0.513333
466  CR_1p75[26] = 0.573333
467  CR_1p75[27] = 0.47125
468  CR_1p75[28] = 0.3775
469  CR_1p75[29] = 0.345
470  CR_1p75[30] = 0.27875
471  CR_1p75[31] = 0.25625
472  CR_1p75[32] = 0.20125
473  CR_1p75[33] = 0.2175
474  CR_1p75[34] = 0.21875
475  CR_1p75[35] = 0.20125
476  CR_1p75[36] = 0.15
477  CR_1p75[37] = 0.1725
478  CR_1p75[38] = 0.14375
479  CR_1p75[39] = 0.1275
480  CR_1p75[40] = 0.12
481  CR_1p75[41] = 0.1275
482  CR_1p75[42] = 0.095
483  CR_1p75[43] = 0.075
484  CR_1p75[44] = 0.0708333
485  CR_1p75[45] = 0.0666667
486  CR_1p75[46] = 0.045
487  CR_1p75[47] = 0.0558333
488  CR_1p75[48] = 0.0525
489  CR_1p75[49] = 0.0508333
490  CR_1p75[50] = 0.0416667
491  CR_1p75[51] = 0.0341667
492  CR_1p75[52] = 0.05
493  CR_1p75[53] = 0.0325
494  CR_1p75[54] = 0.0433333
495  CR_1p75[55] = 0.0341667
496  CR_1p75[56] = 0.0391667
497  CR_1p75[57] = 0.0375
498  CR_1p75[58] = 0.0275
499  CR_1p75[59] = 0.0241667
500  CR_1p75[60] = 0.0258333
501  CR_1p75[61] = 0.0308333
502 
503//¥Write2Save(Q_EB_1p75Cd,"Q_1p75")
504  Make/O/D/N=62  Q_1p75
505
506  Q_1p75[0] = 2.39312e-06
507  Q_1p75[1] = 5.16812e-06
508  Q_1p75[2] = 7.94312e-06
509  Q_1p75[3] = 1.07181e-05
510  Q_1p75[4] = 1.34931e-05
511  Q_1p75[5] = 1.62681e-05
512  Q_1p75[6] = 1.90431e-05
513  Q_1p75[7] = 2.18181e-05
514  Q_1p75[8] = 2.45931e-05
515  Q_1p75[9] = 2.73681e-05
516  Q_1p75[10] = 3.01431e-05
517  Q_1p75[11] = 3.29181e-05
518  Q_1p75[12] = 3.56931e-05
519  Q_1p75[13] = 3.84681e-05
520  Q_1p75[14] = 4.40181e-05
521  Q_1p75[15] = 4.95681e-05
522  Q_1p75[16] = 5.51181e-05
523  Q_1p75[17] = 6.06681e-05
524  Q_1p75[18] = 6.62181e-05
525  Q_1p75[19] = 7.17681e-05
526  Q_1p75[20] = 7.73181e-05
527  Q_1p75[21] = 8.28681e-05
528  Q_1p75[22] = 8.84181e-05
529  Q_1p75[23] = 9.39681e-05
530  Q_1p75[24] = 9.95181e-05
531  Q_1p75[25] = 0.000105068
532  Q_1p75[26] = 0.000110618
533  Q_1p75[27] = 0.000116168
534  Q_1p75[28] = 0.000127268
535  Q_1p75[29] = 0.000138368
536  Q_1p75[30] = 0.000149468
537  Q_1p75[31] = 0.000160568
538  Q_1p75[32] = 0.000171668
539  Q_1p75[33] = 0.000182768
540  Q_1p75[34] = 0.000193868
541  Q_1p75[35] = 0.000204968
542  Q_1p75[36] = 0.000216068
543  Q_1p75[37] = 0.000227168
544  Q_1p75[38] = 0.000238268
545  Q_1p75[39] = 0.000249368
546  Q_1p75[40] = 0.000260468
547  Q_1p75[41] = 0.000271568
548  Q_1p75[42] = 0.000282668
549  Q_1p75[43] = 0.000310418
550  Q_1p75[44] = 0.000338168
551  Q_1p75[45] = 0.000365918
552  Q_1p75[46] = 0.000393668
553  Q_1p75[47] = 0.000421418
554  Q_1p75[48] = 0.000449168
555  Q_1p75[49] = 0.000476918
556  Q_1p75[50] = 0.000504668
557  Q_1p75[51] = 0.000532418
558  Q_1p75[52] = 0.000560168
559  Q_1p75[53] = 0.000615668
560  Q_1p75[54] = 0.000671168
561  Q_1p75[55] = 0.000726668
562  Q_1p75[56] = 0.000782168
563  Q_1p75[57] = 0.000837668
564  Q_1p75[58] = 0.000893168
565  Q_1p75[59] = 0.000948668
566  Q_1p75[60] = 0.00100417
567  Q_1p75[61] = 0.00105967
568
569//¥Write2Save(CR_EB_2p0Cd,"CR_2p0")
570  Make/O/D/N=98  CR_2p0
571
572  CR_2p0[0] = 56491
573  CR_2p0[1] = 54551
574  CR_2p0[2] = 52643
575  CR_2p0[3] = 50831
576  CR_2p0[4] = 49123
577  CR_2p0[5] = 47027
578  CR_2p0[6] = 44771
579  CR_2p0[7] = 42107
580  CR_2p0[8] = 39800
581  CR_2p0[9] = 37302
582  CR_2p0[10] = 34395
583  CR_2p0[11] = 31471
584  CR_2p0[12] = 28303
585  CR_2p0[13] = 25128
586  CR_2p0[14] = 21653
587  CR_2p0[15] = 17922
588  CR_2p0[16] = 12174
589  CR_2p0[17] = 7115.8
590  CR_2p0[18] = 3326.9
591  CR_2p0[19] = 1589.9
592  CR_2p0[20] = 891.4
593  CR_2p0[21] = 535.63
594  CR_2p0[22] = 220.89
595  CR_2p0[23] = 107.1
596  CR_2p0[24] = 56.514
597  CR_2p0[25] = 32.152
598  CR_2p0[26] = 20.343
599  CR_2p0[27] = 12.414
600  CR_2p0[28] = 8.627
601  CR_2p0[29] = 6.7108
602  CR_2p0[30] = 4.9465
603  CR_2p0[31] = 4.1578
604  CR_2p0[32] = 3.3081
605  CR_2p0[33] = 2.766
606  CR_2p0[34] = 2.4332
607  CR_2p0[35] = 2.1247
608  CR_2p0[36] = 1.8241
609  CR_2p0[37] = 1.714
610  CR_2p0[38] = 1.5203
611  CR_2p0[39] = 1.3497
612  CR_2p0[40] = 1.1631
613  CR_2p0[41] = 1.0898
614  CR_2p0[42] = 0.92233
615  CR_2p0[43] = 0.86104
616  CR_2p0[44] = 0.85208
617  CR_2p0[45] = 0.73172
618  CR_2p0[46] = 0.70148
619  CR_2p0[47] = 0.66529
620  CR_2p0[48] = 0.61247
621  CR_2p0[49] = 0.4913
622  CR_2p0[50] = 0.39919
623  CR_2p0[51] = 0.35199
624  CR_2p0[52] = 0.30181
625  CR_2p0[53] = 0.27288
626  CR_2p0[54] = 0.26265
627  CR_2p0[55] = 0.21062
628  CR_2p0[56] = 0.17651
629  CR_2p0[57] = 0.18255
630  CR_2p0[58] = 0.16052
631  CR_2p0[59] = 0.16645
632  CR_2p0[60] = 0.14246
633  CR_2p0[61] = 0.12039
634  CR_2p0[62] = 0.10952
635  CR_2p0[63] = 0.099616
636  CR_2p0[64] = 0.060274
637  CR_2p0[65] = 0.068665
638  CR_2p0[66] = 0.059424
639  CR_2p0[67] = 0.059445
640  CR_2p0[68] = 0.037673
641  CR_2p0[69] = 0.041021
642  CR_2p0[70] = 0.028466
643  CR_2p0[71] = 0.035992
644  CR_2p0[72] = 0.031814
645  CR_2p0[73] = 0.031632
646  CR_2p0[74] = 0.031634
647  CR_2p0[75] = 0.02913
648  CR_2p0[76] = 0.02812
649  CR_2p0[77] = 0.026116
650  CR_2p0[78] = 0.027619
651  CR_2p0[79] = 0.027621
652  CR_2p0[80] = 0.024099
653  CR_2p0[81] = 0.024603
654  CR_2p0[82] = 0.028119
655  CR_2p0[83] = 0.027782
656  CR_2p0[84] = 0.025783
657  CR_2p0[85] = 0.026126
658  CR_2p0[86] = 0.025121
659  CR_2p0[87] = 0.028149
660  CR_2p0[88] = 0.025849
661  CR_2p0[89] = 0.024509
662  CR_2p0[90] = 0.023831
663  CR_2p0[91] = 0.026867
664  CR_2p0[92] = 0.026525
665  CR_2p0[93] = 0.028867
666  CR_2p0[94] = 0.0282
667  CR_2p0[95] = 0.023507
668  CR_2p0[96] = 0.029929
669  CR_2p0[97] = 0.032651
670 
671//¥Write2Save(Q_EB_2p0Cd,"Q_2p0")
672  Make/O/D/N=98  Q_2p0
673
674  Q_2p0[0] = 1.4972e-06
675  Q_2p0[1] = 2.6072e-06
676  Q_2p0[2] = 3.7172e-06
677  Q_2p0[3] = 4.8272e-06
678  Q_2p0[4] = 5.9372e-06
679  Q_2p0[5] = 7.0472e-06
680  Q_2p0[6] = 8.1572e-06
681  Q_2p0[7] = 9.2672e-06
682  Q_2p0[8] = 1.0377e-05
683  Q_2p0[9] = 1.1487e-05
684  Q_2p0[10] = 1.2597e-05
685  Q_2p0[11] = 1.3707e-05
686  Q_2p0[12] = 1.4817e-05
687  Q_2p0[13] = 1.5927e-05
688  Q_2p0[14] = 1.7037e-05
689  Q_2p0[15] = 1.8147e-05
690  Q_2p0[16] = 1.9257e-05
691  Q_2p0[17] = 2.0367e-05
692  Q_2p0[18] = 2.1477e-05
693  Q_2p0[19] = 2.2587e-05
694  Q_2p0[20] = 2.3697e-05
695  Q_2p0[21] = 2.4807e-05
696  Q_2p0[22] = 2.7582e-05
697  Q_2p0[23] = 3.0357e-05
698  Q_2p0[24] = 3.3132e-05
699  Q_2p0[25] = 3.5907e-05
700  Q_2p0[26] = 3.8682e-05
701  Q_2p0[27] = 4.1457e-05
702  Q_2p0[28] = 4.4232e-05
703  Q_2p0[29] = 4.7007e-05
704  Q_2p0[30] = 4.9782e-05
705  Q_2p0[31] = 5.2557e-05
706  Q_2p0[32] = 5.5332e-05
707  Q_2p0[33] = 5.8107e-05
708  Q_2p0[34] = 6.0882e-05
709  Q_2p0[35] = 6.3657e-05
710  Q_2p0[36] = 6.6432e-05
711  Q_2p0[37] = 6.9207e-05
712  Q_2p0[38] = 7.1982e-05
713  Q_2p0[39] = 7.4757e-05
714  Q_2p0[40] = 7.7532e-05
715  Q_2p0[41] = 8.0307e-05
716  Q_2p0[42] = 8.3082e-05
717  Q_2p0[43] = 8.5857e-05
718  Q_2p0[44] = 8.8632e-05
719  Q_2p0[45] = 9.1407e-05
720  Q_2p0[46] = 9.4182e-05
721  Q_2p0[47] = 9.6957e-05
722  Q_2p0[48] = 0.00010251
723  Q_2p0[49] = 0.00011361
724  Q_2p0[50] = 0.00012471
725  Q_2p0[51] = 0.00013581
726  Q_2p0[52] = 0.00014691
727  Q_2p0[53] = 0.00015801
728  Q_2p0[54] = 0.00016911
729  Q_2p0[55] = 0.00018021
730  Q_2p0[56] = 0.00019131
731  Q_2p0[57] = 0.00020241
732  Q_2p0[58] = 0.00021351
733  Q_2p0[59] = 0.00022461
734  Q_2p0[60] = 0.00023571
735  Q_2p0[61] = 0.00024681
736  Q_2p0[62] = 0.00025791
737  Q_2p0[63] = 0.00026901
738  Q_2p0[64] = 0.00029676
739  Q_2p0[65] = 0.00032451
740  Q_2p0[66] = 0.00035226
741  Q_2p0[67] = 0.00038001
742  Q_2p0[68] = 0.00040776
743  Q_2p0[69] = 0.00043551
744  Q_2p0[70] = 0.00046326
745  Q_2p0[71] = 0.00049101
746  Q_2p0[72] = 0.00051876
747  Q_2p0[73] = 0.00054651
748  Q_2p0[74] = 0.00060201
749  Q_2p0[75] = 0.00065751
750  Q_2p0[76] = 0.00071301
751  Q_2p0[77] = 0.00076851
752  Q_2p0[78] = 0.00082401
753  Q_2p0[79] = 0.00087951
754  Q_2p0[80] = 0.00093501
755  Q_2p0[81] = 0.00099051
756  Q_2p0[82] = 0.001046
757  Q_2p0[83] = 0.0011015
758  Q_2p0[84] = 0.0012125
759  Q_2p0[85] = 0.0013235
760  Q_2p0[86] = 0.0014345
761  Q_2p0[87] = 0.0015455
762  Q_2p0[88] = 0.0016565
763  Q_2p0[89] = 0.0017675
764  Q_2p0[90] = 0.0018785
765  Q_2p0[91] = 0.0019895
766  Q_2p0[92] = 0.0021005
767  Q_2p0[93] = 0.0022115
768  Q_2p0[94] = 0.0023225
769  Q_2p0[95] = 0.0024335
770  Q_2p0[96] = 0.0025445
771  Q_2p0[97] = 0.0026555
772
773
774        SetDataFolder root:
775        return(0)
776End
Note: See TracBrowser for help on using the repository browser.