5.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[    457036,      14202]*)
(*NotebookOutlinePosition[    457680,      14224]*)
(*  CellTagsIndexPosition[    457636,      14220]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
    \(Clear[sn, g]; sn = 0; n = 1; g = {}; m = 3;\), "\[IndentingNewLine]", 
    \(\(While[1/n > 10^\(-m\), 
        sn = sn + \((\(-1\))\)^\((n - 1)\)/n; \[IndentingNewLine]g = 
          Append[g, 
            Graphics[{RGBColor[Abs[Sin[n]], 0, 1/n], 
                Line[{{sn, 0}, {sn, 
                      1}}]}]]; \(n++\)];\)\), "\[IndentingNewLine]", 
    \(\(Show[g, PlotRange \[Rule] {\(-0.2\), 1.3}, 
        Axes \[Rule] True];\)\)}], "Input"],

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
-57.2624 83.3333 0.0824045 0.412023 [
[.0709 .0699 -15 -9 ]
[.0709 .0699 15 0 ]
[.40423 .0699 -15 -9 ]
[.40423 .0699 15 0 ]
[.5709 .0699 -15 -9 ]
[.5709 .0699 15 0 ]
[.73756 .0699 -15 -9 ]
[.73756 .0699 15 0 ]
[.90423 .0699 -15 -9 ]
[.90423 .0699 15 0 ]
[.22506 0 -24 -4.5 ]
[.22506 0 0 4.5 ]
[.22506 .16481 -18 -4.5 ]
[.22506 .16481 0 4.5 ]
[.22506 .24721 -18 -4.5 ]
[.22506 .24721 0 4.5 ]
[.22506 .32962 -18 -4.5 ]
[.22506 .32962 0 4.5 ]
[.22506 .41202 -18 -4.5 ]
[.22506 .41202 0 4.5 ]
[.22506 .49443 -6 -4.5 ]
[.22506 .49443 0 4.5 ]
[.22506 .57683 -18 -4.5 ]
[.22506 .57683 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
.0709 .0824 m
.0709 .08865 L
s
[(0.688)] .0709 .0699 0 1 Mshowa
.40423 .0824 m
.40423 .08865 L
s
[(0.692)] .40423 .0699 0 1 Mshowa
.5709 .0824 m
.5709 .08865 L
s
[(0.694)] .5709 .0699 0 1 Mshowa
.73756 .0824 m
.73756 .08865 L
s
[(0.696)] .73756 .0699 0 1 Mshowa
.90423 .0824 m
.90423 .08865 L
s
[(0.698)] .90423 .0699 0 1 Mshowa
.125 Mabswid
.11256 .0824 m
.11256 .08615 L
s
.15423 .0824 m
.15423 .08615 L
s
.1959 .0824 m
.1959 .08615 L
s
.27923 .0824 m
.27923 .08615 L
s
.3209 .0824 m
.3209 .08615 L
s
.36256 .0824 m
.36256 .08615 L
s
.4459 .0824 m
.4459 .08615 L
s
.48756 .0824 m
.48756 .08615 L
s
.52923 .0824 m
.52923 .08615 L
s
.61256 .0824 m
.61256 .08615 L
s
.65423 .0824 m
.65423 .08615 L
s
.6959 .0824 m
.6959 .08615 L
s
.77923 .0824 m
.77923 .08615 L
s
.8209 .0824 m
.8209 .08615 L
s
.86256 .0824 m
.86256 .08615 L
s
.02923 .0824 m
.02923 .08615 L
s
.9459 .0824 m
.9459 .08615 L
s
.98756 .0824 m
.98756 .08615 L
s
.25 Mabswid
0 .0824 m
1 .0824 L
s
.23756 0 m
.24381 0 L
s
[(-0.2)] .22506 0 1 0 Mshowa
.23756 .16481 m
.24381 .16481 L
s
[(0.2)] .22506 .16481 1 0 Mshowa
.23756 .24721 m
.24381 .24721 L
s
[(0.4)] .22506 .24721 1 0 Mshowa
.23756 .32962 m
.24381 .32962 L
s
[(0.6)] .22506 .32962 1 0 Mshowa
.23756 .41202 m
.24381 .41202 L
s
[(0.8)] .22506 .41202 1 0 Mshowa
.23756 .49443 m
.24381 .49443 L
s
[(1)] .22506 .49443 1 0 Mshowa
.23756 .57683 m
.24381 .57683 L
s
[(1.2)] .22506 .57683 1 0 Mshowa
.125 Mabswid
.23756 .0206 m
.24131 .0206 L
s
.23756 .0412 m
.24131 .0412 L
s
.23756 .0618 m
.24131 .0618 L
s
.23756 .10301 m
.24131 .10301 L
s
.23756 .12361 m
.24131 .12361 L
s
.23756 .14421 m
.24131 .14421 L
s
.23756 .18541 m
.24131 .18541 L
s
.23756 .20601 m
.24131 .20601 L
s
.23756 .22661 m
.24131 .22661 L
s
.23756 .26781 m
.24131 .26781 L
s
.23756 .28842 m
.24131 .28842 L
s
.23756 .30902 m
.24131 .30902 L
s
.23756 .35022 m
.24131 .35022 L
s
.23756 .37082 m
.24131 .37082 L
s
.23756 .39142 m
.24131 .39142 L
s
.23756 .43262 m
.24131 .43262 L
s
.23756 .45322 m
.24131 .45322 L
s
.23756 .47383 m
.24131 .47383 L
s
.23756 .51503 m
.24131 .51503 L
s
.23756 .53563 m
.24131 .53563 L
s
.23756 .55623 m
.24131 .55623 L
s
.23756 .59743 m
.24131 .59743 L
s
.25 Mabswid
.23756 0 m
.23756 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.841 0 1 r
.5 Mabswid
.909 0 .5 r
.141 0 .333 r
.757 0 .25 r
.959 0 .2 r
.279 0 .167 r
.657 0 .143 r
.989 0 .125 r
.412 0 .111 r
.544 0 .1 r
1 0 .091 r
.537 0 .083 r
.42 0 .077 r
.991 0 .071 r
.65 0 .067 r
.288 0 .063 r
.961 0 .059 r
.751 0 .056 r
.15 0 .053 r
.913 0 .05 r
.837 0 .048 r
.009 0 .045 r
.846 0 .043 r
.906 0 .042 r
.132 0 .04 r
.763 0 .038 r
.956 0 .037 r
.271 0 .036 r
.664 0 .034 r
.988 0 .033 r
.404 0 .032 r
.551 0 .031 r
1 0 .03 r
.529 0 .029 r
.428 0 .029 r
.992 0 .028 r
.644 0 .027 r
.296 0 .026 r
.964 0 .026 r
.745 0 .025 r
.159 0 .024 r
.917 0 .024 r
.832 0 .023 r
.018 0 .023 r
.851 0 .022 r
.902 0 .022 r
.124 0 .021 r
.768 0 .021 r
.954 0 .02 r
.262 0 .02 r
.67 0 .02 r
.987 0 .019 r
.396 0 .019 r
.559 0 .019 r
1 0 .018 r
.522 0 .018 r
.436 0 .018 r
.993 0 .017 r
.637 0 .017 r
.305 0 .017 r
.966 0 .016 r
.739 0 .016 r
.167 0 .016 r
.92 0 .016 r
.827 0 .015 r
.027 0 .015 r
.856 0 .015 r
.898 0 .015 r
.115 0 .014 r
.774 0 .014 r
.951 0 .014 r
.254 0 .014 r
.677 0 .014 r
.985 0 .014 r
.388 0 .013 r
.566 0 .013 r
1 0 .013 r
.514 0 .013 r
.444 0 .013 r
.994 0 .013 r
.63 0 .012 r
.313 0 .012 r
.968 0 .012 r
.99881 .0824 m
.99881 .49443 L
s
.733 0 .012 r
.00675 .0824 m
.00675 .49443 L
s
.176 0 .012 r
.98714 .0824 m
.98714 .49443 L
s
.923 0 .012 r
.01815 .0824 m
.01815 .49443 L
s
.822 0 .011 r
.976 .0824 m
.976 .49443 L
s
.035 0 .011 r
.02904 .0824 m
.02904 .49443 L
s
.86 0 .011 r
.96536 .0824 m
.96536 .49443 L
s
.894 0 .011 r
.03944 .0824 m
.03944 .49443 L
s
.106 0 .011 r
.95519 .0824 m
.95519 .49443 L
s
.779 0 .011 r
.04939 .0824 m
.04939 .49443 L
s
.948 0 .011 r
.94545 .0824 m
.94545 .49443 L
s
.245 0 .011 r
.05893 .0824 m
.05893 .49443 L
s
.683 0 .011 r
.93612 .0824 m
.93612 .49443 L
s
.984 0 .01 r
.06806 .0824 m
.06806 .49443 L
s
.38 0 .01 r
.92717 .0824 m
.92717 .49443 L
s
.573 0 .01 r
.07683 .0824 m
.07683 .49443 L
s
.999 0 .01 r
.91858 .0824 m
.91858 .49443 L
s
.506 0 .01 r
.08525 .0824 m
.08525 .49443 L
s
.452 0 .01 r
.91033 .0824 m
.91033 .49443 L
s
.995 0 .01 r
.09334 .0824 m
.09334 .49443 L
s
.623 0 .01 r
.9024 .0824 m
.9024 .49443 L
s
.322 0 .01 r
.10111 .0824 m
.10111 .49443 L
s
.971 0 .01 r
.89477 .0824 m
.89477 .49443 L
s
.727 0 .009 r
.1086 .0824 m
.1086 .49443 L
s
.185 0 .009 r
.88742 .0824 m
.88742 .49443 L
s
.927 0 .009 r
.11581 .0824 m
.11581 .49443 L
s
.817 0 .009 r
.88034 .0824 m
.88034 .49443 L
s
.044 0 .009 r
.12276 .0824 m
.12276 .49443 L
s
.865 0 .009 r
.87351 .0824 m
.87351 .49443 L
s
.89 0 .009 r
.12947 .0824 m
.12947 .49443 L
s
.097 0 .009 r
.86693 .0824 m
.86693 .49443 L
s
.785 0 .009 r
.13594 .0824 m
.13594 .49443 L
s
.945 0 .009 r
.86057 .0824 m
.86057 .49443 L
s
.237 0 .009 r
.14218 .0824 m
.14218 .49443 L
s
.69 0 .009 r
.85443 .0824 m
.85443 .49443 L
s
.982 0 .008 r
.14822 .0824 m
.14822 .49443 L
s
.371 0 .008 r
.8485 .0824 m
.8485 .49443 L
s
.581 0 .008 r
.15405 .0824 m
.15405 .49443 L
s
.999 0 .008 r
.84276 .0824 m
.84276 .49443 L
s
.499 0 .008 r
.1597 .0824 m
.1597 .49443 L
s
.46 0 .008 r
.83721 .0824 m
.83721 .49443 L
s
.996 0 .008 r
.16516 .0824 m
.16516 .49443 L
s
.616 0 .008 r
.83183 .0824 m
.83183 .49443 L
s
.33 0 .008 r
.17045 .0824 m
.17045 .49443 L
s
.973 0 .008 r
.82662 .0824 m
.82662 .49443 L
s
.721 0 .008 r
.17558 .0824 m
.17558 .49443 L
s
.193 0 .008 r
.82158 .0824 m
.82158 .49443 L
s
.93 0 .008 r
.18055 .0824 m
.18055 .49443 L
s
.812 0 .008 r
.81668 .0824 m
.81668 .49443 L
s
.053 0 .008 r
.18537 .0824 m
.18537 .49443 L
s
.869 0 .008 r
.81194 .0824 m
.81194 .49443 L
s
.886 0 .007 r
.19004 .0824 m
.19004 .49443 L
s
.088 0 .007 r
.80733 .0824 m
.80733 .49443 L
s
.79 0 .007 r
.19458 .0824 m
.19458 .49443 L
s
.943 0 .007 r
.80286 .0824 m
.80286 .49443 L
s
.228 0 .007 r
.19899 .0824 m
.19899 .49443 L
s
.696 0 .007 r
.79851 .0824 m
.79851 .49443 L
s
.98 0 .007 r
.20327 .0824 m
.20327 .49443 L
s
.363 0 .007 r
.79429 .0824 m
.79429 .49443 L
s
.588 0 .007 r
.20744 .0824 m
.20744 .49443 L
s
.998 0 .007 r
.79019 .0824 m
.79019 .49443 L
s
.491 0 .007 r
.21148 .0824 m
.21148 .49443 L
s
.468 0 .007 r
.7862 .0824 m
.7862 .49443 L
s
.996 0 .007 r
.21542 .0824 m
.21542 .49443 L
s
.609 0 .007 r
.78231 .0824 m
.78231 .49443 L
s
.338 0 .007 r
.21925 .0824 m
.21925 .49443 L
s
.975 0 .007 r
.77853 .0824 m
.77853 .49443 L
s
.715 0 .007 r
.22298 .0824 m
.22298 .49443 L
s
.202 0 .007 r
.77485 .0824 m
.77485 .49443 L
s
.933 0 .007 r
.22661 .0824 m
.22661 .49443 L
s
.806 0 .007 r
.77127 .0824 m
.77127 .49443 L
s
.062 0 .006 r
.23015 .0824 m
.23015 .49443 L
s
.873 0 .006 r
.76778 .0824 m
.76778 .49443 L
s
.882 0 .006 r
.23359 .0824 m
.23359 .49443 L
s
.08 0 .006 r
.76438 .0824 m
.76438 .49443 L
s
.796 0 .006 r
.23695 .0824 m
.23695 .49443 L
s
.94 0 .006 r
.76106 .0824 m
.76106 .49443 L
s
.219 0 .006 r
.24023 .0824 m
.24023 .49443 L
s
.702 0 .006 r
.75783 .0824 m
.75783 .49443 L
s
.978 0 .006 r
.24342 .0824 m
.24342 .49443 L
s
.355 0 .006 r
.75467 .0824 m
.75467 .49443 L
s
.595 0 .006 r
.24654 .0824 m
.24654 .49443 L
s
.998 0 .006 r
.75159 .0824 m
.75159 .49443 L
s
.483 0 .006 r
.24958 .0824 m
.24958 .49443 L
s
.476 0 .006 r
.74858 .0824 m
.74858 .49443 L
s
.997 0 .006 r
.25255 .0824 m
.25255 .49443 L
s
.602 0 .006 r
.74565 .0824 m
.74565 .49443 L
s
.347 0 .006 r
.25545 .0824 m
.25545 .49443 L
s
.977 0 .006 r
.74278 .0824 m
.74278 .49443 L
s
.709 0 .006 r
.25829 .0824 m
.25829 .49443 L
s
.211 0 .006 r
.73998 .0824 m
.73998 .49443 L
s
.936 0 .006 r
.26105 .0824 m
.26105 .49443 L
s
.801 0 .006 r
.73724 .0824 m
.73724 .49443 L
s
.071 0 .006 r
.26376 .0824 m
.26376 .49443 L
s
.878 0 .006 r
.73457 .0824 m
.73457 .49443 L
s
.26641 .0824 m
.26641 .49443 L
s
.071 0 .006 r
.73195 .0824 m
.73195 .49443 L
s
.801 0 .006 r
.26899 .0824 m
.26899 .49443 L
s
.936 0 .006 r
.7294 .0824 m
.7294 .49443 L
s
.211 0 .005 r
.27152 .0824 m
.27152 .49443 L
s
.709 0 .005 r
.72689 .0824 m
.72689 .49443 L
s
.977 0 .005 r
.274 .0824 m
.274 .49443 L
s
.347 0 .005 r
.72445 .0824 m
.72445 .49443 L
s
.602 0 .005 r
.27642 .0824 m
.27642 .49443 L
s
.997 0 .005 r
.72205 .0824 m
.72205 .49443 L
s
.476 0 .005 r
.27879 .0824 m
.27879 .49443 L
s
.483 0 .005 r
.71971 .0824 m
.71971 .49443 L
s
.998 0 .005 r
.28111 .0824 m
.28111 .49443 L
s
.595 0 .005 r
.71741 .0824 m
.71741 .49443 L
s
.355 0 .005 r
.28338 .0824 m
.28338 .49443 L
s
.978 0 .005 r
.71516 .0824 m
.71516 .49443 L
s
.702 0 .005 r
.28561 .0824 m
.28561 .49443 L
s
.219 0 .005 r
.71296 .0824 m
.71296 .49443 L
s
.94 0 .005 r
.28779 .0824 m
.28779 .49443 L
s
.796 0 .005 r