Context Navigation

USANS_EmptyWaves.ipf @ 549

Last change on this file since 549 was 547, checked in by srkline, 14 years ago
more changes to UCALC, display vs. countrate and add a display of experimental empty measurements along with the simulation. empty beam and empty call measurements are so similar - they have not been differentiated, especially since they are only for comparison.
File size: 18.3 KB

Line
1	#pragma rtGlobals=1 // Use modern global access method.
2
3
4	Function Write2Save(w,name)
5	wave w
6	String name
7
8	Variable ii,num
9	num=numpnts(w)
10
11	printf "Make/O/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)
18	end
19
20	Function MakeUSANSEmptyWaves()
21
22	SetDataFolder root:Packages:NIST:USANS:Globals
23
24	//Write2Save(CR_EC_0p25Gd,"CR_0p25")
25	Make/O/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/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/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/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/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/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/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/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/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/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)
775	End

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format