🚀 go-pugleaf

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>