1 set plot histo 2 set format brief 3 clear 4 clear alpha 5 file in prov.30m 6 find 7 get f 8 modify source TOTO 9 set unit v c 10 method hfs hfs-n2hp.lin 11 minimize 12 set viewport 0.2 0.9 0.4 0.8 13 set mode x 0 30 14 box n o i p 15 spec 16 title 17 pen /c 0 /w 2 /das 2 18 visualize /pen 19 pen /def 20 display 1.5 21 set viewport 0.2 0.9 0.2 0.4 22 box p o i n /unit v upper 23 residual 24 spectr 25 define real rms 26 compute rms RMS ry 27 greg1\draw test 1 -0.5 "\gs = "'nint(rms*100)/100.'" K" 6 0 /box 7