Root/
| 1 | #!/usr/bin/perl |
| 2 | while (<>) { |
| 3 | chop; |
| 4 | push @a, $_; |
| 5 | } |
| 6 | #print "set term x11 size 500, 1000\n"; |
| 7 | print "set term png lw 2 font \"Sans, 8\" size 500, 1000\n"; |
| 8 | #print "set size 0.5, 1\n"; |
| 9 | print "set logscale y\n"; |
| 10 | print "set xrange [-0.5:4]\n"; |
| 11 | print "set yrange [0.95:11]\n"; |
| 12 | print "set ytics (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)\n"; |
| 13 | print "unset xtics\n"; |
| 14 | print "set title \"BEN NANONOTE MMC BUS CLOCK SPEEDS\"". |
| 15 | " font \"Helvetica, 10\"\n"; |
| 16 | $x = 0; |
| 17 | for $b (10000, 100000, 1000000, 10000000) { |
| 18 | print "set arrow from $x, 1 to $x, 10 nohead lw 0\n"; |
| 19 | if ($b >= 1e6) { |
| 20 | $si = "M"; |
| 21 | $div = 1e6; |
| 22 | } elsif ($b >= 1e3) { |
| 23 | $si = "k"; |
| 24 | $div = 1e3; |
| 25 | } else { |
| 26 | $si = ""; |
| 27 | $div = 1; |
| 28 | } |
| 29 | print "set label \"${si}Hz\" at $x, 10.6 center\n"; |
| 30 | print "set arrow from $x-0.2, 10.3 to $x+0.2, 10.3 nohead\n"; |
| 31 | for (@a) { |
| 32 | next if $_ < $b || $_ >= $b*10; |
| 33 | $y = $_/$b; |
| 34 | print "set arrow from $x-0.1, $y to $x+0.1, $y nohead\n"; |
| 35 | print "set label \"".sprintf("%g", $_/$div). |
| 36 | "\" at $x+0.2, $y\n"; |
| 37 | } |
| 38 | $x++; |
| 39 | } |
| 40 | print "plot 0 notitle\n"; |
| 41 |
Branches:
master
