LMU/musrsim
LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added to SVN repository

Browse Source
This commit is contained in:
paraiso 2006-02-21 15:02:20 +00:00
parent 1640fcbf5f
commit c16b8da177
31 changed files with 0 additions and 16774 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

734
geant4/LEMuSR/MEYER/M10.eps
View File

@ -1,734 +0,0 @@
%!PS-Adobe-2.0
%%Title: M10.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Mon Apr 11 19:41:32 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
714 420 M
6248 0 V
1.000 UL
LTb
714 420 M
63 0 V
6185 0 R
-63 0 V
630 420 M
( 0) Rshow
1.000 UL
LTa
714 865 M
6248 0 V
1.000 UL
LTb
714 865 M
63 0 V
6185 0 R
-63 0 V
630 865 M
( 0.1) Rshow
1.000 UL
LTa
714 1310 M
6248 0 V
1.000 UL
LTb
714 1310 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.2) Rshow
1.000 UL
LTa
714 1756 M
6248 0 V
1.000 UL
LTb
714 1756 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.3) Rshow
1.000 UL
LTa
714 2201 M
6248 0 V
1.000 UL
LTb
714 2201 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.4) Rshow
1.000 UL
LTa
714 2646 M
6248 0 V
1.000 UL
LTb
714 2646 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.5) Rshow
1.000 UL
LTa
714 3091 M
6248 0 V
1.000 UL
LTb
714 3091 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.6) Rshow
1.000 UL
LTa
714 3536 M
6248 0 V
1.000 UL
LTb
714 3536 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.7) Rshow
1.000 UL
LTa
714 3982 M
6248 0 V
1.000 UL
LTb
714 3982 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.8) Rshow
1.000 UL
LTa
714 4427 M
6248 0 V
1.000 UL
LTb
714 4427 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.9) Rshow
1.000 UL
LTa
714 4872 M
6248 0 V
1.000 UL
LTb
714 4872 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 1) Rshow
1.000 UL
LTa
714 420 M
0 4452 V
1.000 UL
LTb
714 420 M
0 63 V
0 4389 R
0 -63 V
714 280 M
( 0) Cshow
1.000 UL
LTa
1408 420 M
0 4452 V
1.000 UL
LTb
1408 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 5) Cshow
1.000 UL
LTa
2102 420 M
0 4452 V
1.000 UL
LTb
2102 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 10) Cshow
1.000 UL
LTa
2797 420 M
0 4452 V
1.000 UL
LTb
2797 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 15) Cshow
1.000 UL
LTa
3491 420 M
0 4452 V
1.000 UL
LTb
3491 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 20) Cshow
1.000 UL
LTa
4185 420 M
0 4452 V
1.000 UL
LTb
4185 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 25) Cshow
1.000 UL
LTa
4879 420 M
0 4452 V
1.000 UL
LTb
4879 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 30) Cshow
1.000 UL
LTa
5574 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
5574 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 35) Cshow
1.000 UL
LTa
6268 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
6268 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 40) Cshow
1.000 UL
LTa
6962 420 M
0 4452 V
1.000 UL
LTb
6962 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 45) Cshow
1.000 UL
LTb
714 420 M
6248 0 V
0 4452 V
-6248 0 V
714 420 L
140 2646 M
currentpoint gsave translate 90 rotate 0 0 M
(Meyer's distribution) Cshow
grestore
3838 70 M
(scatt. angle [deg]) Cshow
1.000 UP
1.000 UL
LT0
6311 4739 M
('M10.keV' us 1:2) Rshow
783 4872 Pls
853 4843 Pls
922 4814 Pls
992 4785 Pls
1061 4756 Pls
1131 4712 Pls
1200 4619 Pls
1269 4527 Pls
1339 4434 Pls
1408 4342 Pls
1478 4238 Pls
1547 4121 Pls
1616 4003 Pls
1686 3869 Pls
1755 3734 Pls
1825 3601 Pls
1894 3467 Pls
1964 3334 Pls
2033 3201 Pls
2102 3067 Pls
2172 2939 Pls
2241 2811 Pls
2311 2682 Pls
2380 2554 Pls
2450 2430 Pls
2519 2323 Pls
2588 2215 Pls
2658 2108 Pls
2727 2001 Pls
2797 1903 Pls
2866 1818 Pls
2936 1733 Pls
3005 1648 Pls
3074 1563 Pls
3144 1489 Pls
3213 1420 Pls
3283 1354 Pls
3352 1297 Pls
3421 1239 Pls
3491 1193 Pls
3560 1147 Pls
3630 1101 Pls
3699 1055 Pls
3769 1011 Pls
3838 978 Pls
3907 945 Pls
3977 912 Pls
4046 879 Pls
4116 850 Pls
4185 826 Pls
4255 802 Pls
4324 778 Pls
4393 755 Pls
4463 735 Pls
4532 717 Pls
4602 700 Pls
4671 682 Pls
4740 665 Pls
4810 652 Pls
4879 640 Pls
4949 629 Pls
5018 617 Pls
5088 605 Pls
5157 596 Pls
5226 587 Pls
5296 578 Pls
5365 569 Pls
5435 560 Pls
5504 554 Pls
5574 547 Pls
5643 540 Pls
5712 534 Pls
5782 529 Pls
5851 524 Pls
5921 520 Pls
5990 516 Pls
6060 512 Pls
6129 508 Pls
6198 504 Pls
6268 500 Pls
6337 496 Pls
6407 492 Pls
6476 488 Pls
6545 483 Pls
6615 481 Pls
6684 479 Pls
6754 477 Pls
6823 474 Pls
6893 472 Pls
6962 470 Pls
6594 4739 Pls
1.000 UL
LT1
6311 4599 M
(exp\(-x*x/200.\)) Rshow
6395 4599 M
399 0 V
714 4872 M
63 -5 V
63 -13 V
63 -23 V
63 -32 V
64 -41 V
63 -49 V
63 -57 V
63 -65 V
63 -72 V
63 -80 V
63 -86 V
63 -92 V
63 -98 V
64 -103 V
63 -107 V
63 -112 V
63 -114 V
63 -117 V
63 -120 V
63 -121 V
63 -122 V
63 -123 V
64 -122 V
63 -123 V
63 -121 V
63 -120 V
63 -118 V
63 -115 V
63 -114 V
63 -110 V
63 -107 V
64 -104 V
63 -101 V
63 -96 V
63 -93 V
63 -89 V
63 -85 V
63 -80 V
63 -77 V
63 -72 V
64 -69 V
63 -64 V
63 -61 V
63 -56 V
63 -53 V
63 -50 V
63 -46 V
63 -42 V
63 -39 V
64 -37 V
63 -33 V
63 -30 V
63 -28 V
63 -26 V
63 -23 V
63 -22 V
63 -19 V
63 -17 V
64 -16 V
63 -14 V
63 -13 V
63 -11 V
63 -10 V
63 -9 V
63 -8 V
63 -8 V
63 -6 V
64 -6 V
63 -4 V
63 -5 V
63 -4 V
63 -3 V
63 -3 V
63 -2 V
63 -3 V
63 -2 V
64 -1 V
63 -2 V
63 -1 V
63 -1 V
63 -1 V
63 -1 V
63 0 V
63 -1 V
63 0 V
64 -1 V
63 0 V
63 -1 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 -1 V
64 0 V
63 0 V
63 0 V
63 0 V
63 0 V
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

167
geant4/LEMuSR/MEYER/M10.keV
View File

@ -1,167 +0,0 @@
0.5 1 0
1 0.99351 0.0357481
1.5 0.98702 0.0710264
2 0.98053 0.105832
2.5 0.974041 0.140163
3 0.964167 0.173408
3.5 0.943389 0.203577
4 0.922611 0.232237
4.5 0.901832 0.259387
5 0.881054 0.285026
5.5 0.857766 0.30825
6 0.83169 0.328679
6.5 0.805237 0.347053
7 0.775073 0.361776
7.5 0.744909 0.374314
8 0.714917 0.384761
8.5 0.684995 0.39308
9 0.655074 0.399237
9.5 0.625152 0.403233
10 0.595231 0.405073
10.5 0.566391 0.405532
11 0.537611 0.403961
11.5 0.508832 0.400324
12 0.480052 0.394622
12.5 0.452135 0.387601
13 0.428038 0.381995
13.5 0.403941 0.374666
14 0.379845 0.36562
14.5 0.355748 0.354859
15 0.333765 0.344571
15.5 0.314688 0.335826
16 0.295611 0.32573
16.5 0.276534 0.314285
17 0.257457 0.301498
17.5 0.240716 0.290187
18 0.225189 0.279208
18.5 0.21038 0.268056
19 0.19745 0.258329
19.5 0.18452 0.247699
20 0.173957 0.239428
20.5 0.163673 0.230816
21 0.153388 0.22149
21.5 0.143103 0.211455
22 0.133193 0.201278
22.5 0.125753 0.194237
23 0.118313 0.186686
23.5 0.110873 0.178626
24 0.103433 0.170059
24.5 0.0967697 0.16229
25 0.0914364 0.156345
25.5 0.086103 0.150039
26 0.0807697 0.143374
26.5 0.0754364 0.136352
27 0.0709517 0.130535
27.5 0.0670204 0.125456
28 0.063089 0.120115
28.5 0.0591577 0.114514
29 0.0552264 0.108655
29.5 0.0523566 0.10466
30 0.0496858 0.100881
30.5 0.0470149 0.0969269
31 0.0443441 0.0927989
31.5 0.041722 0.0886018
32 0.0396678 0.0854598
32.5 0.0376137 0.0821853
33 0.0355596 0.0787792
33.5 0.0335055 0.0752425
34 0.0316272 0.0719762
34.5 0.0301299 0.0694702
35 0.0286327 0.0668695
35.5 0.0271354 0.064175
36 0.0256381 0.0613873
36.5 0.0244597 0.0592799
37 0.0235393 0.0577323
37.5 0.0226189 0.0561271
38 0.0216985 0.0544646
38.5 0.0207781 0.0527455
39 0.0198577 0.0509702
39.5 0.0189373 0.0491392
40 0.0180169 0.0472529
40.5 0.0170965 0.045312
41 0.0161761 0.0433168
41.5 0.0152557 0.041268
42 0.0143353 0.0391661
42.5 0.013698 0.0377927
43 0.0132167 0.0368168
43.5 0.0127354 0.0358126
44 0.0122542 0.0347803
44.5 0.0117729 0.0337203
45 0.0112916 0.0326328
45.5 0.0108103 0.0315181
46 0.010329 0.0303765
46.5 0.00984769 0.0292083
47 0.00936639 0.0280139
47.5 0.0088851 0.0267934
48 0.00840381 0.0255473
48.5 0.00807864 0.0247543
49 0.00780923 0.0241159
49.5 0.00753982 0.0234628
50 0.00727041 0.0227952
50.5 0.007001 0.0221132
51 0.00673158 0.0214171
51.5 0.00646217 0.0207071
52 0.00619276 0.0199833
52.5 0.00592335 0.0192459
53 0.00565394 0.0184951
53.5 0.00538453 0.0177311
54 0.00511512 0.016954
54.5 0.00493893 0.0164751
55 0.00478199 0.0160521
55.5 0.00462504 0.0156214
56 0.0044681 0.0151829
56.5 0.00431115 0.0147369
57 0.00415421 0.0142835
57.5 0.00399726 0.0138227
58 0.00384032 0.0133547
58.5 0.00368337 0.0128797
59 0.00352643 0.0123976
59.5 0.00336948 0.0119088
60 0.00321254 0.0114132
60.5 0.00307638 0.0109852
61 0.00294201 0.0105579
61.5 0.00280764 0.0101251
62 0.00267327 0.00968679
62.5 0.0025389 0.00924312
63 0.00240453 0.00879422
63.5 0.00227016 0.00834018
64 0.00213579 0.00788111
64.5 0.00200142 0.00741713
65 0.00186704 0.00694834
65.5 0.00173267 0.00647487
66 0.0015983 0.00599681
66.5 0.00146393 0.00551429
67 0.00132956 0.00502741
67.5 0.00119519 0.0045363
68 0.00106082 0.00404106
68.5 0.000926448 0.00354181
69 0.000792077 0.00303867
69.5 0.000657706 0.00253176
70 0.000523335 0.00202119
70.5 0.000388965 0.00150707
71 0.000254594 0.000989538
71.5 0.000120223 0.0004687
72 0 0
72.5 0 0
73 0 0
73.5 0 0
74 0 0
74.5 0 0
75 0 0
75.5 0 0
76 0 0
76.5 0 0
77 0 0
77.5 0 0
78 0 0
78.5 0 0
79 0 0
79.5 0 0
80 0 0
80.5 0 0
81 0 0
81.5 0 0
82 0 0
82.5 0 0
83 0 0
83.5 0 0

BIN
geant4/LEMuSR/MEYER/M10.pdf
View File

Binary file not shown.

805
geant4/LEMuSR/MEYER/M10sin.eps
View File

@ -1,805 +0,0 @@
%!PS-Adobe-2.0
%%Title: Ma10sin.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Mon Apr 11 19:49:42 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
714 420 M
6248 0 V
1.000 UL
LTb
714 420 M
63 0 V
6185 0 R
-63 0 V
630 420 M
( 0) Rshow
1.000 UL
LTa
714 915 M
6248 0 V
1.000 UL
LTb
714 915 M
63 0 V
6185 0 R
-63 0 V
630 915 M
( 0.1) Rshow
1.000 UL
LTa
714 1409 M
6248 0 V
1.000 UL
LTb
714 1409 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.2) Rshow
1.000 UL
LTa
714 1904 M
6248 0 V
1.000 UL
LTb
714 1904 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.3) Rshow
1.000 UL
LTa
714 2399 M
6248 0 V
1.000 UL
LTb
714 2399 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.4) Rshow
1.000 UL
LTa
714 2893 M
6248 0 V
1.000 UL
LTb
714 2893 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.5) Rshow
1.000 UL
LTa
714 3388 M
6248 0 V
1.000 UL
LTb
714 3388 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.6) Rshow
1.000 UL
LTa
714 3883 M
6248 0 V
1.000 UL
LTb
714 3883 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.7) Rshow
1.000 UL
LTa
714 4377 M
6248 0 V
1.000 UL
LTb
714 4377 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.8) Rshow
1.000 UL
LTa
714 4872 M
6248 0 V
1.000 UL
LTb
714 4872 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.9) Rshow
1.000 UL
LTa
714 420 M
0 4452 V
1.000 UL
LTb
714 420 M
0 63 V
0 4389 R
0 -63 V
714 280 M
( 0) Cshow
1.000 UL
LTa
1408 420 M
0 4452 V
1.000 UL
LTb
1408 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 5) Cshow
1.000 UL
LTa
2102 420 M
0 4452 V
1.000 UL
LTb
2102 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 10) Cshow
1.000 UL
LTa
2797 420 M
0 4452 V
1.000 UL
LTb
2797 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 15) Cshow
1.000 UL
LTa
3491 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
3491 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 20) Cshow
1.000 UL
LTa
4185 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
4185 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 25) Cshow
1.000 UL
LTa
4879 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
4879 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 30) Cshow
1.000 UL
LTa
5574 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
5574 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 35) Cshow
1.000 UL
LTa
6268 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
6268 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 40) Cshow
1.000 UL
LTa
6962 420 M
0 4452 V
1.000 UL
LTb
6962 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 45) Cshow
1.000 UL
LTb
714 420 M
6248 0 V
0 4452 V
-6248 0 V
714 420 L
140 2646 M
currentpoint gsave translate 90 rotate 0 0 M
(distribution) Cshow
grestore
3838 70 M
([deg]) Cshow
1.000 UP
1.000 UL
LT0
6311 4739 M
('M20.keV' us 1:3) Rshow
749 420 Pls
783 773 Pls
818 1122 Pls
853 1466 Pls
888 1806 Pls
922 2135 Pls
957 2433 Pls
992 2717 Pls
1026 2986 Pls
1061 3240 Pls
1096 3470 Pls
1131 3673 Pls
1165 3856 Pls
1200 4003 Pls
1235 4128 Pls
1269 4232 Pls
1304 4316 Pls
1339 4379 Pls
1374 4420 Pls
1408 4439 Pls
1443 4446 Pls
1478 4432 Pls
1512 4398 Pls
1547 4343 Pls
1582 4275 Pls
1616 4221 Pls
1651 4150 Pls
1686 4062 Pls
1721 3957 Pls
1755 3856 Pls
1790 3771 Pls
1825 3672 Pls
1859 3560 Pls
1894 3435 Pls
1929 3323 Pls
1964 3215 Pls
1998 3105 Pls
2033 3010 Pls
2068 2905 Pls
2102 2824 Pls
2137 2739 Pls
2172 2648 Pls
2207 2549 Pls
2241 2447 Pls
2276 2378 Pls
2311 2304 Pls
2345 2224 Pls
2380 2140 Pls
2415 2062 Pls
2450 2003 Pls
2484 1941 Pls
2519 1875 Pls
2554 1805 Pls
2588 1747 Pls
2623 1697 Pls
2658 1644 Pls
2693 1589 Pls
2727 1530 Pls
2762 1490 Pls
2797 1453 Pls
2831 1413 Pls
2866 1372 Pls
2901 1330 Pls
2936 1299 Pls
2970 1266 Pls
3005 1232 Pls
3040 1197 Pls
3074 1164 Pls
3109 1139 Pls
3144 1113 Pls
3178 1086 Pls
3213 1058 Pls
3248 1037 Pls
3283 1022 Pls
3317 1006 Pls
3352 989 Pls
3387 972 Pls
3421 955 Pls
3456 936 Pls
3491 917 Pls
3526 898 Pls
3560 877 Pls
3595 856 Pls
3630 835 Pls
3664 821 Pls
3699 811 Pls
3734 801 Pls
3769 791 Pls
3803 780 Pls
3838 769 Pls
3873 758 Pls
3907 746 Pls
3942 734 Pls
3977 722 Pls
4012 709 Pls
4046 697 Pls
4081 688 Pls
4116 682 Pls
4150 675 Pls
4185 669 Pls
4220 662 Pls
4255 654 Pls
4289 647 Pls
4324 640 Pls
4359 632 Pls
4393 624 Pls
4428 616 Pls
4463 608 Pls
4498 603 Pls
4532 599 Pls
4567 594 Pls
4602 590 Pls
4636 585 Pls
4671 581 Pls
4706 576 Pls
4740 571 Pls
4775 566 Pls
4810 561 Pls
4845 556 Pls
4879 550 Pls
4914 546 Pls
4949 541 Pls
4983 536 Pls
5018 532 Pls
5053 527 Pls
5088 522 Pls
5122 517 Pls
5157 512 Pls
5192 507 Pls
5226 502 Pls
5261 496 Pls
5296 491 Pls
5331 485 Pls
5365 480 Pls
5400 474 Pls
5435 468 Pls
5469 463 Pls
5504 457 Pls
5539 451 Pls
5574 445 Pls
5608 439 Pls
5643 432 Pls
5678 426 Pls
5712 420 Pls
5747 420 Pls
5782 420 Pls
5817 420 Pls
5851 420 Pls
5886 420 Pls
5921 420 Pls
5955 420 Pls
5990 420 Pls
6025 420 Pls
6060 420 Pls
6094 420 Pls
6129 420 Pls
6164 420 Pls
6198 420 Pls
6233 420 Pls
6268 420 Pls
6302 420 Pls
6337 420 Pls
6372 420 Pls
6407 420 Pls
6441 420 Pls
6476 420 Pls
6511 420 Pls
6594 4739 Pls
1.000 UL
LT1
6311 4599 M
(exp\(-x*x/55.\)*sin\(x/180*3.14\)*14.7) Rshow
6395 4599 M
399 0 V
749 737 M
58 525 V
58 509 V
58 484 V
59 449 V
58 408 V
58 359 V
58 306 V
58 250 V
59 192 V
58 133 V
58 76 V
58 21 V
58 -30 V
59 -77 V
58 -118 V
58 -153 V
58 -181 V
58 -205 V
59 -220 V
58 -232 V
58 -236 V
58 -237 V
58 -232 V
59 -225 V
58 -215 V
58 -202 V
58 -187 V
58 -172 V
59 -156 V
58 -140 V
58 -125 V
58 -110 V
58 -96 V
59 -83 V
58 -70 V
58 -61 V
58 -50 V
58 -42 V
59 -35 V
58 -29 V
58 -23 V
58 -19 V
58 -15 V
59 -12 V
58 -10 V
58 -7 V
58 -6 V
58 -5 V
59 -3 V
58 -3 V
58 -2 V
58 -1 V
58 -1 V
59 -1 V
58 -1 V
58 0 V
58 0 V
58 0 V
59 -1 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
58 0 V
58 0 V
58 0 V
59 0 V
58 0 V
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

BIN
geant4/LEMuSR/MEYER/M10sin.pdf
View File

Binary file not shown.

167
geant4/LEMuSR/MEYER/M20.keV
View File

@ -1,167 +0,0 @@
0.25 1 0
0.5 0.993513 0.0714331
0.75 0.987026 0.141932
1 0.980539 0.211496
1.25 0.974052 0.280122
1.5 0.964213 0.346606
1.75 0.943444 0.406954
2 0.922675 0.464309
2.25 0.901907 0.51867
2.5 0.881138 0.570036
2.75 0.857883 0.61662
3 0.831818 0.65763
3.25 0.805398 0.694578
3.5 0.775248 0.724233
3.75 0.745097 0.749546
4 0.715117 0.770701
4.25 0.685209 0.787622
4.5 0.655301 0.800238
4.75 0.625393 0.808549
5 0.595485 0.812558
5.25 0.566648 0.813804
5.5 0.537881 0.811008
5.75 0.509114 0.804079
6 0.480348 0.793016
6.25 0.452393 0.779221
6.5 0.428307 0.768354
6.75 0.404221 0.754029
7 0.380135 0.736248
7.25 0.356049 0.715014
7.5 0.334012 0.694589
7.75 0.314943 0.677392
8 0.295875 0.657464
8.25 0.276806 0.634807
8.5 0.257738 0.609422
8.75 0.240951 0.58687
9 0.225432 0.565096
9.25 0.210588 0.542846
9.5 0.197664 0.523563
9.75 0.18474 0.502434
10 0.174136 0.485941
10.25 0.163856 0.46886
10.5 0.153576 0.450315
10.75 0.143296 0.430307
11 0.133336 0.40982
11.25 0.125899 0.395852
11.5 0.118463 0.380827
11.75 0.111026 0.364747
12 0.10359 0.347611
12.25 0.096884 0.331926
12.5 0.0915531 0.320098
12.75 0.0862222 0.307515
13 0.0808912 0.294177
13.25 0.0755603 0.280086
13.5 0.0710447 0.268323
13.75 0.0671152 0.258176
14 0.0631856 0.247475
14.25 0.0592561 0.236221
14.5 0.0553265 0.224414
14.75 0.0524258 0.216299
15 0.0497562 0.208746
15.25 0.0470865 0.200818
15.5 0.0444169 0.192515
15.75 0.0417789 0.183978
16 0.0397257 0.177687
16.25 0.0376725 0.171109
16.5 0.0356193 0.164243
16.75 0.033566 0.157091
17 0.031672 0.150409
17.25 0.0301754 0.145378
17.5 0.0286788 0.140138
17.75 0.0271822 0.13469
18 0.0256856 0.129035
18.25 0.0244893 0.124701
18.5 0.0235693 0.121626
18.75 0.0226493 0.118424
19 0.0217293 0.115095
19.25 0.0208093 0.111638
19.5 0.0198893 0.108053
19.75 0.0189694 0.104342
20 0.0180494 0.100504
20.25 0.0171294 0.0965393
20.5 0.0162094 0.0924486
20.75 0.0152894 0.0882321
21 0.0143694 0.08389
21.25 0.0137161 0.0809972
21.5 0.013235 0.0790439
21.75 0.0127539 0.0770247
22 0.0122729 0.0749396
22.25 0.0117918 0.0727889
22.5 0.0113107 0.0705726
22.75 0.0108296 0.068291
23 0.0103485 0.0659441
23.25 0.00986747 0.0635322
23.5 0.00938639 0.0610554
23.75 0.00890531 0.0585139
24 0.00842423 0.0559078
24.25 0.0080902 0.0542229
24.5 0.00782091 0.0529312
24.75 0.00755161 0.0516032
25 0.00728232 0.050239
25.25 0.00701303 0.0488387
25.5 0.00674374 0.0474024
25.75 0.00647445 0.0459301
26 0.00620516 0.044422
26.25 0.00593587 0.0428782
26.5 0.00566658 0.0412987
26.75 0.00539729 0.0396838
27 0.00512799 0.0380334
27.25 0.00494651 0.0370046
27.5 0.00478963 0.0361375
27.75 0.00463276 0.0352497
28 0.00447588 0.0343412
28.25 0.00431901 0.0334121
28.5 0.00416213 0.0324624
28.75 0.00400526 0.0314922
29 0.00384838 0.0305016
29.25 0.00369151 0.0294907
29.5 0.00353463 0.0284594
29.75 0.00337775 0.027408
30 0.00322088 0.0263364
30.25 0.00308359 0.025406
30.5 0.00294928 0.0244828
30.75 0.00281497 0.0235425
31 0.00268065 0.022585
31.25 0.00254634 0.0216106
31.5 0.00241203 0.0206192
31.75 0.00227772 0.0196108
32 0.00214341 0.0185857
32.25 0.0020091 0.0175437
32.5 0.00187479 0.016485
32.75 0.00174048 0.0154097
33 0.00160617 0.0143178
33.25 0.00147186 0.0132094
33.5 0.00133755 0.0120846
33.75 0.00120323 0.0109433
34 0.00106892 0.00978579
34.25 0.000934612 0.00861199
34.5 0.000800302 0.00742201
34.75 0.000665991 0.00621593
35 0.00053168 0.00499382
35.25 0.000397369 0.00375574
35.5 0.000263058 0.00250177
35.75 0.000128747 0.00123197
36 0 0
36.25 0 0
36.5 0 0
36.75 0 0
37 0 0
37.25 0 0
37.5 0 0
37.75 0 0
38 0 0
38.25 0 0
38.5 0 0
38.75 0 0
39 0 0
39.25 0 0
39.5 0 0
39.75 0 0
40 0 0
40.25 0 0
40.5 0 0
40.75 0 0
41 0 0
41.25 0 0
41.5 0 0
41.75 0 0

