diff options
| author | Thomas White <taw@physics.org> | 2010-04-22 11:54:49 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2010-04-22 11:54:49 +0200 |
| commit | 58b5fc14165a3ad7404b27c6fc12ccae1a275c3c (patch) | |
| tree | 21fa8edacb78981c1fef642c891c84d8912f914a /scripts | |
| parent | ddcc0ca70fc946f0070ea7fc58cf97960c52d028 (diff) | |
frequency: Better plotting
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/frequency | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/frequency b/scripts/frequency index 0b2feb56..26e29bb4 100755 --- a/scripts/frequency +++ b/scripts/frequency @@ -100,6 +100,8 @@ while ( $line = <FH> ) { open(GP, "| gnuplot"); printf(GP "set term postscript enhanced font \"Helvetica,20\"\n"); printf(GP "set output \"histo.ps\"\n"); +printf(GP "set xtics nomirror out rotate by -60\n"); +#printf(GP "set logscale x\n"); foreach $ref ( sort {-($counts{$a} <=> $counts{$b})} keys %counts ) { my $max = $maxs{$ref}; @@ -153,7 +155,7 @@ foreach $ref ( sort {-($counts{$a} <=> $counts{$b})} keys %counts ) my $nref = $ref; $nref =~ s/\,/\ /g; my $title = "t \"".$nref." reflection\""; - printf(GP "plot \"".$ref.".dat\" u 1:2 w histeps ".$title."\n"); + printf(GP "plot [] [0:20]\"".$ref.".dat\" u 1:2 w histeps ".$title."\n"); } |