一個公式

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. }
    

復制代碼

結(jié)果發(fā)現(xiàn) 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


    你當我小白啊  意思是問題應該在這里。數(shù)學方面好歹我也是專業(yè)人士

leigh111

結(jié)果是可以出來的。不過有兩個錯誤。
第一：foreach前面先初始化my $sumsq = 0;
第二：在print "$spc\n"; 這句之后 重新定義$sumsq = 0;