805
geant4/LEMuSR/MEYER/M20sin.eps
View File

@ -1,805 +0,0 @@
%!PS-Adobe-2.0
%%Title: M20sin.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Tue Apr 12 08:56:48 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
714 420 M
6248 0 V
1.000 UL
LTb
714 420 M
63 0 V
6185 0 R
-63 0 V
630 420 M
( 0) Rshow
1.000 UL
LTa
714 915 M
6248 0 V
1.000 UL
LTb
714 915 M
63 0 V
6185 0 R
-63 0 V
630 915 M
( 0.1) Rshow
1.000 UL
LTa
714 1409 M
6248 0 V
1.000 UL
LTb
714 1409 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.2) Rshow
1.000 UL
LTa
714 1904 M
6248 0 V
1.000 UL
LTb
714 1904 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.3) Rshow
1.000 UL
LTa
714 2399 M
6248 0 V
1.000 UL
LTb
714 2399 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.4) Rshow
1.000 UL
LTa
714 2893 M
6248 0 V
1.000 UL
LTb
714 2893 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.5) Rshow
1.000 UL
LTa
714 3388 M
6248 0 V
1.000 UL
LTb
714 3388 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.6) Rshow
1.000 UL
LTa
714 3883 M
6248 0 V
1.000 UL
LTb
714 3883 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.7) Rshow
1.000 UL
LTa
714 4377 M
6248 0 V
1.000 UL
LTb
714 4377 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.8) Rshow
1.000 UL
LTa
714 4872 M
6248 0 V
1.000 UL
LTb
714 4872 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.9) Rshow
1.000 UL
LTa
714 420 M
0 4452 V
1.000 UL
LTb
714 420 M
0 63 V
0 4389 R
0 -63 V
714 280 M
( 0) Cshow
1.000 UL
LTa
1408 420 M
0 4452 V
1.000 UL
LTb
1408 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 5) Cshow
1.000 UL
LTa
2102 420 M
0 4452 V
1.000 UL
LTb
2102 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 10) Cshow
1.000 UL
LTa
2797 420 M
0 4452 V
1.000 UL
LTb
2797 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 15) Cshow
1.000 UL
LTa
3491 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
3491 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 20) Cshow
1.000 UL
LTa
4185 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
4185 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 25) Cshow
1.000 UL
LTa
4879 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
4879 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 30) Cshow
1.000 UL
LTa
5574 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
5574 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 35) Cshow
1.000 UL
LTa
6268 420 M
0 4109 V
0 280 R
0 63 V
1.000 UL
LTb
6268 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 40) Cshow
1.000 UL
LTa
6962 420 M
0 4452 V
1.000 UL
LTb
6962 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 45) Cshow
1.000 UL
LTb
714 420 M
6248 0 V
0 4452 V
-6248 0 V
714 420 L
140 2646 M
currentpoint gsave translate 90 rotate 0 0 M
(distribution) Cshow
grestore
3838 70 M
([deg]) Cshow
1.000 UP
1.000 UL
LT0
6311 4739 M
('M20.keV' us 1:3) Rshow
749 420 Pls
783 773 Pls
818 1122 Pls
853 1466 Pls
888 1806 Pls
922 2135 Pls
957 2433 Pls
992 2717 Pls
1026 2986 Pls
1061 3240 Pls
1096 3470 Pls
1131 3673 Pls
1165 3856 Pls
1200 4003 Pls
1235 4128 Pls
1269 4232 Pls
1304 4316 Pls
1339 4379 Pls
1374 4420 Pls
1408 4439 Pls
1443 4446 Pls
1478 4432 Pls
1512 4398 Pls
1547 4343 Pls
1582 4275 Pls
1616 4221 Pls
1651 4150 Pls
1686 4062 Pls
1721 3957 Pls
1755 3856 Pls
1790 3771 Pls
1825 3672 Pls
1859 3560 Pls
1894 3435 Pls
1929 3323 Pls
1964 3215 Pls
1998 3105 Pls
2033 3010 Pls
2068 2905 Pls
2102 2824 Pls
2137 2739 Pls
2172 2648 Pls
2207 2549 Pls
2241 2447 Pls
2276 2378 Pls
2311 2304 Pls
2345 2224 Pls
2380 2140 Pls
2415 2062 Pls
2450 2003 Pls
2484 1941 Pls
2519 1875 Pls
2554 1805 Pls
2588 1747 Pls
2623 1697 Pls
2658 1644 Pls
2693 1589 Pls
2727 1530 Pls
2762 1490 Pls
2797 1453 Pls
2831 1413 Pls
2866 1372 Pls
2901 1330 Pls
2936 1299 Pls
2970 1266 Pls
3005 1232 Pls
3040 1197 Pls
3074 1164 Pls
3109 1139 Pls
3144 1113 Pls
3178 1086 Pls
3213 1058 Pls
3248 1037 Pls
3283 1022 Pls
3317 1006 Pls
3352 989 Pls
3387 972 Pls
3421 955 Pls
3456 936 Pls
3491 917 Pls
3526 898 Pls
3560 877 Pls
3595 856 Pls
3630 835 Pls
3664 821 Pls
3699 811 Pls
3734 801 Pls
3769 791 Pls
3803 780 Pls
3838 769 Pls
3873 758 Pls
3907 746 Pls
3942 734 Pls
3977 722 Pls
4012 709 Pls
4046 697 Pls
4081 688 Pls
4116 682 Pls
4150 675 Pls
4185 669 Pls
4220 662 Pls
4255 654 Pls
4289 647 Pls
4324 640 Pls
4359 632 Pls
4393 624 Pls
4428 616 Pls
4463 608 Pls
4498 603 Pls
4532 599 Pls
4567 594 Pls
4602 590 Pls
4636 585 Pls
4671 581 Pls
4706 576 Pls
4740 571 Pls
4775 566 Pls
4810 561 Pls
4845 556 Pls
4879 550 Pls
4914 546 Pls
4949 541 Pls
4983 536 Pls
5018 532 Pls
5053 527 Pls
5088 522 Pls
5122 517 Pls
5157 512 Pls
5192 507 Pls
5226 502 Pls
5261 496 Pls
5296 491 Pls
5331 485 Pls
5365 480 Pls
5400 474 Pls
5435 468 Pls
5469 463 Pls
5504 457 Pls
5539 451 Pls
5574 445 Pls
5608 439 Pls
5643 432 Pls
5678 426 Pls
5712 420 Pls
5747 420 Pls
5782 420 Pls
5817 420 Pls
5851 420 Pls
5886 420 Pls
5921 420 Pls
5955 420 Pls
5990 420 Pls
6025 420 Pls
6060 420 Pls
6094 420 Pls
6129 420 Pls
6164 420 Pls
6198 420 Pls
6233 420 Pls
6268 420 Pls
6302 420 Pls
6337 420 Pls
6372 420 Pls
6407 420 Pls
6441 420 Pls
6476 420 Pls
6511 420 Pls
6594 4739 Pls
1.000 UL
LT1
6311 4599 M
(exp\(-x*x/55.\)*sin\(x/180*3.14\)*14.7) Rshow
6395 4599 M
399 0 V
714 420 M
63 574 V
63 562 V
63 536 V
63 499 V
64 453 V
63 397 V
63 335 V
63 269 V
63 200 V
63 131 V
63 65 V
63 1 V
63 -56 V
64 -108 V
63 -152 V
63 -189 V
63 -217 V
63 -238 V
63 -250 V
63 -256 V
63 -257 V
63 -250 V
64 -241 V
63 -228 V
63 -211 V
63 -194 V
63 -176 V
63 -157 V
63 -138 V
63 -121 V
63 -104 V
64 -89 V
63 -75 V
63 -63 V
63 -52 V
63 -43 V
63 -34 V
63 -28 V
63 -22 V
63 -17 V
64 -14 V
63 -11 V
63 -8 V
63 -6 V
63 -4 V
63 -4 V
63 -2 V
63 -2 V
63 -2 V
64 -1 V
63 0 V
63 -1 V
63 0 V
63 0 V
63 -1 V
63 0 V
63 0 V
63 0 V
64 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
64 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
64 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
64 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
63 0 V
64 0 V
63 0 V
63 0 V
63 0 V
63 0 V
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

111
geant4/LEMuSR/MEYER/M30.keV
View File

@ -1,111 +0,0 @@
0.25 1 0
0.5 0.990251 0.160806
0.75 0.980502 0.318444
1 0.970753 0.472909
1.25 0.943207 0.612639
1.5 0.911995 0.740436
1.75 0.880783 0.858084
2 0.84433 0.959627
2.25 0.804711 1.0452
2.5 0.759399 1.10958
2.75 0.714265 1.15953
3 0.669317 1.19514
3.25 0.62437 1.21614
3.5 0.579965 1.22369
3.75 0.536733 1.21948
4 0.493501 1.20124
4.25 0.451294 1.17162
4.5 0.415097 1.14488
4.75 0.378899 1.10639
5 0.342701 1.05616
5.25 0.313856 1.01805
5.5 0.285199 0.971222
5.75 0.256542 0.91511
6 0.232174 0.865709
6.25 0.209704 0.815799
6.5 0.190281 0.770961
6.75 0.173374 0.730441
7 0.157925 0.690826
7.25 0.142476 0.646215
7.5 0.129003 0.605895
7.75 0.117827 0.572379
8 0.106651 0.535254
8.25 0.0963976 0.499303
8.5 0.088386 0.472015
8.75 0.0803744 0.442142
9 0.0726174 0.411129
9.25 0.0667118 0.388398
9.5 0.0608063 0.363766
9.75 0.0549008 0.337233
10 0.0507941 0.32014
10.25 0.046782 0.302337
10.5 0.04277 0.283246
10.75 0.0394798 0.267763
11 0.0363941 0.252644
11.25 0.0333085 0.236535
11.5 0.0307317 0.223133
11.75 0.0284825 0.211337
12 0.0262334 0.198821
12.25 0.0243634 0.18852
12.5 0.0229808 0.181471
12.75 0.0215982 0.173979
13 0.0202156 0.166045
13.25 0.018833 0.15767
13.5 0.0174504 0.148854
13.75 0.0160678 0.139599
14 0.0146852 0.129905
14.25 0.0136393 0.122803
14.5 0.0129163 0.118327
14.75 0.0121933 0.113622
15 0.0114703 0.108687
15.25 0.0107473 0.103523
15.5 0.0100243 0.0981307
15.75 0.00930134 0.0925096
16 0.00857836 0.0866604
16.25 0.00804106 0.0824885
16.5 0.00763635 0.0795281
16.75 0.00723165 0.0764401
17 0.00682694 0.0732246
17.25 0.00642224 0.0698818
17.5 0.00601753 0.0664119
17.75 0.00561283 0.0628153
18 0.00520812 0.0590922
18.25 0.0049143 0.0565179
18.5 0.00467854 0.0545286
18.75 0.00444278 0.0524655
19 0.00420702 0.0503287
19.25 0.00397126 0.0481185
19.5 0.0037355 0.045835
19.75 0.00349974 0.0434784
20 0.00326398 0.0410487
20.25 0.00305295 0.038861
20.5 0.0028511 0.0367263
20.75 0.00264925 0.0345295
21 0.0024474 0.0322706
21.25 0.00224555 0.0299498
21.5 0.0020437 0.0275673
21.75 0.00184185 0.0251231
22 0.00164 0.0226174
22.25 0.00143816 0.0200504
22.5 0.00123631 0.0174223
22.75 0.00103446 0.0147331
23 0.000832607 0.0119831
23.25 0.000630758 0.0091724
23.5 0.000428908 0.00630118
23.75 0.000227059 0.00336962
24 2.52097e-05 0.00037787
24.25 0 0
24.5 0 0
24.75 0 0
25 0 0
25.25 0 0
25.5 0 0
25.75 0 0
26 0 0
26.25 0 0
26.5 0 0
26.75 0 0
27 0 0
27.25 0 0
27.5 0 0
27.75 0 0

203
geant4/LEMuSR/MEYER/M5.keV
View File

@ -1,203 +0,0 @@
0.5 1 0
1 0.996752 0.00898079
1.5 0.993505 0.0179024
2 0.990257 0.0267641
2.5 0.98701 0.0355652
3 0.983762 0.0443052
3.5 0.980515 0.0529833
4 0.977267 0.061599
4.5 0.974019 0.0701516
5 0.970772 0.0786404
5.5 0.964082 0.0867551
6 0.953685 0.0943763
6.5 0.943287 0.101804
7 0.93289 0.109037
7.5 0.922492 0.116076
8 0.912095 0.12292
8.5 0.901697 0.129569
9 0.8913 0.136023
9.5 0.880902 0.14228
10 0.870505 0.148342
10.5 0.857554 0.153751
11 0.844505 0.158899
11.5 0.831456 0.163804
12 0.818407 0.168465
12.5 0.804942 0.172794
13 0.789848 0.176508
13.5 0.774753 0.179944
14 0.759659 0.1831
14.5 0.744565 0.185979
15 0.729524 0.188593
15.5 0.714551 0.190948
16 0.699579 0.193028
16.5 0.684606 0.194834
17 0.669633 0.196365
17.5 0.65466 0.197622
18 0.639687 0.198607
18.5 0.624714 0.199319
19 0.609741 0.199759
19.5 0.594768 0.199928
20 0.580324 0.20001
20.5 0.565922 0.199845
21 0.551521 0.199422
21.5 0.537119 0.19874
22 0.522718 0.197801
22.5 0.508316 0.196605
23 0.493915 0.195154
23.5 0.479513 0.193448
24 0.465111 0.191488
24.5 0.451664 0.189677
25 0.439606 0.188224
25.5 0.427548 0.18656
26 0.415489 0.184684
26.5 0.403431 0.182598
27 0.391373 0.180303
27.5 0.379315 0.1778
28 0.367257 0.17509
28.5 0.355198 0.172173
29 0.34314 0.169052
29.5 0.333314 0.166844
30 0.323768 0.164611
30.5 0.314222 0.162215
31 0.304675 0.159658
31.5 0.295129 0.156941
32 0.285583 0.154064
32.5 0.276037 0.151029
33 0.26649 0.147837
33.5 0.256944 0.144488
34 0.248055 0.141359
34.5 0.240286 0.138731
35 0.232516 0.135977
35.5 0.224747 0.133098
36 0.216977 0.130093
36.5 0.210001 0.127446
37 0.203531 0.124998
37.5 0.197061 0.122447
38 0.19059 0.119794
38.5 0.18412 0.117038
39 0.178777 0.114907
39.5 0.173631 0.112819
40 0.168484 0.110651
40.5 0.163338 0.108402
41 0.158191 0.106075
41.5 0.153045 0.103668
42 0.147898 0.101184
42.5 0.142752 0.0986228
43 0.137605 0.095985
43.5 0.132933 0.0936053
44 0.12921 0.0918317
44.5 0.125487 0.0900024
45 0.121764 0.0881181
45.5 0.118041 0.0861791
46 0.114318 0.0841862
46.5 0.110595 0.0821398
47 0.106872 0.0800406
47.5 0.103149 0.0778891
48 0.0994258 0.0756859
48.5 0.0965613 0.0740903
49 0.0938924 0.0726059
49.5 0.0912236 0.0710841
50 0.0885548 0.0695253
50.5 0.0858859 0.0679299
51 0.0832171 0.0662985
51.5 0.0805483 0.0646314
52 0.0778794 0.0629292
52.5 0.0752106 0.0611922
53 0.0727493 0.059591
53.5 0.070782 0.0583656
54 0.0688148 0.0571144
54.5 0.0668475 0.0558378
55 0.0648803 0.0545361
55.5 0.062913 0.0532096
56 0.0609458 0.0518588
56.5 0.0589785 0.0504839
57 0.0570113 0.0490854
57.5 0.055044 0.0476636
58 0.053567 0.0466457
58.5 0.0522305 0.045733
59 0.050894 0.0448041
59.5 0.0495575 0.0438591
60 0.048221 0.0428984
60.5 0.0468845 0.0419223
61 0.045548 0.0409309
61.5 0.0442115 0.0399245
62 0.042875 0.0389034
62.5 0.0416183 0.0379406
63 0.0405904 0.0371738
63.5 0.0395625 0.0363957
64 0.0385346 0.0356063
64.5 0.0375067 0.034806
65 0.0364788 0.0339949
65.5 0.0354509 0.0331733
66 0.034423 0.0323413
66.5 0.0333951 0.0314991
67 0.0323672 0.030647
67.5 0.0315455 0.0299812
68 0.0307963 0.0293764
68.5 0.0300471 0.0287642
69 0.0292978 0.0281448
69.5 0.0285486 0.0275183
70 0.0277993 0.0268848
70.5 0.0270501 0.0262446
71 0.0263008 0.0255977
71.5 0.0255516 0.0249444
72 0.0248663 0.0243474
72.5 0.0244057 0.0239653
73 0.0239451 0.0235788
73.5 0.0234846 0.023188
74 0.023024 0.0227931
74.5 0.0225634 0.022394
75 0.0221029 0.0219909
75.5 0.0216423 0.021584
76 0.0211817 0.0211733
76.5 0.0207211 0.0207588
77 0.0202606 0.0203408
77.5 0.0198 0.0199193
78 0.0193394 0.0194944
78.5 0.0188788 0.0190662
79 0.0184183 0.0186349
79.5 0.0179577 0.0182005
80 0.0174971 0.0177631
80.5 0.0170366 0.0173228
81 0.016576 0.0168798
81.5 0.0161154 0.0164341
82 0.0156548 0.0159859
82.5 0.0151943 0.0155352
83 0.0147337 0.0150822
83.5 0.0142731 0.014627
84 0.013906 0.0142654
84.5 0.0136651 0.0140318
85 0.0134243 0.0137966
85.5 0.0131834 0.0135599
86 0.0129426 0.0133219
86.5 0.0127017 0.0130825
87 0.0124609 0.0128417
87.5 0.0122201 0.0125998
88 0.0119792 0.0123566
88.5 0.0117384 0.0121124
89 0.0114975 0.011867
89.5 0.0112567 0.0116206
90 0.0110159 0.0113733
90.5 0.010775 0.0111251
91 0.0105342 0.010876
91.5 0.0102933 0.0106261
92 0.0100525 0.0103755
92.5 0.00981164 0.0101242
93 0.0095708 0.00987233
93.5 0.00932995 0.00961987
94 0.00908911 0.0093669
94.5 0.00884827 0.00911348
95 0.00860743 0.00885967
95.5 0.00836658 0.00860553
96 0.0081924 0.00841962
96.5 0.00805759 0.00827379
97 0.00792277 0.00812758
97.5 0.00778795 0.00798104
98 0.00765314 0.00783418
98.5 0.00751832 0.00768704
99 0.00738351 0.00753965
99.5 0.00724869 0.00739205
100 0.00711388 0.00724426
100.5 0.00697906 0.00709633
101 0.00684425 0.00694827
101.5 1.96893e-305 -1.98021

134
geant4/LEMuSR/MEYER/M50.keV
View File

@ -1,134 +0,0 @@
0.125 1 0
0.25 0.991892 0.222817
0.375 0.983784 0.44199
0.5 0.975677 0.657519
0.625 0.964224 0.866397
0.75 0.938266 1.05383
0.875 0.912308 1.2296
1 0.88635 1.3937
1.125 0.857911 1.54168
1.25 0.825333 1.66851
1.375 0.790363 1.77532
1.5 0.752679 1.85971
1.625 0.715166 1.92763
1.75 0.677784 1.97907
1.875 0.640403 2.01372
2 0.603022 2.03157
2.125 0.56671 2.03646
2.25 0.530755 2.02641
2.375 0.4948 2.00021
2.5 0.458846 1.95785
2.625 0.428372 1.92397
2.75 0.398268 1.87813
2.875 0.368163 1.81878
3 0.338838 1.74993
3.125 0.315005 1.69752
3.25 0.291172 1.6344
3.375 0.267339 1.56058
3.5 0.244888 1.48444
3.625 0.22549 1.41743
3.75 0.207408 1.35026
3.875 0.191254 1.28797
4 0.176749 1.22991
4.125 0.1639 1.17723
4.25 0.151052 1.11879
4.375 0.138203 1.05459
4.5 0.127794 1.00378
4.625 0.118499 0.957314
4.75 0.109204 0.906678
4.875 0.0999093 0.851876
5 0.0929137 0.813026
5.125 0.0862508 0.774027
5.25 0.0795878 0.732041
5.375 0.0730317 0.688077
5.5 0.0681202 0.65704
5.625 0.0632088 0.623803
5.75 0.0582974 0.588367
5.875 0.0537771 0.554767
6 0.0504404 0.531618
6.125 0.0471037 0.506975
6.25 0.043767 0.480839
6.375 0.040766 0.456974
6.5 0.0381998 0.436736
6.625 0.0356336 0.415351
6.75 0.0330673 0.392818
6.875 0.0309346 0.374384
7 0.029064 0.358228
7.125 0.0271935 0.341237
7.25 0.0253229 0.32341
7.375 0.0240364 0.312337
7.5 0.0228866 0.302494
7.625 0.0217367 0.292138
7.75 0.0205869 0.281269
7.875 0.019437 0.269886
8 0.0182872 0.25799
8.125 0.0171373 0.245581
8.25 0.0159874 0.232659
8.375 0.0148376 0.219225
8.5 0.0138407 0.207572
8.625 0.0132394 0.201497
8.75 0.0126381 0.195153
8.875 0.0120368 0.188541
9 0.0114356 0.181661
9.125 0.0108343 0.174514
9.25 0.010233 0.167098
9.375 0.00963171 0.159416
9.5 0.00903042 0.151466
9.625 0.00842914 0.143248
9.75 0.00802566 0.138169
9.875 0.00768908 0.134077
10 0.0073525 0.129836
10.125 0.00701592 0.125445
10.25 0.00667934 0.120904
10.375 0.00634277 0.116214
10.5 0.00600619 0.111374
10.625 0.00566961 0.106386
10.75 0.00533303 0.101248
10.875 0.00502675 0.0965427
11 0.00483068 0.0938429
11.125 0.00463461 0.0910561
11.25 0.00443854 0.0881824
11.375 0.00424246 0.0852218
11.5 0.00404639 0.0821744
11.625 0.00385032 0.0790403
11.75 0.00365424 0.0758195
11.875 0.00345817 0.0725121
12 0.0032621 0.069118
12.125 0.00308532 0.0660504
12.25 0.00291745 0.0630975
12.375 0.00274958 0.0600706
12.5 0.0025817 0.0569697
12.625 0.00241383 0.0537949
12.75 0.00224596 0.0505462
12.875 0.00207809 0.0472236
13 0.00191022 0.0438273
13.125 0.00174235 0.0403572
13.25 0.00157448 0.0368134
13.375 0.00140661 0.033196
13.5 0.00123874 0.0295051
13.625 0.00107087 0.0257406
13.75 0.000902998 0.0219027
13.875 0.000735128 0.0179913
14 0.000567257 0.0140066
14.125 0.000399386 0.00994868
14.25 0.000231516 0.00581749
14.375 6.36452e-05 0.00161313
14.5 0 0
14.625 0 0
14.75 0 0
14.875 0 0
15 0 0
15.125 0 0
15.25 0 0
15.375 0 0
15.5 0 0
15.625 0 0
15.75 0 0
15.875 0 0
16 0 0
16.125 0 0
16.25 0 0
16.375 0 0
16.5 0 0
16.625 0 0
16.75 0 0

1129
geant4/LEMuSR/MEYER/Mall.eps
View File

File diff suppressed because it is too large Load Diff

BIN
geant4/LEMuSR/MEYER/Mall.pdf
View File

Binary file not shown.

977
geant4/LEMuSR/MEYER/Mall2.eps
View File

