通讯编程

开发平台：

Visual C++

gnuplot.pl：源码内容

							$file = '';
sub plotPreamble {
    my($OUT, $title, $xlabel, $xrange, $ylabel, $yrange) = @_;
#    if (! defined($ENV{'DISPLAY'})) {
#	print $OUT 'set terminal dumb', "n";
#	print $OUT 'set output "/dev/null"', "n";
#    }
    $file = $title;
    print $OUT "set title  '$title'   n";
    print $OUT "set xlabel '$xlabel'  n";
    print $OUT "set ylabel '$ylabel'  n";
    print $OUT "set xrange [$xrange]  n"	if ($xrange);
    print $OUT "set yrange [$yrange]  n"	if ($yrange);
}
$plotcmd = 'plot';
sub plot {
    my($OUT, $append, $file, $ins, @vals) = @_;
    if ($#vals >= $[) {
	open(DOUT, ($append ? ">>$file" : ">$file"));
	print DOUT @vals;
	close(DOUT);
	print $OUT "$plotcmd '$file' $insn";
	$plotcmd = 'replot';
    }
}
$labelid = '000';
sub setLabel {
    my($OUT, $tag, $label, $x, $y, $pos) = @_;
    print $OUT "set label ${labelid}$tag '$label' at $x, $y $posn";
    ++$labelid;
}
sub setArrow {
    my($OUT, $tag, $x1, $y1, $x2, $y2) = @_;
    print $OUT "set arrow ${labelid}$tag from $x1, $y1 to $x2, $y2n";
    ++$labelid;
}
$ffirst = 0;
sub plotFails {
    my($OUT, $minY, $maxY, $tag, @vals) = @_;
    if ($#vals >= $[) {
	my($range, $start, $tick1, $tick2, @nvals);
	$range = $maxY - $minY;
	$start = $maxY - $range * 0.1;
	$tick1 = $maxY - $range * 0.2;
	$tick2 = $maxY - $range * 0.22;
	foreach $i (@vals) {
	    push(@nvals, "$i $minYn", "$i $maxYn");
	    setArrow($OUT, $tag, $i, $start, $i, $tick1);
	    setArrow($OUT, $tag, $i, $start, $i, $tick2);
	    setLabel($OUT, $tag, "<$tag>",  $i - 0.11, $tick2, 'right');
	}
	plot($OUT, $ffirst, 'link-fails', 'w impulse', @nvals);
	$ffirst = 1;
    }
}
$rfirst = 0;
sub plotRecov {
    my($OUT, $minY, $maxY, $tag, @vals) = @_;
    if ($#vals >= $[) {
	my($range, $start, $tick1, $tick2, @nvals);
	$range = $maxY - $minY;
	$start = $maxY - $range * 0.3;
	$tick1 = $maxY - $range * 0.1;
	$tick2 = $maxY - $range * 0.12;
	foreach $i (@vals) {
	    push(@nvals, "$i $minYn", "$i $maxYn");
	    setArrow($OUT, $tag, $i, $start, $i, $tick1);
	    setArrow($OUT, $tag, $i, $start, $i, $tick2);
	    setLabel($OUT, $tag, "<$tag>", $i + 0.11, $tick1, 'left');
	}
	plot($OUT, $rfirst, 'link-recovery', 'w impulse', @nvals);
	$rfirst = 1;
    }
}
sub plotPostamble {
    my($OUT) = shift @_;
#    print $OUT "set terminal postscriptn";
#    print $OUT "set output '${file}.ps'n";
#    print $OUT "replotn";
#    print $OUT "set outputn";
    print $OUT "exitn";
    close(OUT);
}
1;

						