求助数与形的转变

w123456_cu

下面是一个10*10的矩阵（元素都小于1）。

1. 0.0000 0.0000 0.0010 0.0051 0.0124 0.0375 0.0805 0.1457 0.2298 0.4881
   
2. 0.0000 0.0004 0.0105 0.0325 0.0593 0.1145 0.1703 0.2169 0.2205 0.1752
   
3. 0.0000 0.0048 0.0503 0.0930 0.1292 0.1585 0.1671 0.1671 0.1498 0.0801
   
4. 0.0003 0.0277 0.1150 0.1541 0.1789 0.1658 0.1294 0.1041 0.0811 0.0435
   
5. 0.0046 0.0945 0.1787 0.1747 0.1745 0.1413 0.1011 0.0704 0.0459 0.0142
   
6. 0.0248 0.2102 0.2253 0.1682 0.1499 0.0957 0.0605 0.0405 0.0190 0.0059
   
7. 0.0711 0.3251 0.2157 0.1322 0.1118 0.0665 0.0356 0.0211 0.0181 0.0027
   
8. 0.2243 0.4026 0.1656 0.0768 0.0592 0.0352 0.0195 0.0101 0.0038 0.0029
   
9. 0.5417 0.3180 0.0761 0.0315 0.0196 0.0071 0.0030 0.0030 0.0000 0.0000
   
10. 0.8844 0.0981 0.0104 0.0039 0.0032 0.0000 0.0000 0.0000 0.0000 0.0000

复制代码

矩阵中数值的大小  对应   图中正方形的大小。




请教，这个怎么做？

MMMIX

w123456_cu 发表于 2015-09-12 23:43
矩阵中数值的大小  对应   图中正方形的大小。

具体怎么对应的？

w123456_cu

w123456_cu

类似数据可视化。比如， 0.8844  在相同位置 显示最大的正方形。

MMMIX

回复 4# w123456_cu


    我本来是想问下具体的换算规则。不过算了，这个不重要。

其实这个转换起来还是很简单的，就是在一系列点上画对应大小的正方形。一个基本实现如下：

#!/usr/bin/perl

use strict;
use warnings;

use v5.14;
use autodie;
use Data::Dumper;

use File::Basename;
use GD::Simple;

# Load matrix
my @mat;
{
    open my $mat, '<', $ARGV[0];
    while (<$mat>) {
        push @mat, [ split ];
    }
}

my $rows = @mat;
my $cols = @{ $mat[0] };

# Draw rectangles
my ($W, $H) = (1000, 1000);
my ($w, $h) = ($W / $rows, $H / $cols);

my $img = GD::Simple->new($W, $H);
$img->bgcolor('black');

for (my $i = 0; $i < $rows; $i++) {
    for (my $j = 0; $j < $cols; $j++) {
        my $x0 = ($j + 1) * $w - ($w / 2);
        my $y0 = ($i + 1) * $h - ($h / 2);
        my $c  = $mat[$i][$j];
        my $ox = ($w * $c) / 2;
        my $oy = ($h * $c) / 2;
        $img->moveTo($x0, $y0);
        $img->rectangle($x0 - $ox, $y0 - $oy,
                        $x0 + $ox, $y0 + $oy);
    }
}

# Create image file
my $img_file = fileparse($0, '.pl') . ".png";
open my $out, '>', $img_file;
binmode $out;
print $out $img->png;

MMMIX

w123456_cu 发表于 2015-09-13 10:06
类似数据可视化。

不是类似，这就是。

w123456_cu

谢谢 @MMMIX  ， perl6 可以实现？

MMMIX

回复 7# w123456_cu


    不清楚 Perl 6 有没有 2D 绘图的模块。

104359176

这个用 racket 实现比较容易。

w123456_cu

搜索了下modules.perl6.org

有 Data:: Dump   GD