Context Navigation

USANS_EmptyWaves.ipf @ 573

Last change on this file since 573 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
5	Function 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)
19	end
20
21	Function 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)
776	End

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

Download in other formats:

Original Format