untitled-3.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[     81187,       2448]*)
(*NotebookOutlinePosition[     81831,       2470]*)
(*  CellTagsIndexPosition[     81787,       2466]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[{
    \(\(s[n_] := Sum[\(k!\)\/k\^k, {k, 1, n}];\)\), "\[IndentingNewLine]", 
    \(\(data = Table[s[n], {n, 1, 400}];\)\), "\[IndentingNewLine]", 
    \(ListPlot[data]\)}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(N[Sum[\(n!\)\/n^n, {n, Infinity}], 30]\)], "Input"],

Cell[BoxData[
    \(1.879853862175258533488285257898881`21.0642\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(m = \(-2\); f[x_] := \((1 + x)\)^m; x0 = 1;\), "\[IndentingNewLine]", 
    \(\(g[n_, x0_] := 
        D[f[x], {x, n}] /. x \[Rule] x0;\)\), "\[IndentingNewLine]", 
    \(\(s[n_, x_] := 
        Sum[g[k, x0]\/\(k!\)*\((x - x0)\)^k, {k, 0, 
            n}];\)\), "\[IndentingNewLine]", 
    \(\(t = Table[s[n, x], {n, 20}];\)\), "\[IndentingNewLine]", 
    \(\(p1 = 
        Plot[Evaluate[t], {x, \(-1\)/2, 1/2}];\)\), "\[IndentingNewLine]", 
    \(\(p2 = 
        Plot[\((1 + x)\)^m, {x, \(-1\)/2, 1/2}, 
          PlotStyle \[Rule] RGBColor[0, 0, 1]];\)\), "\[IndentingNewLine]", 
    \(Show[p1, p2]\)}], "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.952381 0.0147151 0.149371 [
[.11905 .00222 -12 -9 ]
[.11905 .00222 12 0 ]
[.30952 .00222 -12 -9 ]
[.30952 .00222 12 0 ]
[.69048 .00222 -9 -9 ]
[.69048 .00222 9 0 ]
[.88095 .00222 -9 -9 ]
[.88095 .00222 9 0 ]
[.4875 .16409 -6 -4.5 ]
[.4875 .16409 0 4.5 ]
[.4875 .31346 -6 -4.5 ]
[.4875 .31346 0 4.5 ]
[.4875 .46283 -6 -4.5 ]
[.4875 .46283 0 4.5 ]
[.4875 .6122 -6 -4.5 ]
[.4875 .6122 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
.11905 .01472 m
.11905 .02097 L
s
[(-0.4)] .11905 .00222 0 1 Mshowa
.30952 .01472 m
.30952 .02097 L
s
[(-0.2)] .30952 .00222 0 1 Mshowa
.69048 .01472 m
.69048 .02097 L
s
[(0.2)] .69048 .00222 0 1 Mshowa
.88095 .01472 m
.88095 .02097 L
s
[(0.4)] .88095 .00222 0 1 Mshowa
.125 Mabswid
.16667 .01472 m
.16667 .01847 L
s
.21429 .01472 m
.21429 .01847 L
s
.2619 .01472 m
.2619 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.7381 .01472 m
.7381 .01847 L
s
.78571 .01472 m
.78571 .01847 L
s
.83333 .01472 m
.83333 .01847 L
s
.07143 .01472 m
.07143 .01847 L
s
.02381 .01472 m
.02381 .01847 L
s
.92857 .01472 m
.92857 .01847 L
s
.97619 .01472 m
.97619 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.5 .16409 m
.50625 .16409 L
s
[(1)] .4875 .16409 1 0 Mshowa
.5 .31346 m
.50625 .31346 L
s
[(2)] .4875 .31346 1 0 Mshowa
.5 .46283 m
.50625 .46283 L
s
[(3)] .4875 .46283 1 0 Mshowa
.5 .6122 m
.50625 .6122 L
s
[(4)] .4875 .6122 1 0 Mshowa
.125 Mabswid
.5 .04459 m
.50375 .04459 L
s
.5 .07446 m
.50375 .07446 L
s
.5 .10434 m
.50375 .10434 L
s
.5 .13421 m
.50375 .13421 L
s
.5 .19396 m
.50375 .19396 L
s
.5 .22384 m
.50375 .22384 L
s
.5 .25371 m
.50375 .25371 L
s
.5 .28358 m
.50375 .28358 L
s
.5 .34333 m
.50375 .34333 L
s
.5 .37321 m
.50375 .37321 L
s
.5 .40308 m
.50375 .40308 L
s
.5 .43295 m
.50375 .43295 L
s
.5 .4927 m
.50375 .4927 L
s
.5 .52258 m
.50375 .52258 L
s
.5 .55245 m
.50375 .55245 L
s
.5 .58233 m
.50375 .58233 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 .10807 m
.06244 .10656 L
.10458 .10491 L
.14415 .10335 L
.18221 .10186 L
.22272 .10027 L
.26171 .09874 L
.30316 .09712 L
.34309 .09555 L
.3815 .09405 L
.42237 .09244 L
.46172 .0909 L
.49955 .08942 L
.53984 .08784 L
.57861 .08632 L
.61984 .0847 L
.65954 .08315 L
.69774 .08165 L
.73838 .08005 L
.77751 .07852 L
.81909 .07689 L
.85916 .07532 L
.89771 .07381 L
.93871 .0722 L
.97619 .07073 L
s
.02381 .17109 m
.06244 .16621 L
.10458 .161 L
.14415 .1562 L
.18221 .15168 L
.22272 .14696 L
.26171 .14252 L
.30316 .1379 L
.34309 .13355 L
.3815 .12946 L
.42237 .1252 L
.46172 .12121 L
.49955 .11745 L
.53984 .11355 L
.57861 .10989 L
.61984 .1061 L
.65954 .10255 L
.69774 .09923 L
.73838 .0958 L
.77751 .09258 L
.81909 .08927 L
.85916 .08618 L
.89771 .08331 L
.93871 .08035 L
.97619 .07773 L
s
.02381 .2341 m
.06244 .22425 L
.10458 .21392 L
.14415 .20459 L
.18221 .19597 L
.22272 .18715 L
.26171 .17901 L
.30316 .17071 L
.34309 .16305 L
.3815 .156 L
.42237 .14882 L
.46172 .14222 L
.49955 .13615 L
.53984 .12998 L
.57861 .12431 L
.61984 .11858 L
.65954 .11333 L
.69774 .10852 L
.73838 .10366 L
.77751 .09923 L
.81909 .09476 L
.85916 .0907 L
.89771 .08699 L
.93871 .08328 L
.97619 .08007 L
s
.02381 .29318 m
.06244 .27719 L
.10458 .26073 L
.14415 .24614 L
.18221 .23289 L
.22272 .21958 L
.26171 .20751 L
.30316 .19545 L
.34309 .18453 L
.3815 .17466 L
.42237 .16479 L
.46172 .15588 L
.49955 .14784 L
.53984 .13981 L
.57861 .13258 L
.61984 .12539 L
.65954 .11893 L
.69774 .11312 L
.73838 .10735 L
.77751 .10217 L
.81909 .09704 L
.85916 .09245 L
.89771 .08834 L
.93871 .08426 L
.97619 .08079 L
s
.02381 .34635 m
.06244 .32355 L
.10458 .30047 L
.14415 .28039 L
.18221 .26244 L
.22272 .24471 L
.26171 .2289 L
.30316 .21336 L
.34309 .19954 L
.3815 .18724 L
.42237 .17515 L
.46172 .16441 L
.49955 .15486 L
.53984 .14547 L
.57861 .13713 L
.61984 .12897 L
.65954 .12173 L
.69774 .11531 L
.73838 .10901 L
.77751 .10342 L
.81909 .09795 L
.85916 .09311 L
.89771 .08881 L
.93871 .08458 L
.97619 .08101 L
s
.02381 .39288 m
.06244 .36302 L
.10458 .33328 L
.14415 .30782 L
.18221 .28542 L
.22272 .26363 L
.26171 .2445 L
.30316 .22597 L
.34309 .20974 L
.3815 .1955 L
.42237 .18169 L
.46172 .16958 L
.49955 .15896 L
.53984 .14863 L
.57861 .13957 L
.61984 .13079 L
.65954 .12309 L
.69774 .11632 L
.73838 .10973 L
.77751 .10394 L
.81909 .09831 L
.85916 .09335 L
.89771 .08897 L
.93871 .08468 L
.97619 .08108 L
s
.02381 .43275 m
.06244 .39593 L
.10458 .35981 L
.14415 .32936 L
.18221 .30294 L
.22272 .27759 L
.26171 .25564 L
.30316 .23467 L
.34309 .21653 L
.3815 .2008 L
.42237 .18573 L
.46172 .17266 L
.49955 .1613 L
.53984 .15036 L