MACRO viewrc * visualizes a reconstruction's quality GRAPHICS/MISC/CLR SET '*' OPTION '*' SET YGTI 1.22 SET YHTI 0.67 OPTION DATE OPTION ZFL1 dir1 = '//LUN1' READ dir1 'Enter hbook-dir' IF $VEXIST(param) = 0 THEN VEC/CRE param(99) ENDIF HISTOGRAM/GET_VECT/CONTENTS [dir1]//'/1' param IF param(3) = 0 THEN ZONE 2 2 ELSE SET YSIZE 30 ZONE 2 3 ENDIF plottitle = 'G?en!"J#' plottitle = '' IF param(3) = 0 THEN plottitle = [plottitle]//' no field:' ENDIF num = $EVAL(param(1)) plottitle = [plottitle]//'Q^2!='//[num] plottext = 'QQ='//[num] IF param(2) <> 0 THEN num = $EVAL(param(2)) plottitle = [plottitle]//' [q]='//[num]//'^o!]' plottext = [plottext]//' theta='//[num]//'deg' ENDIF IF param(6) = 0 THEN num = $EVAL(param(7)) plottitle = [plottitle]//' x='//[num]//'cm' plottext = [plottext]//' x='//[num]//'cm' ELSE num1 = $EVAL(param(7)) num2 = $EVAL(param(8)) plottitle = [plottitle]//' x='//[num1]//'..'//[num2]//'cm' plottext = [plottext]//' x='//[num1]//'..'//[num2]//'cm' ENDIF IF param(9) = 0 THEN num = $EVAL(param(10)) plottitle = [plottitle]//' y='//[num]//'cm' plottext = [plottext]//' y='//[num]//'cm' ELSE num1 = $EVAL(param(10)) num2 = $EVAL(param(11)) plottitle = [plottitle]//' y='//[num1]//'..'//[num2]//'cm' plottext = [plottext]//' y='//[num1]//'..'//[num2]//'cm' ENDIF IF param(2) <> 0 THEN IF param(12) = 0 THEN num = $EVAL(param(13)) plottitle = [plottitle]//' z='//[num]//'cm' plottext = [plottext]//' z='//[num]//'cm' ELSE num1 = $EVAL(param(13)) num2 = $EVAL(param(14)) plottitle = [plottitle]//' z='//[num1]//'..'//[num2]//'cm' plottext = [plottext]//' z='//[num1]//'..'//[num2]//'cm' ENDIF ENDIF IF param(18) = 0 THEN num = $EVAL(param(19)) plottitle = [plottitle]//' [d]='//[num]//'"Y#' plottext = [plottext]//' delta='//[num]//'%' ELSE num1 = $EVAL(param(19)) num2 = $EVAL(param(20)) plottitle = [plottitle]//' [d]='//[num1]//'..'//[num2]//'"Y#' plottext = [plottext]//' delta='//[num1]//'..'//[num2]//'%' ENDIF READ ext 'Enter add. title ('//[plottext]//')' TITLE [plottitle]//' '//[ext] NTUPLE/PLOT [dir1]//'/30.delta0-delta1' NTUPLE/PLOT [dir1]//'/30.dx0dz-dx1dz' NTUPLE/PLOT [dir1]//'/30.y0-y1' NTUPLE/PLOT [dir1]//'/30.dy0dz-dy1dz' IF param(3) <> 0 THEN NTUPLE/PLOT [dir1]//'/30.x0-x1' NTUPLE/PLOT [dir1]//'/30.z0-z1' ENDIF PICTURE/PRINT paw1.ps READ conf 'Press CR (1= Ok to all)' NTUPLE/PLOT [dir1]//'/30.delta0%delta0-delta1' NTUPLE/PLOT [dir1]//'/30.dx0dz%delta0-delta1' NTUPLE/PLOT [dir1]//'/30.y0%delta0-delta1' NTUPLE/PLOT [dir1]//'/30.dy0dz%delta0-delta1' IF param(3) <> 0 THEN NTUPLE/PLOT [dir1]//'/30.x0%delta0-delta1' NTUPLE/PLOT [dir1]//'/30.z0%delta0-delta1' ENDIF PICTURE/PRINT paw2.ps IF [conf]<>1 THEN READ conf 'Press CR (1= Ok to all)' ENDIF NTUPLE/PLOT [dir1]//'/30.delta0%dx0dz-dx1dz' NTUPLE/PLOT [dir1]//'/30.dx0dz%dx0dz-dx1dz' NTUPLE/PLOT [dir1]//'/30.y0%dx0dz-dx1dz' NTUPLE/PLOT [dir1]//'/30.dy0dz%dx0dz-dx1dz' IF param(3)<>0 THEN NTUPLE/PLOT [dir1]//'/30.x0%dx0dz-dx1dz' NTUPLE/PLOT [dir1]//'/30.z0%dx0dz-dx1dz' ENDIF PICTURE/PRINT paw3.ps IF [conf]<>1 THEN READ conf 'Press CR (1= Ok to all)' ENDIF NTUPLE/PLOT [dir1]//'/30.delta0%y0-y1' NTUPLE/PLOT [dir1]//'/30.dx0dz%y0-y1' NTUPLE/PLOT [dir1]//'/30.y0%y0-y1' NTUPLE/PLOT [dir1]//'/30.dy0dz%y0-y1' IF param(3)<>0 THEN NTUPLE/PLOT [dir1]//'/30.x0%y0-y1' NTUPLE/PLOT [dir1]//'/30.z0%y0-y1' ENDIF PICTURE/PRINT paw4.ps IF [conf]<>1 THEN READ conf 'Press CR (1= Ok to all)' ENDIF NTUPLE/PLOT [dir1]//'/30.delta0%dy0dz-dy1dz' NTUPLE/PLOT [dir1]//'/30.dx0dz%dy0dz-dy1dz' NTUPLE/PLOT [dir1]//'/30.y0%dy0dz-dy1dz' NTUPLE/PLOT [dir1]//'/30.dy0dz%dy0dz-dy1dz' IF param(3)<>0 THEN NTUPLE/PLOT [dir1]//'/30.x0%dy0dz-dy1dz' NTUPLE/PLOT [dir1]//'/30.z0%dy0dz-dy1dz' PICTURE/PRINT paw5.ps IF [conf]<>1 THEN READ conf 'Press CR (1= Ok to all)' ENDIF NTUPLE/PLOT [dir1]//'/30.delta0%x0-x1' NTUPLE/PLOT [dir1]//'/30.dx0dz%x0-x1' NTUPLE/PLOT [dir1]//'/30.y0%x0-x1' NTUPLE/PLOT [dir1]//'/30.dy0dz%x0-x1' NTUPLE/PLOT [dir1]//'/30.x0%x0-x1' NTUPLE/PLOT [dir1]//'/30.z0%x0-x1' PICTURE/PRINT paw6.ps IF [conf]<>1 THEN READ conf 'Press CR (1= Ok to all)' ENDIF NTUPLE/PLOT [dir1]//'/30.delta0%z0-z1' NTUPLE/PLOT [dir1]//'/30.dx0dz%z0-z1' NTUPLE/PLOT [dir1]//'/30.y0%z0-z1' NTUPLE/PLOT [dir1]//'/30.dy0dz%z0-z1' NTUPLE/PLOT [dir1]//'/30.x0%z0-z1' NTUPLE/PLOT [dir1]//'/30.z0%z0-z1' PICTURE/PRINT paw7.ps ELSE PICTURE/PRINT paw5.ps IF param(6)<>0 THEN IF [conf]<>1 THEN READ conf 'Press CR (1= Ok to all)' ENDIF NTUPLE/PLOT [dir1]//'/30.x0%delta0-delta1' NTUPLE/PLOT [dir1]//'/30.x0%dx0dz-dx1dz' NTUPLE/PLOT [dir1]//'/30.x0%y0-y1' NTUPLE/PLOT [dir1]//'/30.x0%dy0dz-dy1dz' PICTURE/PRINT paw6.ps ENDIF ENDIF RETURN