py1.nb

mathematic

(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.0'

                    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[     53040,       1661]*)
(*NotebookOutlinePosition[     53683,       1683]*)
(*  CellTagsIndexPosition[     53639,       1679]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
    \(bb1 = {{1/7.9187^2, 5}, {1/5.4755^2, 10}, {1/4.4924^2, 
          15}, {1/3.8339^2, 20}, {1/3.4027^2, 25}, {1/3.1715^2, 
          30}, {1/2.9545^2, 35}, {1/2.7662^2, 40}, {1/2.5751^2, 
          45}, {1/2.3939^2, 50}}\), "\[IndentingNewLine]", 
    \(L[k_, q_] := 
      Sum[\((k\ bb1[\([j, 1]\)] + q - bb1[\([j, 2]\)])\)^2, {j, 1, 
          Length[bb1]}]\), "\[IndentingNewLine]", 
    \(Solve[{D[L[k, q], k] \[Equal] 0, D[L[k, q], q] \[Equal] 0}, {k, 
        q}]\), "\[IndentingNewLine]", 
    \(ff1[x_] = Fit[bb1, {1, x}, x]\), "\[IndentingNewLine]", 
    \(\(dm = 
        ListPlot[bb1, 
          PlotStyle \[Rule] {PointSize[0.02], 
              RGBColor[0, 0, 1]}];\)\), "\[IndentingNewLine]", 
    \(fm1 = 
      Plot[ff1[x], {x, 0, 0.2}, PlotStyle \[Rule] RGBColor[0, 1, 0], 
        DisplayFunction \[Rule] Identity]\), "\[IndentingNewLine]", 
    \(Show[{dm, fm1}, DisplayFunction \[Rule] $DisplayFunction]\)}], "Input"],

Cell[BoxData[
    \({{0.01594748564676416`, 5}, {0.033354346293545376`, 
        10}, {0.04954994341356822`, 15}, {0.06803281452050976`, 
        20}, {0.08636796319837596`, 25}, {0.09941926967648398`, 
        30}, {0.11455973790564923`, 35}, {0.13068713765324824`, 
        40}, {0.15080363233048372`, 45}, {0.17449701031742018`, 
        50}}\)], "Output"],

Cell[BoxData[
    \({{k \[Rule] 292.9911881727785`, 
        q \[Rule] 0.4504868349197795`}}\)], "Output"],

