!--------------------------------------------------------------------------- ! ! Control file for generating the two pane sistribution plot of a dataset ! from results of running the program AC on ! ! 1/ an output file from ASFIT (produced with its hardcopy ! option 2) ! ! 2/ an output file from PIFORM being a reformatted .FIT file ! from SPFIT ! ! 3/ a .RES file generated from ERHAM ouput using the ERHRES ! program ! ! Primary customisation options are identified by an "Edit..." header, ! usually it is just necessary to modify the values of maxj and maxk ! ! ! Zbigniew Kisiel, version 2.III.2007 !--------------------------------------------------------------------------- ! size 29.5 21 set lwidth 0.025 set join round horsiz=16 versiz=18 horpos=1 verpos=4 !------------------------------------------------------------------------------- ! Edit marker properties as necessary !------------------------------------------------------------------------------- ! ! rcol$ - xolour for plotting R-types ! qcol$ - colour for plotting Q-types ! pcol$ - colour for plotting P-types ! ecol$ - colour for plotting all transition types with o-c>3*sigma ! ! mmmm - basic marker size ! llll - marker linewidth ! !------------------------------------------------------------------------------- ecol$="red" rcol$="black" qcol$="black" pcol$="magenta" mmmm=0.15 llll=0.05 !------------------------------------------------------------------------------- ! RGB definition of colour (but works only for Gle4) !------------------------------------------------------------------------------- ! ! pcol$="cvtrgb(255/255,0/255,255/255)" !------------------------------------------------------------------------------- ! Alternative to the internal 'cross' marker - this one ! keeps constant linewidth consistent with that of the circle marker ! and follows the same scaling law as the circles !------------------------------------------------------------------------------- sub forzcr size mdata set cap round set lwidth llll sizem=0.5*size rmove -0.5*sizem 0.5*sizem rline 1.0*sizem -1.0*sizem rmove -1.0*sizem 0.0*sizem rline 1.0*sizem 1.0*sizem end sub define marker zcross forzcr !------------------------------------------------------------------------------- ! Edit the quantum number range below as necessary !------------------------------------------------------------------------------- maxj=95 mink=-0.5 maxk=23.5 !------------------------------------------------------------------------------- ! Edit the major and minor ticks as necessary !------------------------------------------------------------------------------- xbtick=5 xstick=1 ybtick=10 ystick=5 !/////////////////////////////////////////////////////////////////////////////// ! Plot of R-types and P-types !/////////////////////////////////////////////////////////////////////////////// amove horpos verpos begin graph nobox size horsiz versiz xaxis min mink max maxk dticks xbtick dsubticks xstick lwidth 0.04 xlabels off yaxis min 0.0 max maxj dticks ybtick dsubticks ystick lwidth 0.04 ylabels off let d8 = x from 0 to 300 step 1 d8 lstyle 1 end graph begin graph nobox size horsiz versiz xaxis min mink max maxk dticks xbtick dsubticks xstick lwidth 0.04 xticks length 0.3 xsubticks length 0.15 xlabels hei 0.6 font texcmr xtitle "\it K_{{\tt-}{\rm1}}^{\prime\prime}" dist 0.5 hei 0.9 yaxis min 0.0 max maxj dticks ybtick dsubticks ystick lwidth 0.04 yticks length 0.3 ysubticks length 0.15 ylabels hei 0.6 font texcmr ytitle "\it J^{\,\prime\prime}" dist 0.5 hei 0.9 data ac_1.out d10=c6,c5 data ac_2.out d9=c6,c5 data ac_3.out d8=c6,c5 data ac_4.out d7=c6,c5 data ac_5.out d6=c6,c5 data ac_6.out d5=c6,c5 data ac_7.out d4=c6,c5 d10 marker wcircle msize 1*mmmm color rcol$ lwidth llll d9 marker wcircle msize 2*mmmm color rcol$ lwidth llll d8 marker wcircle msize 3*mmmm color rcol$ lwidth llll d7 marker wcircle msize 4*mmmm color ecol$ lwidth llll d6 marker wcircle msize 5*mmmm color ecol$ lwidth llll d5 marker wcircle msize 6*mmmm color ecol$ lwidth llll d4 marker wcircle msize 7*mmmm color ecol$ lwidth llll let d11 = x from 0 to 300 step 1 d11 lstyle 1 color grey10 lwidth 0.07 data ac_1p.out d20=c6,c5 data ac_2p.out d19=c6,c5 data ac_3p.out d18=c6,c5 data ac_4p.out d17=c6,c5 data ac_5p.out d16=c6,c5 data ac_6p.out d15=c6,c5 data ac_7p.out d14=c6,c5 d20 marker cross msize sqrt(1)*mmmm*2 color pcol$ lwidth llll d19 marker cross msize sqrt(2)*mmmm*2 color pcol$ lwidth llll d18 marker cross msize sqrt(3)*mmmm*2 color pcol$ lwidth llll d17 marker cross msize sqrt(4)*mmmm*2 color ecol$ lwidth llll d16 marker cross msize sqrt(5)*mmmm*2 color ecol$ lwidth llll d15 marker cross msize sqrt(6)*mmmm*2 color ecol$ lwidth llll d14 marker cross msize sqrt(7)*mmmm*2 color ecol$ lwidth llll ! d20 marker zcross msize 1*mmmm color pcol$ ! d19 marker zcross msize 2*mmmm color pcol$ ! d18 marker zcross msize 3*mmmm color pcol$ ! d17 marker zcross msize 4*mmmm color ecol$ ! d16 marker zcross msize 5*mmmm color ecol$ ! d15 marker zcross msize 6*mmmm color ecol$ ! d14 marker zcross msize 7*mmmm color ecol$ end graph !/////////////////////////////////////////////////////////////////////////////// ! Plot of Q-types !/////////////////////////////////////////////////////////////////////////////// amove horpos+0.7*horsiz verpos begin graph nobox size horsiz versiz xaxis min mink max maxk dticks xbtick dsubticks xstick lwidth 0.04 xlabels off yaxis min 0.0 max maxj dticks ybtick dsubticks ystick lwidth 0.04 ylabels off let d8 = x from 0 to 300 step 1 d8 lstyle 1 end graph begin graph nobox size horsiz versiz xaxis min mink max maxk dticks xbtick dsubticks xstick lwidth 0.04 xticks length 0.3 xsubticks length 0.15 xlabels hei 0.6 font texcmr xtitle "\it K_{{\tt-}{\rm1}}^{\prime\prime}" dist 0.5 hei 0.9 yaxis min 0.0 max maxj dticks ybtick dsubticks ystick lwidth 0.04 yticks length 0.3 ysubticks length 0.15 ylabels off y2labels hei 0.6 font texcmr on ! ytitle "\it J^{\,\prime\prime}" dist 0.5 hei 0.9 data ac_1q.out d10=c6,c5 data ac_2q.out d9=c6,c5 data ac_3q.out d8=c6,c5 data ac_4q.out d7=c6,c5 data ac_5q.out d6=c6,c5 data ac_6q.out d5=c6,c5 data ac_7q.out d4=c6,c5 d10 marker wcircle msize 1*mmmm color qcol$ lwidth llll d9 marker wcircle msize 2*mmmm color qcol$ lwidth llll d8 marker wcircle msize 3*mmmm color qcol$ lwidth llll d7 marker wcircle msize 4*mmmm color ecol$ lwidth llll d6 marker wcircle msize 5*mmmm color ecol$ lwidth llll d5 marker wcircle msize 6*mmmm color ecol$ lwidth llll d4 marker wcircle msize 7*mmmm color ecol$ lwidth llll let d11 = x from 0 to 300 step 1 d11 lstyle 1 color grey10 lwidth 0.07 end graph ! !--------------------------------------------------------------------------- set hei 1.0 amove 11.7 18.1 text \it R-, P- amove 23.9 18.1 text \it Q- !------------------------------------------------------------------------------- !-------------------------------------------------------------------------------