@ -1,977 +0,0 @@
%!PS-Adobe-2.0
%%Title: Mall2.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Mon Apr 11 19:39:42 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
714 420 M
6248 0 V
1.000 UL
LTb
714 420 M
63 0 V
6185 0 R
-63 0 V
630 420 M
( 0) Rshow
1.000 UL
LTa
714 1310 M
6248 0 V
1.000 UL
LTb
714 1310 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.2) Rshow
1.000 UL
LTa
714 2201 M
6248 0 V
1.000 UL
LTb
714 2201 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.4) Rshow
1.000 UL
LTa
714 3091 M
6248 0 V
1.000 UL
LTb
714 3091 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.6) Rshow
1.000 UL
LTa
714 3982 M
6248 0 V
1.000 UL
LTb
714 3982 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.8) Rshow
1.000 UL
LTa
714 4872 M
6248 0 V
1.000 UL
LTb
714 4872 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 1) Rshow
1.000 UL
LTa
714 420 M
0 4452 V
1.000 UL
LTb
714 420 M
0 63 V
0 4389 R
0 -63 V
714 280 M
( 0) Cshow
1.000 UL
LTa
1408 420 M
0 4452 V
1.000 UL
LTb
1408 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 5) Cshow
1.000 UL
LTa
2102 420 M
0 4452 V
1.000 UL
LTb
2102 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 10) Cshow
1.000 UL
LTa
2797 420 M
0 4452 V
1.000 UL
LTb
2797 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 15) Cshow
1.000 UL
LTa
3491 420 M
0 4452 V
1.000 UL
LTb
3491 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 20) Cshow
1.000 UL
LTa
4185 420 M
0 4452 V
1.000 UL
LTb
4185 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 25) Cshow
1.000 UL
LTa
4879 420 M
0 4452 V
1.000 UL
LTb
4879 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 30) Cshow
1.000 UL
LTa
5574 420 M
0 3829 V
0 560 R
0 63 V
1.000 UL
LTb
5574 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 35) Cshow
1.000 UL
LTa
6268 420 M
0 3829 V
0 560 R
0 63 V
1.000 UL
LTb
6268 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 40) Cshow
1.000 UL
LTa
6962 420 M
0 4452 V
1.000 UL
LTb
6962 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 45) Cshow
1.000 UL
LTb
714 420 M
6248 0 V
0 4452 V
-6248 0 V
714 420 L
140 2646 M
currentpoint gsave translate 90 rotate 0 0 M
(Meyer's distribution) Cshow
grestore
3838 70 M
(scatt. angle [deg]) Cshow
1.000 UP
1.000 UL
LT0
6311 4739 M
('M5.keV') Rshow
783 4872 Pls
853 4858 Pls
922 4843 Pls
992 4829 Pls
1061 4814 Pls
1131 4800 Pls
1200 4785 Pls
1269 4771 Pls
1339 4756 Pls
1408 4742 Pls
1478 4712 Pls
1547 4666 Pls
1616 4620 Pls
1686 4573 Pls
1755 4527 Pls
1825 4481 Pls
1894 4434 Pls
1964 4388 Pls
2033 4342 Pls
2102 4296 Pls
2172 4238 Pls
2241 4180 Pls
2311 4122 Pls
2380 4064 Pls
2450 4004 Pls
2519 3937 Pls
2588 3869 Pls
2658 3802 Pls
2727 3735 Pls
2797 3668 Pls
2866 3601 Pls
2936 3535 Pls
3005 3468 Pls
3074 3401 Pls
3144 3335 Pls
3213 3268 Pls
3283 3201 Pls
3352 3135 Pls
3421 3068 Pls
3491 3004 Pls
3560 2940 Pls
3630 2876 Pls
3699 2811 Pls
3769 2747 Pls
3838 2683 Pls
3907 2619 Pls
3977 2555 Pls
4046 2491 Pls
4116 2431 Pls
4185 2377 Pls
4255 2324 Pls
4324 2270 Pls
4393 2216 Pls
4463 2163 Pls
4532 2109 Pls
4602 2055 Pls
4671 2002 Pls
4740 1948 Pls
4810 1904 Pls
4879 1862 Pls
4949 1819 Pls
5018 1777 Pls
5088 1734 Pls
5157 1692 Pls
5226 1649 Pls
5296 1607 Pls
5365 1564 Pls
5435 1525 Pls
5504 1490 Pls
5574 1455 Pls
5643 1421 Pls
5712 1386 Pls
5782 1355 Pls
5851 1326 Pls
5921 1297 Pls
5990 1269 Pls
6060 1240 Pls
6129 1216 Pls
6198 1193 Pls
6268 1170 Pls
6337 1147 Pls
6407 1124 Pls
6476 1102 Pls
6545 1079 Pls
6615 1056 Pls
6684 1033 Pls
6754 1012 Pls
6823 995 Pls
6893 979 Pls
6962 962 Pls
6594 4739 Pls
1.000 UP
1.000 UL
LT1
6311 4599 M
('M10.keV') Rshow
783 4872 Crs
853 4843 Crs
922 4814 Crs
992 4785 Crs
1061 4756 Crs
1131 4712 Crs
1200 4619 Crs
1269 4527 Crs
1339 4434 Crs
1408 4342 Crs
1478 4238 Crs
1547 4121 Crs
1616 4003 Crs
1686 3869 Crs
1755 3734 Crs
1825 3601 Crs
1894 3467 Crs
1964 3334 Crs
2033 3201 Crs
2102 3067 Crs
2172 2939 Crs
2241 2811 Crs
2311 2682 Crs
2380 2554 Crs
2450 2430 Crs
2519 2323 Crs
2588 2215 Crs
2658 2108 Crs
2727 2001 Crs
2797 1903 Crs
2866 1818 Crs
2936 1733 Crs
3005 1648 Crs
3074 1563 Crs
3144 1489 Crs
3213 1420 Crs
3283 1354 Crs
3352 1297 Crs
3421 1239 Crs
3491 1193 Crs
3560 1147 Crs
3630 1101 Crs
3699 1055 Crs
3769 1011 Crs
3838 978 Crs
3907 945 Crs
3977 912 Crs
4046 879 Crs
4116 850 Crs
4185 826 Crs
4255 802 Crs
4324 778 Crs
4393 755 Crs
4463 735 Crs
4532 717 Crs
4602 700 Crs
4671 682 Crs
4740 665 Crs
4810 652 Crs
4879 640 Crs
4949 629 Crs
5018 617 Crs
5088 605 Crs
5157 596 Crs
5226 587 Crs
5296 578 Crs
5365 569 Crs
5435 560 Crs
5504 554 Crs
5574 547 Crs
5643 540 Crs
5712 534 Crs
5782 529 Crs
5851 524 Crs
5921 520 Crs
5990 516 Crs
6060 512 Crs
6129 508 Crs
6198 504 Crs
6268 500 Crs
6337 496 Crs
6407 492 Crs
6476 488 Crs
6545 483 Crs
6615 481 Crs
6684 479 Crs
6754 477 Crs
6823 474 Crs
6893 472 Crs
6962 470 Crs
6594 4599 Crs
1.000 UP
1.000 UL
LT2
6311 4459 M
('M20.keV') Rshow
749 4872 Star
783 4843 Star
818 4814 Star
853 4785 Star
888 4757 Star
922 4713 Star
957 4620 Star
992 4528 Star
1026 4436 Star
1061 4343 Star
1096 4240 Star
1131 4124 Star
1165 4006 Star
1200 3872 Star
1235 3738 Star
1269 3605 Star
1304 3472 Star
1339 3338 Star
1374 3205 Star
1408 3072 Star
1443 2944 Star
1478 2816 Star
1512 2688 Star
1547 2560 Star
1582 2435 Star
1616 2328 Star
1651 2221 Star
1686 2114 Star
1721 2007 Star
1755 1908 Star
1790 1823 Star
1825 1738 Star
1859 1654 Star
1894 1569 Star
1929 1494 Star
1964 1425 Star
1998 1359 Star
2033 1301 Star
2068 1244 Star
2102 1196 Star
2137 1150 Star
2172 1105 Star
2207 1059 Star
2241 1014 Star
2276 981 Star
2311 948 Star
2345 915 Star
2380 882 Star
2415 852 Star
2450 828 Star
2484 804 Star
2519 781 Star
2554 757 Star
2588 737 Star
2623 719 Star
2658 702 Star
2693 684 Star
2727 667 Star
2762 654 Star
2797 642 Star
2831 630 Star
2866 618 Star
2901 606 Star
2936 597 Star
2970 588 Star
3005 579 Star
3040 570 Star
3074 561 Star
3109 555 Star
3144 548 Star
3178 541 Star
3213 535 Star
3248 529 Star
3283 525 Star
3317 521 Star
3352 517 Star
3387 513 Star
3421 509 Star
3456 505 Star
3491 501 Star
3526 496 Star
3560 492 Star
3595 488 Star
3630 484 Star
3664 481 Star
3699 479 Star
3734 477 Star
3769 475 Star
3803 473 Star
3838 470 Star
3873 468 Star
3907 466 Star
3942 464 Star
3977 462 Star
4012 460 Star
4046 458 Star
4081 456 Star
4116 455 Star
4150 454 Star
4185 452 Star
4220 451 Star
4255 450 Star
4289 449 Star
4324 448 Star
4359 446 Star
4393 445 Star
4428 444 Star
4463 443 Star
4498 442 Star
4532 441 Star
4567 441 Star
4602 440 Star
4636 439 Star
4671 439 Star
4706 438 Star
4740 437 Star
4775 436 Star
4810 436 Star
4845 435 Star
4879 434 Star
4914 434 Star
4949 433 Star
4983 433 Star
5018 432 Star
5053 431 Star
5088 431 Star
5122 430 Star
5157 430 Star
5192 429 Star
5226 428 Star
5261 428 Star
5296 427 Star
5331 427 Star
5365 426 Star
5400 425 Star
5435 425 Star
5469 424 Star
5504 424 Star
5539 423 Star
5574 422 Star
5608 422 Star
5643 421 Star
5678 421 Star
5712 420 Star
5747 420 Star
5782 420 Star
5817 420 Star
5851 420 Star
5886 420 Star
5921 420 Star
5955 420 Star
5990 420 Star
6025 420 Star
6060 420 Star
6094 420 Star
6129 420 Star
6164 420 Star
6198 420 Star
6233 420 Star
6268 420 Star
6302 420 Star
6337 420 Star
6372 420 Star
6407 420 Star
6441 420 Star
6476 420 Star
6511 420 Star
6594 4459 Star
1.000 UP
1.000 UL
LT3
6311 4319 M
('M50.keV') Rshow
731 4872 Box
749 4836 Box
766 4800 Box
783 4764 Box
801 4713 Box
818 4597 Box
835 4482 Box
853 4366 Box
870 4240 Box
888 4095 Box
905 3939 Box
922 3771 Box
940 3604 Box
957 3438 Box
974 3271 Box
992 3105 Box
1009 2943 Box
1026 2783 Box
1044 2623 Box
1061 2463 Box
1078 2327 Box
1096 2193 Box
1113 2059 Box
1131 1929 Box
1148 1823 Box
1165 1717 Box
1183 1611 Box
1200 1511 Box
1217 1424 Box
1235 1344 Box
1252 1272 Box
1269 1207 Box
1287 1150 Box
1304 1093 Box
1321 1036 Box
1339 989 Box
1356 948 Box
1374 906 Box
1391 865 Box
1408 834 Box
1426 804 Box
1443 774 Box
1460 745 Box
1478 723 Box
1495 702 Box
1512 680 Box
1530 660 Box
1547 645 Box
1564 630 Box
1582 615 Box
1599 602 Box
1616 590 Box
1634 579 Box
1651 567 Box
1669 558 Box
1686 549 Box
1703 541 Box
1721 533 Box
1738 527 Box
1755 522 Box
1773 517 Box
1790 512 Box
1807 507 Box
1825 501 Box
1842 496 Box
1859 491 Box
1877 486 Box
1894 482 Box
1912 479 Box
1929 476 Box
1946 474 Box
1964 471 Box
1981 468 Box
1998 466 Box
2016 463 Box
2033 460 Box
2050 458 Box
2068 456 Box
2085 454 Box
2102 453 Box
2120 451 Box
2137 450 Box
2155 448 Box
2172 447 Box
2189 445 Box
2207 444 Box
2224 442 Box
2241 442 Box
2259 441 Box
2276 440 Box
2293 439 Box
2311 438 Box
2328 437 Box
2345 436 Box
2363 435 Box
2380 435 Box
2397 434 Box
2415 433 Box
2432 432 Box
2450 432 Box
2467 431 Box
2484 430 Box
2502 429 Box
2519 429 Box
2536 428 Box
2554 427 Box
2571 426 Box
2588 426 Box
2606 425 Box
2623 424 Box
2640 423 Box
2658 423 Box
2675 422 Box
2693 421 Box
2710 420 Box
2727 420 Box
2745 420 Box
2762 420 Box
2779 420 Box
2797 420 Box
2814 420 Box
2831 420 Box
2849 420 Box
2866 420 Box
2883 420 Box
2901 420 Box
2918 420 Box
2936 420 Box
2953 420 Box
2970 420 Box
2988 420 Box
3005 420 Box
3022 420 Box
3040 420 Box
6594 4319 Box
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

BIN
geant4/LEMuSR/MEYER/Mall2.pdf
View File

Binary file not shown.

978
geant4/LEMuSR/MEYER/Mallsin.eps
View File

@ -1,978 +0,0 @@
%!PS-Adobe-2.0
%%Title: Mallsin.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Tue Apr 12 08:59:12 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
714 420 M
6248 0 V
1.000 UL
LTb
714 420 M
63 0 V
6185 0 R
-63 0 V
630 420 M
( 0) Rshow
1.000 UL
LTa
714 1056 M
6248 0 V
1.000 UL
LTb
714 1056 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.2) Rshow
1.000 UL
LTa
714 1692 M
6248 0 V
1.000 UL
LTb
714 1692 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.4) Rshow
1.000 UL
LTa
714 2328 M
6248 0 V
1.000 UL
LTb
714 2328 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.6) Rshow
1.000 UL
LTa
714 2964 M
6248 0 V
1.000 UL
LTb
714 2964 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 0.8) Rshow
1.000 UL
LTa
714 3600 M
6248 0 V
1.000 UL
LTb
714 3600 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 1) Rshow
1.000 UL
LTa
714 4236 M
6248 0 V
1.000 UL
LTb
714 4236 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 1.2) Rshow
1.000 UL
LTa
714 4872 M
6248 0 V
1.000 UL
LTb
714 4872 M
63 0 V
6185 0 R
-63 0 V
-6269 0 R
( 1.4) Rshow
1.000 UL
LTa
714 420 M
0 4452 V
1.000 UL
LTb
714 420 M
0 63 V
0 4389 R
0 -63 V
714 280 M
( 0) Cshow
1.000 UL
LTa
1408 420 M
0 4452 V
1.000 UL
LTb
1408 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 5) Cshow
1.000 UL
LTa
2102 420 M
0 4452 V
1.000 UL
LTb
2102 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 10) Cshow
1.000 UL
LTa
2797 420 M
0 4452 V
1.000 UL
LTb
2797 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 15) Cshow
1.000 UL
LTa
3491 420 M
0 4452 V
1.000 UL
LTb
3491 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 20) Cshow
1.000 UL
LTa
4185 420 M
0 4452 V
1.000 UL
LTb
4185 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 25) Cshow
1.000 UL
LTa
4879 420 M
0 4452 V
1.000 UL
LTb
4879 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 30) Cshow
1.000 UL
LTa
5574 420 M
0 3829 V
0 560 R
0 63 V
1.000 UL
LTb
5574 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 35) Cshow
1.000 UL
LTa
6268 420 M
0 3829 V
0 560 R
0 63 V
1.000 UL
LTb
6268 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 40) Cshow
1.000 UL
LTa
6962 420 M
0 4452 V
1.000 UL
LTb
6962 420 M
0 63 V
0 4389 R
0 -63 V
0 -4529 R
( 45) Cshow
1.000 UL
LTb
714 420 M
6248 0 V
0 4452 V
-6248 0 V
714 420 L
140 2646 M
currentpoint gsave translate 90 rotate 0 0 M
(distribution) Cshow
grestore
3838 70 M
([deg]) Cshow
1.000 UP
1.000 UL
LT0
6311 4739 M
('M5.keV' us 1:3) Rshow
783 420 Pls
853 449 Pls
922 477 Pls
992 505 Pls
1061 533 Pls
1131 561 Pls
1200 588 Pls
1269 616 Pls
1339 643 Pls
1408 670 Pls
1478 696 Pls
1547 720 Pls
1616 744 Pls
1686 767 Pls
1755 789 Pls
1825 811 Pls
1894 832 Pls
1964 853 Pls
2033 872 Pls
2102 892 Pls
2172 909 Pls
2241 925 Pls
2311 941 Pls
2380 956 Pls
2450 969 Pls
2519 981 Pls
2588 992 Pls
2658 1002 Pls
2727 1011 Pls
2797 1020 Pls
2866 1027 Pls
2936 1034 Pls
3005 1040 Pls
3074 1044 Pls
3144 1048 Pls
3213 1052 Pls
3283 1054 Pls
3352 1055 Pls
3421 1056 Pls
3491 1056 Pls
3560 1056 Pls
3630 1054 Pls
3699 1052 Pls
3769 1049 Pls
3838 1045 Pls
3907 1041 Pls
3977 1035 Pls
4046 1029 Pls
4116 1023 Pls
4185 1019 Pls
4255 1013 Pls
4324 1007 Pls
4393 1001 Pls
4463 993 Pls
4532 985 Pls
4602 977 Pls
4671 968 Pls
4740 958 Pls
4810 951 Pls
4879 943 Pls
4949 936 Pls
5018 928 Pls
5088 919 Pls
5157 910 Pls
5226 900 Pls
5296 890 Pls
5365 879 Pls
5435 870 Pls
5504 861 Pls
5574 852 Pls
5643 843 Pls
5712 834 Pls
5782 825 Pls
5851 817 Pls
5921 809 Pls
5990 801 Pls
6060 792 Pls
6129 785 Pls
6198 779 Pls
6268 772 Pls
6337 765 Pls
6407 757 Pls
6476 750 Pls
6545 742 Pls
6615 734 Pls
6684 725 Pls
6754 718 Pls
6823 712 Pls
6893 706 Pls
6962 700 Pls
6594 4739 Pls
1.000 UP
1.000 UL
LT1
6311 4599 M
('M10.keV' us 1:3) Rshow
783 420 Crs
853 534 Crs
922 646 Crs
992 757 Crs
1061 866 Crs
1131 971 Crs
1200 1067 Crs
1269 1159 Crs
1339 1245 Crs
1408 1326 Crs
1478 1400 Crs
1547 1465 Crs
1616 1524 Crs
1686 1570 Crs
1755 1610 Crs
1825 1644 Crs
1894 1670 Crs
1964 1690 Crs
2033 1702 Crs
2102 1708 Crs
2172 1710 Crs
2241 1705 Crs
2311 1693 Crs
2380 1675 Crs
2450 1653 Crs
2519 1635 Crs
2588 1611 Crs
2658 1583 Crs
2727 1548 Crs
2797 1516 Crs
2866 1488 Crs
2936 1456 Crs
3005 1419 Crs
3074 1379 Crs
3144 1343 Crs
3213 1308 Crs
3283 1272 Crs
3352 1241 Crs
3421 1208 Crs
3491 1181 Crs
3560 1154 Crs
3630 1124 Crs
3699 1092 Crs
3769 1060 Crs
3838 1038 Crs
3907 1014 Crs
3977 988 Crs
4046 961 Crs
4116 936 Crs
4185 917 Crs
4255 897 Crs
4324 876 Crs
4393 854 Crs
4463 835 Crs
4532 819 Crs
4602 802 Crs
4671 784 Crs
4740 766 Crs
4810 753 Crs
4879 741 Crs
4949 728 Crs
5018 715 Crs
5088 702 Crs
5157 692 Crs
5226 681 Crs
5296 671 Crs
5365 659 Crs
5435 649 Crs
5504 641 Crs
5574 633 Crs
5643 624 Crs
5712 615 Crs
5782 609 Crs
5851 604 Crs
5921 598 Crs
5990 593 Crs
6060 588 Crs
6129 582 Crs
6198 576 Crs
6268 570 Crs
6337 564 Crs
6407 558 Crs
6476 551 Crs
6545 545 Crs
6615 540 Crs
6684 537 Crs
6754 534 Crs
6823 531 Crs
6893 527 Crs
6962 524 Crs
6594 4599 Crs
1.000 UP
1.000 UL
LT2
6311 4459 M
('M20.keV'us 1:3) Rshow
749 420 Star
783 647 Star
818 871 Star
853 1093 Star
888 1311 Star
922 1522 Star
957 1714 Star
992 1897 Star
1026 2069 Star
1061 2233 Star
1096 2381 Star
1131 2511 Star
1165 2629 Star
1200 2723 Star
1235 2804 Star
1269 2871 Star
1304 2925 Star
1339 2965 Star
1374 2991 Star
1408 3004 Star
1443 3008 Star
1478 2999 Star
1512 2977 Star
1547 2942 Star
1582 2898 Star
1616 2863 Star
1651 2818 Star
1686 2761 Star
1721 2694 Star
1755 2629 Star
1790 2574 Star
1825 2511 Star
1859 2439 Star
1894 2358 Star
1929 2286 Star
1964 2217 Star
1998 2146 Star
2033 2085 Star
2068 2018 Star
2102 1965 Star
2137 1911 Star
2172 1852 Star
2207 1788 Star
2241 1723 Star
2276 1679 Star
2311 1631 Star
2345 1580 Star
2380 1525 Star
2415 1476 Star
2450 1438 Star
2484 1398 Star
2519 1355 Star
2554 1311 Star
2588 1273 Star
2623 1241 Star
2658 1207 Star
2693 1171 Star
2727 1134 Star
2762 1108 Star
2797 1084 Star
2831 1059 Star
2866 1032 Star
2901 1005 Star
2936 985 Star
2970 964 Star
3005 942 Star
3040 920 Star
3074 898 Star
3109 882 Star
3144 866 Star
3178 848 Star
3213 830 Star
3248 817 Star
3283 807 Star
3317 797 Star
3352 786 Star
3387 775 Star
3421 764 Star
3456 752 Star
3491 740 Star
3526 727 Star
3560 714 Star
3595 701 Star
3630 687 Star
3664 678 Star
3699 671 Star
3734 665 Star
3769 658 Star
3803 651 Star
3838 644 Star
3873 637 Star
3907 630 Star
3942 622 Star
3977 614 Star
4012 606 Star
4046 598 Star
4081 592 Star
4116 588 Star
4150 584 Star
4185 580 Star
4220 575 Star
4255 571 Star
4289 566 Star
4324 561 Star
4359 556 Star
4393 551 Star
4428 546 Star
4463 541 Star
4498 538 Star
4532 535 Star
4567 532 Star
4602 529 Star
4636 526 Star
4671 523 Star
4706 520 Star
4740 517 Star
4775 514 Star
4810 511 Star
4845 507 Star
4879 504 Star
4914 501 Star
4949 498 Star
4983 495 Star
5018 492 Star
5053 489 Star
5088 486 Star
5122 482 Star
5157 479 Star
5192 476 Star
5226 472 Star
5261 469 Star
5296 466 Star
5331 462 Star
5365 458 Star
5400 455 Star
5435 451 Star
5469 447 Star
5504 444 Star
5539 440 Star
5574 436 Star
5608 432 Star
5643 428 Star
5678 424 Star
5712 420 Star
5747 420 Star
5782 420 Star
5817 420 Star
5851 420 Star
5886 420 Star
5921 420 Star
5955 420 Star
5990 420 Star
6025 420 Star
6060 420 Star
6094 420 Star
6129 420 Star
6164 420 Star
6198 420 Star
6233 420 Star
6268 420 Star
6302 420 Star
6337 420 Star
6372 420 Star
6407 420 Star
6441 420 Star
6476 420 Star
6511 420 Star
6594 4459 Star
1.000 UP
1.000 UL
LT3
6311 4319 M
('M30.keV' us 1:3) Rshow
749 420 Box
783 931 Box
818 1433 Box
853 1924 Box
888 2368 Box
922 2775 Box
957 3149 Box
992 3472 Box
1026 3744 Box
1061 3948 Box
1096 4107 Box
1131 4221 Box
1165 4287 Box
1200 4311 Box
1235 4298 Box
1269 4240 Box
1304 4146 Box
1339 4061 Box
1374 3938 Box
1408 3779 Box
1443 3657 Box
1478 3508 Box
1512 3330 Box
1547 3173 Box
1582 3014 Box
1616 2872 Box
1651 2743 Box
1686 2617 Box
1721 2475 Box
1755 2347 Box
1790 2240 Box
1825 2122 Box
1859 2008 Box
1894 1921 Box
1929 1826 Box
1964 1727 Box
1998 1655 Box
2033 1577 Box
2068 1492 Box
2102 1438 Box
2137 1381 Box
2172 1321 Box
2207 1271 Box
2241 1223 Box
2276 1172 Box
2311 1130 Box
2345 1092 Box
2380 1052 Box
2415 1019 Box
2450 997 Box
2484 973 Box
2519 948 Box
2554 921 Box
2588 893 Box
2623 864 Box
2658 833 Box
2693 811 Box
2727 796 Box
2762 781 Box
2797 766 Box
2831 749 Box
2866 732 Box
2901 714 Box
2936 696 Box
2970 682 Box
3005 673 Box
3040 663 Box
3074 653 Box
3109 642 Box
3144 631 Box
3178 620 Box
3213 608 Box
3248 600 Box
3283 593 Box
3317 587 Box
3352 580 Box
3387 573 Box
3421 566 Box
3456 558 Box
3491 551 Box
3526 544 Box
3560 537 Box
3595 530 Box
3630 523 Box
3664 515 Box
3699 508 Box
3734 500 Box
3769 492 Box
3803 484 Box
3838 475 Box
3873 467 Box
3907 458 Box
3942 449 Box
3977 440 Box
4012 431 Box
4046 421 Box
4081 420 Box
4116 420 Box
4150 420 Box
4185 420 Box
4220 420 Box
4255 420 Box
4289 420 Box
4324 420 Box
4359 420 Box
4393 420 Box
4428 420 Box
4463 420 Box
4498 420 Box
4532 420 Box
4567 420 Box
6594 4319 Box
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

BIN
geant4/LEMuSR/MEYER/Mallsin.pdf
View File

Binary file not shown.

BIN
geant4/LEMuSR/MEYER/a.out
View File

Binary file not shown.

888
geant4/LEMuSR/MEYER/meyer.cc
View File