Cell[BoxData[
    \(\(\(0.45048683491976776`\)\(\[InvisibleSpace]\)\) + 
      292.9911881727786`\ x\)], "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.0719844 6.00684 -0.0506853 0.0130801 [
[.07819 .04146 -15 -9 ]
[.07819 .04146 15 0 ]
[.22836 .04146 -12 -9 ]
[.22836 .04146 12 0 ]
[.37853 .04146 -15 -9 ]
[.37853 .04146 15 0 ]
[.67887 .04146 -15 -9 ]
[.67887 .04146 15 0 ]
[.82904 .04146 -12 -9 ]
[.82904 .04146 12 0 ]
[.97921 .04146 -15 -9 ]
[.97921 .04146 15 0 ]
[.5162 .08012 -12 -4.5 ]
[.5162 .08012 0 4.5 ]
[.5162 .21092 -12 -4.5 ]
[.5162 .21092 0 4.5 ]
[.5162 .34172 -12 -4.5 ]
[.5162 .34172 0 4.5 ]
[.5162 .47252 -12 -4.5 ]
[.5162 .47252 0 4.5 ]
[.5162 .60332 -12 -4.5 ]
[.5162 .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
.07819 .05396 m
.07819 .06021 L
s
[(0.025)] .07819 .04146 0 1 Mshowa
.22836 .05396 m
.22836 .06021 L
s
[(0.05)] .22836 .04146 0 1 Mshowa
.37853 .05396 m
.37853 .06021 L
s
[(0.075)] .37853 .04146 0 1 Mshowa
.67887 .05396 m
.67887 .06021 L
s
[(0.125)] .67887 .04146 0 1 Mshowa
.82904 .05396 m
.82904 .06021 L
s
[(0.15)] .82904 .04146 0 1 Mshowa
.97921 .05396 m
.97921 .06021 L
s
[(0.175)] .97921 .04146 0 1 Mshowa
.125 Mabswid
.10822 .05396 m
.10822 .05771 L
s
.13825 .05396 m
.13825 .05771 L
s
.16829 .05396 m
.16829 .05771 L
s
.19832 .05396 m
.19832 .05771 L
s
.25839 .05396 m
.25839 .05771 L
s
.28843 .05396 m
.28843 .05771 L
s
.31846 .05396 m
.31846 .05771 L
s
.34849 .05396 m
.34849 .05771 L
s
.40856 .05396 m
.40856 .05771 L
s
.4386 .05396 m
.4386 .05771 L
s
.46863 .05396 m
.46863 .05771 L
s
.49866 .05396 m
.49866 .05771 L
s
.55873 .05396 m
.55873 .05771 L
s
.58877 .05396 m
.58877 .05771 L
s
.6188 .05396 m
.6188 .05771 L
s
.64884 .05396 m
.64884 .05771 L
s
.7089 .05396 m
.7089 .05771 L
s
.73894 .05396 m
.73894 .05771 L
s
.76897 .05396 m
.76897 .05771 L
s
.79901 .05396 m
.79901 .05771 L
s
.85908 .05396 m
.85908 .05771 L
s
.88911 .05396 m
.88911 .05771 L
s
.91914 .05396 m
.91914 .05771 L
s
.94918 .05396 m
.94918 .05771 L
s
.04815 .05396 m
.04815 .05771 L
s
.01812 .05396 m
.01812 .05771 L
s
.25 Mabswid
0 .05396 m
1 .05396 L
s
.5287 .08012 m
.53495 .08012 L
s
[(10)] .5162 .08012 1 0 Mshowa
.5287 .21092 m
.53495 .21092 L
s
[(20)] .5162 .21092 1 0 Mshowa
.5287 .34172 m
.53495 .34172 L
s
[(30)] .5162 .34172 1 0 Mshowa
.5287 .47252 m
.53495 .47252 L
s
[(40)] .5162 .47252 1 0 Mshowa
.5287 .60332 m
.53495 .60332 L
s
[(50)] .5162 .60332 1 0 Mshowa
.125 Mabswid
.5287 .10628 m
.53245 .10628 L
s
.5287 .13244 m
.53245 .13244 L
s
.5287 .1586 m
.53245 .1586 L
s
.5287 .18476 m
.53245 .18476 L
s
.5287 .23708 m
.53245 .23708 L
s
.5287 .26324 m
.53245 .26324 L
s
.5287 .2894 m
.53245 .2894 L
s
.5287 .31556 m
.53245 .31556 L
s
.5287 .36788 m
.53245 .36788 L
s
.5287 .39404 m
.53245 .39404 L
s
.5287 .4202 m
.53245 .4202 L
s
.5287 .44636 m
.53245 .44636 L
s
.5287 .49868 m
.53245 .49868 L
s
.5287 .52484 m
.53245 .52484 L
s
.5287 .551 m
.53245 .551 L
s
.5287 .57716 m
.53245 .57716 L
s
.5287 .0278 m
.53245 .0278 L
s
.5287 .00164 m
.53245 .00164 L
s
.25 Mabswid
.5287 0 m
.5287 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
0 0 1 r
.02 w
.02381 .01472 Mdot
.12837 .08012 Mdot
.22565 .14552 Mdot
.33668 .21092 Mdot
.44681 .27632 Mdot
.52521 .34172 Mdot
.61616 .40712 Mdot
.71303 .47252 Mdot
.83387 .53792 Mdot
.97619 .60332 Mdot
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool0099oo`8008aoo`00TWoo00<007ooOol0Rgoo0005Ool301n:Ool00`00Oomoo`2;Ool000Aoo`D0
7hUoo`03001oogoo08]oo`0017oo1@0O00<007ooOol00Woo0P0017oo0P000goo10000goo0P004goo
0P0017oo0P0017oo0P0017oo0P004goo0P0017oo0P0017oo0P001Goo00<007ooOol00Woo0P0077oo
00<007ooOol06Woo0P0017oo0P000goo1@0000=oo`0000000P000goo0P004goo0P0017oo0P000goo
1@000Woo0P004goo0P0017oo0P000goo1@000goo00<007ooOol00Woo0P000goo0004Ool501l00goo
001oo`07Ool01000Oomoo`000Woo00<007ooOol00goo00@007ooOol0015oo`04001oogoo0008Ool0
1000Oomoo`000Woo00@007ooOol0015oo`04001oogoo0008Ool01000Oomoo`0017oo00D007ooOomo
o`00009oo`03001oogoo01Uoo`03001oogoo01Uoo`04001oogoo000:Ool01@00Oomoogoo00001Goo
00@007ooOol0015oo`04001oogoo000:Ool01@00Oomoogoo00000Woo00<007ooOol03goo00@007oo
Ool000Yoo`03001oogoo00=oo`05001oogooOol00002Ool10001Ool1Ool000Eoo`<07`9oo`03001o
ogoo00Ioo`04001oogoo0003Ool00`00Oomoo`05Ool00`00Oomoo`0?Ool01000Oomoo`0027oo00@0
07ooOol000Eoo`03001oogoo00moo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol017oo
00<007ooOol06Goo00<007ooOol06Goo00@007ooOol000Yoo`03001oogoo009oo`03001oogoo00Eo
o`03001oogoo00moo`04001oogoo000:Ool00`00Oomoo`04Ool00`00Oomoo`0?Ool01000Oomoo`00
2Woo00<007ooOol00goo00<007ooOol017oo0@000Goo0Goo0007Ool01000Oomoo`0027oo00@007oo
Ool000Aoo`03001oogoo009oo`80019oo`04001oogoo0008Ool01000Oomoo`000goo0P004Woo00@0
07ooOol000Qoo`04001oogoo0005Ool01000Oomoogoo0P0077oo00<007ooOol06Goo00@007ooOol0
00Yoo`03001oogoo00=oo`03001oogoo009oo`80019oo`04001oogoo000:Ool00`00Oomoo`02Ool2
000BOol01000Oomoo`002Woo00<007ooOol017oo00@007ooOomoo`8000=oo`001goo00@007ooOol0
00Qoo`04001oogoo0002Ool01000Oomoo`000goo00<007ooOol04Goo00@007ooOol000Qoo`04001o
ogoo0003Ool00`00Oomoo`0AOol01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo0003Ool0
0`00Oomoo`0KOol2000JOol01000Oomoo`002Woo00D007ooOomoo`00009oo`05001oogooOol0000C
Ool01000Oomoo`002Woo00<007ooOol00Woo00<007ooOol04Goo00@007ooOol000Yoo`05001oogoo
Ool00002Ool01@00Oomoogoo000017oo0008Ool2000:Ool20004Ool20004Ool3000BOol2000:Ool2
0004Ool3000BOol2000:Ool20003Ool40003Ool3000KOol00`00Oomoo`0JOol2000:Ool20004Ool2
0004Ool3000BOol2000:Ool20004Ool3000BOol2000:Ool20003Ool40003Ool30002Ool0099oo`03
001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]o
o`00TWoo00<007ooOol0Rgoo003o000G000:Ool000Eoo`03001oogoo00Eoo`03001oogoo00Eoo`03
001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Eoo`03
001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Eoo`03001oogoo00Ioo`03
001oogoo00Eoo`03001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Eoo`03
001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Eoo`03
001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Eoo`03001oogoo00Ioo`03
001oogoo00Eoo`03001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Ioo`03
001oogoo00eoo`005Goo00<007ooOol09goo00<007ooOol09goo00<007ooOol09Woo00<007ooOol0
9goo00<007ooOol09goo00<007ooOol09goo00<007ooOol03Goo002BOol00`00Oomoo`2;Ool0099o
o`03001oogoo08]oo`008Woo0`0OGgoo1@000Woo0P001Goo00<007ooOol0Rgoo000QOol501mPOol0
1@00Oomoogoo00000Woo00<007ooOol00Woo00<007ooOol0Rgoo000QOol501mPOol01@00Oomoogoo
00000Woo00<007ooOol00Woo0`00Rgoo000QOol501mPOol01@00Oomoogoo00000Woo00<007ooOol0
0Woo00<007ooOol0Rgoo000ROol301mQOol01@00Oomoogoo00000Woo00<007ooOol00Woo00<007oo
Ool0Rgoo0025Ool20004Ool20005Ool00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<0
07ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo0P00S7oo002BOol0
0`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;
Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol2002<Ool0099oo`03001oogoo
08]oo`00?Goo0`0ODWoo00<007ooOol0Rgoo000lOol501mAOol00`00Oomoo`2;Ool003aoo`D07e5o
o`03001oogoo08]oo`00?7oo1@0ODGoo00<007ooOol0Rgoo000mOol301mBOol00`00Oomoo`2;Ool0
099oo`8008aoo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]o
o`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo0P00
S7oo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol0
0`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00G7oo0`0O9Goo10000goo0P001Goo00<007ooOol0
Rgoo001KOol501lTOol00`00Oomoo`03Ool01000Oomoo`0017oo00<007ooOol0Rgoo001KOol501lU
Ool00`00Oomoo`02Ool01000Oomoo`0017oo0`00Rgoo001KOol501lVOol01@00Oomoogoo00000Woo
00<007ooOol00Woo00<007ooOol0Rgoo001LOol301lUOol01000Oomoo`000Woo00@007ooOol000Ao
o`03001oogoo08]oo`00QGoo0P0017oo0P001Goo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0
099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol2002<Ool0099oo`03001oogoo08]o
o`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<0
07ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`8008aoo`00TWoo00<007ooOol0Rgoo001jOol3
01lEOol00`00Oomoo`2;Ool007Uoo`D07aAoo`03001oogoo08]oo`00NGoo1@0O57oo00<007ooOol0
Rgoo001iOol501lDOol00`00Oomoo`2;Ool007Yoo`<07aEoo`03001oogoo08]oo`00TWoo0P00S7oo
002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol00`00
Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0
099oo`8008aoo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]o
o`00TWoo00<007ooOol0Rgoo0025Ool20004Ool20003Ool301n=Ool008Aoo`04001oogoo0002Ool0
1@00Oomoo`00Ool01@0OS7oo0026Ool01@00Oomoogoo00000Woo00<007oo01l0100O00<007ooOol0
RGoo0027Ool01000Oomoo`000Woo00<007oo01l0100OS7oo0024Ool01000Oomoo`000Woo00@007oo
Ool0009oo`<07heoo`00QGoo0P0017oo0P001Goo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0
099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol2002<Ool0099oo`03001oogoo08]o
o`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<0
07ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`8008aoo`00TWoo00<007ooOol0Rgoo002BOol0
0`00Oomoo`0DOol301mdOol0099oo`03001oogoo01=oo`D07g=oo`00TWoo00<007ooOol04goo1@0O
Lgoo002BOol00`00Oomoo`0COol501mcOol0099oo`03001oogoo01Aoo`<07gAoo`00TWoo00<007oo
Ool0Rgoo002BOol2002<Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol00`00
Oomoo`2;Ool0099oo`03001oogoo08]oo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0
099oo`8008aoo`00TWoo00<007ooOol0Rgoo002BOol00`00Oomoo`2;Ool0099oo`03001oogoo08]o
o`00TWoo00<007ooOol0Rgoo0026Ool30002Ool20005Ool00`00Oomoo`0_Ool301mIOol008Moo`04
001oogoo0002Ool00`00Oomoo`02Ool00`00Oomoo`0^Ool501mHOol008Aoo`D00005Ool007ooOol0
0004Ool3000^Ool501mHOol008Aoo`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol0;Woo