🚀 go-pugleaf

$@5W2<!w(JNHK$@5;8&(J $@$G$9!#;d$b(JMathematica $@FH=,Cf$G$9!#(J

In article of <HAMAO-K.92Nov6091046@fukuroku.fukushima-iri.go.jp>
hamao-k@fukushima-iri.go.jp (Kazuhide Hamao) writes:
> $@J!Eg8)%O%$(J$@%F%/%W%i%6!J8)$N;n835!4X!K$N(J $@IMHx(J $@$H?=$7$^$9!#(J
 ......
>   $@$^$:#M#a#t#h#e#m#a#t#i#c#a$N%^%K%e%"%k$GF|(J$@K\8lHG$,$"$k$HJ9$$$?$N$G$9(J
> $@$,!"$=$N=PHG<R!JH/Gd85!K$HCMCJ$r$I$J$?$+$4B8CN$J$$$G$7$g$&$+!#(J

$@!t(J $@62$i$/(J$@!";3$N$h$&$J%U%)%m!<$,$"$k$N$G$7$g$&$,(J

	$@%9%F%#!<%V%s!&%&%k%U%i%`(J:
	"Mathematica - A System for Doing Mathematics by Computer
	 Second Edition ($@F|K\8lHG(J)",
	$@H/9T!'%"%8%=%s(J $@%&%(%9%l%$(J $@%Q%V%j%7%c!<%:(J $@%8%c(J$@%Q%s(J
	$@H/Gd!'@11@<R(J (1992)
	$@Dj2A!'(J9500$@1_!J@G9~$_!K(J

$@$H$$$&$N$,!"(JMac $@MQ$N(JMathematica V2.1$@$rGc$C$?$iIU$$(J$@$F$^$7$?$,(J...$@!#(J
$@$*$=$i$/!"DL>o$N=qE9%k!<%H$GGc$($k$N$G$O$J$$$+!"$H;W$$$^$9!#(J
$@$3$l$O!"(J

	Stephen Wolfram:
	"Mathematica - A System for Doing Mathemacics by Computer
	 Second Edition",
	Addison-Wesley Publishing Company(1991)
	
$@$N0l8l0l6g0c$o$LK]Lu$N$h$&$G$9!#(J

>  $@<!$K#M#a#t#h#e#m#a#t#i#c#a$r;H$($k$h$&$K(J$@$J$m$&$H;W$$!V#M#a#t#h#e#m#a#t#i#c#a(J
> $@%W%m%0%i%_%s%05;K!!W$H$$$&K\$rGc$C$FJY6/$7$F$$$k$N$G$9$,!"(J
 ......
> $@!J<B$O>e=R$N#M#a#t#h#e#m#a#t#i#c#a%W%m%0%i%_%s%05;K!$O!"$3$&$$$&K\$,M_(J
> $@$7$+$C$?$H$$$&$N$GGc$C(J$@$?$N$G$O$J$/!"$?$^$?$^CO85$NK\20$K$=$l$,$"$C$?$+(J
> $@$iGc$C$?!"$H8@$C$?J}$,E,@Z$+$bCN$l$^$;$s!D!#!K(J

Maeder$@$N!V5;K!!W$H(JWolfram$@$NK\$O!"(JMathematica users $@$N:B1&$N=q$G$9$+$i!"(J
$@NI$$GcJ*$r$5$l$?$H;W$$$^$9!#(J
$@!t(J $@$+$/$$$&>.@8$b!V5;K!!W$rGc$C$?$N$O@h7n$N(J Mathematica Conference $@$N2q>l$G(J
$@!t(J $@$G$7$?(J ^^;

> $@!t@E$^$C$?(J$@<<Fb$G!"2?$bJ,$+$i$:GH7A$N2;$r=P$7$F!">e;J$Kp~m&$rGc$C$?$N$O;d$G$9!#(J

$@!t(J $@;d$bBg$-$J(JIndigo$@$N2;$r=P$7$F(J$@!J;d$G$O$J$/D>B0>e;J$,!K(J
$@!t(J $@ItD9$K<8$i$l$?$3$H$,$"$j$^$9!#$3$l$O%*%U%l%3!#(J

$@$H$j$"$($:!"$*Ez$($G$-$k$3(J$@$H$@$1!#(J
K---		-------------------------------------------------------------
U   o    :				$@5W2<(J $@E/O:(J
G    >  :	$@:#F|$b855$$@!#(J		kuge@strl.nhk.or.jp
E   <==+ 	$@%-%c%a%k$,$&$^$$!#(J	$@#N#H#KJ|Aw5;=Q8&5f=j(J $@5-O?!&(J$@5!9=8&5fIt(J

In article <KUGE.92Nov7002038@k1ss.strl.nhk.or.jp> kuge@strl.nhk.or.jp (Tetsuro Kuge) writes:

$@>k!w#A#S#T#E#M!%%/%\%?$G$9!#$o$1$,$o$+$i$J$$$^$^869F=q$/$N$KI,MW$@$+$i(J
$@;H$C$F$^$9(J$@!#;H$$;O$a$F!"!"!"#1%+7n$+$J!)(J

   >>>   $@$^$:#M#a#t#h#e#m#a#t#i#c#a$N%^%K%e%"%k$GF|K\8lHG$,$"$k$HJ9$$(J$@$?$N$G$9(J
   >>> $@$,!"$=$N=PHG<R!JH/Gd85!K$HCMCJ$r$I$J$?$+$4B8CN$J$$$G$7$g$&$+!#(J
	$@!'(J
	$@!'(J
   >>$@$H$$$&$N$,(J$@!"(JMac $@MQ$N(JMathematica V2.1$@$rGc$C$?$iIU$$$F$^$7$?$,(J...$@!#(J
   >>$@$*$=$i$/!"DL>o$N=qE9%k!<%H$GGc$($k$N$G$O(J$@$J$$$+!"$H;W$$$^$9!#(J
   >>$@$3$l$O!"(J

$@$&$&!"<+J,$GGc$C$?%^%A%+$8$c$J$$$+$i$=$s$J$N$J$$$h!#(J

$@$=$l$h$j!"C/(J$@$+!"M>0x;R9TNs$N:n$jJ}$r65$($F$/$@$5$$!#@h=5$^$G!"#2#1!v#2(J
$@#1$N9TNs$N5U$r5a$a$h$&$H6lO+$7$F!"7k6I!"0l(J$@$D0l$D<j:n6H$G#2#0!v#2#0$NM>(J
$@0x;R9TNs$r:n$C$F$7$^$C$?!#(J

	$@>k!w#A#S#T#E#M!%%/%\%?(J

$@5W(J$@2<!w(JNHK$@5;8&(J $@$G$9!#(J

In article of <JOE.92Nov7132502@hoihoi.kocb.astem.or.jp>
 joe@kocb.astem.or.jp (Kazuki Joe) writes :

> $@$=$l$h$j!"C/$+!"M>0x;R9TNs$N:n$jJ}$r65$($F$/$@$5$$!#@h=5$^$G!"#2#1!v#2(J
> $@#1$N9T(J$@Ns$N5U$r5a$a$h$&$H6lO+$7$F!"7k6I!"0l$D0l$D<j:n6H$G#2#0!v#2#0$NM>(J
> $@0x;R9TNs$r:n$C$F$7$^$C$?!#(J

	$@%9%F%#(J$@!<%V%s!&%&%k%U%i%`(J:
	"Mathematica - A System for Doing Mathematics by Computer
	 Second Edition ($@F|K\(J$@8lHG(J)",
$@$N(J p.636-637 $@$K(J
	Minors[m,k] :	$@9TNs(J m $@$N(J k $@!_(J k $@$N>.9TNs<0$N%j%9%H$r5a$a$k(J
$@$,:\$C$F$^$9(J(:-)
$@!t(J $@>e5-!"F|K\8lHG$O(J"minor"$@$r!V>.9TNs!W$H8m$C$FLu$7$F$$$k$N$GCm0U!#(J
$@$D$^$j!"(J21$@!_(J21$@$N9TNs$KBP$9$k(JMinors[A,20]$@$O!"(JA$@$NA4$F$N(J20$@!_(J20$@>.9TNs$N(J
$@9TNs<0$rMWAG$H$9$k!"(J21$@!_(J21$@$N9TNs$G$9!#$?$@$7!"(JA$@$NM>0x;R9TNs$H$OMWAG$N(J
$@JB$SJ}$,0c$C$F$$$^$9$N$G!"(JMinors[A,20]$@$N3FMWAG$r!"=gHV$rJB$SJQ$($D$D(J
(-1)^(i+j)$@$r3]$1$kA`:n$r;\$;$O!"(JA$@$NM>0x;R9TNs$,F@$i$l$k$O$:$G$9!#(J

$@$H!"$3$3$^$G=q$$$F$-$?$,!"(J
> $@#2#1!v#2#1$N9TNs$N5U$r5a$a$h$&$H6lO+$7(J$@$F!"(J	
$@$,L\E*$@$C$?$H$9$l$P!"$?$@$N(J Inverse[A] $@0lH/$G:Q$_$^$X$s$+!*!)!*!)!*(J

$@!t(J $@JL$KK\20$N$^$o$7$b$N$G(J$@$O7h$7$F$J$$$,!"$3$NK\$/$i$$$"$C$?$[$&$,(J
$@!t(J $@;~4V$N@aLs$K$O$J$j$^$C$;!#(J
K---		-------------------------------------------------------------
U   o    :				$@5W2<(J $@E/O:(J
G    >  :	$@:#F|$b855$$@!#(J		kuge@strl.nhk.or.jp
E   <==+ 	$@%-%c%a%k$,$&$^$$!#(J	$@#N#H#KJ|Aw5;=Q8&5f=j(J $@5-O?!&5!9=8&5fIt(J

In article <HAMAO-K.92Nov6091046@fukuroku.fukushima-iri.go.jp> hamao-k@fukushima-iri.go.jp (Kazuhide Hamao) writes:

$BBgDE!wElBg86;RNO(J $B$H?=$7$^$9!#(J

>     $B$^$:#M#a#t#h#e(J$B#m#a#t#i#c#a$N%^%K%e%"%k$GF|K\8lHG$,$"$k$HJ9$$$?$N$G$9(J
>   $B$,!"$=$N=PHG<R!JH/Gd85!K$HCMCJ$r$I$J$?$+$4(J$BB8CN$J$$$G$7$g$&$+!#(J

$B$3$l$K$D$$$F$O4{$K%U%)%m!<$,$"$j$^$9$M!#(J

$B;d$O!"1Q8lHG(J Mathmatica $B$N%^%K%e%"%k!J(J$B%=%U%H%+%P!<$@$1$IF|K\8lHG(J
$B$h$j#2#0#0#01_$[$I0B$/!"$7$+$bBg3X$N=q@RIt$G0l3d$j0z$-!K$r;}$C$F(J
$B$$$k$N$G$9(J$B$,!"%+%i!<%Z!<%8$N(J Mathematica Graphics Gallery $B$NItJ,(J
$B$,;H$C$F$$$k4V$K<h$l$F$7$^$$$^$7$?!#(J
$B8=:_%F!<%W(J$B$GJd6/$7$F;H$C$F$*$j$^$9$,!"L@$i$+$K@=K\$N;EJ}$,0-$$$+(J
$B$i$@$H;W$$$^$9!#!J$d$C$Q$j(J Made in USA$B!K(J

$B$3$N(J$B$3$H$K$D$$$F!">/$7A0$K(J sci.math.symbolic $B$K%]%9%H$,$"$j$^$7$F!"(J
$B?7$7$$HG$G$OD>$C$F$$$F!"K\20$K$$$($P<h(J$B$jBX$($F$/$l$k$H%U%)!<%m$,$"$j$^$7$?!#(J

$BC/$+$3$l$rF|K\9qFb$G<BA)$5$l$?J}$O$$$i$C$7$c$$$^$9$+!)(J

>     $B<!$K#M#a#t#h#e#m#a#t#i#c#a$r;H$($k$h$&$K$J$m$&$H;W$$!V#M#a#t#h#e#m#a#t#i#c#a(J
>   $B%W%m%0%i%_%s%05;K!!W(J$B$H$$$&K\$rGc$C$FJY6/$7$F$$$k$N$G$9$,!"(J
>   $BK\$G>R2p$5$l$F$$$k%=!<%9%j%9%H$O!"$I$3$+$KN.$l$F$^$;$s$G$7(J$B$g$&$+!#(J
>   $B$9$Y$F$rF~NO$9$k$N$O7k9=$7$s$I$$$G$9!#(J^_^;

Mathematica $B$N%i%$%V%i%j$K4X$7$F$O!V(JMathmatica $B<B@~E*%"%W%m!<%A!W!J8e=R!K(J
$B$K(Jftp$B%j%9%H$,:\$C$F$$$^$9$7!"(JWolfram Research $B$,:n$C$F$$$k(J MathSource 
$B$J$I$NMxMQ$b$G$-$^$9!#!J>\$7$/$O(J ms-info@wri.com $B$X!K(J
$B:#;d$,;}$C$F$$$k%9%?%s%U%)!<%I$N%"!<%+%$%V%j%9%H(J$B$+$iH4?h$7$^$9$H(J

otter.stanford.edu (36.21.0.103)
-----------------------------------------------------------
Public Domain Library
Mathematical Software Users Forum
Stanford University
24 September 1992

*** Current Contents of Mathematica Library *** August 1992 ***	
/ftp/mma/RMaeder:
/ftp/mma/RMaeder/Examples:
/ftp/mma/RMaeder/RMPackages:
/ftp/mma/RMaeder/Utilities:
----------------------------------------------------------------

$B$J$I$,$"$j$^$9!#(J

>     $B$^$?$3$N#1#07n$K!"#M#a#t#h#e#m#a#t#i#c#a$K(J$B$D$$$F$N?^=q$,B??t(J
>   $B=PHG$5$l$?$h$&$G$9$,!"$3$l$i$N?7$7$$K\$H$9$G$K=PHG$5$l$F$$$kK\$b4^$a$F!"(J
>   $B$=(J$B$NFbMF$d$I$&$$$&;~$KFI$`$HJXMx$@Ey$9$G$K3hMQ$5$l$F$$$kJ}!9$N0U8+$r$*(J
>   $BJ9$+$;4j$($^$;$s$G$7$g$&$+!#(J$B#M#a#t#h#e#m#a#t#i#c#a3hMQ$N:#8e$N;29M$K$5(J
>   $B$;$FD:$-$^$9!#(J

$B;d$,$*A&$a$9$k$N$O!"(J

$B!V(JMathematica $B<B(J$BA)E*%"%W%m!<%A!W(JN$B!&%V%i%C%/%^%s(J $BCx(J $B!':g86?J(J $BLu(J

		$B%H%C%Q%s(J ISBN4-8101-8538-9 $B!JDj2A(J 3,800$B1_!K(J

$B$G$9!#(J
$B@hF|9T$J$o$l$?(J Mathmatica Conference $B$G$b9V1i$J$5$C$F$^$7$?$,(J
$B<B:]$K%A%e!<%H%j%"%k$r$7$F$$$k?M$@$1$"(J$B$C$FHs>o$K$o$+$j$d$9$$$G$9!#(J
$B$^$?LuJ8$b$o$+$j$d$9$/!J$^$?K.Lu$NJ}$,0B$$!*(J $B<-=qE*$J(J Stephen Wolfram 
$B$N(J Mathematica $B$KBP$7$F%A%e!<%H%j%"%k$K6a$/!"=i?4<T$+$iCf5i<T$^$GK~B-(J
$B$$$/$b$N$H;W$$$^$9!#(J

$B$"$HCf$O$h$/(J$B8+$F$$$^$;$s$,!"3($,$D$$$F$b$C$H=i?4<T8~$1$K;W$($k(J
		 Mathematica by Example (Academic Press )
$B$H$$$&(J$B$b$N$b$"$k$h$&$G$9$,!#(J

>     $B$^$@$^$@#M#a#t#h#e#m#a#t#i#c#a$r;O$a$?$P$+$j$G!"$=$N0NBg$5$O$"$^$jJ,(J
>   $B$+$j$^$;$s$,!"<B83$dM}O@$G=P$??t<0$NMM!9$J3QEY$+$i$N2r@O$J$I$K5$7Z$K;H(J
>   $B$($k$h$&$K$J$j$?$$$H9M$((J$B$F$$$^$9!#(J

$B$=$&$G$9$M!#;d$b;H$$$O$8$a$?;~$b$9$4$$6C$-$G$7$?!#(J
$B#3#D%0%i%U%#%C%/$J$I$O(J gnuplot $B$h$j$O$k(J$B$+$K;H$$$d$9$$$H;W$$$^$9!#(J

$B!t$?$@#1%W%m%;%9#3#1K|!J(JWS$BMQ!K$b$9$k$N$GGc$C$F$b$i$($J$$!#(J(;o;)

>     $B$3(J$B$s$J<0$r<B9T$7$?$i$3$s$J$9$4$$$3$H$,=P$F$-$?!"$J$I$I$J$?$+<BNc$r$b(J
>   $B$7>R2p$7$FD:$1$?$i!":#8e$NJY6/(J$B$NNe$_$K$b$J$k$N$G$9$,!#(J

$BA4A3?t3X$NOCBj$G$O$"$j$^$;$s$,!"$*M7$S!J!)!K$G$3$s$J$3$H$b$G$-$^$9!#(J

*******************************************************************
Mathematica 2.0 for DEC RISC
Copyright 1988-91 Wolfram Research, Inc.
 -- X11 windows graphics initialized -- 

In[1]:= Needs["Miscellaneous`WorldPlot`"]
In[2]:= Needs["Miscellaneous`CityData`"]

In[3]:=  WorldPlot[{"Japan","USA"},WorldRange ->{{0,90},{-180,180}},WorldRotation -> {0,0,180}]
Out[3]= -WorldGraphics-

In[4]:= CityDistance["Tokyo","Los Angeles"]
Out[4]= 8807.82

In[5]:= CityDistance["Osaka","New York"]
Out[5]= 11105.2

********************************************************************
$BEl5~!<%m%5%s%<%k%94V$O!"(J8807.82km $BBg:e(J$B!<%K%e!<%h!<%/4V$O!"(J11105.2km
$B$"$k$s$G$9$M!#!J(Jfj.rec.travel $B$K$J$k$s$G$7$g$&$+!)(J:-) $B!K(J

$B$A$J$_$KEl5~!<(J$BBg:e$O!"(J

In[6]:= CityDistance["Tokyo","Osaka"]
Out[6]= 404.384

$B$G$9!#(J
$B!t(J CityData.m $B$KL>8E20$,$J$$!*(J (;o;) $B$d$C$Q$j9q:]ET;T$8$c$J$$$N$+!"!"!"(J
--
--------------------------------------------------------------------          
Fusion Reactor Fuel Engineering Division
Nuclear Engineering Research Laboratory, University of Tokyo, Japan
                                      $BBgDEHK<y(J     Shigeki Ohtsu 
                                    <ohtsu@utnl.gen.u-tokyo.ac.jp>

$BCcCc$G$9!#(B
In article <OHTSU.92Nov8104514@mahler.gen.u-tokyo.ac.jp> ohtsu@utnl.gen.u-tokyo.ac.jp (Shigeki Ohtsu) writes:
>$B!t(B CityData.m $B$KL>8E20$,$J$$!*(B (;o;) $B$d$C$Q$j9q:]ET;T$8$c$J$$$N$+!"!"!"(B

$BL>8E20$N=;?M$H$7$F$OE\$j?4F,!#(B
$BAaB.DI2C$7$F$*$+$J$/$C$A$c!#(B
CityData.m$B$K$O$$$/$i$G$bDI2C2DG=$G$9!#(B
$B$=$l$K$7$F$b(BMathematica$B$OLLGr$$!#(B
$B9V5A$K$bBg$$$K;H$o$;$F$b$i$C$F$$$^$9!#FC$K%0%i%U%#%C%/$,NI$/$G$-$F$$$k$N$G!#(B


-- 
   *   *   *     *                $@O2@n!!9,I'(J
    * *    * *   *                $@L>8E20Bg3XM}3XIt?t3X65<<(J
     *     *   * *                d43013a@nucc.cc.nagoya-u.ac.jp
     *     *     *                namikawa@math.nagoya-u.ac.jp

In article <KUGE.92Nov7233738@k1ss.strl.nhk.or.jp> kuge@strl.nhk.or.jp (Tetsuro Kuge) writes:
   >>> $@$=$l$h$j!"C/$+!"M>0x;R9TNs$N:n$jJ}$r65$($F$/$@$5$$!#@h=5$^$G!"#2#1!v#2(J
   >>> $@#1$N9TNs$N5U(J$@$r5a$a$h$&$H6lO+$7$F!"7k6I!"0l$D0l$D<j:n6H$G#2#0!v#2#0$NM>(J
   >>> $@0x;R9TNs$r:n$C$F$7$^$C$?!#(J
   >>
   >>	     $@%9%F%#!<%V%s!&%&%k%U%i%`(J:
   >>	     "Mathematica - A System for Doing Mathematics by Computer
   >>	      Second Edition ($@F|K\8lHG(J)",
   >>$@$N(J p.636-637 $@$K(J
   >>	     Minors[m,k] :	$@9TNs(J m $@$N(J k $@!_(J k $@$N>.9TNs<0$N%j%9%H$r5a$a$k(J
   >>$@$,:\$C$F$^$9(J(:-)

$@AaB.Gc$$$K9T$-$^$9!#$"$j$,$H$&$4$6$$$^$9!#(J

   >>$@$H!"$3$3$^$G=q$$$F$-$?$,!"(J
   >>> $@#2#1!v#2#1$N9TNs$N5U$r5a$a$h$&$H6lO+$7$F!"(J	
   >>$@$,L\E*$@$C$?$H$9(J$@$l$P!"$?$@$N(J Inverse[A] $@0lH/$G:Q$_$^$X$s$+!*!)!*!)!*(J

$@$=$l$,!"#2#1!v#2#1$N5U$r5a$a$k$?$a$K!"(JInverse[A]$@$r$d$C$F$bMn$A$F$7$^$&(J
$@$s$G$9$h!#:G=i$OC1$K%a%b%j$,B-$j$J$$$@$1$@$m$&$H7Z$/;W$C$F$$$F!"!J#M#a(J
$@#c$N!K(J$@2>A[5-21%*%s$K$7$F!"%Z!<%8!&%U%!%$%k$r$A$g$C$HIU$1B-$7$F!"!"!"!"(J
$@$G$b$@$a$@$C$?$s$G$9!#$G!"7k6I!"%a%b(J$@%j#8#M#B!"%Z!<%8!&%U%!%$%k#6#0#M#B(J
$@$G<B9T$7$?=j!"#1#0F|4V7W;;$7$F!"7k6IMn$A$F$7$^$$$^$7$?!##1#0!v#1#0(J$@$J$i(J
$@?t==J,$G:Q$`$N$K!"%7%9%F%`A4BN$,Mn$A$F$7$^$&$H$3$+$i!"$I$&$b%P%0=-$$$J(J
$@$H;W$C$F$k:#F|$3$N:"$G$9!#(J

   >>$@!t(J $@JL$KK\20$N$^$o$7$b$N$G$O7h$7$F$J$$$,!"$3$NK\$/$i$$$"$C$?$[$&$,(J
   >>$@!t(J $@;~4V$N@aLs$K$O$J$j$^(J$@$C$;!#(J

$@$H$j$"$($:!"<!$N869F$GI,MW$J!"9TNs7W;;$N3Z$r$7$?$$!"$H$$$&M}M3$N$?$a$@(J
$@$1$K%^%A%+$r;H$$;O$a$?(J$@$N$G!"$"$^$jJ88%$j$^$X$s$M$s!#@~7ABe?t$K$D$$$F@b(J
$@L@$7$H$kK\!"C/$+CN$j$^$X$s$+!)(J

	$@>k!w#A#S#T#E#M!%%/%\(J$@%?(J

$@$I$&$b$*@$OC$K$J$C$F$^$9!#(J
$@IMHx(J$@!wJ!Eg8)%O%$%F%/%W%i%6(J  $@$G$9!#(J

  $@3'MM!"?'!9$H(JMathmatica$@$K$D$$$F%U%)%m!<$7$F$$$?$@$-M-Fq$&$4$6$$$^$9!#(J
$@AaB.F|K\8lHG$N%^%K%e%"%k$r9XF~$7$F$b$i$&$3$H$K$7$^$9!#(J

  $@$H$3$m$GBgDE$5$s$N>pJs$K$h$j;O$a$FCN$C$?$N(J$@$G$9$,!"1Q8lHG$N%=%U%H%+%P(J
$@!<$,$"$k$N$G$9$+!#(J2000$@1_0B$$$H$$$&$3$H$O(J7500$@1_$G$9$M!#$7$+$b@86($G#13d(J
$@0z$-(J$@$H$O!D!#:#;W$$$^$9$1$I!"Bg3X@86($N0RNO$OBg$-$$$G$9$M$'!##C#D$b0B$$(J
$@$7!D!#!JCOJ}$G$O7h$7$F0BGd$j$J$I$7(J$@$F$/$l$J$$!#!K(J

  $@$^$?:#8e!"B>$N;29M=q$K$D$$$F$d(JMathmatica$@$N;HMQK!$J$I$G2?$+$"$j$^$7$?(J
$@$i!"3'MM$h$m$7(J$@$/$*4j$$CW$7$^$9!#(J

  $@$=$l$G$O$^$?!#(J

$@!t;HMQ$7$F$$$k$N$O(JMathematica2.0 for SPARC$@$J$N$G$9$,!"(J2.1 for Mac
$@!t$H$N5!G=$N0c$$$C$F$"$k$s$G$9$+$M$'!D!#CN$i$J$$$s$G$9$1$I!#(J

  
--
******* $@J!Eg8)%O%$%F%/%W%i%6!!(J$@1~MQ5;=QIt!!EE;R1~MQ2J(J *******
     $@IMHxOB=((J       E-mai : hamao-k@fukushima-iri.go.jp
$@74;3;TJRJ?D.;z(J$@;3?@4\(J 7-2  Tel 0249-59-1911  Fax 0249-59-1761

$@>>K\!w(JMathematica user

In article <JOE.92Nov9123609@hoihoi.kocb.astem.or.jp> joe@kocb.astem.or.jp (Kazuki Joe) writes:
>   >>> $@#2#1!v#2#1$N9TNs$N5U$r5a$a$h$&$H6lO+$7$F!"(J	
>   >>$@$,L\E*$@$C$?$H$9$l$P!"$?$@$N(J Inverse[A] $@0lH/$G:Q$_$^$X$s$+!*!)!*!)!*(J
>
>$@$=$l$,!"#2#1!v#2#1$N5U$r5a$a$k$?$a$K!"(JInverse[A]$@$r$d$C$F$bMn$A$F$7$^$&(J
>$@$s$G$9$h!#:G=i$OC1$K%a%b%j$,B-$j$J$$$@$1$@$m$&$H7Z$/;W$C$F$$$F!"!J#M#a(J
>$@#c$N!K2>A[5-21%*%s$K$7$F!"%Z!<%8!&%U%!%$%k$r$A$g$C$HIU$1B-$7$F!"!"!"!"(J
>$@$G$b$@$a$@$C$?$s$G$9!#$G!"7k6I!"%a%b%j#8#M#B!"%Z!<%8!&%U%!%$%k#6#0#M#B(J
>$@$G<B9T$7$?=j!"#1#0F|4V7W;;$7$F!"7k6IMn$A$F$7$^$$$^$7$?!##1#0!v#1#0$J$i(J
>$@?t==J,$G:Q$`$N$K!"%7%9%F%`A4BN$,Mn$A$F$7$^$&$H$3$+$i!"$I$&$b%P%0=-$$$J(J
>$@$H;W$C$F$k:#F|$3$N:"$G$9!#(J

$@<:Ni$J$,$i%P%0$G$O$J$$$H;W$$$^$9!#(J
$@B?J,!"#2#1!v#2#1$NJQ?t$r4^$`9TNs$K$D$$$F!"7W;;$5$l$?$H;W$$$^$9$,!"(J
$@$3$N>l9g!"9TNs<0$N9`$,:GBg#2#1!*8D$K$J$k62$l$,$"$k$N$G!"(J
$@$?$H$(%a%b%j!<$,(J1TB($@%F%i%P%$%H!"(J10^12)$@$"$C$?$H$7$F$b(J
$@$@$a$G$7$g$&!#(J
($@#2#1!*$OLs(J2.43*10^16)

$@!tA4It?tCM$J$i!"9`$O#1$D$@$+$i$h$$$N$G$9$,$M!#(J

$@!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!](J
$@!!!!!!!!!!E4E4E4E4!!!!!!>>K\??8c(J (Shingo Matumoto)$@!!!!!!!!!!!!!!!!!!!!!!!!!!!!(J
$@!!!!!!!!!!E4!!!!!!E4!!!!(Jshingo@ipc02.rtri.or.jp$@!!!!!!!!!!!!!!(J $@!!!!!!!!!!!!!!!!(J
$@!!!!!!!!!!E4!!E4E4!!!!!!")#1#8#5!!El5~ET9qJ,;{;T8wD.#2!]#8!]#3#8!!!!!!!!!!!!!!(J
$@!!E4!!!!!!E4!!!!E4!!!!!!E4F;Am9g5;=Q8&5f=j!!M"Aw%7%9%F%`I>2A8&5f<<!!!!!!!!!!!!(J
$@!!!!E4E4E4!!!!!!!!E4!!!!#0#4#2#5!]#7#3!]#7#3#0#6!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(J
$@!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!](J