@ -1,888 +0,0 @@
/*
fIRST IMPLEMENTATION BY ANLSEM,H. IN FORTRAN
C++ CONVERSION T.K.PARAISO 04-2005
!!! IMPORTANT !!!
Notice:
Tables definition changes between FORTRAN and C++:
1/ Fortran indices start at 1 and C++ indices start at 0
2/ Tables are defined as table[column][row] in Fortran
table[row][column] in c++
usefull reference
http://gershwin.ens.fr/vdaniel/Doc-Locale/Langages-Program-Scientific/Fortran/Tutorial/arrays.htm
*/
#include "meyer.h"
#include <iomanip>
#include <fstream>
#include <iostream>
#include <stdlib.h>
#include<ios>
using namespace std;
meyer::meyer()
{;}
meyer::~meyer()
{;}
void meyer::GFunctions(double* g1,double* g2, double tau)
{
//Diese Routine gibt in Abhaengigkeit von der reduzierten Dicke 'tau'
//Funktionswerte fuer g1 und g2 zurueck. g1 und g2 sind dabei die von
//Meyer angegebenen tabellierten Funktionen fuer die Berechnung von Halbwerts-
//breiten von Streuwinkelverteilungen. (L.Meyer, phys.stat.sol. (b) 44, 253
//(1971))
double help;
int i;
double tau_[] = {0.2, 0.4, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0,
2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0, 7.0, 8.0, 9.0,
10.0, 12.0, 14.0, 16.0, 18.0, 20.0 };
double g1_[] = {0.050,0.115,0.183,0.245,0.305,0.363,0.419,0.473,0.525,0.575,
0.689,0.799,0.905,1.010,1.100,1.190,1.370,1.540,1.700,1.850,
1.990,2.270,2.540,2.800,3.050,3.290 };
double g2_[] = {0.00,1.25,0.91,0.79,0.73,0.69,0.65,0.63,0.61,0.59,
0.56,0.53,0.50,0.47,0.45,0.43,0.40,0.37,0.34,0.32,
0.30,0.26,0.22,0.18,0.15,0.13 };
if (tau<tau_[0])// tau_[0] is the lowest in c++; in fortran it is tau_[1]!!! TAO!
{
std::cout<<"SUBROUTINE G_Functions:"<<std::endl;
std::cout<<" Fehler bei Berechnung der g-Funktionen fuer Winkelaufstreuung:"<<std::endl;
std::cout<<" aktuelles tau ist kleiner als kleinster Tabellenwert:"<<std::endl;
std::cout<<" tau = "<< tau<<std::endl;
std::cout<<" tau_[0] = "<< tau_[0]<<std::endl;
return;
}
i = 1;
do
{
i = i + 1;
if (i==26)
{
std::cout<<"SUBROUTINE G_Functions:"<<std::endl;
std::cout<<" Fehler bei Berechnung der g-Funktionen fuer Winkelaufstreuung:"<<std::endl;
std::cout<<" aktuelles tau ist groesser als groesster Tabellenwert:"<<std::endl;
std::cout<<" tau = "<< tau <<std::endl;
std::cout<<" tau_[26] = "<< tau_[26] <<std::endl;
break;
}
}while(tau>tau_[i]);
//lineare Interpolation zwischen Tabellenwerten:
help = (tau-tau_[i-1])/(tau_[i]-tau_[i-1]);
*g1 = g1_[i-1] + help*(g1_[i]-g1_[i-1]);
*g2 = g2_[i-1] + help*(g2_[i]-g2_[i-1]);
}
//==========================================================================================
void meyer:: Get_F_Function_Meyer(double tau, double Ekin, double Z1, double Z2, double m1, double m2)
{
double thetaSchlange,thetaSchlangeMax;
double theta,thetaMax,thetaStep;
double f1,f2,F;
//---------------------------------
//- Parameters:
// double Z1, Z2; ! die atomaren Nummern von Projektil und Target
double a0; // ! Bohrscher Radius in cm
double screeningPar; // ! Screeningparameter "a" in cm fuer Teilchen der
// ! Kernladungszahl Z1=1 in Kohlenstoff (Z2 = 6)
// ! bei Streichung von Z1 (vgl. Referenz, S. 268)
double r0Meyer; // ! r0(C) berechnet aus dem screeningParameter "a"
// ! und dem ebenfalls bei Meyer angegebenem
// ! Verhaeltnis a/r0=0.26 (vgl. Referenz, S. 263 oben)
double eSquare; // ! elektrische Ladung zum Quadrat in keV*cm
double Pi ; // ! die Kreiszahl
///
a0 = 5.29E-9;//unit == centimeter
//the screening parameter
double D= exp(2/3*log(Z1))+exp(2/3*log(Z2));
double a=0.885*a0/sqrt(D);
screeningPar=a; // screeningPar = 2.5764E-9;
r0Meyer = 9.909E-9;
eSquare = 1.44E-10;
Pi = 3.141592654;
double Meyer_faktor3;
double Meyer_faktor4;
double zzz;// ! "Hilfsparameter"
double Meyer_faktor5;
Meyer_faktor3 = (screeningPar/r0Meyer) * (screeningPar/r0Meyer);
Meyer_faktor4 = (m1+m2)/m2/2.;
//((1./9.+12.)/12.)/2. ;// TAO m1+m2/m2/2.
// in meyer article, we then have b= mf4/Ekine1= (m1+m2)/(m2*2*m1*v1²)
zzz = screeningPar / (2.*Z1*Z2*eSquare);
Meyer_faktor5 = zzz*zzz / (8*Pi*Pi);
//---------------------------------
//---------------------------------
//---------------------------------
int nBin,nBinMax;
nBinMax=201;
double value[nBinMax]; // /0.,nBinMax*0./
double area[nBinMax] ; // / nBinMax*0./
double integ[nBinMax]; // /0.,nBinMax*0./
// common /MeyerTable/ value,area,integ,thetaStep,nBin
int i;
double rHelp;
int HB_memsize;
HB_memsize=500000;
double memory[HB_memsize];
// COMMON /PAWC/ memory
//nur noch fuer Testzwecke:
double fValues[203];
double fValuesFolded[203];
int idh;
idh = 50;
//INCLUDE "mutrack$sourcedirectory:COM_DIRS.INC"
// character filename*20 ! Name der Ausgabe-Dateien
// COMMON /filename/ filename
//----------------------------------------------------------------------------
//Festlegen des maximalen Theta-Wertes sowie der Schrittweite:
if (tau<0.2)
{
std::cout<< "Subroutine ''Get_F_Function_Meyer'':"<<std::endl;
std::cout<< "Effektive Dicke ist kleiner als 0.2 => kann ich nicht ... => STOP"<<std::endl;
return;
}
else if (tau<=2.)
{
// ! => Tabelle A
thetaSchlangeMax = 4.0;
}
else if (tau<=8.)
{
//! => Tabelle B
thetaSchlangeMax = 7.0;
}
else if (tau<=20.)
{
//! => Tabelle C
thetaSchlangeMax = 20.0;
}
else
{
std::cout<< "Subroutine ''Get_F_Function_Meyer'':"<<std::endl;
std::cout<< "Effektive Dicke ist groesser als 20 => kann ich nicht ... => STOP"<<std::endl;
return;
}
std::cout<< "M4: "<<Meyer_faktor4<<std::endl;
std::cout<< "Ekin: "<<Ekin <<std::endl;
thetaMax = thetaSchlangeMax / Meyer_faktor4 / Ekin/M_PI*180;
if (thetaMax>50.)
{
thetaStep = .5;
}
else if (thetaMax>25)
{
thetaStep = .25;
}
else if (thetaMax>12.5)
{
thetaStep = .125;
}
else
{
thetaStep = .0625;
}
//Tabelle der F-Werte erstellen:
nBin = 0;
std::cout<<"thetamax = "<<thetaMax << std::endl;
theta=thetaStep;
// begining of do loop
for( theta = thetaStep; theta<=thetaMax; theta+=thetaStep)
{
// std::cout<<"theta"<<theta << std::endl;
// ! Berechne aus theta das 'reduzierte' thetaSchlange (dabei gleich
// ! noch von degree bei theta in Radiant bei thetaSchlange umrechnen):
//
thetaSchlange = Meyer_faktor4 * Ekin * theta *M_PI/180;
// ! Auslesen der Tabellenwerte fuer die f-Funktionen:
F_Functions_Meyer(tau,thetaSchlange,&f1,&f2);
if (thetaSchlange==-1)
{
//! wir sind jenseits von thetaSchlangeMax
goto bigtheta;
// endif
}
// ! Berechnen der Streuintensitaet:
F = Meyer_faktor4*Meyer_faktor4 * Ekin*Ekin /2 /M_PI * (f1 - Meyer_faktor3*f2);// TAO, Anselm was: Meyer_faktor5 * Ekin*Ekin * (f1 - Meyer_faktor3*f2);
nBin = nBin + 1;
if (nBin>nBinMax)
{
std::cout<< "nBin > nBinMax => EXIT";
break;
}
value[nBin] = sin(theta)*F;
fValues[nBin+1] = F; // ! fuer Testzwecke
fValuesFolded[nBin+1] = sin(theta/180*M_PI)*F;// ! fuer Testzwecke
}// end of do loop
//Berechnen der Flaecheninhalte der einzelnen Kanaele sowie der Integrale:
bigtheta:for( i = 1;i<= nBin; i++)
{
area[i] = (value[i]+value[i-1])/2.* thetaStep;
integ[i] = integ[i-1] + area[i];
}
//Normiere totale Flaeche auf 1:
rHelp = integ[nBin];
for( i = 1; i<=nBin; i++)
{
value[i] = value[i] / rHelp;
area[i] = area[i] / rHelp;
integ[i] = integ[i] / rHelp;
}
//vorerst noch: gib Tabelle in Datei und Histogrammfile aus:
//! Berechne die Werte fuer theta=0:
F_Functions_Meyer(tau,0.,&f1,&f2);
F = Meyer_faktor4*Meyer_faktor4 * Ekin*Ekin /2 /M_PI * (f1 - Meyer_faktor3*f2);// TAO, Anselm was: Meyer_faktor5 * Ekin*Ekin * (f1 - Meyer_faktor3*f2);
fValues[1] = F;
fValuesFolded[1] = 0.;
//! Gib die Werte in das Tabellenfile aus:
ofstream Mprint("tkm.out");
theta = thetaStep;
if (!Mprint.is_open()) exit(8);
for( i = 1; i<=nBin+1;i++)
{
Mprint << theta<< " "<< fValues[i]/fValues[1]<<" " << fValuesFolded[i]<<std::endl;
theta = theta + thetaStep;
}
Mprint.close();
}
//===============================================================================================
void meyer:: F_Functions_Meyer( double tau,double thetaSchlange,double *f1,double *f2)
{
//Diese Routine gibt in Abhaengigkeit von 'thetaSchlange' und 'tau'
//Funktionswerte fuer f1 und f2 zurueck. f1 und f2 entsprechen dabei den
//bei Meyer angegebenen Funktion gleichen Namens. Die in dieser Routine
//verwendeten Tabellen sind eben dieser Referenz entnommen:
//L.Meyer, phys.stat.sol. (b) 44, 253 (1971)
double f1_[2], f2_[2];
int column_,column,row;
int iColumn;
double weightCol, weightRow;
//----------------------------------------------------------------------------
//die Tabellendaten der Referenz (Tabellen 2 und 3):
int nColumn;
nColumn=24;
double tau_[25]= {
0.2, 0.4, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.5, 3.0,
3.5, 4.0, 4.5, 5.0, 6.0, 7.0, 8.0, 10., 12., 14., 16., 18., 20.
};
int nRowA=24;
double thetaSchlangeA[25]=
{
.00, .05, .10, .15, .20, .25, .30, .35, .40, .45, .50, .60,
.70, .80, .90, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.5, 3.0, 3.5, 4.0
};
int nRowB=23;
double thetaSchlangeB[24]=
{
0.0, 0.2, 0.4, 0.5, 0.6, 0.8, 1.0, 1.2, 1.4, 1.5, 1.6, 1.8,
2.0, 2.2, 2.4, 2.6, 2.8, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0, 7.0
};
int nRowC=23;
double thetaSchlangeC[24]=
{
0.0, 0.5, 1.0, 1.5, 2.0, 2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0,
7.0, 8.0, 9.0, 10., 11., 12., 13., 14., 15., 16., 18., 20.
};
double f1_A[25][9]=
{
1.96E+2,4.55E+1,2.11E+1,1.25E+1,8.48E+0,6.21E+0,4.80E+0,3.86E+0,3.20E+0,
9.82E+1,3.72E+1,1.97E+1,1.20E+1,8.27E+0,6.11E+0,4.74E+0,3.83E+0,3.17E+0,
3.96E+1,2.58E+1,1.65E+1,1.09E+1,7.73E+0,5.82E+0,4.58E+0,3.72E+0,3.10E+0,
1.76E+1,1.58E+1,1.27E+1,9.26E+0,6.93E+0,5.38E+0,4.31E+0,3.55E+0,2.99E+0,
8.62E+0,1.01E+1,9.45E+0,7.58E+0,6.02E+0,4.85E+0,3.98E+0,3.33E+0,2.84E+0,
4.65E+0,6.55E+0,6.91E+0,6.06E+0,5.11E+0,4.28E+0,3.62E+0,3.08E+0,2.66E+0,
2.74E+0,4.45E+0,5.03E+0,4.78E+0,4.27E+0,3.72E+0,3.23E+0,2.82E+0,2.47E+0,
1.77E+0,3.02E+0,3.71E+0,3.76E+0,3.53E+0,3.20E+0,2.86E+0,2.55E+0,2.27E+0,
1.22E+0,2.19E+0,2.78E+0,2.96E+0,2.91E+0,2.73E+0,2.51E+0,2.28E+0,2.07E+0,
8.82E-1,1.59E+0,2.12E+0,2.35E+0,2.39E+0,2.32E+0,2.19E+0,2.03E+0,1.87E+0,
6.55E-1,1.20E+0,1.64E+0,1.88E+0,1.97E+0,1.96E+0,1.90E+0,1.79E+0,1.68E+0,
3.80E-1,7.15E-1,1.01E+0,1.22E+0,1.35E+0,1.40E+0,1.41E+0,1.39E+0,1.34E+0,
2.26E-1,4.45E-1,6.44E-1,8.08E-1,9.28E-1,1.01E+0,1.05E+0,1.06E+0,1.05E+0,
1.39E-1,2.80E-1,4.21E-1,5.45E-1,6.46E-1,7.22E-1,7.75E-1,8.07E-1,8.21E-1,
8.22E-2,1.76E-1,2.78E-1,3.71E-1,4.53E-1,5.21E-1,5.74E-1,6.12E-1,6.37E-1,
5.04E-2,1.11E-1,1.86E-1,2.57E-1,3.22E-1,3.79E-1,4.27E-1,4.65E-1,4.94E-1,
2.51E-2,5.60E-2,9.24E-2,1.31E-1,1.69E-1,2.02E-1,2.40E-1,2.71E-1,2.97E-1,
1.52E-2,3.20E-2,5.08E-2,7.23E-2,9.51E-2,1.18E-1,1.41E-1,1.63E-1,1.83E-1,
1.03E-2,2.05E-2,3.22E-2,4.55E-2,6.01E-2,7.53E-2,9.02E-2,1.05E-1,1.19E-1,
8.80E-3,1.48E-2,2.25E-2,3.13E-2,4.01E-2,5.03E-2,6.01E-2,7.01E-2,8.01E-2,
6.10E-3,1.15E-2,1.71E-2,2.28E-2,2.89E-2,3.52E-2,4.18E-2,4.86E-2,5.55E-2,
0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,1.71E-2,1.98E-2,2.28E-2,2.58E-2,
0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,8.90E-3,1.02E-2,1.16E-2,1.31E-2,
0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,4.90E-3,5.70E-3,6.40E-3,7.20E-3,
0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,2.90E-3,3.40E-3,3.90E-3,4.30E-3
};
double f1_B[24][9]=
{
2.71E+0,1.92E+0,1.46E+0,1.16E+0,9.52E-1,8.03E-1,6.90E-1,5.32E-1,4.28E-1,
2.45E+0,1.79E+0,1.39E+0,1.12E+0,9.23E-1,7.82E-1,6.75E-1,5.23E-1,4.23E-1,
1.87E+0,1.48E+0,1.20E+0,9.96E-1,8.42E-1,7.24E-1,6.32E-1,4.98E-1,4.07E-1,
1.56E+0,1.30E+0,1.09E+0,9.19E-1,7.89E-1,6.86E-1,6.03E-1,4.80E-1,3.95E-1,
1.28E+0,1.11E+0,9.62E-1,8.33E-1,7.27E-1,6.40E-1,5.69E-1,4.59E-1,3.81E-1,
8.23E-1,7.90E-1,7.29E-1,6.64E-1,6.01E-1,5.44E-1,4.94E-1,4.12E-1,3.49E-1,
5.14E-1,5.36E-1,5.29E-1,5.07E-1,4.78E-1,4.47E-1,4.16E-1,3.60E-1,3.13E-1,
3.19E-1,3.58E-1,3.76E-1,3.78E-1,3.70E-1,3.57E-1,3.45E-1,3.08E-1,2.76E-1,
2.02E-1,2.40E-1,2.64E-1,2.77E-1,2.82E-1,2.80E-1,2.65E-1,2.59E-1,2.39E-1,
1.67E-1,1.96E-1,2.20E-1,2.36E-1,2.44E-1,2.47E-1,2.45E-1,2.35E-1,2.21E-1,
1.33E-1,1.61E-1,1.85E-1,2.02E-1,2.12E-1,2.18E-1,2.18E-1,2.14E-1,2.03E-1,
8.99E-2,1.12E-1,1.32E-1,1.48E-1,1.59E-1,1.67E-1,1.68E-1,1.75E-1,1.72E-1,
6.24E-2,7.94E-2,9.50E-2,1.09E-1,1.20E-1,1.29E-1,1.35E-1,1.42E-1,1.43E-1,
4.55E-2,5.74E-2,6.98E-2,8.11E-2,9.09E-2,9.92E-2,1.06E-1,1.15E-1,1.19E-1,
3.35E-2,4.22E-2,5.19E-2,6.11E-2,6.95E-2,7.69E-2,8.33E-2,9.28E-2,9.85E-2,
2.50E-2,3.16E-2,3.92E-2,4.66E-2,5.35E-2,6.00E-2,6.57E-2,7.49E-2,8.13E-2,
1.90E-2,2.40E-2,2.99E-2,3.58E-2,4.16E-2,4.70E-2,5.20E-2,6.05E-2,6.70E-2,
1.47E-2,1.86E-2,2.32E-2,2.79E-2,3.25E-2,3.70E-2,4.12E-2,4.89E-2,5.51E-2,
8.10E-3,1.04E-2,1.30E-2,1.57E-2,1.84E-2,2.12E-2,2.40E-2,2.93E-2,3.42E-2,
4.80E-3,6.20E-3,7.70E-3,9.30E-3,1.09E-2,1.26E-2,1.44E-2,1.79E-2,2.14E-2,
2.80E-3,3.80E-3,4.70E-3,5.70E-3,6.70E-3,7.50E-3,8.90E-3,1.13E-2,1.36E-2,
1.70E-3,2.30E-3,2.90E-3,3.60E-3,4.20E-3,4.90E-3,5.60E-3,7.20E-3,8.80E-3,
0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,2.00E-3,2.80E-3,3.50E-3,
0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,8.80E-4,1.20E-3,1.60E-3
};
double f1_C[24][7]=
{
3.65E-1,2.62E-1,2.05E-1,1.67E-1,1.41E-1,1.21E-1,1.05E-1,
3.33E-1,2.50E-1,1.95E-1,1.61E-1,1.36E-1,1.18E-1,1.03E-1,
2.75E-1,2.18E-1,1.76E-1,1.48E-1,1.27E-1,1.11E-1,9.80E-2,
2.04E-1,1.75E-1,1.50E-1,1.29E-1,1.13E-1,1.01E-1,9.00E-2,
1.41E-1,1.31E-1,1.19E-1,1.08E-1,9.71E-2,8.88E-2,8.01E-2,
9.32E-2,9.42E-2,9.10E-2,8.75E-2,8.00E-2,7.44E-2,6.91E-2,
5.98E-2,6.52E-2,6.72E-2,6.62E-2,6.40E-2,6.12E-2,5.82E-2,
3.83E-2,4.45E-2,4.80E-2,4.96E-2,4.98E-2,4.90E-2,4.77E-2,
2.46E-2,3.01E-2,3.40E-2,3.65E-2,3.79E-2,3.84E-2,3.83E-2,
1.59E-2,2.03E-2,2.39E-2,2.66E-2,2.85E-2,2.97E-2,3.04E-2,
1.04E-2,1.37E-2,1.66E-2,1.92E-2,2.12E-2,2.27E-2,2.37E-2,
4.39E-3,6.26E-3,8.26E-3,9.96E-3,1.15E-2,1.29E-2,1.41E-2,
2.06E-3,3.02E-3,4.24E-3,5.28E-3,6.32E-3,7.32E-3,8.26E-3,
1.21E-3,1.69E-3,2.24E-3,2.85E-3,3.50E-3,4.16E-3,4.82E-3,
8.50E-4,1.10E-3,1.38E-3,1.65E-3,2.03E-3,2.45E-3,2.88E-3,
5.90E-4,7.40E-4,8.50E-4,9.90E-4,1.23E-3,1.49E-3,1.71E-3,
3.90E-4,4.60E-4,5.20E-4,6.30E-4,7.65E-4,9.65E-4,1.12E-3,
2.40E-4,2.70E-4,3.10E-4,3.98E-4,4.97E-4,6.03E-4,7.18E-4,
1.50E-4,1.70E-4,2.15E-4,2.70E-4,3.35E-4,4.35E-4,5.00E-4,
1.00E-4,1.20E-4,1.46E-4,1.90E-4,2.40E-4,2.88E-4,3.43E-4,
0.00 ,0.00 ,1.04E-4,1.41E-4,1.80E-4,2.10E-4,2.50E-4,
0.00 ,0.00 ,8.20E-5,1.06E-4,1.38E-4,1.58E-4,1.85E-4,
0.00 ,0.00 ,5.40E-5,7.00E-5,8.60E-5,1.03E-4,1.20E-4,
0.00 ,0.00 ,4.20E-5,5.40E-5,6.50E-5,7.70E-5,8.80E-5
};
double f2_A[25][9]=
{
3.52E+3, 3.27E+2, 9.08E+1, 3.85E+1, 2.00E+1, 1.18E+1, 7.55E+0, 5.16E+0, 3.71E+0,
2.58E+2, 1.63E+2, 7.30E+1, 3.42E+1, 1.85E+1, 1.11E+1, 7.18E+0, 4.96E+0, 3.59E+0,
-1.12E+2, 4.84E+0, 3.56E+1, 2.34E+1, 1.45E+1, 9.33E+0, 6.37E+0, 4.51E+0, 3.32E+0,
-5.60E+1,-1.12E+1, 9.87E+0, 1.24E+1, 9.59E+0, 7.01E+0, 5.16E+0, 3.83E+0, 2.91E+0,
-2.13E+1,-1.22E+1,-2.23E+0, 3.88E+0, 5.15E+0, 4.65E+0, 3.87E+0, 3.12E+0, 2.45E+0,
-8.25E+0,-9.58E+0,-5.59E+0,-1.40E+0, 1.76E+0, 2.71E+0, 2.71E+0, 2.35E+0, 1.95E+0,
-3.22E+0,-6.12E+0,-5.28E+0,-2.87E+0,-1.92E-1, 1.32E+0, 1.69E+0, 1.74E+0, 1.48E+0,
-1.11E+0,-3.40E+0,-4.12E+0,-3.08E+0,-6.30E-1, 3.60E-1, 9.20E-1, 1.03E+0, 1.04E+0,
-2.27E-1,-2.00E+0,-2.93E+0,-2.69E+0,-1.48E+0,-3.14E-1, 2.69E-1, 5.28E-1, 6.09E-1,
1.54E-1,-1.09E+0,-2.10E+0,-2.15E+0,-1.47E+0,-6.77E-1,-1.80E-1, 1.08E-1, 2.70E-1,
3.28E-1,-6.30E-1,-1.50E+0,-1.68E+0,-1.34E+0,-8.43E-1,-4.60E-1,-1.85E-1,-4.67E-3,
3.32E-1,-2.06E-1,-7.32E-1,-9.90E-1,-9.42E-1,-8.20E-1,-6.06E-1,-4.51E-1,-3.01E-1,
2.72E-1,-3.34E-2,-3.49E-1,-5.65E-1,-6.03E-1,-5.79E-1,-5.05E-1,-4.31E-1,-3.45E-1,
2.02E-1, 2.80E-2,-1.54E-1,-3.00E-1,-3.59E-1,-3.76E-1,-4.60E-1,-3.40E-1,-3.08E-1,
1.38E-1, 4.84E-2,-5.56E-2,-1.44E-1,-2.04E-1,-2.39E-1,-2.54E-1,-2.49E-1,-2.48E-1,
9.47E-2, 4.86E-2,-1.08E-2,-6.44E-2,-1.02E-1,-1.34E-1,-1.62E-1,-1.79E-1,-1.87E-1,
5.33E-2, 3.71E-2, 1.85E-2, 1.63E-3,-1.69E-2,-3.69E-2,-5.66E-2,-7.78E-2,-9.33E-2,
3.38E-2, 2.40E-2, 1.62E-2, 9.90E-3, 3.76E-3,-4.93E-3,-1.66E-2,-3.05E-2,-4.22E-2,
2.12E-2, 1.56E-2, 1.05E-2, 7.80E-3, 7.92E-3, 6.30E-3, 3.20E-4,-8.50E-3,-1.66E-2,
1.40E-2, 9.20E-3, 5.30E-3, 4.70E-3, 6.31E-3, 8.40E-3, 5.30E-3, 8.80E-4,-3.30E-3,
9.20E-3, 4.70E-3, 1.70E-3, 2.60E-3, 4.49E-3, 6.60E-3, 6.00E-3, 4.70E-3, 2.80E-3,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00
};
double f2_B[24][9]=
{
2.75E+0, 1.94E+0, 9.13E-1, 6.06E-1, 4.26E-1, 3.14E-1, 2.40E-1, 1.51E-1, 1.03E-1,
1.94E+0, 1.16E+0, 7.56E-1, 5.26E-1, 3.81E-1, 2.87E-1, 2.23E-1, 1.43E-1, 9.78E-2,
5.85E-1, 5.04E-1, 4.10E-1, 3.30E-1, 2.69E-1, 2.17E-1, 1.78E-1, 1.22E-1, 8.71E-2,
7.83E-2, 2.00E-1, 2.35E-1, 2.19E-1, 1.97E-1, 1.73E-1, 1.48E-1, 1.08E-1, 7.93E-2,
-1.82E-1, 1.56E-2, 1.04E-1, 1.36E-1, 1.38E-1, 1.31E-1, 1.19E-1, 9.46E-2, 7.19E-2,
-2.71E-1,-1.66E-1,-7.29E-2,-4.74E-3, 3.60E-2, 5.50E-2, 6.28E-2, 5.98E-2, 5.09E-2,
-1.87E-1,-1.58E-1,-1.09E-1,-5.80E-2,-2.03E-2, 2.48E-3, 1.99E-2, 3.36E-2, 3.27E-2,
-1.01E-1,-1.05E-1,-8.95E-2,-6.63E-2,-3.93E-2,-2.38E-2,-9.22E-3, 8.47E-3, 1.52E-2,
-5.19E-2,-6.47E-2,-6.51E-2,-5.62E-2,-4.51E-2,-3.49E-2,-2.45E-2,-8.19E-3, 2.05E-3,
-3.68E-2,-4.89E-2,-5.36E-2,-5.06E-2,-4.27E-2,-3.65E-2,-2.80E-2,-1.33E-2,-3.47E-3,
-2.33E-2,-3.69E-2,-4.41E-2,-4.38E-2,-3.97E-2,-3.50E-2,-2.88E-2,-1.60E-2,-6.68E-3,
-8.76E-3,-2.07E-2,-2.90E-2,-3.17E-2,-3.09E-2,-2.92E-2,-2.63E-2,-1.79E-2,-1.03E-2,
-1.20E-3,-1.11E-2,-1.90E-2,-2.20E-2,-2.32E-2,-2.24E-2,-2.10E-2,-1.66E-2,-1.11E-2,
1.72E-3,-4.82E-3,-1.02E-2,-1.42E-2,-1.65E-2,-1.66E-2,-1.60E-2,-1.39E-2,-1.09E-2,
2.68E-3,-1.18E-3,-5.19E-3,-8.30E-5,-1.01E-2,-1.14E-2,-1.16E-2,-1.16E-2,-9.99E-3,
2.81E-3, 8.21E-4,-1.96E-3,-3.99E-3,-5.89E-3,-7.13E-3,-8.15E-3,-9.05E-3,-8.60E-3,
2.61E-3, 1.35E-3,-2.99E-4,-1.79E-3,-3.12E-3,-4.44E-3,-5.61E-3,-7.01E-3,-7.27E-3,
2.06E-3, 1.45E-3, 4.64E-4,-5.97E-4,-1.71E-3,-2.79E-3,-3.84E-3,-5.29E-3,-5.90E-3,
1.07E-3, 9.39E-4, 8.22E-4, 3.58E-4,-1.15E-4,-6.60E-4,-1.18E-3,-2.15E-3,-2.88E-3,
4.97E-4, 5.46E-4, 6.15E-4, 5.56E-4, 3.14E-4, 9.80E-5,-1.30E-4,-5.98E-4,-1.07E-4,
1.85E-4, 3.11E-4, 4.25E-4, 4.08E-4, 3.63E-4, 3.04E-4, 2.24E-4, 2.80E-5,-2.10E-4,
4.80E-5, 1.48E-4, 2.44E-4, 2.80E-4, 3.01E-4, 3.11E-4, 3.13E-4, 2.40E-4, 1.10E-4,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 1.39E-4, 1.80E-4, 1.80E-4,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 4.38E-5, 7.30E-5, 8.40E-5
};
double f2_C[24][7]=
{
7.36E-2, 4.21E-2, 2.69E-2, 1.83E-2, 1.34E-2, 1.01E-2, 7.88E-3,
5.79E-2, 3.61E-2, 2.34E-2, 1.64E-2, 1.21E-2, 9.26E-3, 7.28E-3,
2.94E-2, 2.17E-2, 1.60E-2, 1.23E-2, 9.49E-3, 7.45E-3, 5.95E-3,
2.30E-3, 7.07E-3, 7.76E-3, 7.02E-3, 6.13E-3, 5.17E-3, 4.34E-3,
-7.50E-3,-2.00E-3, 9.93E-4, 2.36E-3, 2.82E-3, 2.86E-3, 2.72E-3,
8.27E-3,-5.37E-3,-2.58E-3,-7.96E-4, 3.75E-4, 9.71E-4, 1.28E-3,
-5.79E-3,-5.12E-3,-3.86E-3,-2.46E-3,-1.20E-3,-3.74E-4, 1.74E-4,
-3.26E-3,-3.43E-3,-3.26E-3,-2.68E-3,-1.84E-3,-1.12E-3,-4.54E-4,
-1.46E-3,-1.49E-3,-2.20E-3,-2.18E-3,-1.85E-3,-1.40E-3,-8.15E-4,
-4.29E-4,-9.44E-4,-1.29E-3,-1.50E-3,-1.51E-3,-1.36E-3,-9.57E-4,
-3.30E-5,-3.66E-4,-6.78E-4,-9.38E-4,-1.09E-3,-1.09E-3,-9.56E-4,
1.50E-4, 3.10E-5,-1.38E-4,-3.06E-4,-4.67E-4,-5.48E-4,-6.08E-4,
1.00E-4, 8.50E-5, 2.30E-5,-6.60E-5,-1.58E-4,-2.40E-4,-3.05E-4,
5.40E-5, 6.50E-5, 4.90E-5, 1.20E-5,-3.60E-5,-8.90E-5,-1.31E-4,
2.90E-5, 4.30E-5, 4.40E-5, 2.90E-5, 5.10E-6,-2.20E-5,-4.80E-5,
1.40E-5, 2.40E-5, 2.80E-5, 2.60E-5, 1.90E-5, 7.50E-6,-1.10E-5,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00
};
//=============================================================================
//Bestimme, welche Reihen der Tabellen fuer Interpolation benoetigt werden:
if (tau<tau_[0])
{
std::cout<< "tau is less than the lowest tabulated value:"<<std::endl;
std::cout<<"tau = "<<tau<<std::endl;
std::cout<<"minimum = "<<tau_[0]<<std::endl;
return;
}
else if (tau>tau_[nColumn])
{
std::cout<<"tau is greater than the highest tabulated value:"<<std::endl;
std::cout<<"tau = "<<tau<<std::endl;
std::cout <<"maximum = "<<tau_[nColumn]<<std::endl;
return;
}
column_ = 0;
do
{
if(tau>tau_[column_])// TAO IF LOOP NOT GET THE CORRECT COLUNM INTERPOLATION
{
column_ = column_ + 1;
}
}while (tau>tau_[column_]);
#ifdef DEBUGMEYER
std::cout<<"column= " << column_ <<std::endl;
std::cout<<"tau c " << tau_[column_] <<std::endl;
std::cout<<"tau c-1 " << tau_[column_-1] <<std::endl;
#endif
// ! Das Gewicht der Reihe zu groesserem Tau:
if(column==0)
{
weightCol=1;
}
else
{
weightCol = (tau-tau_[column_-1]) / (tau_[column_]-tau_[column_-1]);
}
//Besorge fuer gegebenes 'thetaSchlange' die interpolierten f1- und f2 -Werte
//der beiden relevanten Reihen:
//iColumn = 1 => Reihe mit hoeherem Index
//iColumn = 2 => Reihe mit kleinerem Index
iColumn = 1;
// 5 continue;
do{
if (column_<=8)
{
//! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//! Werte aus 1. Tabelle: 0.2 <= tau <= 1.8
column = column_;
// std::cout<<"thetaSchlange = "<<thetaSchlange<<std::endl;
if (thetaSchlange<thetaSchlangeA[0])
{
std::cout<<"thetaSchlange is less than the lowest tabulated value in table 1:"<<std::endl;
std::cout<<"thetaSchlange = "<<thetaSchlange<<std::endl;
std::cout<<"minimum = "<<thetaSchlangeA[0]<<std::endl;
return;
}
else if (thetaSchlange>thetaSchlangeA[nRowA])
{
std::cout<<"thetaSchlange is greater than the highest tabulated value in table 1:"<<std::endl;
std::cout<<"thetaSchlange = "<<thetaSchlange<<std::endl;
std::cout<<"maximum = "<<thetaSchlangeA[nRowA]<<std::endl;
thetaSchlange = -1.;
return;
}
row = 0;
do
{
if (thetaSchlange>thetaSchlangeA[row])
{
row = row + 1;
}
}while (thetaSchlange>thetaSchlangeA[row]);
#ifdef DEBUGMEYER
std::cout<<"row= " << row <<std::endl;
#endif
//! Gewicht des Tabellenwertes zu groesseren ThetaSchlange:
if(row==0)
{
weightRow=1;
f1_[iColumn] = weightRow * f1_A[row][column];
f2_[iColumn] = weightRow * f2_A[row][column];
}
else
{
weightRow = (thetaSchlange-thetaSchlangeA[row-1]) /
(thetaSchlangeA[row]-thetaSchlangeA[row-1]);
f1_[iColumn] = (1.-weightRow) * f1_A[row-1][column] +
weightRow * f1_A[row][column];
f2_[iColumn] = (1.-weightRow) * f2_A[row-1][column] +
weightRow * f2_A[row][column];
}
}
else if (column_>8&&column_<=17)
{
//! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//! Werte aus 2. Tabelle: 2.0 <= tau <= 7.0
column = column_ - 9;
if (thetaSchlange<thetaSchlangeB[0])
{
std::cout<< "thetaSchlange is less than the lowest tabulated value in table 2:"<<std::endl;
std::cout<< "thetaSchlange = "<<thetaSchlange<<std::endl;
std::cout<< "minimum = "<<thetaSchlangeB[0]<<std::endl;
return;
}
else if (thetaSchlange>thetaSchlangeB[nRowB])
{
std::cout<< "thetaSchlange is greater than the highest tabulated value in table 2:";
std::cout<< "thetaSchlange = "<<thetaSchlange;
std::cout<< "maximum = "<<thetaSchlangeB[nRowB];
// call exit
thetaSchlange = -1.;
return;
}
row = 0;
do
{
if(thetaSchlange>thetaSchlangeB[row])
{
row = row + 1;
}
} while (thetaSchlange>thetaSchlangeB[row]);
#ifdef DEBUGMEYER
std::cout<<"row= " << row <<std::endl;
#endif
// ! Gewicht des Tabellenwertes zu groesseren ThetaSchlange:
if(row==0)
{
weightRow=1;
f1_[iColumn] = weightRow * f1_B[row][column];
f2_[iColumn] = weightRow * f2_B[row][column];
}
else
{
weightRow = (thetaSchlange-thetaSchlangeB[row-1]) /
(thetaSchlangeB[row]-thetaSchlangeB[row-1]);
f1_[iColumn] = (1.-weightRow) * f1_B[row-1][column] +
weightRow * f1_B[row][column];
f2_[iColumn] = (1.-weightRow) * f2_B[row-1][column] +
weightRow * f2_B[row][column];
}
}
else
{
//! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// ! Werte aus 3. Tabelle: 8.0 <= tau <= 20.
column = column_ - 18;
if (thetaSchlange<thetaSchlangeC[0])
{
std::cout<< "thetaSchlange is less than the lowest tabulated value in table 3:"<<std::endl;
std::cout<< "thetaSchlange = "<<thetaSchlange<<std::endl;
std::cout<< "minimum = "<<thetaSchlangeC[0]<<std::endl;
return;
}
else if (thetaSchlange>thetaSchlangeC[nRowC])
{
std::cout<< "thetaSchlange is greater than the highest tabulated value in table 3:";
std::cout<< "\n thetaSchlange = ",thetaSchlange;
std::cout<< "\n maximum = ",thetaSchlangeC[nRowC];
thetaSchlange = -1.;
return;
}
row = 0;
do
{
if(thetaSchlange>thetaSchlangeC[row])
{
row = row + 1;
}
}while (thetaSchlange>thetaSchlangeC[row]);
#ifdef DEBUGMEYER
std::cout<<"row= " << row <<std::endl;
#endif
// ! Gewicht des Tabellenwertes zu groesseren ThetaSchlange:
if(row==0)
{
weightRow=1;
f1_[iColumn] = weightRow * f1_C[row][column];
f2_[iColumn] = weightRow * f2_C[row][column];
}
else
{
weightRow = (thetaSchlange-thetaSchlangeC[row-1]) /
(thetaSchlangeC[row]-thetaSchlangeC[row-1]);
f1_[iColumn] = (1.-weightRow) * f1_C[row-1][column] +
weightRow * f1_C[row][column];
f2_[iColumn] = (1.-weightRow) * f2_C[row-1][column] +
weightRow * f2_C[row][column];
}
}
#ifdef DEBUGMEYER
std::cout<<"f1_[iColumn]= " << f1_[iColumn] <<std::endl;
std::cout<<"f2_[iColumn]= " << f2_[iColumn] <<std::endl;
std::cout<<"wc: "<<weightCol<<std::endl;
std::cout<<"wr: "<<weightRow<<std::endl;
std::cout<<"icol: "<<iColumn<<std::endl;
#endif
iColumn++ ;
}while(iColumn<=2);
#ifdef DEBUGMEYER
std::cout<<"f1: "<<*f1<<std::endl;
std::cout<<"f2: "<<*f2<<std::endl;
#endif
*f1 = weightCol*f1_[1] + (1.-weightCol)*f1_[2];
*f2 = weightCol*f2_[1] + (1.-weightCol)*f2_[2];
}
//========================================================================================
/*-
options /extend_source
subroutine throwMeyerAngle (theta)
c ==================================
implicit none
real lowerbound,y1,y2,f,root,radiant,fraction
integer bin,nBin
integer nBinMax
parameter (nBinMax=201)
real theta,thetaStep
real value(0:nBinMax) /0.,nBinMax*0./
real area(nBinMax) / nBinMax*0./
real integ(0:nBinMax) /0.,nBinMax*0./
common /MeyerTable/ value,area,integ,thetaStep,nBin
real rHelp
real random
integer seed
common /seed/ seed
c bin: Nummer des Bins, innerhalb dessen das Integral den Wert von
c random erreicht oder ueberschreitet:
random = ran(seed)
bin = 1
do while (random.GT.integ(bin))
bin = bin + 1
if (bin.GT.nBin) then
write(*,*) 'error 1'
call exit
endif
enddo
fraction = (random-integ(bin-1)) / (integ(bin)-integ(bin-1))
y1 = value(bin-1)
y2 = value(bin)
f = thetaStep / (y2-y1)
rHelp = y1*f
radiant = rHelp*rHelp + fraction*thetaStep*(y1+y2)*f
root = SQRT(radiant)
lowerBound = real(bin-1)*thetaStep
if (f.GT.0) then
theta = lowerBound - rHelp + root
else
theta = lowerBound - rHelp - root
endif
END
c===============================================================================
options /extend_source
*/

