perl - 使用 replot 的 PDL Gnuplot 和 QT 终端的点限制

Question

在使用 PDL::Graphics::Gnuplot 绘制数据时，我遇到了一个奇怪的效果。似乎，一次只能绘制有限数量的点replot。

考虑以下示例（15 行，101 个点）：

use strict;
use warnings;

use PDL;
use PDL::Graphics::Gnuplot qw/gpwin/;

my $win = gpwin('qt', persist => 1);

foreach my $a (1..15) {
    my $x = sequence(101)/100;

    my $y = $a*$x;

    if ($a == 1) {
        $win->plot({ linecolor => 'black' }, $x, $y);
    }
    else {
        $win->replot({ linecolor => 'black' }, $x, $y);
    }
}

使用此示例，仅绘制了 11 条线而不是 15 条。

减少点数（从 101 到 51），绘制 14 条线。

最后仅使用 21 个点，显示所有 15 条线。

首先，我认为只绘制了有限数量的线，但事实并非如此，因为绘制的线数取决于 piddles 的大小。

这是 perl 模块还是 Gnuplot 的限制？有没有办法增加最大点数？这似乎是 Gnuplots qt 版本的问题。用作'x11'终端不会显示此限制（我测试了 100 行 101 点没有任何问题）。

此外，我在不使用replot但在单个plot.

use strict;
use warnings;

use PDL;
use PDL::Graphics::Gnuplot qw/gpwin/;

my $win = gpwin('qt', persist => 1);

my $x = sequence(101)/100;
my $a = sequence(1,15)+1;
my $y = $x*$a;

$win->plot({ linecolor => 'black' }, $x, $y);

使用此代码，一切正常（即使将行数增加到更大的值）。

所以最后，这似乎是终端replot功能的问题。'qt'

（GNUPLOT 版本 4.6 补丁级别 6）