🚀 go-pugleaf

$B?73c$N8MED$G$9!#(B

In article <5rncf7$7om$1@ripspost.aist.go.jp>, 
akirtaka@nibh.go.jp (Takahashi akira) wrote:

> $B!!@8L?8&$N9b66$G$9!%(B
[snip]
> $B!!$^$:!$=);3!w(Bascii$BMM$h$j65$($FD:$$$?J}K!$O!$(B
> $B!|0lEYFI$s$@CJ3,$GG[Ns$KF~$l$F$7$^$$!$$=$l$r$b$&0lEYFI$`(B
> 
> $B!t$?$@$3$N>l9g5$$K$J$k$N$O!$%G!<%?$N8D?t$,ITDj$N>l9g(B
> $B!J5-;v$G$O=q$-K:$l$^$7$?$,!$$3$N$h$&$J>r7o$,ImBS$7$F(B
> $B$$$^$9!K7k6I0lEY%G!<%?$rIaDL$KFI$_9~$s$G$_$F8D?t$r?t$($F(B
> $BG[Ns$NMWAG?t$r3NDj$7$F$+$i!$$"$i$?$a$F$h$&$d$/G[Ns$KFI$_(B
> $B9~$`$3$H$K$J$k$N$G!$F1$8LdBj$rJz$($k$3$H$K$J$i$J$$$+!$$H(B
> $B$$$&$3$H$G$9$,!$$3$3$O[9M+$G$7$g$&$+!%(B
>
const
  ArraySize = $B==J,Bg$-$J?t(B;
type
  ArrayOfSample = array[1.. ArraySize];
  sample = record
    n : integer;
    data : ArrayOfSample
  end;

$B!!$J$I$H$7$F!"==J,Bg$-$JG[Ns$rMQ0U$7!"F1;~$K%5%s%W%k?t$r4IM}(B
$B$9$k$d$j$+$?$d!"@~7A%j%9%H$G4IM}$9$k$d$j$+$?$,$"$j$^$9!#8zN((B
$B$OMn$A$^$9$,!#(B

> $B!!$7$+$7$J$,$i!$7k2LE*$K;d$,:NMQ$7$?J}K!$O!$:dED!w2#IMMM$N(B
> $B!|I8=`JP:9$OESCf$GJ?6QCM$,$J$/$H$b7W;;$G$-$k4J0W<0$,$"$k(B
> $B$G$7$?!%(B
> 
> sd:$BI8=`JP:9(B
> ss:$B%G!<%?$NFs>hOB(B
> ave:$BJ?6QCM(B
> n:$B%G!<%??t(B
> $B$N>l9g!$(B
> sd:=sqrt((ss-n*ave*ave)/n)
> $B$GI8=`JP:9$,5a$a$i$l$^$9!%$3$N>l9g$K$OJ?6QJP:9(B(data-ave)$B$r(B
> $B0l$D0l$D$H$C$FJP:9J?J}OB$r=P$9I,MW$,$J$$$N$G!$ESCf$KJ?6QCM$,(B
> $BI,MW$J$/$J$j$^$9!%$9$k$H!$$=$b$=$b!VFs2sFI$`!WI,MW@-$,$J$/$J$k(B
> $B$?$a$K%W%m%0%i%`$,C1=c$K$J$j$^$9!%(B
>
$B!!(B<xlusowxuvvd.fsf@quark.is.s.u-tokyo.ac.jp>$B$G>.Lx$5$s$,(B
$B$*$C$7$c$C$F$$$k$h$&$K!"4]$a8m:9$,8z$$$F$-$^$9$+$i!"=PMh$k$@(B
$B$19b@:EY$J7?$r;H$C$F$/$@$5$$!#$"$k$$$O!"F1$8$/>.Lx$5$s$N5-;v(B
$B$K$"$kJ}K!$d!"!V$3$l$^$GFI$s$@%G!<%?$N2>J?6Q(B $B!W$rMQ$$$kJ}K!(B

  mean := 0;
  s2 := 0;
  n := 0;
  while $B%G!<%?$,;D$C$F$$$k(B do begin
    n := succ(n);
    x := x - mean; (* x $B$,%G!<%?(B *)
    mean := mean + x/ n; (* $B?7$7$$2>J?6Q(B *)
    s2 := pred(n) * sqr(x) / n
  end;
  $BJ?6Q$O(Bmean$B!"I8=`JP:9$O(B sqrt(s2 / pred(n))

$B$J$s$F$N$r;H$C$F$/$@$5$$!#(B

> $B!!;d$K$H$C$F$OIT;W5D$J$3$H$K!$0l8+4JC1$J$3$H$N$h$&$K;W$($F$$$?(B
> $B!VF1$89T$rFs2sFI$`!W$H$$$&$3$H$K4X$7$F$O!$$d$^$b$H$5$s$N(B
> $B!&%F%-%9%H%U%!%$%k$r%P%$%J%j%U%!%$%k$H$7$F3d$jEv$F$F!$(Bseek,
> blockread$B$r;H$&(B
> $B$H$$$&8f0U8+$7$+;G$&$3$H$,$G$-$^$;$s$G$7$?!J$d$^$b$H$5$s$b(B
> $BLLE]$J$N$G$*A&$a$7$J$$$H=R$Y$F$*$i$l$k$h$&$G$9!K!%(B
> 
> $B!!$A$g$C$H$7$?$3$H$N$h$&$K;W$($k$N$G$9$,!$<B$OFq$7$$$3$H$J$N(B
> $B$G$7$g$&$+!%(B
>
$B!!(BCOBOL$B$@$C$?$+$J!"!VFI$s$@J8;z$r%U%!%$%k$K2!La$9!W$H$$$&$3(B
$B$H$,$G$-$?$h$&$J(B....

-- 
Haruo Toda, Niigata Univ.