364
geant4/LEMuSR/MEYER/meyer.for
View File

@ -1,364 +0,0 @@
c-------------------------------------------------------------------------------
c Konstanten und Variable fuer Berechnung der Winkelaufstreuung in Triggerfolie
c mittels Meyer-Formel (L.Meyer, phys.stat.sol. (b) 44, 253 (1971)):
real g1, g2 ! Tabellierte Funktionen der Referenz
real effRedThick ! effektive reduzierte Dicke ('tau' der Referenz)
c - Parameter:
real Z1, Z2 ! die atomaren Nummern von Projektil und Target
real a0 ! Bohrscher Radius in cm
real screeningPar ! Screeningparameter 'a' in cm fuer Teilchen der
! Kernladungszahl Z1=1 in Kohlenstoff (Z2 = 6)
! bei Streichung von Z1 (vgl. Referenz, S. 268)
real r0Meyer ! r0(C) berechnet aus dem screeningParameter 'a'
! und dem ebenfalls bei Meyer angegebenem
! Verhaeltnis a/r0=0.26 (vgl. Referenz, S. 263 oben)
real eSquare ! elektrische Ladung zum Quadrat in keV*cm
real HWHM2sigma ! Umrechnungsfaktor von (halber!) Halbwertsbreite
! nach Sigma der Gaussfunktion
real Na ! die Avogadrokonstante
real mMolC ! molare Masse von C in ug
real Pi ! die Kreiszahl
parameter (Z1 = 1, Z2 = 6, a0 = 5.29E-9, ScreeningPar = 2.5764E-9)
parameter (r0Meyer = 9.909E-9, eSquare = 1.44E-10, HWHM2sigma = 1./1.17741)
parameter (Na = 6.022e23, mMolC = 12.011e6, Pi = 3.141592654)
c - Bei der Berechnung von Sigma auftretende Vorfaktoren.
c (Meyer_faktor 1 wird benoetigt fuer Berechnung der reduzierten Dicke aus der
c 'ug/cm2'-Angabe der Foliendicke. Meyer_faktor2 und Meyer_faktor3 werden
c direkt fuer die Berechnung von sigma aus den beiden tabellierten Funktionen
c g1 und g2 verwendet):
real Meyer_Faktor1, Meyer_Faktor2, Meyer_Faktor3
parameter (Meyer_faktor1 = Pi*screeningPar*screeningPar * Na/mMolC)
! Na/mMolC = 1/m(C-Atom)
parameter (Meyer_faktor2 = (2*Z1*Z2 * eSquare)/ScreeningPar * 180./Pi
+ * HWHM2sigma)
parameter (Meyer_faktor3 = (screeningPar/r0Meyer) * (screeningPar/r0Meyer))
c-------------------------------------------------------------------------------
c Kommentar zur Berechnung der Winkelaufstreuung nach Meyer:
c
c Als Bedingung fuer die Gueltigkeit der Rechnung wird verlangt, dass
c
c (1) die Anzahl n der Stoesse >> 20*(a/r0)^(4/3) sein muss. Fuer Protonen auf
c Graphit ist laut Referenz a/r0 gleich 0.26 (mit Dichte von 3.5 g/ccm habe
c ich einen Wert von 0.29 abgeschaetzt). Fuer Myonen hat man den selben
c Wert zu nehmen. Damit ergibt sich die Forderung, dass n >> 3.5 sein muss.
c
c (2) unabhaengig von (1) n >> 5 sein muss, was (1) also mit einschliesst.
c
c Mit n = Pi*r0*r0*Teilchen/Flaeche ergibt sich fuer eine Foliendicke von
c 3 ug/cm^2 als Abschaetzung fuer n ein Wert von 37. (r0 ueber r0 = 0.5 N^(1/3)
c und 3.5 g/ccm zu 8.9e-9 cm abgeschaetzt). D.h., dass die Bedingungen in
c unserem Fall gut erfuellt sind.
c In dem Paper wird eine Formel fuer Halbwertsbreiten angegeben. Ich habe nicht
c kontrolliert, in wie weit die Form der Verteilung tatsaechlich einer Gauss-
c verteilung entspricht. Zumindest im Bereich der Vorwaertsstreuung sollte
c die in diesem Programm verwendete Gaussverteilung aber eine sehr gute
c Naeherung abgeben. Abweichungen bei groesseren Winkeln koennten jedoch u. U.
c die absolute Streuintensitaet in Vorwaertsrichtung verfaelschen.
czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
c HIER GEHT DER PROGRAMMTEXT RICHTIG LOS
czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
c===============================================================================
options /extend_source
subroutine Get_F_Function_Meyer(tau,Ekin)
c =========================================
implicit none
real tau
real Ekin
real thetaSchlange,thetaSchlangeMax
real theta,thetaMax,thetaStep
real f1,f2,F
c------------------------------------
c - Parameter:
real Z1, Z2 ! die atomaren Nummern von Projektil und Target
c real a0 ! Bohrscher Radius in cm
real screeningPar ! Screeningparameter 'a' in cm fuer Teilchen der
! Kernladungszahl Z1=1 in Kohlenstoff (Z2 = 6)
! bei Streichung von Z1 (vgl. Referenz, S. 268)
real r0Meyer ! r0(C) berechnet aus dem screeningParameter 'a'
! und dem ebenfalls bei Meyer angegebenem
! Verhaeltnis a/r0=0.26 (vgl. Referenz, S. 263 oben)
real eSquare ! elektrische Ladung zum Quadrat in keV*cm
real Pi ! die Kreiszahl
c parameter (a0 = 5.29E-9)
parameter (Z1 = 1, Z2 = 6, ScreeningPar = 2.5764E-9)
parameter (r0Meyer = 9.909E-9, eSquare = 1.44E-10)
parameter (Pi = 3.141592654)
real Meyer_Faktor3
real Meyer_Faktor4
real zzz ! 'Hilfsparameter'
real Meyer_Faktor5
parameter (Meyer_faktor3 = (screeningPar/r0Meyer) * (screeningPar/r0Meyer))
parameter (Meyer_faktor4 = screeningPar / (2.*Z1*Z2*eSquare) * Pi/180.)
parameter (zzz = screeningPar / (2.*Z1*Z2*eSquare))
parameter (Meyer_faktor5 = zzz*zzz / (8*Pi*Pi))
c------------------------------------
integer nBin,nBinMax
parameter (nBinMax=201)
real value(0:nBinMax) /0.,nBinMax*0./
real area(nBinMax) / nBinMax*0./
real integ(0:nBinMax) /0.,nBinMax*0./
common /MeyerTable/ value,area,integ,thetaStep,nBin
integer i
real rhelp
integer HB_memsize
parameter(HB_memsize=500000)
real memory(HB_memsize)
COMMON /PAWC/ memory
c nur noch fuer Testzwecke:
real fValues(203)
real fValuesFolded(203)
integer idh
parameter (idh = 50)
INCLUDE 'mutrack$sourcedirectory:COM_DIRS.INC'
character filename*20 ! Name der Ausgabe-Dateien
COMMON /filename/ filename
c-------------------------------------------------------------------------------
c Festlegen des maximalen Theta-Wertes sowie der Schrittweite:
if (tau.LT.0.2) then
write(*,*) 'Subroutine ''Get_F_Function_Meyer'':'
write(*,*) 'Effektive Dicke ist kleiner als 0.2 => kann ich nicht ... => STOP'
call exit
elseif (tau.LE.2.) then
! => Tabelle A
thetaSchlangeMax = 4.0
elseif (tau.LE.8.) then
! => Tabelle B
thetaSchlangeMax = 7.0
elseif (tau.LE.20.) then
! => Tabelle C
thetaSchlangeMax = 20.0
else
write(*,*) 'Subroutine ''Get_F_Function_Meyer'':'
write(*,*) 'Effektive Dicke ist groesser als 20 => kann ich nicht ... => STOP'
call exit
endif
thetaMax = thetaSchlangeMax / Meyer_Faktor4 / Ekin
if (thetaMax.GT.50) then
thetaStep = .5
elseif (thetaMax.GT.25) then
thetaStep = .25
elseif (thetaMax.GT.12.5) then
thetaStep = .125
else
thetaStep = .0625
endif
c Tabelle der F-Werte erstellen:
nBin = 0
do theta = thetaStep, thetaMax, thetaStep
! Berechne aus theta das 'reduzierte' thetaSchlange (dabei gleich
! noch von degree bei theta in Radiant bei thetaSchlange umrechnen):
thetaSchlange = Meyer_faktor4 * Ekin * theta
! Auslesen der Tabellenwerte fuer die f-Funktionen:
call F_Functions_Meyer(tau,thetaSchlange,f1,f2)
if (thetaSchlange.EQ.-1) then
! wir sind jenseits von thetaSchlangeMax
goto 10
endif
! Berechnen der Streuintensitaet:
F = Meyer_faktor5 * Ekin*Ekin * (f1 - Meyer_faktor3*f2)
nBin = nBin + 1
if (nBin.GT.nBinMax) then
write(*,*) 'nBin > nBinMax => EXIT'
call exit
endif
value(nBin) = sind(theta)*F
fValues(nBin+1) = F ! fuer Testzwecke
fValuesFolded(nBin+1) = sind(theta)*F ! fuer Testzwecke
enddo
c Berechnen der Flaecheninhalte der einzelnen Kanaele sowie der Integrale:
10 do i = 1, nBin
area(i) = (value(i)+value(i-1))/2. * thetaStep
integ(i) = integ(i-1) + area(i)
enddo
c Normiere totale Flaeche auf 1:
rHelp = integ(nBin)
do i = 1, nBin
value(i) = value(i) / rHelp
area(i) = area(i) / rHelp
integ(i) = integ(i) / rHelp
enddo
c vorerst noch: gib Tabelle in Datei und Histogrammfile aus:
! Berechne die Werte fuer theta=0:
call F_Functions_Meyer(tau,0.,f1,f2)
F = Meyer_faktor5 * Ekin*Ekin * (f1 - Meyer_faktor3*f2)
fValues(1) = F
fValuesFolded(1) = 0.
! Gib die Werte in das Tabellenfile aus:
c theta = 0.
c open (10,file=outDir//':'//filename//'.TAB',status='NEW')
c do i = 1, nBin+1
c write(10,*) theta, fValues(i), fValuesFolded(i)
c theta = theta + thetaStep
c enddo
c close (10)
! Buchen und Fuellen der Histogramme:
call HBOOK1(idh,'F',nBin+1,-0.5*thetaStep,(real(nBin)+0.5)*thetaStep,0.)
call HPAK(idh,fValues)
call HRPUT(idh,outDir//':'//filename//'.RZ','N')
call HDELET(idh)
call HBOOK1(idh+1,'F*sin([q])',nBin+1,-0.5*thetaStep,(real(nBin)+0.5)*thetaStep,0.)
call HPAK(idh+1,fValuesFolded)
call HRPUT(idh+1,outDir//':'//filename//'.RZ','U')
call HDELET(idh+1)
END
c===============================================================================
options /extend_source
subroutine throwMeyerAngle (theta)
c ==================================
implicit none
real lowerbound,y1,y2,f,root,radiant,fraction
integer bin,nBin
integer nBinMax
parameter (nBinMax=201)
real theta,thetaStep
real value(0:nBinMax) /0.,nBinMax*0./
real area(nBinMax) / nBinMax*0./
real integ(0:nBinMax) /0.,nBinMax*0./
common /MeyerTable/ value,area,integ,thetaStep,nBin
real rhelp
real random
integer seed
common /seed/ seed
c bin: Nummer des Bins, innerhalb dessen das Integral den Wert von
c random erreicht oder ueberschreitet:
random = ran(seed)
bin = 1
do while (random.GT.integ(bin))
bin = bin + 1
if (bin.GT.nBin) then
write(*,*) 'error 1'
call exit
endif
enddo
fraction = (random-integ(bin-1)) / (integ(bin)-integ(bin-1))
y1 = value(bin-1)
y2 = value(bin)
f = thetaStep / (y2-y1)
rHelp = y1*f
radiant = rHelp*rHelp + fraction*thetaStep*(y1+y2)*f
root = SQRT(radiant)
lowerBound = real(bin-1)*thetaStep
if (f.GT.0) then
theta = lowerBound - rHelp + root
else
theta = lowerBound - rHelp - root
endif
END
c===============================================================================
options /extend_source
subroutine F_Functions_Meyer(tau,thetaSchlange,f1,f2)
c =====================================================
implicit none
c Diese Routine gibt in Abhaengigkeit von 'thetaSchlange' und 'tau'
c Funktionswerte fuer f1 und f2 zurueck. f1 und f2 entsprechen dabei den
c bei Meyer angegebenen Funktion gleichen Namens. Die in dieser Routine
c verwendeten Tabellen sind eben dieser Referenz entnommen:
c L.Meyer, phys.stat.sol. (b) 44, 253 (1971)
real tau,thetaSchlange
real f1, f2, f1_(2), f2_(2)
integer column_,column,row
integer iColumn
real weightCol, weightRow
c-------------------------------------------------------------------------------

27
geant4/LEMuSR/MEYER/meyer.h
View File

@ -1,27 +0,0 @@
#ifndef meyer_h
#define meyer_h 1
#include <iomanip>
#include <stdlib.h>
#include <iostream>
#include <sstream>
#include <string>
#include <fstream>
#include <ios>
class meyer
{
public:
meyer();
~meyer();
void GFunctions(double*, double*, double);
void Get_F_Function_Meyer(double tau, double Ekin, double Z1, double Z2, double m1, double m2);
void F_Functions_Meyer( double tau,double thetaSchlange,double *f1,double *f2);
};
#endif

1
geant4/LEMuSR/MEYER/mk.sh
View File

@ -1 +0,0 @@
g++ testmeyer.cc meyer.cc

698
geant4/LEMuSR/MEYER/mtest.for
View File

@ -1,698 +0,0 @@
PROGRAM mtest
IMPLICIT NONE
write(*,*)'SUBROUTINE G_Functions:'
SUBROUTINE G_Functions(G1,G2,tau)
c =================================
c Diese Routine gibt in Abhaengigkeit von der reduzierten Dicke 'tau'
c Funktionswerte fuer g1 und g2 zurueck. g1 und g2 sind dabei die von
c Meyer angegebenen tabellierten Funktionen fuer die Berechnung von Halbwerts-
c breiten von Streuwinkelverteilungen. (L.Meyer, phys.stat.sol. (b) 44, 253
c (1971))
IMPLICIT NONE
real tau,g1,g2
real tau_(26),g1_(26),g2_(26)
real help
integer i
DATA tau_ /0.2, 0.4, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0,
+ 2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0, 7.0, 8.0, 9.0,
+ 10.0, 12.0, 14.0, 16.0, 18.0, 20.0 /
DATA g1_ /0.050,0.115,0.183,0.245,0.305,0.363,0.419,0.473,0.525,0.575,
+ 0.689,0.799,0.905,1.010,1.100,1.190,1.370,1.540,1.700,1.850,
+ 1.990,2.270,2.540,2.800,3.050,3.290 /
DATA g2_ / 0.00,1.25,0.91,0.79,0.73,0.69,0.65,0.63,0.61,0.59,
+ 0.56,0.53,0.50,0.47,0.45,0.43,0.40,0.37,0.34,0.32,
+ 0.30,0.26,0.22,0.18,0.15,0.13 /
if (tau.LT.tau_(1)) then
write(*,*)
write(*,*)'SUBROUTINE G_Functions:'
write(*,*)' Fehler bei Berechnung der g-Funktionen fuer Winkelaufstreuung:'
write(*,*)' aktuelles tau ist kleiner als kleinster Tabellenwert:'
write(*,*)' tau = ',tau
write(*,*)' tau_(1) = ',tau_(1)
write(*,*)
STOP
endif
i = 1
10 i = i + 1
if (i.EQ.27) then
write(*,*)
write(*,*)'SUBROUTINE G_Functions:'
write(*,*)' Fehler bei Berechnung der g-Funktionen fuer Winkelaufstreuung:'
write(*,*)' aktuelles tau ist groesser als groesster Tabellenwert:'
write(*,*)' tau = ',tau
write(*,*)' tau_(26) = ',tau_(26)
write(*,*)
STOP
elseif (tau.gt.tau_(i)) then
goto 10
endif
c lineare Interpolation zwischen Tabellenwerten:
help = (tau-tau_(i-1))/(tau_(i)-tau_(i-1))
g1 = g1_(i-1) + help*(g1_(i)-g1_(i-1))
g2 = g2_(i-1) + help*(g2_(i)-g2_(i-1))
END
c===============================================================================
options /extend_source
subroutine Get_F_Function_Meyer(tau,Ekin)
c =========================================
implicit none
real tau
real Ekin
real thetaSchlange,thetaSchlangeMax
real theta,thetaMax,thetaStep
real f1,f2,F
c------------------------------------
c - Parameter:
real Z1, Z2 ! die atomaren Nummern von Projektil und Target
c real a0 ! Bohrscher Radius in cm
real screeningPar ! Screeningparameter 'a' in cm fuer Teilchen der
! Kernladungszahl Z1=1 in Kohlenstoff (Z2 = 6)
! bei Streichung von Z1 (vgl. Referenz, S. 268)
real r0Meyer ! r0(C) berechnet aus dem screeningParameter 'a'
! und dem ebenfalls bei Meyer angegebenem
! Verhaeltnis a/r0=0.26 (vgl. Referenz, S. 263 oben)
real eSquare ! elektrische Ladung zum Quadrat in keV*cm
real Pi ! die Kreiszahl
c parameter (a0 = 5.29E-9)
parameter (Z1 = 1, Z2 = 6, ScreeningPar = 2.5764E-9)
parameter (r0Meyer = 9.909E-9, eSquare = 1.44E-10)
parameter (Pi = 3.141592654)
real Meyer_Faktor3
real Meyer_Faktor4
real zzz ! 'Hilfsparameter'
real Meyer_Faktor5
parameter (Meyer_faktor3 = (screeningPar/r0Meyer) * (screeningPar/r0Meyer))
parameter (Meyer_faktor4 = screeningPar / (2.*Z1*Z2*eSquare) * Pi/180.)
parameter (zzz = screeningPar / (2.*Z1*Z2*eSquare))
parameter (Meyer_faktor5 = zzz*zzz / (8*Pi*Pi))
c------------------------------------
integer nBin,nBinMax
parameter (nBinMax=201)
real value(0:nBinMax) /0.,nBinMax*0./
real area(nBinMax) / nBinMax*0./
real integ(0:nBinMax) /0.,nBinMax*0./
common /MeyerTable/ value,area,integ,thetaStep,nBin
integer i
real rhelp
integer HB_memsize
parameter(HB_memsize=500000)
real memory(HB_memsize)
COMMON /PAWC/ memory
c nur noch fuer Testzwecke:
real fValues(203)
real fValuesFolded(203)
integer idh
parameter (idh = 50)
INCLUDE 'mutrack$sourcedirectory:COM_DIRS.INC'
character filename*20 ! Name der Ausgabe-Dateien
COMMON /filename/ filename
c-------------------------------------------------------------------------------
c Festlegen des maximalen Theta-Wertes sowie der Schrittweite:
if (tau.LT.0.2) then
write(*,*) 'Subroutine ''Get_F_Function_Meyer'':'
write(*,*) 'Effektive Dicke ist kleiner als 0.2 => kann ich nicht ... => STOP'
call exit
elseif (tau.LE.2.) then
! => Tabelle A
thetaSchlangeMax = 4.0
elseif (tau.LE.8.) then
! => Tabelle B
thetaSchlangeMax = 7.0
elseif (tau.LE.20.) then
! => Tabelle C
thetaSchlangeMax = 20.0
else
write(*,*) 'Subroutine ''Get_F_Function_Meyer'':'
write(*,*) 'Effektive Dicke ist groesser als 20 => kann ich nicht ... => STOP'
call exit
endif
thetaMax = thetaSchlangeMax / Meyer_Faktor4 / Ekin
if (thetaMax.GT.50) then
thetaStep = .5
elseif (thetaMax.GT.25) then
thetaStep = .25
elseif (thetaMax.GT.12.5) then
thetaStep = .125
else
thetaStep = .0625
endif
c Tabelle der F-Werte erstellen:
nBin = 0
do theta = thetaStep, thetaMax, thetaStep
! Berechne aus theta das 'reduzierte' thetaSchlange (dabei gleich
! noch von degree bei theta in Radiant bei thetaSchlange umrechnen):
thetaSchlange = Meyer_faktor4 * Ekin * theta
! Auslesen der Tabellenwerte fuer die f-Funktionen:
call F_Functions_Meyer(tau,thetaSchlange,f1,f2)
if (thetaSchlange.EQ.-1) then
! wir sind jenseits von thetaSchlangeMax
goto 10
endif
! Berechnen der Streuintensitaet:
F = Meyer_faktor5 * Ekin*Ekin * (f1 - Meyer_faktor3*f2)
nBin = nBin + 1
if (nBin.GT.nBinMax) then
write(*,*) 'nBin > nBinMax => EXIT'
call exit
endif
value(nBin) = sind(theta)*F
fValues(nBin+1) = F ! fuer Testzwecke
fValuesFolded(nBin+1) = sind(theta)*F ! fuer Testzwecke
enddo
c Berechnen der Flaecheninhalte der einzelnen Kanaele sowie der Integrale:
10 do i = 1, nBin
area(i) = (value(i)+value(i-1))/2. * thetaStep
integ(i) = integ(i-1) + area(i)
enddo
c Normiere totale Flaeche auf 1:
rHelp = integ(nBin)
do i = 1, nBin
value(i) = value(i) / rHelp
area(i) = area(i) / rHelp
integ(i) = integ(i) / rHelp
enddo
c vorerst noch: gib Tabelle in Datei und Histogrammfile aus:
! Berechne die Werte fuer theta=0:
call F_Functions_Meyer(tau,0.,f1,f2)
F = Meyer_faktor5 * Ekin*Ekin * (f1 - Meyer_faktor3*f2)
fValues(1) = F
fValuesFolded(1) = 0.
! Gib die Werte in das Tabellenfile aus:
c theta = 0.
c open (10,file=outDir//':'//filename//'.TAB',status='NEW')
c do i = 1, nBin+1
c write(10,*) theta, fValues(i), fValuesFolded(i)
c theta = theta + thetaStep
c enddo
c close (10)
! Buchen und Fuellen der Histogramme:
call HBOOK1(idh,'F',nBin+1,-0.5*thetaStep,(real(nBin)+0.5)*thetaStep,0.)
call HPAK(idh,fValues)
call HRPUT(idh,outDir//':'//filename//'.RZ','N')
call HDELET(idh)
call HBOOK1(idh+1,'F*sin([q])',nBin+1,-0.5*thetaStep,(real(nBin)+0.5)*thetaStep,0.)
call HPAK(idh+1,fValuesFolded)
call HRPUT(idh+1,outDir//':'//filename//'.RZ','U')
call HDELET(idh+1)
END
c===============================================================================
options /extend_source
subroutine throwMeyerAngle (theta)
c ==================================
implicit none
real lowerbound,y1,y2,f,root,radiant,fraction
integer bin,nBin
integer nBinMax
parameter (nBinMax=201)
real theta,thetaStep
real value(0:nBinMax) /0.,nBinMax*0./
real area(nBinMax) / nBinMax*0./
real integ(0:nBinMax) /0.,nBinMax*0./
common /MeyerTable/ value,area,integ,thetaStep,nBin
real rhelp
real random
integer seed
common /seed/ seed
c bin: Nummer des Bins, innerhalb dessen das Integral den Wert von
c random erreicht oder ueberschreitet:
random = ran(seed)
bin = 1
do while (random.GT.integ(bin))
bin = bin + 1
if (bin.GT.nBin) then
write(*,*) 'error 1'
call exit
endif
enddo
fraction = (random-integ(bin-1)) / (integ(bin)-integ(bin-1))
y1 = value(bin-1)
y2 = value(bin)
f = thetaStep / (y2-y1)
rHelp = y1*f
radiant = rHelp*rHelp + fraction*thetaStep*(y1+y2)*f
root = SQRT(radiant)
lowerBound = real(bin-1)*thetaStep
if (f.GT.0) then
theta = lowerBound - rHelp + root
else
theta = lowerBound - rHelp - root
endif
END
c===============================================================================
options /extend_source
subroutine F_Functions_Meyer(tau,thetaSchlange,f1,f2)
c =====================================================
implicit none
c Diese Routine gibt in Abhaengigkeit von 'thetaSchlange' und 'tau'
c Funktionswerte fuer f1 und f2 zurueck. f1 und f2 entsprechen dabei den
c bei Meyer angegebenen Funktion gleichen Namens. Die in dieser Routine
c verwendeten Tabellen sind eben dieser Referenz entnommen:
c L.Meyer, phys.stat.sol. (b) 44, 253 (1971)
real tau,thetaSchlange
real f1, f2, f1_(2), f2_(2)
integer column_,column,row
integer iColumn
real weightCol, weightRow
c-------------------------------------------------------------------------------
c die Tabellendaten der Referenz (Tabellen 2 und 3):
integer nColumn
parameter (nColumn = 25)
real tau_(nColumn) /
+ 0.2, 0.4, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.5, 3.0,
+ 3.5, 4.0, 4.5, 5.0, 6.0, 7.0, 8.0, 10., 12., 14., 16., 18., 20. /
integer nRowA
parameter (nRowA = 25)
real thetaSchlangeA(nRowA) /
+ .00, .05, .10, .15, .20, .25, .30, .35, .40, .45, .50, .60,
+ .70, .80, .90, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.5, 3.0, 3.5, 4.0 /
integer nRowB
parameter (nRowB = 24)
real thetaSchlangeB(nRowB) /
+ 0.0, 0.2, 0.4, 0.5, 0.6, 0.8, 1.0, 1.2, 1.4, 1.5, 1.6, 1.8,
+ 2.0, 2.2, 2.4, 2.6, 2.8, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0, 7.0 /
integer nRowC
parameter (nRowC = 24)
real thetaSchlangeC(nRowC) /
+ 0.0, 0.5, 1.0, 1.5, 2.0, 2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0,
+ 7.0, 8.0, 9.0, 10., 11., 12., 13., 14., 15., 16., 18., 20. /
real f1_A(9,nRowA)
+ /1.69E+2,4.55E+1,2.11E+1,1.25E+1,8.48E+0,6.21E+0,4.80E+0,3.86E+0,3.20E+0,
+ 9.82E+1,3.72E+1,1.97E+1,1.20E+1,8.27E+0,6.11E+0,4.74E+0,3.83E+0,3.17E+0,
+ 3.96E+1,2.58E+1,1.65E+1,1.09E+1,7.73E+0,5.82E+0,4.58E+0,3.72E+0,3.10E+0,
+ 1.76E+1,1.58E+1,1.27E+1,9.26E+0,6.93E+0,5.38E+0,4.31E+0,3.55E+0,2.99E+0,
+ 8.62E+0,1.01E+1,9.45E+0,7.58E+0,6.02E+0,4.85E+0,3.98E+0,3.33E+0,2.84E+0,
+ 4.65E+0,6.55E+0,6.91E+0,6.06E+0,5.11E+0,4.28E+0,3.62E+0,3.08E+0,2.66E+0,
+ 2.74E+0,4.45E+0,5.03E+0,4.78E+0,4.27E+0,3.72E+0,3.23E+0,2.82E+0,2.47E+0,
+ 1.77E+0,3.02E+0,3.71E+0,3.76E+0,3.53E+0,3.20E+0,2.86E+0,2.55E+0,2.27E+0,
+ 1.22E+0,2.19E+0,2.78E+0,2.96E+0,2.91E+0,2.73E+0,2.51E+0,2.28E+0,2.07E+0,
+ 8.82E-1,1.59E+0,2.12E+0,2.35E+0,2.39E+0,2.32E+0,2.19E+0,2.03E+0,1.87E+0,
+ 6.55E-1,1.20E+0,1.64E+0,1.88E+0,1.97E+0,1.96E+0,1.90E+0,1.79E+0,1.68E+0,
+ 3.80E-1,7.15E-1,1.01E+0,1.22E+0,1.35E+0,1.40E+0,1.41E+0,1.39E+0,1.34E+0,
+ 2.26E-1,4.45E-1,6.44E-1,8.08E-1,9.28E-1,1.01E+0,1.05E+0,1.06E+0,1.05E+0,
+ 1.39E-1,2.80E-1,4.21E-1,5.45E-1,6.46E-1,7.22E-1,7.75E-1,8.07E-1,8.21E-1,
+ 8.22E-2,1.76E-1,2.78E-1,3.71E-1,4.53E-1,5.21E-1,5.74E-1,6.12E-1,6.37E-1,
+ 5.04E-2,1.11E-1,1.86E-1,2.57E-1,3.22E-1,3.79E-1,4.27E-1,4.65E-1,4.94E-1,
+ 2.51E-2,5.60E-2,9.24E-2,1.31E-1,1.69E-1,2.02E-1,2.40E-1,2.71E-1,2.97E-1,
+ 1.52E-2,3.20E-2,5.08E-2,7.23E-2,9.51E-2,1.18E-1,1.41E-1,1.63E-1,1.83E-1,
+ 1.03E-2,2.05E-2,3.22E-2,4.55E-2,6.01E-2,7.53E-2,9.02E-2,1.05E-1,1.19E-1,
+ 8.80E-3,1.48E-2,2.25E-2,3.13E-2,4.01E-2,5.03E-2,6.01E-2,7.01E-2,8.01E-2,
+ 6.10E-3,1.15E-2,1.71E-2,2.28E-2,2.89E-2,3.52E-2,4.18E-2,4.86E-2,5.55E-2,
+ 0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,1.71E-2,1.98E-2,2.28E-2,2.58E-2,
+ 0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,8.90E-3,1.02E-2,1.16E-2,1.31E-2,
+ 0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,4.90E-3,5.70E-3,6.40E-3,7.20E-3,
+ 0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,2.90E-3,3.40E-3,3.90E-3,4.30E-3/
real f1_B(9,nRowB)
+ /2.71E+0,1.92E+0,1.46E+0,1.16E+0,9.52E-1,8.03E-1,6.90E-1,5.32E-1,4.28E-1,
+ 2.45E+0,1.79E+0,1.39E+0,1.12E+0,9.23E-1,7.82E-1,6.75E-1,5.23E-1,4.23E-1,
+ 1.87E+0,1.48E+0,1.20E+0,9.96E-1,8.42E-1,7.24E-1,6.32E-1,4.98E-1,4.07E-1,
+ 1.56E+0,1.30E+0,1.09E+0,9.19E-1,7.89E-1,6.86E-1,6.03E-1,4.80E-1,3.95E-1,
+ 1.28E+0,1.11E+0,9.62E-1,8.33E-1,7.27E-1,6.40E-1,5.69E-1,4.59E-1,3.81E-1,
+ 8.23E-1,7.90E-1,7.29E-1,6.64E-1,6.01E-1,5.44E-1,4.94E-1,4.12E-1,3.49E-1,
+ 5.14E-1,5.36E-1,5.29E-1,5.07E-1,4.78E-1,4.47E-1,4.16E-1,3.60E-1,3.13E-1,
+ 3.19E-1,3.58E-1,3.76E-1,3.78E-1,3.70E-1,3.57E-1,3.45E-1,3.08E-1,2.76E-1,
+ 2.02E-1,2.40E-1,2.64E-1,2.77E-1,2.82E-1,2.80E-1,2.65E-1,2.59E-1,2.39E-1,
+ 1.67E-1,1.96E-1,2.20E-1,2.36E-1,2.44E-1,2.47E-1,2.45E-1,2.35E-1,2.21E-1,
+ 1.33E-1,1.61E-1,1.85E-1,2.02E-1,2.12E-1,2.18E-1,2.18E-1,2.14E-1,2.03E-1,
+ 8.99E-2,1.12E-1,1.32E-1,1.48E-1,1.59E-1,1.67E-1,1.68E-1,1.75E-1,1.72E-1,
+ 6.24E-2,7.94E-2,9.50E-2,1.09E-1,1.20E-1,1.29E-1,1.35E-1,1.42E-1,1.43E-1,
+ 4.55E-2,5.74E-2,6.98E-2,8.11E-2,9.09E-2,9.92E-2,1.06E-1,1.15E-1,1.19E-1,
+ 3.35E-2,4.22E-2,5.19E-2,6.11E-2,6.95E-2,7.69E-2,8.33E-2,9.28E-2,9.85E-2,
+ 2.50E-2,3.16E-2,3.92E-2,4.66E-2,5.35E-2,6.00E-2,6.57E-2,7.49E-2,8.13E-2,
+ 1.90E-2,2.40E-2,2.99E-2,3.58E-2,4.16E-2,4.70E-2,5.20E-2,6.05E-2,6.70E-2,
+ 1.47E-2,1.86E-2,2.32E-2,2.79E-2,3.25E-2,3.70E-2,4.12E-2,4.89E-2,5.51E-2,
+ 8.10E-3,1.04E-2,1.30E-2,1.57E-2,1.84E-2,2.12E-2,2.40E-2,2.93E-2,3.42E-2,
+ 4.80E-3,6.20E-3,7.70E-3,9.30E-3,1.09E-2,1.26E-2,1.44E-2,1.79E-2,2.14E-2,
+ 2.80E-3,3.80E-3,4.70E-3,5.70E-3,6.70E-3,7.50E-3,8.90E-3,1.13E-2,1.36E-2,
+ 1.70E-3,2.30E-3,2.90E-3,3.60E-3,4.20E-3,4.90E-3,5.60E-3,7.20E-3,8.80E-3,
+ 0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,2.00E-3,2.80E-3,3.50E-3,
+ 0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,0.00 ,8.80E-4,1.20E-3,1.60E-3/
real f1_C(7,nRowC)
+ /3.65E-1,2.62E-1,2.05E-1,1.67E-1,1.41E-1,1.21E-1,1.05E-1,
+ 3.33E-1,2.50E-1,1.95E-1,1.61E-1,1.36E-1,1.18E-1,1.03E-1,
+ 2.75E-1,2.18E-1,1.76E-1,1.48E-1,1.27E-1,1.11E-1,9.80E-2,
+ 2.04E-1,1.75E-1,1.50E-1,1.29E-1,1.13E-1,1.01E-1,9.00E-2,
+ 1.41E-1,1.31E-1,1.19E-1,1.08E-1,9.71E-2,8.88E-2,8.01E-2,
+ 9.32E-2,9.42E-2,9.10E-2,8.75E-2,8.00E-2,7.44E-2,6.91E-2,
+ 5.98E-2,6.52E-2,6.72E-2,6.62E-2,6.40E-2,6.12E-2,5.82E-2,
+ 3.83E-2,4.45E-2,4.80E-2,4.96E-2,4.98E-2,4.90E-2,4.77E-2,
+ 2.46E-2,3.01E-2,3.40E-2,3.65E-2,3.79E-2,3.84E-2,3.83E-2,
+ 1.59E-2,2.03E-2,2.39E-2,2.66E-2,2.85E-2,2.97E-2,3.04E-2,
+ 1.04E-2,1.37E-2,1.66E-2,1.92E-2,2.12E-2,2.27E-2,2.37E-2,
+ 4.39E-3,6.26E-3,8.26E-3,9.96E-3,1.15E-2,1.29E-2,1.41E-2,
+ 2.06E-3,3.02E-3,4.24E-3,5.28E-3,6.32E-3,7.32E-3,8.26E-3,
+ 1.21E-3,1.69E-3,2.24E-3,2.85E-3,3.50E-3,4.16E-3,4.82E-3,
+ 8.50E-4,1.10E-3,1.38E-3,1.65E-3,2.03E-3,2.45E-3,2.88E-3,
+ 5.90E-4,7.40E-4,8.50E-4,9.90E-4,1.23E-3,1.49E-3,1.71E-3,
+ 3.90E-4,4.60E-4,5.20E-4,6.30E-4,7.65E-4,9.65E-4,1.12E-3,
+ 2.40E-4,2.70E-4,3.10E-4,3.98E-4,4.97E-4,6.03E-4,7.18E-4,
+ 1.50E-4,1.70E-4,2.15E-4,2.70E-4,3.35E-4,4.35E-4,5.00E-4,
+ 1.00E-4,1.20E-4,1.46E-4,1.90E-4,2.40E-4,2.88E-4,3.43E-4,
+ 0.00 ,0.00 ,1.04E-4,1.41E-4,1.80E-4,2.10E-4,2.50E-4,
+ 0.00 ,0.00 ,8.20E-5,1.06E-4,1.38E-4,1.58E-4,1.85E-4,
+ 0.00 ,0.00 ,5.40E-5,7.00E-5,8.60E-5,1.03E-4,1.20E-4,
+ 0.00 ,0.00 ,4.20E-5,5.40E-5,6.50E-5,7.70E-5,8.80E-5/
real f2_A(9,nRowA)
+ / 3.52E+3, 3.27E+2, 9.08E+1, 3.85E+1, 2.00E+1, 1.18E+1, 7.55E+0, 5.16E+0, 3.71E+0,
+ 2.58E+2, 1.63E+2, 7.30E+1, 3.42E+1, 1.85E+1, 1.11E+1, 7.18E+0, 4.96E+0, 3.59E+0,
+ -1.12E+2, 4.84E+0, 3.56E+1, 2.34E+1, 1.45E+1, 9.33E+0, 6.37E+0, 4.51E+0, 3.32E+0,
+ -5.60E+1,-1.12E+1, 9.87E+0, 1.24E+1, 9.59E+0, 7.01E+0, 5.16E+0, 3.83E+0, 2.91E+0,
+ -2.13E+1,-1.22E+1,-2.23E+0, 3.88E+0, 5.15E+0, 4.65E+0, 3.87E+0, 3.12E+0, 2.45E+0,
+ -8.25E+0,-9.58E+0,-5.59E+0,-1.40E+0, 1.76E+0, 2.71E+0, 2.71E+0, 2.35E+0, 1.95E+0,
+ -3.22E+0,-6.12E+0,-5.28E+0,-2.87E+0,-1.92E-1, 1.32E+0, 1.69E+0, 1.74E+0, 1.48E+0,
+ -1.11E+0,-3.40E+0,-4.12E+0,-3.08E+0,-6.30E-1, 3.60E-1, 9.20E-1, 1.03E+0, 1.04E+0,
+ -2.27E-1,-2.00E+0,-2.93E+0,-2.69E+0,-1.48E+0,-3.14E-1, 2.69E-1, 5.28E-1, 6.09E-1,
+ 1.54E-1,-1.09E+0,-2.10E+0,-2.15E+0,-1.47E+0,-6.77E-1,-1.80E-1, 1.08E-1, 2.70E-1,
+ 3.28E-1,-6.30E-1,-1.50E+0,-1.68E+0,-1.34E+0,-8.43E-1,-4.60E-1,-1.85E-1,-4.67E-3,
+ 3.32E-1,-2.06E-1,-7.32E-1,-9.90E-1,-9.42E-1,-8.20E-1,-6.06E-1,-4.51E-1,-3.01E-1,
+ 2.72E-1,-3.34E-2,-3.49E-1,-5.65E-1,-6.03E-1,-5.79E-1,-5.05E-1,-4.31E-1,-3.45E-1,
+ 2.02E-1, 2.80E-2,-1.54E-1,-3.00E-1,-3.59E-1,-3.76E-1,-4.60E-1,-3.40E-1,-3.08E-1,
+ 1.38E-1, 4.84E-2,-5.56E-2,-1.44E-1,-2.04E-1,-2.39E-1,-2.54E-1,-2.49E-1,-2.48E-1,
+ 9.47E-2, 4.86E-2,-1.08E-2,-6.44E-2,-1.02E-1,-1.34E-1,-1.62E-1,-1.79E-1,-1.87E-1,
+ 5.33E-2, 3.71E-2, 1.85E-2, 1.63E-3,-1.69E-2,-3.69E-2,-5.66E-2,-7.78E-2,-9.33E-2,
+ 3.38E-2, 2.40E-2, 1.62E-2, 9.90E-3, 3.76E-3,-4.93E-3,-1.66E-2,-3.05E-2,-4.22E-2,
+ 2.12E-2, 1.56E-2, 1.05E-2, 7.80E-3, 7.92E-3, 6.30E-3, 3.20E-4,-8.50E-3,-1.66E-2,
+ 1.40E-2, 9.20E-3, 5.30E-3, 4.70E-3, 6.31E-3, 8.40E-3, 5.30E-3, 8.80E-4,-3.30E-3,
+ 9.20E-3, 4.70E-3, 1.70E-3, 2.60E-3, 4.49E-3, 6.60E-3, 6.00E-3, 4.70E-3, 2.80E-3,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 /
real f2_B(9,nRowB)
+ / 2.75E+0, 1.94E+0, 9.13E-1, 6.06E-1, 4.26E-1, 3.14E-1, 2.40E-1, 1.51E-1, 1.03E-1,
+ 1.94E+0, 1.16E+0, 7.56E-1, 5.26E-1, 3.81E-1, 2.87E-1, 2.23E-1, 1.43E-1, 9.78E-2,
+ 5.85E-1, 5.04E-1, 4.10E-1, 3.30E-1, 2.69E-1, 2.17E-1, 1.78E-1, 1.22E-1, 8.71E-2,
+ 7.83E-2, 2.00E-1, 2.35E-1, 2.19E-1, 1.97E-1, 1.73E-1, 1.48E-1, 1.08E-1, 7.93E-2,
+ -1.82E-1, 1.56E-2, 1.04E-1, 1.36E-1, 1.38E-1, 1.31E-1, 1.19E-1, 9.46E-2, 7.19E-2,
+ -2.71E-1,-1.66E-1,-7.29E-2,-4.74E-3, 3.60E-2, 5.50E-2, 6.28E-2, 5.98E-2, 5.09E-2,
+ -1.87E-1,-1.58E-1,-1.09E-1,-5.80E-2,-2.03E-2, 2.48E-3, 1.99E-2, 3.36E-2, 3.27E-2,
+ -1.01E-1,-1.05E-1,-8.95E-2,-6.63E-2,-3.93E-2,-2.38E-2,-9.22E-3, 8.47E-3, 1.52E-2,
+ -5.19E-2,-6.47E-2,-6.51E-2,-5.62E-2,-4.51E-2,-3.49E-2,-2.45E-2,-8.19E-3, 2.05E-3,
+ -3.68E-2,-4.89E-2,-5.36E-2,-5.06E-2,-4.27E-2,-3.65E-2,-2.80E-2,-1.33E-2,-3.47E-3,
+ -2.33E-2,-3.69E-2,-4.41E-2,-4.38E-2,-3.97E-2,-3.50E-2,-2.88E-2,-1.60E-2,-6.68E-3,
+ -8.76E-3,-2.07E-2,-2.90E-2,-3.17E-2,-3.09E-2,-2.92E-2,-2.63E-2,-1.79E-2,-1.03E-2,
+ -1.20E-3,-1.11E-2,-1.90E-2,-2.20E-2,-2.32E-2,-2.24E-2,-2.10E-2,-1.66E-2,-1.11E-2,
+ 1.72E-3,-4.82E-3,-1.02E-2,-1.42E-2,-1.65E-2,-1.66E-2,-1.60E-2,-1.39E-2,-1.09E-2,
+ 2.68E-3,-1.18E-3,-5.19E-3,-8.30E-5,-1.01E-2,-1.14E-2,-1.16E-2,-1.16E-2,-9.99E-3,
+ 2.81E-3, 8.21E-4,-1.96E-3,-3.99E-3,-5.89E-3,-7.13E-3,-8.15E-3,-9.05E-3,-8.60E-3,
+ 2.61E-3, 1.35E-3,-2.99E-4,-1.79E-3,-3.12E-3,-4.44E-3,-5.61E-3,-7.01E-3,-7.27E-3,
+ 2.06E-3, 1.45E-3, 4.64E-4,-5.97E-4,-1.71E-3,-2.79E-3,-3.84E-3,-5.29E-3,-5.90E-3,
+ 1.07E-3, 9.39E-4, 8.22E-4, 3.58E-4,-1.15E-4,-6.60E-4,-1.18E-3,-2.15E-3,-2.88E-3,
+ 4.97E-4, 5.46E-4, 6.15E-4, 5.56E-4, 3.14E-4, 9.80E-5,-1.30E-4,-5.98E-4,-1.07E-4,
+ 1.85E-4, 3.11E-4, 4.25E-4, 4.08E-4, 3.63E-4, 3.04E-4, 2.24E-4, 2.80E-5,-2.10E-4,
+ 4.80E-5, 1.48E-4, 2.44E-4, 2.80E-4, 3.01E-4, 3.11E-4, 3.13E-4, 2.40E-4, 1.10E-4,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 1.39E-4, 1.80E-4, 1.80E-4,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 4.38E-5, 7.30E-5, 8.40E-5/
real f2_C(7,nRowC)
+ / 7.36E-2, 4.21E-2, 2.69E-2, 1.83E-2, 1.34E-2, 1.01E-2, 7.88E-3,
+ 5.79E-2, 3.61E-2, 2.34E-2, 1.64E-2, 1.21E-2, 9.26E-3, 7.28E-3,
+ 2.94E-2, 2.17E-2, 1.60E-2, 1.23E-2, 9.49E-3, 7.45E-3, 5.95E-3,
+ 2.30E-3, 7.07E-3, 7.76E-3, 7.02E-3, 6.13E-3, 5.17E-3, 4.34E-3,
+ -7.50E-3,-2.00E-3, 9.93E-4, 2.36E-3, 2.82E-3, 2.86E-3, 2.72E-3,
+ -8.27E-3,-5.37E-3,-2.58E-3,-7.96E-4, 3.75E-4, 9.71E-4, 1.28E-3,
+ -5.79E-3,-5.12E-3,-3.86E-3,-2.46E-3,-1.20E-3,-3.74E-4, 1.74E-4,
+ -3.26E-3,-3.43E-3,-3.26E-3,-2.68E-3,-1.84E-3,-1.12E-3,-4.54E-4,
+ -1.46E-3,-1.49E-3,-2.20E-3,-2.18E-3,-1.85E-3,-1.40E-3,-8.15E-4,
+ -4.29E-4,-9.44E-4,-1.29E-3,-1.50E-3,-1.51E-3,-1.36E-3,-9.57E-4,
+ -3.30E-5,-3.66E-4,-6.78E-4,-9.38E-4,-1.09E-3,-1.09E-3,-9.56E-4,
+ 1.50E-4, 3.10E-5,-1.38E-4,-3.06E-4,-4.67E-4,-5.48E-4,-6.08E-4,
+ 1.00E-4, 8.50E-5, 2.30E-5,-6.60E-5,-1.58E-4,-2.40E-4,-3.05E-4,
+ 5.40E-5, 6.50E-5, 4.90E-5, 1.20E-5,-3.60E-5,-8.90E-5,-1.31E-4,
+ 2.90E-5, 4.30E-5, 4.40E-5, 2.90E-5, 5.10E-6,-2.20E-5,-4.80E-5,
+ 1.40E-5, 2.40E-5, 2.80E-5, 2.60E-5, 1.90E-5, 7.50E-6,-1.10E-5,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 ,
+ 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 , 0.00 /
c===============================================================================
c Bestimme, welche Reihen der Tabellen fuer Interpolation benoetigt werden:
if (tau.LT.tau_(1)) then
write(*,*) 'tau is less than the lowest tabulated value:'
write(*,*) 'tau = ',tau
write(*,*) 'minimum = ',tau_(1)
call exit
elseif (tau.GT.tau_(nColumn)) then
write(*,*) 'tau is greater than the highest tabulated value:'
write(*,*) 'tau = ',tau
write(*,*) 'maximum = ',tau_(nColumn)
call exit
endif
column_ = 2
do while (tau.GT.tau_(column_))
column_ = column_ + 1
enddo
! Das Gewicht der Reihe zu groesserem Tau:
weightCol = (tau-tau_(column_-1)) / (tau_(column_)-tau_(column_-1))
c Besorge fuer gegebenes 'thetaSchlange' die interpolierten f1- und f2 -Werte
c der beiden relevanten Reihen:
c iColumn = 1 => Reihe mit hoeherem Index
c iColumn = 2 => Reihe mit kleinerem Index
iColumn = 1
5 continue
if (column_.LE.9) then ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! Werte aus 1. Tabelle: 0.2 <= tau <= 1.8
column = column_
if (thetaSchlange.LT.thetaSchlangeA(1)) then
write(*,*) 'thetaSchlange is less than the lowest tabulated value in table 1:'
write(*,*) 'thetaSchlange = ',thetaSchlange
write(*,*) 'minimum = ',thetaSchlangeA(1)
call exit
elseif (thetaSchlange.GT.thetaSchlangeA(nRowA)) then
c write(*,*) 'thetaSchlange is greater than the highest tabulated value in table 1:'
c write(*,*) 'thetaSchlange = ',thetaSchlange
c write(*,*) 'maximum = ',thetaSchlangeA(nRowA)
c call exit
thetaSchlange = -1.
RETURN
endif
row = 2
do while (thetaSchlange.GT.thetaSchlangeA(row))
row = row + 1
enddo
! Gewicht des Tabellenwertes zu groesseren ThetaSchlange:
weightRow = (thetaSchlange-thetaSchlangeA(row-1)) /
+ (thetaSchlangeA(row)-thetaSchlangeA(row-1))
f1_(iColumn) = (1.-weightRow) * f1_A(column,row-1) +
+ weightRow * f1_A(column,row)
f2_(iColumn) = (1.-weightRow) * f2_A(column,row-1) +
+ weightRow * f2_A(column,row)
elseif (column_.LE.18) then ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! Werte aus 2. Tabelle: 2.0 <= tau <= 7.0
column = column_ - 9
if (thetaSchlange.LT.thetaSchlangeB(1)) then
write(*,*) 'thetaSchlange is less than the lowest tabulated value in table 1:'
write(*,*) 'thetaSchlange = ',thetaSchlange
write(*,*) 'minimum = ',thetaSchlangeB(1)
call exit
elseif (thetaSchlange.GT.thetaSchlangeB(nRowB)) then
c write(*,*) 'thetaSchlange is greater than the highest tabulated value in table 1:'
c write(*,*) 'thetaSchlange = ',thetaSchlange
c write(*,*) 'maximum = ',thetaSchlangeB(nRowB)
c call exit
thetaSchlange = -1.
RETURN
endif
row = 2
do while (thetaSchlange.GT.thetaSchlangeB(row))
row = row + 1
enddo
! Gewicht des Tabellenwertes zu groesseren ThetaSchlange:
weightRow = (thetaSchlange-thetaSchlangeB(row-1)) /
+ (thetaSchlangeB(row)-thetaSchlangeB(row-1))
f1_(iColumn) = (1.-weightRow) * f1_B(column,row-1) +
+ weightRow * f1_B(column,row)
f2_(iColumn) = (1.-weightRow) * f2_B(column,row-1) +
+ weightRow * f2_B(column,row)
else ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! Werte aus 3. Tabelle: 8.0 <= tau <= 20.
column = column_ - 18
if (thetaSchlange.LT.thetaSchlangeC(1)) then
write(*,*) 'thetaSchlange is less than the lowest tabulated value in table 1:'
write(*,*) 'thetaSchlange = ',thetaSchlange
write(*,*) 'minimum = ',thetaSchlangeC(1)
call exit
elseif (thetaSchlange.GT.thetaSchlangeC(nRowC)) then
c write(*,*) 'thetaSchlange is greater than the highest tabulated value in table 1:'
c write(*,*) 'thetaSchlange = ',thetaSchlange
c write(*,*) 'maximum = ',thetaSchlangeC(nRowC)
c call exit
thetaSchlange = -1.
RETURN
endif
row = 2
do while (thetaSchlange.GT.thetaSchlangeC(row))
row = row + 1
enddo
! Gewicht des Tabellenwertes zu groesseren ThetaSchlange:
weightRow = (thetaSchlange-thetaSchlangeC(row-1)) /
+ (thetaSchlangeC(row)-thetaSchlangeC(row-1))
f1_(iColumn) = (1.-weightRow) * f1_C(column,row-1) +
+ weightRow * f1_C(column,row)
f2_(iColumn) = (1.-weightRow) * f2_C(column,row-1) +
+ weightRow * f2_C(column,row)
endif ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if (iColumn.EQ.1) then
column_ = column_ - 1
iColumn = 2
goto 5
endif
f1 = weightCol*f1_(1) + (1.-weightCol)*f1_(2)
f2 = weightCol*f2_(1) + (1.-weightCol)*f2_(2)
END
c===============================================================================
END PROGRAM mtest

5466
geant4/LEMuSR/MEYER/mutrack.for
View File

File diff suppressed because it is too large Load Diff

195
geant4/LEMuSR/MEYER/testmeyer.cc
View File

@ -1,195 +0,0 @@
#include<stdlib.h>
#include<iostream>
#include<sstream>
#include<ios>
#include<fstream>
#include <iomanip>
#include <fstream>
#include <iostream>
#include <stdlib.h>
#include<ios>
#include"meyer.h"
void GFunctions(double*,double*, const double tau);
meyer GET;
int main()
{
// DECLARATION OF MEYER's PARAMETERS
/* Meyer's p255: "We consider a beam of initially parallel particles
with mass m1 and atomic number Z1 which penetrates a material
layer of thickness t with N atoms per unit volume of mass m2 and
atomic number Z2. We assume that each scattering centre will be
effective according to the scattering cross section
dsigma/dŋ=a²f(ŋ)/ŋ² within a spherical volume of radius r0
*/
double a, a0, N; // screnqing parameter a
double Z1, Z2, D; // charges numbers Z
double epsilon, b; // reduced energy epsilon
double mass1, mass2; // masses of incident & target particles
double v; // velocity of incident particle
double eta, theta; // eta = epsilon*sin(theta/2), (theta, scatt. angle)
// cross section variable by Lindhard, Nielsen and Scharff
double eSquare = 1.44E-10; // squared electric charge of electron in keV*cm
double tau,thetaSchlange, thick;
double Energy;
std::cout<< "thickness? in µm/cm²" << std::endl;
std::cin>>thick;
thick=thick*1.0e-6/2;// density= 2g/cm³,
// we want the conversion of thick in centimeter!
std::cout<<"Enter energy in keV: ";
std::cin>>Energy;
// meyer's functions
double g1,g2;
double f1,f2;
// EXPRESSION OF MEYER's PARAMETERS
// The screening parameter
// (Z1 = 1, Z2 = 6, ScreeningPar = 2.5764E-9)
Z1 = 1; Z2 = 6;
a0=0.529e-8;//unit centimeter
D= exp(2/3*log(Z1))+exp(2/3*log(Z2));
a=0.885*a0/sqrt(D);//the screening parameter
// The reduced energy
mass1=1/9;
mass2=12;
// b= 2*Z1*Z2*eSquare*(mass1+mass2)/(mass1*mass2*v*v);
//b= Z1*Z2 * e²[keV*cm] * (m1+m2)/m2 * 1/Energy[keV]
b= Z1*Z2*eSquare*(mass1+mass2)/(mass2*Energy);
epsilon = a/b;
std::cout<<"\n€: "<<epsilon <<std::endl;
// The variable eta
eta= epsilon*sin(theta/2);
// Number of target per unit of volume
// N= density of cfoil/atomicmassofcarbon
// density= 2g/cm³
// C_atomic_mass= 12 g/mole
// N= 2/12*6.02e+23=1.0e+17
N=1.0e+23;
// The reduced thickness
//a*a ~ 2.7e-17
//thickness ~ 1.e-6
//tau ~ e+23*e-17*e-6 ~ unit order
tau = M_PI*a*a*N*thick;// whith the thickness in centimeter
std::cout<<"a "<<a<<std::endl;
std::cout<<"tau "<<tau<<std::endl;
/* std::cout<< "theta~? " << std::endl;
std::cin>>thetaSchlange;
GET.GFunctions(&g1,&g2,tau);
std::cout<< "g1("<<tau<<")= "<< g1 << std::endl;
std::cout<< "g2("<<tau<<")= "<< g2 << std::endl;
// thetaSchlange=0;
GET.F_Functions_Meyer( tau,thetaSchlange,&f1,&f2);
std::cout<< "f1("<<tau<<","<<thetaSchlange<<")= "<< f1 << std::endl;
std::cout<< "f2("<<tau<<","<<thetaSchlange<<")= "<< f2 << std::endl;
*/
GET.Get_F_Function_Meyer( tau, epsilon, Z1,Z2,mass1,mass2);
return 0;
}
void GFunctions(double* g1,double *g2, const double tau)// PROVIDE VALUES OF G1 and G2 in function of TAU
{
//Diese Routine gibt in Abhaengigkeit von der reduzierten Dicke 'tau'
//Funktionswerte fuer g1 und g2 zurueck. g1 und g2 sind dabei die von
//Meyer angegebenen tabellierten Funktionen fuer die Berechnung von Halbwerts-
//breiten von Streuwinkelverteilungen. (L.Meyer, phys.stat.sol. (b) 44, 253
//(1971))
double help;
int i;
double tau_[] = {0.2, 0.4, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0,
2.5, 3.0, 3.5, 4.0, 4.5, 5.0, 6.0, 7.0, 8.0, 9.0,
10.0, 12.0, 14.0, 16.0, 18.0, 20.0 };
double g1_[] = {0.050,0.115,0.183,0.245,0.305,0.363,0.419,0.473,0.525,0.575,
0.689,0.799,0.905,1.010,1.100,1.190,1.370,1.540,1.700,1.850,
1.990,2.270,2.540,2.800,3.050,3.290 };
double g2_[] = {0.00,1.25,0.91,0.79,0.73,0.69,0.65,0.63,0.61,0.59,
0.56,0.53,0.50,0.47,0.45,0.43,0.40,0.37,0.34,0.32,
0.30,0.26,0.22,0.18,0.15,0.13 };
if (tau<tau_[1])
{
std::cout<<"SUBROUTINE G_Functions:"<<std::endl;
std::cout<<" Fehler bei Berechnung der g-Funktionen fuer Winkelaufstreuung:"<<std::endl;
std::cout<<" aktuelles tau ist kleiner als kleinster Tabellenwert:"<<std::endl;
std::cout<<" tau = "<< tau<<std::endl;
std::cout<<" tau_(1) = "<< tau_[1]<<std::endl;
return;
}
i = 1;
do
{
i = i + 1;
if (i==27)
{
std::cout<<"SUBROUTINE G_Functions:"<<std::endl;
std::cout<<" Fehler bei Berechnung der g-Funktionen fuer Winkelaufstreuung:"<<std::endl;
std::cout<<" aktuelles tau ist groesser als groesster Tabellenwert:"<<std::endl;
std::cout<<" tau = "<< tau <<std::endl;
std::cout<<" tau_[26] = "<< tau_[26] <<std::endl;
break;
}
}while(tau>tau_[i]);
//lineare Interpolation zwischen Tabellenwerten:
help = (tau-tau_[i-1])/(tau_[i]-tau_[i-1]);
std::cout<<"help: "<<help<<std::endl;
*g1 = g1_[i-1] + help*(g1_[i]-g1_[i-1]);
*g2 = g2_[i-1] + help*(g2_[i]-g2_[i-1]);
std::cout<<"g1: "<<*g1<<std::endl;
std::cout<<"g2: "<<*g2<<std::endl;
}

730
geant4/LEMuSR/MEYER/testmeyer.eps
View File

@ -1,730 +0,0 @@
%!PS-Adobe-2.0
%%Title: testmeyer.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Mon Apr 11 19:32:51 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
574 280 M
6388 0 V
1.000 UL
LTb
574 280 M
63 0 V
6325 0 R
-63 0 V
490 280 M
( 0) Rshow
1.000 UL
LTa
574 739 M
6388 0 V
1.000 UL
LTb
574 739 M
63 0 V
6325 0 R
-63 0 V
490 739 M
( 0.1) Rshow
1.000 UL
LTa
574 1198 M
6388 0 V
1.000 UL
LTb
574 1198 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.2) Rshow
1.000 UL
LTa
574 1658 M
6388 0 V
1.000 UL
LTb
574 1658 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.3) Rshow
1.000 UL
LTa
574 2117 M
6388 0 V
1.000 UL
LTb
574 2117 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.4) Rshow
1.000 UL
LTa
574 2576 M
6388 0 V
1.000 UL
LTb
574 2576 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.5) Rshow
1.000 UL
LTa
574 3035 M
6388 0 V
1.000 UL
LTb
574 3035 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.6) Rshow
1.000 UL
LTa
574 3494 M
6388 0 V
1.000 UL
LTb
574 3494 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.7) Rshow
1.000 UL
LTa
574 3954 M
6388 0 V
1.000 UL
LTb
574 3954 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.8) Rshow
1.000 UL
LTa
574 4413 M
6388 0 V
1.000 UL
LTb
574 4413 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 0.9) Rshow
1.000 UL
LTa
574 4872 M
6388 0 V
1.000 UL
LTb
574 4872 M
63 0 V
6325 0 R
-63 0 V
-6409 0 R
( 1) Rshow
1.000 UL
LTa
574 280 M
0 4592 V
1.000 UL
LTb
574 280 M
0 63 V
0 4529 R
0 -63 V
574 140 M
( 0) Cshow
1.000 UL
LTa
1284 280 M
0 4592 V
1.000 UL
LTb
1284 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 5) Cshow
1.000 UL
LTa
1994 280 M
0 4592 V
1.000 UL
LTb
1994 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 10) Cshow
1.000 UL
LTa
2703 280 M
0 4592 V
1.000 UL
LTb
2703 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 15) Cshow
1.000 UL
LTa
3413 280 M
0 4592 V
1.000 UL
LTb
3413 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 20) Cshow
1.000 UL
LTa
4123 280 M
0 4592 V
1.000 UL
LTb
4123 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 25) Cshow
1.000 UL
LTa
4833 280 M
0 4249 V
0 280 R
0 63 V
1.000 UL
LTb
4833 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 30) Cshow
1.000 UL
LTa
5542 280 M
0 4249 V
0 280 R
0 63 V
1.000 UL
LTb
5542 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 35) Cshow
1.000 UL
LTa
6252 280 M
0 4249 V
0 280 R
0 63 V
1.000 UL
LTb
6252 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 40) Cshow
1.000 UL
LTa
6962 280 M
0 4592 V
1.000 UL
LTb
6962 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 45) Cshow
1.000 UL
LTb
574 280 M
6388 0 V
0 4592 V
-6388 0 V
574 280 L
1.000 UP
1.000 UL
LT0
6311 4739 M
('testmeyer.out' us 1:2) Rshow
645 4872 Pls
716 4842 Pls
787 4812 Pls
858 4782 Pls
929 4753 Pls
1000 4707 Pls
1071 4611 Pls
1142 4516 Pls
1213 4420 Pls
1284 4325 Pls
1355 4217 Pls
1426 4097 Pls
1497 3975 Pls
1568 3837 Pls
1639 3698 Pls
1710 3560 Pls
1781 3423 Pls
1852 3285 Pls
1923 3147 Pls
1994 3010 Pls
2065 2877 Pls
2136 2745 Pls
2206 2613 Pls
2277 2480 Pls
2348 2353 Pls
2419 2242 Pls
2490 2131 Pls
2561 2020 Pls
2632 1910 Pls
2703 1809 Pls
2774 1722 Pls
2845 1634 Pls
2916 1546 Pls
2987 1458 Pls
3058 1382 Pls
3129 1311 Pls
3200 1243 Pls
3271 1184 Pls
3342 1124 Pls
3413 1076 Pls
3484 1029 Pls
3555 982 Pls
3626 935 Pls
3697 890 Pls
3768 855 Pls
3839 821 Pls
3910 787 Pls
3981 753 Pls
4052 723 Pls
4123 698 Pls
4194 674 Pls
4265 649 Pls
4336 625 Pls
4407 605 Pls
4478 586 Pls
4549 568 Pls
4620 550 Pls
4691 532 Pls
4762 519 Pls
4833 507 Pls
4904 495 Pls
4975 483 Pls
5046 471 Pls
5117 461 Pls
5188 452 Pls
5259 442 Pls
5330 433 Pls
5400 425 Pls
5471 418 Pls
5542 411 Pls
5613 404 Pls
5684 397 Pls
5755 392 Pls
5826 388 Pls
5897 383 Pls
5968 379 Pls
6039 375 Pls
6110 371 Pls
6181 367 Pls
6252 362 Pls
6323 358 Pls
6394 354 Pls
6465 350 Pls
6536 345 Pls
6607 343 Pls
6678 340 Pls
6749 338 Pls
6820 336 Pls
6891 334 Pls
6962 332 Pls
6594 4739 Pls
1.000 UL
LT1
6311 4599 M
(exp\(-x*x/200.\)) Rshow
6395 4599 M
399 0 V
574 4872 M
65 -5 V
64 -14 V
65 -23 V
64 -33 V
65 -42 V
64 -51 V
65 -59 V
64 -67 V
65 -75 V
64 -82 V
65 -89 V
64 -95 V
65 -101 V
64 -106 V
65 -110 V
64 -115 V
65 -118 V
64 -121 V
65 -123 V
65 -125 V
64 -126 V
65 -127 V
64 -126 V
65 -126 V
64 -125 V
65 -124 V
64 -122 V
65 -119 V
64 -117 V
65 -114 V
64 -110 V
65 -108 V
64 -103 V
65 -100 V
64 -96 V
65 -91 V
64 -88 V
65 -83 V
64 -79 V
65 -75 V
65 -70 V
64 -67 V
65 -62 V
64 -59 V
65 -54 V
64 -51 V
65 -47 V
64 -44 V
65 -41 V
64 -37 V
65 -34 V
64 -32 V
65 -29 V
64 -26 V
65 -24 V
64 -22 V
65 -20 V
64 -18 V
65 -16 V
65 -15 V
64 -13 V
65 -11 V
64 -11 V
65 -9 V
64 -9 V
65 -7 V
64 -7 V
65 -5 V
64 -5 V
65 -5 V
64 -4 V
65 -3 V
64 -3 V
65 -3 V
64 -2 V
65 -2 V
64 -2 V
65 -1 V
64 -2 V
65 -1 V
65 -1 V
64 -1 V
65 0 V
64 -1 V
65 0 V
64 -1 V
65 0 V
64 0 V
65 -1 V
64 0 V
65 0 V
64 0 V
65 0 V
64 -1 V
65 0 V
64 0 V
65 0 V
64 0 V
65 0 V
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

