Cyclotomic+Equation

Cyclotomic+Equation - (* Content-type:...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 10483, 246] NotebookOptionsPosition[ 10010, 227] NotebookOutlinePosition[ 10455, 244] CellTagsIndexPosition[ 10412, 241] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "z", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", " ", "=", " ", RowBox[{ RowBox[{"Solve", "[", RowBox[{ SuperscriptBox["z", "40"], "\[Equal]", "1"}], "]"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"root", "=", RowBox[{"z", "/.", "sol"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"point", "[", "z_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ",", RowBox[{"Im", "[", "z", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"point", " ", "/@", " ", "root"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"point", "/@", " ", "root"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"Real", ",", " ", "Imag"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.05"}], ",", "1.05"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.05"}], ",", "1.05"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]",
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{"AspectRatio", " ", "\[Rule]", " ", "1"}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", " ", "\[Rule]", " ", "\"\<Plot of roots\>\""}], " ", ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQfcs5ctZOzVeOt5yDFkLoZ1sgdNkOCH3+NZg+7P0W wtdj3gWmLYTA9OHHehD6gzGE3msOkW9xgtAsvhD6aCRE/kUChP+mBsKf2A7h W3aB6KtPQyaDaJ+XO1aC6JQOlvUgOiPuxAUQfe3Nyusg+tVHiwcg2u7L8acg uqG8+y2ITvjJ9AlE5/1+9Q1ER/2t/Q2iE//2gemMPZKeb4D0b8tHfiDawzwo FETf3NwYC6LnGF5LAtEphjHJIHp++6djYHH232DaqYbzEYhur+x5AaIZPpiF xWq9ciy46AimnZdmRIPoM7ML4kE0AEZ+wSA= "]], Cell[BoxData[
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/06/2012 for the course EECS 70B taught by Professor Henrylee during the Spring '08 term at UC Irvine.

Page1 / 4

Cyclotomic+Equation - (* Content-type:...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online