1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/*******************************************************************************
* * McStas instrument definition URL=http://mcstas.risoe.dk
*
* Instrument: ISIS_test
*
* %Identification
* Written by: <a href="mailto:D.Champion@rl.ac.uk">Dickon Champion</a>
* Date: Aug 2004
* Origin: <a href="http://www.isis.rl.ac.uk/">ISIS</a>
* %INSTRUMENT_SITE: ISIS
*
* Simple test instrument for the ISIS_moderator component
*
* %Description
* Simple test instrument for the ISIS_moderator component.
* Refer to the documentation in MCSTAS/contrib/doc/ISISdoc.pdf (.ps)
* for further instructions on using the ISIS_moderator component
*
* %Example: ISIS_test.instr Detector: lam1_I=8.2384e+11
*
* %Link
* Written by D. Champion <D.Champion@rl.ac.uk> ISIS, Feb 2004
* %End
*******************************************************************************/
DEFINE INSTRUMENT ISIS_test()
TRACE
COMPONENT a1 = Progress_bar()
AT (0,0,0) ABSOLUTE
COMPONENT isis_mod = ISIS_moderator(
Face ="narrow", Lmin = 0.3, Lmax = 12, dist = 0.01, focus_xw = 0.1,
focus_yh = 0.1, xwidth=-0.5, yheight=-0.8, CAngle = 0.0,SAC=0)
AT (0, 0, 0) RELATIVE a1
COMPONENT lam1 = L_monitor(
nL = 1000, filename = "lambdagr.dat", xmin = -1, xmax = 1,
ymin = -1, ymax = 1, Lmin = 0.3, Lmax = 12)
AT (0, 0, 0.02) RELATIVE isis_mod
COMPONENT monL = Monitor_nD(
options = "square, lambda limits[0.3 12.0] bins=1000",
filename = "LamND.dat", xwidth=2.0, yheight = 2.0)
AT (0, 0, 0.03) RELATIVE isis_mod
COMPONENT monT = Monitor_nD(
options = "square, time auto",
filename = "timeND.dat", xwidth=2.0, yheight = 2.0)
AT (0, 0, 0.04) RELATIVE isis_mod
END
|
