untitled-4.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[     18168,        498]*)
(*NotebookOutlinePosition[     18813,        520]*)
(*  CellTagsIndexPosition[     18769,        516]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
    \(\(x = Table[0 + i, {i, 0, 7}];\)\), "\[IndentingNewLine]", 
    \(\(y = {27.0, 26.8, 26.5, 26.3, 26.1, 25.7, 25.3, 
          24.8};\)\), "\[IndentingNewLine]", 
    \(xy = 
      Table[{x[\([i]\)], y[\([i]\)]}, {i, 1, 8}]\), "\[IndentingNewLine]", 
    \(ListPlot[xy, PlotStyle \[Rule] PointSize[0.015]]\)}], "Input"],

Cell[BoxData[
    \({{0, 27.`}, {1, 26.8`}, {2, 26.5`}, {3, 26.3`}, {4, 26.1`}, {5, 
        25.7`}, {6, 25.3`}, {7, 24.8`}}\)], "Output"],

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.0238095 0.136054 -6.62046 0.267547 [
[.15986 .05572 -3 -9 ]
[.15986 .05572 3 0 ]
[.29592 .05572 -3 -9 ]
[.29592 .05572 3 0 ]
[.43197 .05572 -3 -9 ]
[.43197 .05572 3 0 ]
[.56803 .05572 -3 -9 ]
[.56803 .05572 3 0 ]
[.70408 .05572 -3 -9 ]
[.70408 .05572 3 0 ]
[.84014 .05572 -3 -9 ]
[.84014 .05572 3 0 ]
[.97619 .05572 -3 -9 ]
[.97619 .05572 3 0 ]
[.01131 .202 -24 -4.5 ]
[.01131 .202 0 4.5 ]
[.01131 .33577 -12 -4.5 ]
[.01131 .33577 0 4.5 ]
[.01131 .46955 -24 -4.5 ]
[.01131 .46955 0 4.5 ]
[.01131 .60332 -12 -4.5 ]
[.01131 .60332 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
.15986 .06822 m
.15986 .07447 L
s
[(1)] .15986 .05572 0 1 Mshowa
.29592 .06822 m
.29592 .07447 L
s
[(2)] .29592 .05572 0 1 Mshowa
.43197 .06822 m
.43197 .07447 L
s
[(3)] .43197 .05572 0 1 Mshowa
.56803 .06822 m
.56803 .07447 L
s
[(4)] .56803 .05572 0 1 Mshowa
.70408 .06822 m
.70408 .07447 L
s
[(5)] .70408 .05572 0 1 Mshowa
.84014 .06822 m
.84014 .07447 L
s
[(6)] .84014 .05572 0 1 Mshowa
.97619 .06822 m
.97619 .07447 L
s
[(7)] .97619 .05572 0 1 Mshowa
.125 Mabswid
.05102 .06822 m
.05102 .07197 L
s
.07823 .06822 m
.07823 .07197 L
s
.10544 .06822 m
.10544 .07197 L
s
.13265 .06822 m
.13265 .07197 L
s
.18707 .06822 m
.18707 .07197 L
s
.21429 .06822 m
.21429 .07197 L
s
.2415 .06822 m
.2415 .07197 L
s
.26871 .06822 m
.26871 .07197 L
s
.32313 .06822 m
.32313 .07197 L
s
.35034 .06822 m
.35034 .07197 L
s
.37755 .06822 m
.37755 .07197 L
s
.40476 .06822 m
.40476 .07197 L
s
.45918 .06822 m
.45918 .07197 L
s
.48639 .06822 m
.48639 .07197 L
s
.51361 .06822 m
.51361 .07197 L
s
.54082 .06822 m
.54082 .07197 L
s
.59524 .06822 m
.59524 .07197 L
s
.62245 .06822 m
.62245 .07197 L
s
.64966 .06822 m
.64966 .07197 L
s
.67687 .06822 m
.67687 .07197 L
s
.73129 .06822 m
.73129 .07197 L
s
.7585 .06822 m
.7585 .07197 L
s
.78571 .06822 m
.78571 .07197 L
s
.81293 .06822 m
.81293 .07197 L
s
.86735 .06822 m
.86735 .07197 L
s
.89456 .06822 m
.89456 .07197 L
s
.92177 .06822 m
.92177 .07197 L
s
.94898 .06822 m
.94898 .07197 L
s
.25 Mabswid
0 .06822 m
1 .06822 L
s
.02381 .202 m
.03006 .202 L
s
[(25.5)] .01131 .202 1 0 Mshowa
.02381 .33577 m
.03006 .33577 L
s
[(26)] .01131 .33577 1 0 Mshowa
.02381 .46955 m
.03006 .46955 L
s
[(26.5)] .01131 .46955 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(27)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .09498 m
.02756 .09498 L
s
.02381 .12173 m
.02756 .12173 L
s
.02381 .14849 m
.02756 .14849 L
s
.02381 .17524 m
.02756 .17524 L
s
.02381 .22875 m
.02756 .22875 L
s
.02381 .25551 m
.02756 .25551 L
s
.02381 .28226 m
.02756 .28226 L
s
.02381 .30902 m
.02756 .30902 L
s