moebiusfunction.nb

mathematica 代码 生动展示 mobius 环

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

                    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[    420928,       7774]*)
(*NotebookOutlinePosition[    421599,       7797]*)
(*  CellTagsIndexPosition[    421555,       7793]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["M\[ODoubleDot]bius Function", "Title"],

Cell[CellGroupData[{

Cell["Author", "Subsection"],

Cell["\<\
Eric W. Weisstein
May 17, 2004\
\>", "Text"],

Cell[TextData[{
  "This notebook downloaded from ",
  ButtonBox["http://mathworld.wolfram.com/notebooks/NumberTheoreticFunctions/\
MoebiusFunction.nb",
    ButtonData:>{
      URL[ 
      "http://mathworld.wolfram.com/notebooks/NumberTheoreticFunctions/\
MoebiusFunction.nb"], None},
    ButtonStyle->"Hyperlink"],
  "."
}], "Text"],

Cell[TextData[{
  "For more information, see Eric's ",
  StyleBox["MathWorld",
    FontSlant->"Italic"],
  " entry ",
  ButtonBox["http://mathworld.wolfram.com/MoebiusFunction.html",
    ButtonData:>{
      URL[ "http://mathworld.wolfram.com/MoebiusFunction.html"], None},
    ButtonStyle->"Hyperlink"],
  "."
}], "Text"],

Cell[TextData[{
  "For a list of Eric's math packages that may be needed to evaluate this \
notebook, see ",
  ButtonBox["http://mathworld.wolfram.com/packages/",
    ButtonData:>{
      URL[ "http://mathworld.wolfram.com/packages/"], None},
    ButtonStyle->"Hyperlink"],
  ".  An archive of these packages may be downloaded from ",
  ButtonBox["http://mathworld.wolfram.com/packages/MathWorldPackages.zip",
    ButtonData:>{
      URL[ "http://mathworld.wolfram.com/packages/MathWorldPackages.zip"], 
      None},
    ButtonStyle->"Hyperlink"],
  ", as well as from the ",
  StyleBox["Mathematica Information Center",
    FontSlant->"Italic"],
  "'s ",
  ButtonBox["MathSource item 4775",
    ButtonData:>{
      URL[ "http://library.wolfram.com/infocenter/MathSource/4775/"], None},
    ButtonStyle->"Hyperlink"],
  ".  A list of Eric's utility packages that may be needed to evaluate this \
notebook may be downloaded from ",
  ButtonBox["MathSource item 5087",
    ButtonData:>{
      URL[ "http://library.wolfram.com/infocenter/MathSource/5087/"], None},
    ButtonStyle->"Hyperlink"],
  "."
}], "Text"],

Cell["\<\
\[Copyright]2005 Wolfram Research, Inc. except for portions noted \
otherwise\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Values", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"MoebiusMu", "/@", 
      RowBox[{"Range", "[", "20", "]"}]}]], "Input"],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{"1", ",", 
        RowBox[{"-", "1"}], ",", 
        RowBox[{"-", "1"}], ",", "0", ",", 
        RowBox[{"-", "1"}], ",", "1", ",", 
        RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "1", ",", 
        RowBox[{"-", "1"}], ",", "0", ",", 
        RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "0", ",", 
        RowBox[{"-", "1"}], ",", "0", ",", 
        RowBox[{"-", "1"}], ",", "0"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{
      RowBox[{
        RowBox[{
          RowBox[{"{", 
            RowBox[{"#", ",", 
              RowBox[{"Flatten", "[", 
                RowBox[{"Position", "[", 
                  RowBox[{
                    RowBox[{"MoebiusMu", "/@", 
                      RowBox[{"Range", "[", "30", "]"}]}], ",", "#"}], "]"}], 
                "]"}]}], "}"}], "&"}], "/@", 
        RowBox[{"Range", "[", 
          RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "//", 
      "ColumnForm"}]], "Input"],

Cell[BoxData[
    InterpretationBox[GridBox[{
          {
            RowBox[{"{", 
              RowBox[{
                RowBox[{"-", "1"}], ",", 
                RowBox[{"{", 
                  RowBox[{
                  "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", 
                    ",", "17", ",", "19", ",", "23", ",", "29", ",", "30"}], 
                  "}"}]}], "}"}]},
          {
            RowBox[{"{", 
              RowBox[{"0", ",", 
                RowBox[{"{", 
                  RowBox[{
                  "4", ",", "8", ",", "9", ",", "12", ",", "16", ",", "18", 
                    ",", "20", ",", "24", ",", "25", ",", "27", ",", "28"}], 
                  "}"}]}], "}"}]},
          {
            RowBox[{"{", 
              RowBox[{"1", ",", 
                RowBox[{"{", 
                  RowBox[{
                  "1", ",", "6", ",", "10", ",", "14", ",", "15", ",", "21", 
                    ",", "22", ",", "26"}], "}"}]}], "}"}]}
          },
        GridBaseline->{Baseline, {1, 1}},
        ColumnAlignments->{Left}],
      ColumnForm[ {{-1, {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 30}}, {0, {4, 8, 
        9, 12, 16, 18, 20, 24, 25, 27, 28}}, {1, {1, 6, 10, 14, 15, 21, 22, 
        26}}}],
      Editable->False]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Section"],

Cell[BoxData[
    RowBox[{"<<", "Utilities`Plot`"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"IntegerListPlot", "[", 
      RowBox[{
        RowBox[{"MoebiusMu", "[", 
          RowBox[{"Range", "[", "100", "]"}], "]"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", "\[IndentingNewLine]", 
        RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"TraditionalForm", "/@", 
            RowBox[{"{", 
              RowBox[{"n", ",", 
                RowBox[{"MoebiusMu", "[", "n", "]"}]}], "}"}]}]}]}], 
      "]"}]], "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
0.0238095 0.00957167 0.309017 0.294302 [
[.21524 .29652 -6 -9 ]
[.21524 .29652 6 0 ]
[.40668 .29652 -6 -9 ]
[.40668 .29652 6 0 ]
[.59811 .29652 -6 -9 ]
[.59811 .29652 6 0 ]
[.78954 .29652 -6 -9 ]
[.78954 .29652 6 0 ]
[.98098 .29652 -9 -9 ]
[.98098 .29652 9 0 ]
[1.025 .30902 0 -6 ]
[1.025 .30902 9 6 ]
[.01131 .01472 -12 -4.5 ]
[.01131 .01472 0 4.5 ]
[.01131 .16187 -24 -4.5 ]
[.01131 .16187 0 4.5 ]
[.01131 .45617 -18 -4.5 ]
[.01131 .45617 0 4.5 ]
[.01131 .60332 -6 -4.5 ]
[.01131 .60332 0 4.5 ]
[.02381 .64303 -10.625 0 ]
[.02381 .64303 10.625 12.0625 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath