(* Two Histograms, of PE ratio and PB ratio *)

newgraph
border

xaxis
   size 2.5
   min -19 max 229.79

yaxis
   size 2.5
   min 0 max 100

newcurve
   marktype xbar marksize 12.44   (* marksize == binwidth *)
   gray 0 fill 1
   linetype none
   pts
      shell : gawk '{printf("%f %f\n", ($1+$3)/2.0, 100*$5)}' histdata.pe

(* Arrow to Arvind Mills *)
newcurve
   marktype none
   rarrow
   linetype solid linethickness 2.0
   pts
      100 20
      48.46 0.5

newstring x 101 y 21 : Arvind Mills
newstring hjc x 105 y 75 fontsize 14 : P/E


copygraph
x_translate +3
(* Histogram of PB ratio *)

xaxis
   min -0.73 max 22
yaxis
   no_draw_hash_marks
   no_draw_axis_label
   no_draw_hash_labels

newcurve
   marktype xbar marksize 1.136501   (* marksize == binwidth *)
   gray 0 fill 1
   linetype none
   pts
      shell : gawk '{printf("%f %f\n", ($1+$3)/2.0, 100*$5)}' histdata.pb

(* Arrow to Arvind Mills *)
newcurve
   marktype none
   rarrow
   linetype solid linethickness 2.0
   pts
      10 20
      7.32 0.5

newstring x 11 y 21 : Arvind Mills
newstring hjc x 10.63 y 75 fontsize 14 : P/BV