亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 一個(gè)公式 [打印本頁]

作者: xingzhou823 時(shí)間: 2010-11-29 16:14
標(biāo)題: 一個(gè)公式
本帖最后由 xingzhou823 于 2010-11-29 16:15 編輯

我想寫一個(gè)公式：

然后寫了個(gè)perl程序：

chomp(@abc=<>);
foreach (@abc){
my $spc = $_;
$spc **=2;
foreach (@abc){
my $sum = $_**2;
$sumsq+=$sum;
}
$spc = $spc/$sumsq;
$spc = sqrt($spc);
print "$spc\n";
}

復(fù)制代碼

結(jié)果發(fā)現(xiàn) Xi 沒有平方呢？
為什么呢？

作者: yybmsrs 時(shí)間: 2010-11-29 18:01
沒看出有什么錯(cuò)

作者: zhlong8 時(shí)間: 2010-11-29 21:43
$sumsq 是什么？

寫公式就用點(diǎn)FP特性嘛

use List::Util qw(sum);

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

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

作者: xingzhou823 時(shí)間: 2010-11-30 11:05
回復(fù) 3# zhlong8

sumsq是平方和的意思

作者: zhlong8 時(shí)間: 2010-11-30 11:23
回復(fù) 4# xingzhou823

你當(dāng)我小白啊

意思是問題應(yīng)該在這里。數(shù)學(xué)方面好歹我也是專業(yè)人士

作者: leigh111 時(shí)間: 2010-12-01 10:34
結(jié)果是可以出來的。不過有兩個(gè)錯(cuò)誤。
第一：foreach前面先初始化my $sumsq = 0;
第二：在print "$spc\n"; 這句之后重新定義$sumsq = 0;

歡迎光臨 Chinaunix (http://www.72891.cn/)