Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.nc.u-tokyo.ac.jp!newssinet!hakata!kudpc!sakunami!ayashi!kaneko
From: kaneko@ccedu.sendai-ct.ac.jp (Yutaka Kaneko)
Subject: Re: limits
X-Nntp-Posting-Host: saikachi
Message-ID: <E0Dwrx.9H2@ayashi.cc.sendai-ct.ac.jp>
Lines: 67
Sender: news@ayashi.cc.sendai-ct.ac.jp (SNCT NetNews Manager)
Organization: Sendai National College of Technology
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <T60478.96Nov5101657@t03-xs03.komaba.ecc.u-tokyo.ac.jp>
Date: Tue, 5 Nov 1996 06:31:09 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:3056
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=3056&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.

  $B6b;R!w@gBfEEGH$G$9!#(B

In article <T60478.96Nov5101657@t03-xs03.komaba.ecc.u-tokyo.ac.jp>
t60478@komaba.ecc.u-tokyo.ac.jp writes:
>> $B8b!J(BOH$B!K$G$9!#(B

>> $B:G6a?tCM7W;;$N%W%m%0%i%`$r:n$C$F$$$^$9$,(Bdouble,long$B$N>e8BCM$,5$$K$J$j$^$9!#(B
>> $B$I$N$h$&$J%P%0$,$I$&$$$&$U$&$K=P$k$+IT0B$G$9$,!"(B
>> $B%(%-%9%Q!<%H$N3'$5$s$O$I$N$h$&$K=hM}$7$F$$$^$9$+!#(B

  $B%P%0$H$$$C$F$b!"1i;;$N7k2L$,>e8BCM$r1[$($k$H(B $B!g$H$$$&CM$,(B
$BJV$5$l$k$@$1$G$9!#$=$N7k2L!"0U?^$7$J$$Ez$($,=P$F$/$k$3$H$O$"(B
$B$j$($^$9!#$^$?!"ESCf$G!g$NCM$,=P$?$^$^1i;;$rB3$1$k$H0[>o$K1i(B
$B;;;~4V$,$+$+$k>l9g$,$"$j$^$9!#(B


  $B%*!<%P!<%U%m!<$NBP:v$O$$$m$$$m$"$j$^$9!#(B

    x=sqrt(a*a+b*b);

$B$O!"(Ba, b$B$,>e8BCM$NJ?J}:,$r1[$($kCM$@$H%*!<%P!<%U%m!<$7$^$9$N$G!"(B

    if(abs(a)>abs(b)) {
x = a * sqrt(1.0+(b/a)*(b/a));
    } else {
x = b * sqrt(1.0+(a/b)*(a/b));
    }

$B$H=q$/$J$I$+$J!#(B


  $B$^$?!"(B

    double a[N]={1e10, 2e10, 3e10, 4e10, ..., };
    x=1.0;
    for(i=0; i<N; i++) {
x *= a[i];
    }

$B$H$$$C$?7W;;$dBg5,LO$J9TNs$N7W;;$@$H!"$d$O$j%*!<%P!<%U%m!<$r(B
$B5/$3$7$^$9$+$i!"$"$i$+$8$a!"$9$Y$F$NMWAG$r(B1e10$B$G3d$C$F$*$/$H(B
$B$+!"3]$1;;$rB-$7;;$KJQ$($F$7$^$&$H$$$C$?J}K!$,9M$($i$l$^$9!#(B

x *= a[i]; $B"*(B x += log(a[i]);

  $B$"$H!"(Bieee(3m)$B$KDj5A$5$l$?4X?t72$r;H$C$F!"(B

    int e=0;
    for(i=0; i<N; i++) {
n = logb(a[i]);
e += n;
x *= scale(a[i], -n);
    }

$B$H$$$&<j$b$"$k!#(B


  $B$$$:$l$K$;$h!"BP:v$O!"$I$&$$$&?tCM7W;;$r$9$k$+$K0MB8$7$^$9!#(B

  $B2DG=$J$i!">e8BCM$N$h$jBg$-$$7?$r;H$($P$$$$$7!"$=$l$GB-$j$J(B
$B$1$l$P!">e8BCM$N@)8B$N$J$$$h$&$J7?$H$=$N1i;;%k!<%A%s$r:n$k$H(B
$B$$$&<j$b$"$j$^$9!#(B

main(i,j){j=time(0);do for(i /*      $B6b;R(B $BM5(B(KANEKO Yutaka)             */
=0;i<79;i++)printf(j%512>>4? /* Sendai National College of Technology   */
" ":"*"),j=j*331+113;while(  /*    kaneko@cc.sendai-ct.ac.jp            */
printf("\n\033[H\033[1L"));} /* $B6d;HEL(Bx10 $B6b;HEL(Bx0 $B6d%-%g%m(Bx0 $B6b%-%g%m(Bx1*/