168
geant4/LEMuSR/MEYER/testmeyer.out
View File

@ -1,168 +0,0 @@
0.25 1 0
0.5 0.992913 0.0225723
0.75 0.985827 0.0448219
1 0.97874 0.0667484
1.25 0.971653 0.0883516
1.5 0.964567 0.109631
1.75 0.95748 0.130586
2 0.950393 0.151216
2.25 0.943307 0.171522
2.5 0.93622 0.191502
2.75 0.929133 0.211157
3 0.922047 0.230486
3.25 0.914747 0.24943
3.5 0.901904 0.266401
3.75 0.88906 0.282784
4 0.876217 0.298578
4.25 0.863373 0.313784
4.5 0.85053 0.328402
4.75 0.837686 0.34243
5 0.824843 0.355871
5.25 0.811999 0.368722
5.5 0.799156 0.380985
5.75 0.786313 0.392659
6 0.773469 0.403744
6.25 0.760398 0.414117
6.5 0.744472 0.422272
6.75 0.728546 0.429698
7 0.71262 0.436397
7.25 0.696695 0.442369
7.5 0.680769 0.447613
7.75 0.664843 0.452131
8 0.648917 0.455922
8.25 0.632991 0.458987
8.5 0.617066 0.461327
8.75 0.60114 0.46294
9 0.585214 0.463829
9.25 0.569446 0.464122
9.5 0.554942 0.464757
9.75 0.540438 0.464732
10 0.525934 0.464048
10.25 0.51143 0.462705
10.5 0.496926 0.460704
10.75 0.482422 0.458045
11 0.467918 0.454729
11.25 0.453414 0.450756
11.5 0.438911 0.446128
11.75 0.424407 0.440844
12 0.409903 0.434906
12.25 0.395826 0.428777
12.5 0.384215 0.424738
12.75 0.372603 0.420176
13 0.360992 0.41509
13.25 0.349381 0.409482
13.5 0.337769 0.403351
13.75 0.326158 0.396699
14 0.314547 0.389526
14.25 0.302935 0.381832
14.5 0.291324 0.37362
14.75 0.279713 0.364888
15 0.268101 0.355638
15.25 0.257257 0.346906
15.5 0.2498 0.342331
15.75 0.242342 0.337423
16 0.234884 0.332182
16.25 0.227427 0.326608
16.5 0.219969 0.320703
16.75 0.212512 0.314465
17 0.205054 0.307896
17.25 0.197597 0.300997
17.5 0.190139 0.293768
17.75 0.182681 0.286209
18 0.175224 0.278322
18.25 0.168288 0.270946
18.5 0.163185 0.266255
18.75 0.158081 0.261339
19 0.152978 0.256198
19.25 0.147875 0.250832
19.5 0.142771 0.245242
19.75 0.137668 0.239428
20 0.132565 0.233391
20.25 0.127461 0.227131
20.5 0.122358 0.220649
20.75 0.117254 0.213945
21 0.112151 0.20702
21.25 0.107525 0.200765
21.5 0.104268 0.196895
21.75 0.101012 0.192883
22 0.0977547 0.18873
22.25 0.0944979 0.184436
22.5 0.0912411 0.180001
22.75 0.0879843 0.175425
23 0.0847275 0.17071
23.25 0.0814706 0.165854
23.5 0.0782138 0.160859
23.75 0.074957 0.155725
24 0.0717002 0.150453
24.25 0.0687955 0.145788
24.5 0.0667302 0.142796
24.75 0.0646649 0.139715
25 0.0625997 0.136547
25.25 0.0605344 0.13329
25.5 0.0584691 0.129946
25.75 0.0564039 0.126515
26 0.0543386 0.122996
26.25 0.0522733 0.11939
26.5 0.0502081 0.115698
26.75 0.0481428 0.11192
27 0.0460775 0.108055
27.25 0.044267 0.104707
27.5 0.0429681 0.102504
27.75 0.0416691 0.100246
28 0.0403702 0.0979343
28.25 0.0390712 0.0955684
28.5 0.0377723 0.0931484
28.75 0.0364734 0.0906747
29 0.0351744 0.0881474
29.25 0.0338755 0.0855666
29.5 0.0325765 0.0829325
29.75 0.0312776 0.0802453
30 0.0299787 0.0775052
30.25 0.0288986 0.0752825
30.5 0.0281921 0.0739965
30.75 0.0274857 0.0726814
31 0.0267793 0.0713373
31.25 0.0260729 0.0699641
31.5 0.0253664 0.0685622
31.75 0.02466 0.0671314
32 0.0239536 0.065672
32.25 0.0232471 0.064184
32.5 0.0225407 0.0626676
32.75 0.0218343 0.0611228
33 0.0211279 0.0595497
33.25 0.0204214 0.0579485
33.5 0.019715 0.0563193
33.75 0.0190086 0.0546621
34 0.0183021 0.0529771
34.25 0.0175957 0.0512644
34.5 0.0168893 0.0495241
34.75 0.0161829 0.0477563
35 0.0154764 0.0459611
35.25 0.01477 0.0441387
35.5 0.0140636 0.0422891
35.75 0.0133571 0.0404124
36 0.0126507 0.0385089
36.25 0.0121367 0.0371678
36.5 0.0118644 0.0365518
36.75 0.0115921 0.0359251
37 0.0113198 0.0352878
37.25 0.0110475 0.0346398
37.5 0.0107752 0.0339814
37.75 0.0105029 0.0333124
38 0.0102307 0.032633
38.25 0.00995837 0.0319431
38.5 0.00968607 0.0312429
38.75 0.00941378 0.0305324
39 0.00914149 0.0298116
39.25 0.0088692 0.0290806
39.5 0.0085969 0.0283394
39.75 0.00832461 0.0275881
40 0.00805232 0.0268267
40.25 0.00778003 0.0260553
40.5 0.00750774 0.0252739
40.75 0.00723544 0.0244826
41 0.00696315 0.0236814
41.25 0.00669086 0.0228703
41.5 0.00641857 0.0220495
41.75 0.00614628 0.021219
42 0.00587398 0.0203787

