Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!infoweb-news!news.fukuoka.infoweb.or.jp!newshost.ryukyu.ad.jp!sour!merope!void
From: void@merope.opus.or.jp (Kusakabe Youichi)
Subject: Re: Hairetsu? or Pointer?(^_^;)
Message-ID: <1996Nov17.032033.6155@merope.opus.or.jp>
Organization: Macintosh User Group PLEIADES in opus
X-Newsreader: TIN [version 1.2 PL0]
References: <harakiri-1711960326140001@hnj1048.bekkoame.or.jp>
Date: Sun, 17 Nov 1996 03:20:33 GMT
Lines: 36
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:3136
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=3136&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

Takaaki Tanaka (harakiri@ari.bekkoame.or.jp) wrote:
: $B3F!9$NJQ?t(Bx[i]$B$K$D$$$F$N%G!<%??t(B[j]$B$N9g7W(Bsumx[i]$B$H!"(B
: $B3FJQ?t(Bx[i]x[j]$BF1;N$N@Q$N%G!<%??t(B[k]$B$N9g7W(Bsumxx[i][j]$B$NCM$r(B
: $B7W;;$r$7$?$$$N$G$9$,!"(B

$B$=$l$,!"(B
for (i = 0; i < HENSU; i++) {
    for (j = 0; j < DATA; j++) {
        sumx[i] += x[i][j];
    }
}
       
for (i = 0; i < HENSU; i++) {
    for (j = 0; j < HENSU; j++) {
        for (k = 0; k < DATA; k++) {
            sumxx[i][j] += x[i][k] * x[j][k];
        }
    }
}
$B$H$$$&%3!<%I$@$C$F$$$&$3$H$O!"$?$H$($P$=$l$>$l$NG[Ns$O(B
int x[HENSU][DATA];
int sumx[HENSU];
int sumxx[HENSU][HENSU];
$B$_$?$$$KDj5A$7$F$"$k$o$1$G$9$+(B?
$B$b$7@k8@$7$F$J$+$C$?$iEvA3%(%i!<$G$9$h$M!#(B

$B$^$?!"$b$C$H@h$NOC$+$b$7$l$^$;$s$,!"!V(B+=$B!W$9$k$J$i!":G=i$K(B
0$B$K$7$F$*$$$?$[$&$,$$$$$G$9$M!#(B

$B$I$&$7$F%(%i!<$K$J$C$?$+$O!"%W%m%0%i%`$N0lItJ,$@$1$G$OH=L@$7$^$;$s$h$M!#(B
$B$;$a$F!"$b$&$9$3$7Bg$-$JItJ,$r$_$;$F$b$i$o$J$$$H!#(B

  $B%X(B_$B%X(B   ------------------------
$B%_!&!&(B $B%_(B  void@merope.opus.or.jp
 (  $B!k(B )$B!A(B            $BF|2<ItM[0l(B
----------------------------------
