一个公式

本帖最后由 xingzhou823 于 2010-11-29 16:15 编辑

我想写一个公式：
  

下载 (7.69 KB)

2010-11-29 16:12

然后写了个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 没有平方呢？
为什么呢？

作者: xingzhou823   发布时间: 2010-11-29

作者: yybmsrs   发布时间: 2010-11-29