BIN
geant4/LEMuSR/MEYER/testmeyer.pdf
View File

Binary file not shown.

703
geant4/LEMuSR/MEYER/testmeyer2.eps
View File

@ -1,703 +0,0 @@
%!PS-Adobe-2.0
%%Title: testmeyer2.eps
%%Creator: gnuplot 3.7 patchlevel 3
%%CreationDate: Mon Apr 11 15:40:40 2005
%%DocumentFonts: (atend)
%%BoundingBox: 50 50 554 770
%%Orientation: Landscape
%%Pages: (atend)
%%EndComments
/gnudict 256 dict def
gnudict begin
/Color true def
/Solid false def
/gnulinewidth 5.000 def
/userlinewidth gnulinewidth def
/vshift -46 def
/dl {10 mul} def
/hpt_ 31.5 def
/vpt_ 31.5 def
/hpt hpt_ def
/vpt vpt_ def
/M {moveto} bind def
/L {lineto} bind def
/R {rmoveto} bind def
/V {rlineto} bind def
/vpt2 vpt 2 mul def
/hpt2 hpt 2 mul def
/Lshow { currentpoint stroke M
0 vshift R show } def
/Rshow { currentpoint stroke M
dup stringwidth pop neg vshift R show } def
/Cshow { currentpoint stroke M
dup stringwidth pop -2 div vshift R show } def
/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
/hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
{pop pop pop Solid {pop []} if 0 setdash} ifelse } def
/BL { stroke userlinewidth 2 mul setlinewidth } def
/AL { stroke userlinewidth 2 div setlinewidth } def
/UL { dup gnulinewidth mul /userlinewidth exch def
dup 1 lt {pop 1} if 10 mul /udl exch def } def
/PL { stroke userlinewidth setlinewidth } def
/LTb { BL [] 0 0 0 DL } def
/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
/LT0 { PL [] 1 0 0 DL } def
/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
/Pnt { stroke [] 0 setdash
gsave 1 setlinecap M 0 0 V stroke grestore } def
/Dia { stroke [] 0 setdash 2 copy vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke
Pnt } def
/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
currentpoint stroke M
hpt neg vpt neg R hpt2 0 V stroke
} def
/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke
Pnt } def
/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
hpt2 vpt2 neg V currentpoint stroke M
hpt2 neg 0 R hpt2 vpt2 V stroke } def
/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke
Pnt } def
/Star { 2 copy Pls Crs } def
/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath fill } def
/TriUF { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath fill } def
/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke
Pnt } def
/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath fill} def
/DiaF { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath fill } def
/Pent { stroke [] 0 setdash 2 copy gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore Pnt } def
/PentF { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath fill grestore } def
/Circle { stroke [] 0 setdash 2 copy
hpt 0 360 arc stroke Pnt } def
/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
/C1 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
vpt 0 360 arc closepath } bind def
/C2 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C3 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C4 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C5 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc
2 copy moveto
2 copy vpt 180 270 arc closepath fill
vpt 0 360 arc } bind def
/C6 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C7 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 270 arc closepath fill
vpt 0 360 arc closepath } bind def
/C8 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C9 { BL [] 0 setdash 2 copy moveto
2 copy vpt 270 450 arc closepath fill
vpt 0 360 arc closepath } bind def
/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
2 copy moveto
2 copy vpt 90 180 arc closepath fill
vpt 0 360 arc closepath } bind def
/C11 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 180 arc closepath fill
2 copy moveto
2 copy vpt 270 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C12 { BL [] 0 setdash 2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C13 { BL [] 0 setdash 2 copy moveto
2 copy vpt 0 90 arc closepath fill
2 copy moveto
2 copy vpt 180 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/C14 { BL [] 0 setdash 2 copy moveto
2 copy vpt 90 360 arc closepath fill
vpt 0 360 arc } bind def
/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
vpt 0 360 arc closepath } bind def
/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
neg 0 rlineto closepath } bind def
/Square { dup Rec } bind def
/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
2 copy vpt Square fill
Bsquare } bind def
/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
Bsquare } bind def
/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
Bsquare } bind def
/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy vpt Square fill Bsquare } bind def
/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
/DiaE { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V closepath stroke } def
/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V closepath stroke } def
/TriUE { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V closepath stroke } def
/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V closepath stroke } def
/PentE { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
closepath stroke grestore } def
/CircE { stroke [] 0 setdash
hpt 0 360 arc stroke } def
/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
/DiaW { stroke [] 0 setdash vpt add M
hpt neg vpt neg V hpt vpt neg V
hpt vpt V hpt neg vpt V Opaque stroke } def
/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
0 vpt2 neg V hpt2 0 V 0 vpt2 V
hpt2 neg 0 V Opaque stroke } def
/TriUW { stroke [] 0 setdash vpt 1.12 mul add M
hpt neg vpt -1.62 mul V
hpt 2 mul 0 V
hpt neg vpt 1.62 mul V Opaque stroke } def
/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
hpt neg vpt 1.62 mul V
hpt 2 mul 0 V
hpt neg vpt -1.62 mul V Opaque stroke } def
/PentW { stroke [] 0 setdash gsave
translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
Opaque stroke grestore } def
/CircW { stroke [] 0 setdash
hpt 0 360 arc Opaque stroke } def
/BoxFill { gsave Rec 1 setgray fill grestore } def
/Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
currentdict end definefont pop
end
%%EndProlog
%%Page: 1 1
gnudict begin
gsave
50 50 translate
0.100 0.100 scale
90 rotate
0 -5040 translate
0 setgray
newpath
(Helvetica) findfont 140 scalefont setfont
1.000 UL
LTb
1.000 UL
LTa
490 280 M
6472 0 V
1.000 UL
LTb
490 280 M
63 0 V
6409 0 R
-63 0 V
406 280 M
(-5) Rshow
1.000 UL
LTa
490 1045 M
6472 0 V
1.000 UL
LTb
490 1045 M
63 0 V
6409 0 R
-63 0 V
-6493 0 R
( 0) Rshow
1.000 UL
LTa
490 1811 M
6472 0 V
1.000 UL
LTb
490 1811 M
63 0 V
6409 0 R
-63 0 V
-6493 0 R
( 5) Rshow
1.000 UL
LTa
490 2576 M
6472 0 V
1.000 UL
LTb
490 2576 M
63 0 V
6409 0 R
-63 0 V
-6493 0 R
( 10) Rshow
1.000 UL
LTa
490 3341 M
6472 0 V
1.000 UL
LTb
490 3341 M
63 0 V
6409 0 R
-63 0 V
-6493 0 R
( 15) Rshow
1.000 UL
LTa
490 4107 M
6472 0 V
1.000 UL
LTb
490 4107 M
63 0 V
6409 0 R
-63 0 V
-6493 0 R
( 20) Rshow
1.000 UL
LTa
490 4872 M
6472 0 V
1.000 UL
LTb
490 4872 M
63 0 V
6409 0 R
-63 0 V
-6493 0 R
( 25) Rshow
1.000 UL
LTa
490 280 M
0 4592 V
1.000 UL
LTb
490 280 M
0 63 V
0 4529 R
0 -63 V
490 140 M
( 0) Cshow
1.000 UL
LTa
1299 280 M
0 4592 V
1.000 UL
LTb
1299 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 1) Cshow
1.000 UL
LTa
2108 280 M
0 4592 V
1.000 UL
LTb
2108 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 2) Cshow
1.000 UL
LTa
2917 280 M
0 4592 V
1.000 UL
LTb
2917 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 3) Cshow
1.000 UL
LTa
3726 280 M
0 4592 V
1.000 UL
LTb
3726 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 4) Cshow
1.000 UL
LTa
4535 280 M
0 4249 V
0 280 R
0 63 V
1.000 UL
LTb
4535 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 5) Cshow
1.000 UL
LTa
5344 280 M
0 4249 V
0 280 R
0 63 V
1.000 UL
LTb
5344 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 6) Cshow
1.000 UL
LTa
6153 280 M
0 4249 V
0 280 R
0 63 V
1.000 UL
LTb
6153 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 7) Cshow
1.000 UL
LTa
6962 280 M
0 4592 V
1.000 UL
LTb
6962 280 M
0 63 V
0 4529 R
0 -63 V
0 -4669 R
( 8) Cshow
1.000 UL
LTb
490 280 M
6472 0 V
0 4592 V
-6472 0 V
490 280 L
1.000 UP
1.000 UL
LT0
6311 4739 M
('testmeyer.out' us 1:3) Rshow
541 1045 Pls
591 1624 Pls
642 2186 Pls
692 2715 Pls
743 3186 Pls
793 3596 Pls
844 3932 Pls
895 4180 Pls
945 4352 Pls
996 4445 Pls
1046 4475 Pls
1097 4447 Pls
1147 4374 Pls
1198 4268 Pls
1248 4126 Pls
1299 3965 Pls
1350 3804 Pls
1400 3635 Pls
1451 3436 Pls
1501 3255 Pls
1552 3090 Pls
1602 2908 Pls
1653 2740 Pls
1704 2590 Pls
1754 2431 Pls
1805 2286 Pls
1855 2166 Pls
1906 2043 Pls
1956 1929 Pls
2007 1836 Pls
2057 1743 Pls
2108 1657 Pls
2159 1595 Pls
2209 1533 Pls
2260 1472 Pls
2310 1412 Pls
2361 1355 Pls
2411 1303 Pls
2462 1271 Pls
2513 1241 Pls
2563 1211 Pls
2614 1184 Pls
2664 1158 Pls
2715 1135 Pls
2765 1119 Pls
2816 1104 Pls
2866 1090 Pls
2917 1077 Pls
2968 1066 Pls
3018 1056 Pls
3069 1047 Pls
3119 1040 Pls
3170 1034 Pls
3220 1028 Pls
3271 1023 Pls
3322 1020 Pls
3372 1016 Pls
3423 1013 Pls
3473 1011 Pls
3524 1009 Pls
3574 1008 Pls
3625 1007 Pls
3675 1006 Pls
3726 1005 Pls
3777 1004 Pls
3827 1003 Pls
3878 1003 Pls
3928 1003 Pls
3979 1003 Pls
4029 1004 Pls
4080 1005 Pls
4131 1006 Pls
4181 1007 Pls
4232 1009 Pls
4282 1010 Pls
4333 1012 Pls
4383 1014 Pls
4434 1016 Pls
4484 1017 Pls
4535 1019 Pls
4586 1020 Pls
4636 1021 Pls
4687 1023 Pls
4737 1024 Pls
4788 1026 Pls
4838 1027 Pls
4889 1029 Pls
4940 1030 Pls
4990 1032 Pls
5041 1033 Pls
5091 1035 Pls
5142 1036 Pls
5192 1037 Pls
5243 1039 Pls
5293 1040 Pls
5344 1041 Pls
5395 1042 Pls
5445 1042 Pls
5496 1043 Pls
5546 1044 Pls
5597 1045 Pls
5647 1046 Pls
5698 1046 Pls
5749 1047 Pls
5799 1047 Pls
5850 1048 Pls
5900 1048 Pls
5951 1049 Pls
6001 1049 Pls
6052 1049 Pls
6102 1050 Pls
6153 1050 Pls
6204 1050 Pls
6254 1050 Pls
6305 1051 Pls
6355 1051 Pls
6406 1051 Pls
6456 1051 Pls
6507 1051 Pls
6558 1051 Pls
6608 1051 Pls
6659 1051 Pls
6709 1050 Pls
6594 4739 Pls
1.000 UL
LT1
6311 4599 M
(sin\(x\)*exp\(-x*x/1.\)*56) Rshow
6395 4599 M
399 0 V
490 1045 M
65 688 V
66 656 V
65 597 V
65 512 V
66 410 V
65 295 V
66 179 V
65 63 V
65 -42 V
66 -132 V
65 -206 V
65 -259 V
66 -294 V
65 -310 V
66 -310 V
65 -298 V
65 -275 V
66 -247 V
65 -216 V
65 -182 V
66 -151 V
65 -122 V
66 -96 V
65 -74 V
65 -55 V
66 -41 V
65 -30 V
65 -20 V
66 -14 V
65 -10 V
66 -6 V
65 -4 V
65 -2 V
66 -2 V
65 -1 V
65 0 V
66 0 V
65 -1 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
66 0 V
65 0 V
65 0 V
66 0 V
65 0 V
stroke
grestore
end
showpage
%%Trailer
%%DocumentFonts: Helvetica
%%Pages: 1

