vol7_chapt3_exe14.nb

可以了吧

(************** Content-type: application/mathematica **************

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: [e-mail]
  phone: [phone] (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[    712350,      17888]*)
(*NotebookOutlinePosition[    712993,      17910]*)
(*  CellTagsIndexPosition[    712949,      17906]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \(\[FilledDiamond]\[FilledDiamond]\[FilledDiamond]\[FilledDiamond]\:7531\ \
H = 0, \:4e14\:4ee4m = \(\(M\/\(\(\[Mu]\_0\) 
                N\)\) \:548ct = \(\(T\/\[Theta]\) \:5f97x = \(\(1\/\(\(k\_B\) 
                    T\)\) \((\(\[Mu]\_0\) 
                    H + \(k\_B\) \[Theta]\ m)\) = \(m\/t\) \:3002\
\[FilledDiamond]\[FilledDiamond]\[FilledDiamond]\[FilledDiamond]\)\)\)\)], \
"Input"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(a1 = 
      Table[\[IndentingNewLine]x = m\/t; 
        f = m - \(\[ExponentialE]\^x - \[ExponentialE]\^\(-x\)\)\/\(\
\[ExponentialE]\^x + \[ExponentialE]\^\(-x\)\); \[IndentingNewLine]Plot[
          f, {m, \(-10\), 10}]; \[IndentingNewLine]FindRoot[
          f \[Equal] 0, {m, 1}], \[IndentingNewLine]{t, 0.1, 1, 
          0.05}]\), "\[IndentingNewLine]", 
    \(a2 = 
      Table[\[IndentingNewLine]x = m\/t; 
        f = m - \(\[ExponentialE]\^x - \[ExponentialE]\^\(-x\)\)\/\(\
\[ExponentialE]\^x + \[ExponentialE]\^\(-x\)\); \[IndentingNewLine]Plot[
          f, {m, \(-10\), 10}]; \[IndentingNewLine]FindRoot[
          f \[Equal] 0, {m, \(-1\)}], \[IndentingNewLine]{t, 0.1, 1, 
          0.05}]\)}], "Input"],

