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

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

in SASCALC - changed some of the logic to allow 2D simulation

in MultiScatter_MC:

  • changed results wave to report coherent multiple scattering counters correctly (also changed XOP)
  • added save of 1D sim data

in U_CALC:

  • adjusted display for optimal view on windows
  • 7 angle ranges now (added defaults, propagated where all controls are modified)
  • added the angle axis correctly now as a free axis, with a hook linked to the bottom axis
  • removed XS and trans calculations, as integration of ran_dev isn't well

in USANS_EmptyWaves:

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