| 1 | macro run que=513-2-asd |
|---|
| 2 | * Start the G4PhotoNuclearCrossSectionTest (Is geant4/bin in the PATH? Did you rehash?) |
|---|
| 3 | shell G4PhotoNuclearCrossSectionTest |
|---|
| 4 | pi/del * |
|---|
| 5 | * pln=4 - portret, pln=5 - landscape |
|---|
| 6 | pln = 4 |
|---|
| 7 | * npx - subdivision of the screan in X direction, npy - in Y direction |
|---|
| 8 | npx=2 |
|---|
| 9 | npy=3 |
|---|
| 10 | * define the range of the assembling pictures in memory |
|---|
| 11 | first=1 |
|---|
| 12 | last=6 |
|---|
| 13 | * define the file name for the output |
|---|
| 14 | for/fil 99 photonuclear.ps |
|---|
| 15 | * define the metafile type to assemble the pictures |
|---|
| 16 | ***************meta -99 -[npx][npy][pln] |
|---|
| 17 | meta 99 -112 |
|---|
| 18 | **** zone 2 2 |
|---|
| 19 | zone 2 2 |
|---|
| 20 | * TITLE NAME NTH NEX XMIN XMAX YMIN YMAX XTXT YTXT |
|---|
| 21 | exec phot e+^1!H(1GeV) h1_epl 100 326 0. 1.e3 1. 1.e7 5.e2 4.e5 |
|---|
| 22 | exec phot e+^1!H(10TeV) h1_eph 100 310 0. 1.e7 1. 1.e7 5.e6 4.e5 |
|---|
| 23 | exec phot e+Al(1GeV) cu_epl 100 396 0. 1.e3 1. 1.e7 5.e2 4.e5 |
|---|
| 24 | exec phot e+Al(10GeV) cu_eph 100 303 0. 1.e4 1. 1.e7 5.e3 4.e5 |
|---|
| 25 | print: |
|---|
| 26 | meta 0 |
|---|
| 27 | for/clo 99 |
|---|
| 28 | mess '*** PhotoNucl.kumac is printing photonuclear.ps file on: '//[que] |
|---|
| 29 | shell xprint -h -P [que] photonuclear.ps |
|---|
| 30 | return |
|---|
| 31 | |
|---|
| 32 | macro phot targ=^12!C file=h1 nth=227 nex=326 xmin=1 _ |
|---|
| 33 | xmax=4.e7 ymin=0.03 ymax=700 xt=8. yt=10. |
|---|
| 34 | * |
|---|
| 35 | ****** dir = ./ |
|---|
| 36 | hi/del * |
|---|
| 37 | ve/del * |
|---|
| 38 | ve/cr de(999) R 999*0. |
|---|
| 39 | ***** clr |
|---|
| 40 | ***** opt zfl |
|---|
| 41 | ***** swi gz |
|---|
| 42 | opt utit |
|---|
| 43 | * Switch to high quality picture |
|---|
| 44 | gr/opt ndat |
|---|
| 45 | gr/set pass 5 |
|---|
| 46 | igset lwid 5. |
|---|
| 47 | gr/set bwid 5. |
|---|
| 48 | gr/set fwid 3. |
|---|
| 49 | gr/set hwid 3. |
|---|
| 50 | gr/set pwid 5. |
|---|
| 51 | * |
|---|
| 52 | title 'E?[g]! (MeV)' u |
|---|
| 53 | title 'Energy distribution of the interacting effective photons' |
|---|
| 54 | opt date |
|---|
| 55 | ** opt logx |
|---|
| 56 | opt linx |
|---|
| 57 | opt logy |
|---|
| 58 | *** opt liny |
|---|
| 59 | null [xmin] [xmax] [ymin] [ymax] |
|---|
| 60 | * Switch to standard quality picture |
|---|
| 61 | * set pass 1 |
|---|
| 62 | * igset lwid 1. |
|---|
| 63 | * set bwid 1. |
|---|
| 64 | * set fwid 1. |
|---|
| 65 | * set hwid 1. |
|---|
| 66 | * |
|---|
| 67 | ****atitle ' ' '[s]?abs! (mb)' |
|---|
| 68 | title ' ' u |
|---|
| 69 | ****title ' ' |
|---|
| 70 | set dmod 3 |
|---|
| 71 | igset MTYP 20 |
|---|
| 72 | SET TXFP -20 |
|---|
| 73 | SET LTYP 1 |
|---|
| 74 | * ve/re eg,ex,er [file].dat |
|---|
| 75 | * igset PMCI 1 |
|---|
| 76 | * igset PLCI 1 |
|---|
| 77 | * gra/hp/errors eg ex de er [nex] 20 .1 1 |
|---|
| 78 | SET CHHE .5 |
|---|
| 79 | igset txci 1 |
|---|
| 80 | itx [xt] [yt] [targ] |
|---|
| 81 | ve/re e,ap [file].out |
|---|
| 82 | igset PLCI 1 |
|---|
| 83 | igset LWID 1 |
|---|
| 84 | gra/prim/graph [nth] e ap C |
|---|
| 85 | igset LWID 1 |
|---|
| 86 | return |
|---|
| 87 | |
|---|
| 88 | |
|---|
| 89 | |
|---|
| 90 | |
|---|
| 91 | |
|---|
| 92 | |
|---|
