svg制图如果不转换坐标的话,很容易弄错坐标是怎么转换的,这儿把坐标一般化,用几何画板把各个一般化的各个点坐标给标出来,然后以后要是用的话就可以直接作图,方便多了。(这儿用的是perl语言,所以每个变量都是用perl语言的变量转换的)
分为两部分:
1、图片坐标的说明
2、perl语言程序的实例展示
代码:
use strict;
use warnings;
use SVG;
my $infile = shift;
open AA, $infile or die $!;
my @theta;
my @fst;
my $aa;
while ($aa = <AA>){
my @t = split /\t/, $aa;
push @theta, $t[0];