一个公式

xingzhou823

我想写一个公式：
  

然后写了个perl程序：

1. chomp(@abc=<>);
   
2. foreach (@abc){
   
3.         my $spc = $_;
   
4.         $spc **=2;
   
5.         foreach (@abc){
   
6.                 my $sum = $_**2;
   
7.                 $sumsq+=$sum;
   
8.                 }
   
9.         $spc = $spc/$sumsq;
   
10.         $spc = sqrt($spc);
    
11.         print "$spc\n";
    
12. }
    

复制代码

结果发现 Xi 没有平方呢？
为什么呢？

yybmsrs

没看出有什么错

zhlong8

$sumsq 是什么？

写公式就用点FP特性嘛

use List::Util qw(sum);

my $sumsq = sum map {$_**2} @abc;

my @result = map {sqrt($_**2/$sumsq)} @abc;

xingzhou823

回复 3# zhlong8


    sumsq是平方和的意思

zhlong8

回复 4# xingzhou823


    你当我小白啊  意思是问题应该在这里。数学方面好歹我也是专业人士

leigh111

结果是可以出来的。不过有两个错误。
第一：foreach前面先初始化my $sumsq = 0;
第二：在print "$spc\n"; 这句之后 重新定义$sumsq = 0;