BIN
geant4/LEMuSR/MEYER/testmeyer2.pdf
View File

Binary file not shown.

168
geant4/LEMuSR/MEYER/tkm.out
View File

@ -1,168 +0,0 @@
0.125 1 0
0.25 0.99446 0.11462
0.375 0.98892 0.227963
0.5 0.98338 0.340027
0.625 0.97784 0.450813
0.75 0.97009 0.559046
0.875 0.954263 0.659905
1 0.938436 0.757112
1.125 0.922609 0.850668
1.25 0.906782 0.940572
1.375 0.888828 1.02437
1.5 0.86805 1.10045
1.625 0.847094 1.17149
1.75 0.821486 1.23072
1.875 0.795879 1.28405
2 0.769708 1.3305
2.125 0.743225 1.37033
2.25 0.716743 1.40406
2.375 0.690261 1.43169
2.5 0.663779 1.4532
2.625 0.636879 1.46765
2.75 0.609912 1.47574
2.875 0.582944 1.4776
3 0.555976 1.47325
3.125 0.529194 1.46319
3.25 0.50473 1.45364
3.375 0.480266 1.43846
3.5 0.455803 1.41763
3.625 0.431339 1.39117
3.75 0.408111 1.3632
3.875 0.387928 1.34041
4 0.367745 1.31296
4.125 0.347561 1.28086
4.25 0.327378 1.24412
4.375 0.308453 1.20766
4.5 0.29077 1.17184
4.625 0.27339 1.13321
4.75 0.258448 1.10097
4.875 0.243505 1.06529
5 0.230337 1.03414
5.125 0.217864 1.00316
5.25 0.205391 0.969306
5.375 0.192919 0.932588
5.5 0.180446 0.893002
5.625 0.171018 0.865965
5.75 0.161808 0.837893
5.875 0.152598 0.807704
6 0.143389 0.7754
6.125 0.134521 0.742867
6.25 0.127624 0.71941
6.375 0.120728 0.694369
6.5 0.113832 0.667745
6.625 0.106935 0.639537
6.75 0.100686 0.613696
6.875 0.0955769 0.593493
7 0.0904673 0.572119
7.125 0.0853578 0.549572
7.25 0.0802482 0.525853
7.375 0.0758915 0.505983
7.5 0.0720861 0.488852
7.625 0.0682807 0.47085
7.75 0.0644753 0.451975
7.875 0.0606698 0.432229
8 0.0576442 0.417255
8.125 0.0548232 0.403094
8.25 0.0520023 0.388287
8.375 0.0491813 0.372835
8.5 0.046365 0.356773
8.625 0.0442261 0.345356
8.75 0.0420871 0.33345
8.875 0.0399482 0.321055
9 0.0378092 0.308171
9.125 0.0358519 0.2963
9.25 0.0345323 0.289324
9.375 0.0332127 0.282047
9.5 0.0318931 0.274469
9.625 0.0305735 0.266588
9.75 0.0292539 0.258407
9.875 0.0279343 0.249925
10 0.0266147 0.241141
10.125 0.0252951 0.232057
10.25 0.0239756 0.222672
10.375 0.022656 0.212986
10.5 0.0213364 0.203
10.625 0.0201776 0.194263
10.75 0.01948 0.189754
10.875 0.0187824 0.185086
11 0.0180849 0.180259
11.125 0.0173873 0.175274
11.25 0.0166897 0.17013
11.375 0.0159921 0.164827
11.5 0.0152945 0.159366
11.625 0.0145969 0.153746
11.75 0.0138993 0.147968
11.875 0.0132018 0.142032
12 0.0125042 0.135938
12.125 0.0118979 0.130688
12.25 0.0115092 0.127716
12.375 0.0111205 0.124656
12.5 0.0107319 0.121507
12.625 0.0103432 0.118271
12.75 0.00995451 0.114946
12.875 0.00956583 0.111534
13 0.00917716 0.108034
13.125 0.00878848 0.104445
13.25 0.00839981 0.100769
13.375 0.00801114 0.0970055
13.5 0.00762246 0.093154
13.625 0.0072864 0.0898638
13.75 0.00705598 0.0878127
13.875 0.00682557 0.0857095
14 0.00659516 0.0835544
14.125 0.00636474 0.0813473
14.25 0.00613433 0.0790882
14.375 0.00590392 0.0767773
14.5 0.0056735 0.0744145
14.625 0.00544309 0.0719999
14.75 0.00521268 0.0695336
14.875 0.00498226 0.0670155
15 0.00475185 0.0644458
15.125 0.00453543 0.0620157
15.25 0.0043429 0.0598664
15.375 0.00415037 0.0576741
15.5 0.00395783 0.0554386
15.625 0.0037653 0.0531601
15.75 0.00357277 0.0508385
15.875 0.00338024 0.048474
16 0.00318771 0.0460665
16.125 0.00299517 0.0436161
16.25 0.00280264 0.0411229
16.375 0.00261011 0.0385868
16.5 0.00241758 0.0360079
16.625 0.00222505 0.0333863
16.75 0.00203251 0.0307219
16.875 0.00183998 0.0280149
17 0.00164745 0.0252652
17.125 0.00145492 0.022473
17.25 0.00126239 0.0196382
17.375 0.00106985 0.0167609
17.5 0.000877323 0.0138411
17.625 0.000684791 0.0108789
17.75 0.000492259 0.00787437
17.875 0.000299727 0.00482747
18 0.000107195 0.00173827
18.125 0 0
18.25 0 0
18.375 0 0
18.5 0 0
18.625 0 0
18.75 0 0
18.875 0 0
19 0 0
19.125 0 0
19.25 0 0
19.375 0 0
19.5 0 0
19.625 0 0
19.75 0 0
19.875 0 0
20 0 0
20.125 0 0
20.25 0 0
20.375 0 0
20.5 0 0
20.625 0 0
20.75 0 0
20.875 0 0
21 0 0

1156
geant4/LEMuSR/MEYER/txt.for
View File

File diff suppressed because it is too large Load Diff