Cell[CellGroupData[{

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.0476191 0.309017 0.0327002 [
[.02381 .29652 -9 -9 ]
[.02381 .29652 9 0 ]
[.2619 .29652 -6 -9 ]
[.2619 .29652 6 0 ]
[.7381 .29652 -3 -9 ]
[.7381 .29652 3 0 ]
[.97619 .29652 -6 -9 ]
[.97619 .29652 6 0 ]
[.4875 .06377 -24 -4.5 ]
[.4875 .06377 0 4.5 ]
[.4875 .14552 -12 -4.5 ]
[.4875 .14552 0 4.5 ]
[.4875 .22727 -24 -4.5 ]
[.4875 .22727 0 4.5 ]
[.4875 .39077 -18 -4.5 ]
[.4875 .39077 0 4.5 ]
[.4875 .47252 -6 -4.5 ]
[.4875 .47252 0 4.5 ]
[.4875 .55427 -18 -4.5 ]
[.4875 .55427 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 .30902 m
.02381 .31527 L
s
[(-10)] .02381 .29652 0 1 Mshowa
.2619 .30902 m
.2619 .31527 L
s
[(-5)] .2619 .29652 0 1 Mshowa
.7381 .30902 m
.7381 .31527 L
s
[(5)] .7381 .29652 0 1 Mshowa
.97619 .30902 m
.97619 .31527 L
s
[(10)] .97619 .29652 0 1 Mshowa
.125 Mabswid
.07143 .30902 m
.07143 .31277 L
s
.11905 .30902 m
.11905 .31277 L
s
.16667 .30902 m
.16667 .31277 L
s
.21429 .30902 m
.21429 .31277 L
s
.30952 .30902 m
.30952 .31277 L
s
.35714 .30902 m
.35714 .31277 L
s
.40476 .30902 m
.40476 .31277 L
s
.45238 .30902 m
.45238 .31277 L
s
.54762 .30902 m
.54762 .31277 L
s
.59524 .30902 m
.59524 .31277 L
s
.64286 .30902 m
.64286 .31277 L
s
.69048 .30902 m
.69048 .31277 L
s
.78571 .30902 m
.78571 .31277 L
s
.83333 .30902 m
.83333 .31277 L
s
.88095 .30902 m
.88095 .31277 L
s
.92857 .30902 m
.92857 .31277 L
s
.25 Mabswid
0 .30902 m
1 .30902 L
s
.5 .06377 m
.50625 .06377 L
s
[(-7.5)] .4875 .06377 1 0 Mshowa
.5 .14552 m
.50625 .14552 L
s
[(-5)] .4875 .14552 1 0 Mshowa
.5 .22727 m
.50625 .22727 L
s
[(-2.5)] .4875 .22727 1 0 Mshowa
.5 .39077 m
.50625 .39077 L
s
[(2.5)] .4875 .39077 1 0 Mshowa
.5 .47252 m
.50625 .47252 L
s
[(5)] .4875 .47252 1 0 Mshowa
.5 .55427 m
.50625 .55427 L
s
[(7.5)] .4875 .55427 1 0 Mshowa
.125 Mabswid
.5 .08012 m
.50375 .08012 L
s
.5 .09647 m
.50375 .09647 L
s
.5 .11282 m
.50375 .11282 L
s
.5 .12917 m
.50375 .12917 L
s
.5 .16187 m
.50375 .16187 L
s
.5 .17822 m
.50375 .17822 L
s
.5 .19457 m
.50375 .19457 L
s
.5 .21092 m
.50375 .21092 L
s
.5 .24362 m
.50375 .24362 L
s
.5 .25997 m
.50375 .25997 L
s
.5 .27632 m
.50375 .27632 L
s
.5 .29267 m
.50375 .29267 L
s
.5 .32537 m
.50375 .32537 L
s
.5 .34172 m
.50375 .34172 L
s
.5 .35807 m
.50375 .35807 L
s
.5 .37442 m
.50375 .37442 L
s
.5 .40712 m
.50375 .40712 L
s
.5 .42347 m
.50375 .42347 L
s
.5 .43982 m
.50375 .43982 L
s
.5 .45617 m
.50375 .45617 L
s
.5 .48887 m
.50375 .48887 L
s
.5 .50522 m
.50375 .50522 L
s
.5 .52157 m
.50375 .52157 L
s
.5 .53792 m
.50375 .53792 L
s
.5 .04742 m
.50375 .04742 L
s
.5 .03107 m
.50375 .03107 L
s
.5 .01472 m
.50375 .01472 L
s
.5 .57062 m
.50375 .57062 L
s
.5 .58697 m
.50375 .58697 L
s
.5 .60332 m
.50375 .60332 L
s
.25 Mabswid
.5 0 m
.5 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.06244 .04125 L
.10458 .07018 L
.14415 .09735 L
.18221 .12349 L
.22272 .15131 L
.26171 .17808 L
.30316 .20654 L
.34309 .23396 L
.3815 .26034 L
.42237 .28841 L
.44268 .30236 L
.46172 .31543 L
.47994 .32793 L
.48519 .33142 L
.48645 .33219 L
.48778 .33294 L
.48902 .33353 L
.49018 .33393 L
.49131 .33409 L
.49253 .33387 L
.49364 .33312 L
.49466 .33177 L
.4958 .32928 L
.49704 .32504 L
.49834 .31884 L
.49955 .31178 L
.50198 .29752 L
.5032 .29203 L
.5039 .28963 L
.50456 .28785 L
.50527 .28639 L
.50592 .28541 L
.50663 .28467 L
.50739 .2842 L
.50864 .28394 L
.50934 .284 L
.51 .28415 L
.51129 .28464 L
.51251 .28525 L
.51479 .2866 L
.5199 .29 L
.53846 .30273 L