(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     23470,        716]
NotebookOptionsPosition[     20403,        611]
NotebookOutlinePosition[     20918,        631]
CellTagsIndexPosition[     20875,        628]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Mandelbrot", "Subtitle",
 CellChangeTimes->{{3.4315330089003706`*^9, 3.4315330119373703`*^9}}],

Cell["Programme de Marcel D\[EAcute]l\[EGrave]ze", "Text",
 CellChangeTimes->{{3.4315339568063707`*^9, 3.4315339731573706`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell["Initialisations (partie utilisateur)", "Subsubsection",
 CellChangeTimes->{{3.4314350491495667`*^9, 3.4314350604845667`*^9}, 
   3.43153332770337*^9, 3.4315339257453704`*^9, {3.4315354214277678`*^9, 
   3.431535431811768*^9}}],

Cell["\<\
D\[EAcute]finir la zone de l'image (\[AGrave] modifier pour chaque zoom):\
\>", "Text",
 CellChangeTimes->{{3.4315332035063705`*^9, 3.4315332757123704`*^9}, {
  3.4315333124703703`*^9, 3.4315333240703707`*^9}},
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xmin", "=", 
   RowBox[{"-", "2.0"}]}], ";", 
  RowBox[{"xmax", "=", "1.5"}], ";", 
  RowBox[{"ycentre", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.4313470804491673`*^9, 3.4313471277021675`*^9}}],

Cell["\<\
L'output du programme est constitu\[EAcute] de deux fichiers JPEG, l'un de \
taille r\[EAcute]duite (vignette) 105 x 75 pixels, l'autre de taille normale \
(image) 1260 x 900 pixels.\
\>", "Text",
 CellChangeTimes->{{3.43153304107837*^9, 3.43153319177637*^9}, {
  3.43153357144637*^9, 3.4315335762053704`*^9}}],

Cell["\<\
Entrer le nom du fichier de destination, sans extension (\[AGrave] modifier \
\[AGrave] chaque zoom):\
\>", "Text",
 CellChangeTimes->{{3.4315332035063705`*^9, 3.4315332324243703`*^9}, {
  3.4315333400823703`*^9, 3.43153335740637*^9}},
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nomFichier", "=", "\"\<Mandelbrot\>\""}], ";"}], "  "}]], "Input",\

 CellChangeTimes->{{3.4313543134851675`*^9, 3.4313543381961675`*^9}, {
  3.431434343964566*^9, 3.4314343746145663`*^9}, {3.4314346663435664`*^9, 
  3.4314346779495664`*^9}, {3.4315332369443703`*^9, 3.4315332378793707`*^9}}],

Cell["\<\
Le fichier image utilisera le nom pr\[EAcute]c\[EAcute]dent tandis que, pour \
la vignette, ce nom sera concat\[EAcute]n\[EAcute] avec la terminaison \
\"-v\".\
\>", "Text",
 CellChangeTimes->{{3.4315332035063705`*^9, 3.4315332324243703`*^9}, {
  3.4315333400823703`*^9, 3.43153335740637*^9}, {3.4315336414083705`*^9, 
  3.4315337348053703`*^9}}],

Cell["\<\
Dans l'accolade ci-dessous, entrer le nom du dossier (= Directory) o\[UGrave] \
la vignette doit \[EHat]tre enregistr\[EAcute]e \
\>", "Text",
 CellChangeTimes->{{3.4315333946403704`*^9, 3.4315334903043704`*^9}, {
   3.4315335305223703`*^9, 3.43153355224837*^9}, 3.4315336327863703`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"destinationVignette", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<C:\>\"", ",", "\"\<Users\>\"", ",", "\"\<Marcel\>\"", ",", 
       "\"\<site Marcel sur deleze.name\>\"", ",", "\"\<mandelbrot\>\""}], 
      "}"}], ",", 
     RowBox[{"nomFichier", "<>", "\"\<-v.JPEG\>\""}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4314365111265664`*^9, 3.4314365540595665`*^9}, 
   3.4314366086335664`*^9}],

Cell["\<\
Dans l'accolade ci-dessous, entrer le nom du dossier (= Directory) o\[UGrave] \
l'image doit \[EHat]tre enregistr\[EAcute]e:\
\>", "Text",
 CellChangeTimes->{{3.4315333946403704`*^9, 3.4315334903043704`*^9}, {
  3.4315335305223703`*^9, 3.43153355224837*^9}, {3.4315335977383704`*^9, 
  3.4315336110663705`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"destination", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<C:\>\"", ",", "\"\<Users\>\"", ",", "\"\<Marcel\>\"", ",", 
       "\"\<site Marcel sur deleze.name\>\"", ",", "\"\<mandelbrot\>\""}], 
      "}"}], ",", 
     RowBox[{"nomFichier", "<>", "\"\<.JPEG\>\""}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.4314365111265664`*^9, 3.4314365146015663`*^9}, {
  3.4314365990715666`*^9, 3.431436605400566*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Dur\[EAcute]e des calculs :", "Subsubsection",
 CellChangeTimes->{{3.431535210193768*^9, 3.4315352178277683`*^9}}],

Cell["\<\
Sur mon ordinateur (Intel, 2 CPU, 2.4 GHz), le programme met environ 40 \
minutes pour former une image.
Conseil:\
\>", "Text",
 CellChangeTimes->{{3.431535237696768*^9, 3.431535326270768*^9}, {
  3.431536766287566*^9, 3.4315368320155663`*^9}}],

Cell[CellGroupData[{

Cell["\<\
ex\[EAcute]cuter d'abord le programme jusqu'\[AGrave] la fin de \"Vignette\";\
\
\>", "Item",
 CellChangeTimes->{{3.431535237696768*^9, 3.431535326270768*^9}, {
  3.431536766287566*^9, 3.4315368605335665`*^9}}],

Cell["\<\
v\[EAcute]rifier le r\[EAcute]sultat obtenu (fichier \"*-v.JPEG\");\
\>", "Item",
 CellChangeTimes->{{3.431536862011566*^9, 3.4315369079815664`*^9}, 
   3.4315370165105667`*^9}],

Cell["\<\
ex\[EAcute]cuter enfin la sous-section \"Traitement de l'image\".\
\>", "Item",
 CellChangeTimes->{{3.431536914091566*^9, 3.4315369803505664`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["D\[EAcute]finitions", "Subsubsection",
 CellChangeTimes->{{3.4314350380485663`*^9, 3.4314350418335667`*^9}}],

Cell[TextData[{
 "Le format de l'image est  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"7", "/", "5"}], TraditionalForm]]],
 "."
}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"nbPixels", "=", " ", 
   RowBox[{"7", "*", "5", "*", 
    RowBox[{"180", "^", "2"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4313494169311676`*^9, 3.431349423831167*^9}, {
   3.4313494554471674`*^9, 3.4313494725821676`*^9}, {3.4313500890701675`*^9, 
   3.4313500945631676`*^9}, {3.4313507941791677`*^9, 
   3.4313508034191675`*^9}, {3.4313509029081674`*^9, 
   3.4313509057911673`*^9}, {3.4313509867511673`*^9, 
   3.4313509872571673`*^9}, {3.4313520784431677`*^9, 3.4313520820511675`*^9}, 
   3.4313521873891673`*^9, {3.4314341592255664`*^9, 3.4314341596545663`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nbIter", "=", "1023"}], ";"}], " "}]], "Input",
 CellChangeTimes->{3.431349561246167*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mandelbrot", "=", 
   RowBox[{"Compile", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "n", ",", " ", "xnew"}], "}"}], ",", 
       RowBox[{
        RowBox[{"x", "=", "0."}], ";", 
        RowBox[{"y", "=", "0."}], ";", 
        RowBox[{"n", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", "2."}], "\[LessEqual]", "x", "\[LessEqual]", "2."}], 
           " ", "\[And]", 
           RowBox[{
            RowBox[{"-", "2."}], "\[LessEqual]", "y", "\[LessEqual]", "2."}], 
           " ", "\[And]", 
           RowBox[{"n", "<", "nbIter"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"n", "++"}], ";", 
           RowBox[{"xnew", "=", 
            RowBox[{
             SuperscriptBox["x", "2"], "-", 
             SuperscriptBox["y", "2"], "+", "a"}]}], ";", 
           RowBox[{"y", "=", 
            RowBox[{
             RowBox[{"2", " ", "x", " ", "y"}], "+", "b"}]}], ";", 
           RowBox[{"x", "=", "xnew"}]}]}], "]"}], ";", "n"}]}], "]"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4313495516931677`*^9, 3.4313495536851673`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pixel", "[", 
   RowBox[{"{", 
    RowBox[{"c_", ",", "n_"}], "}"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"ColorData", "[", "\"\<TemperatureMap\>\"", "]"}], "[", 
     FractionBox["n", "nbIter"], "]"}], ",", 
    RowBox[{"Rectangle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", "c", "]"}], "-", 
         FractionBox["\[CapitalDelta]x", "2"]}], ",", 
        RowBox[{
         RowBox[{"Im", "[", "c", "]"}], "-", 
         FractionBox["\[CapitalDelta]y", "2"]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", "c", "]"}], "+", 
         FractionBox["\[CapitalDelta]x", "2"]}], ",", 
        RowBox[{
         RowBox[{"Im", "[", "c", "]"}], "+", 
         FractionBox["\[CapitalDelta]y", "2"]}]}], "}"}]}], "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.4313520157731676`*^9, 3.431352027833167*^9}, 
   3.4313521310471673`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vignette", "Subsubsection",
 CellChangeTimes->{{3.4313543643341675`*^9, 3.4313543673611674`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"facteurReduction", "=", "12"}], ";"}]], "Input",
 CellChangeTimes->{{3.4313545526221676`*^9, 3.4313545609831676`*^9}, {
  3.4314340496715665`*^9, 3.4314340523635664`*^9}, {3.4314343077665663`*^9, 
  3.4314343082725663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"px", ",", "py"}], "}"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"7", ",", "5"}], "}"}], " ", 
    RowBox[{"Round", "[", 
     SqrtBox[
      FractionBox["nbPixels", 
       RowBox[{"35", "*", 
        RowBox[{"facteurReduction", "^", "2"}]}]]], "]"}]}], "+", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.4313544132551675`*^9, 3.4313544135671673`*^9}, {
  3.4313545650351677`*^9, 3.4313545691791677`*^9}, {3.4313546184171677`*^9, 
  3.4313546255391674`*^9}, {3.4314340571915665`*^9, 3.431434059596566*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"104", ",", "74"}], "}"}]], "Output",
 CellChangeTimes->{3.431347168503167*^9, 3.4313500106031675`*^9, 
  3.4313501170201674`*^9, 3.4313508669791675`*^9, 3.431350997734167*^9, 
  3.431352094404167*^9, 3.431352136352167*^9, 3.4313521999881673`*^9, 
  3.4313532661481676`*^9, 3.4313552410351677`*^9, 3.431355595628167*^9, 
  3.4313559732851677`*^9, 3.4313563731301675`*^9, 3.4314345766995664`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nbPixelsEffectif", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"px", "+", "1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"py", "+", "1"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.4313562490251675`*^9, 3.431356252864167*^9}, 
   3.4313563075891676`*^9}],

Cell[BoxData["7875"], "Output",
 CellChangeTimes->{3.4313471685191674`*^9, 3.4313501170331674`*^9, 
  3.4313511010441675`*^9, 3.431352094425167*^9, 3.4313521363701677`*^9, 
  3.4313522000071673`*^9, 3.431353266182167*^9, 3.4313552410521674`*^9, 
  3.4313555956501675`*^9, 3.4313559733021674`*^9, 3.4313563731461678`*^9, 
  3.4314345767155666`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]x", "=", 
   FractionBox[
    RowBox[{"xmax", "-", "xmin"}], "px"]}], ";", 
  RowBox[{"\[CapitalDelta]y", "=", "\[CapitalDelta]x"}]}]], "Input"],

Cell[BoxData["0.03365384615384616`"], "Output",
 CellChangeTimes->{3.4313471685381675`*^9, 3.431350117050167*^9, 
  3.4313520944431677`*^9, 3.4313521363891673`*^9, 3.4313522000261674`*^9, 
  3.4313532662401676`*^9, 3.4313552410681677`*^9, 3.4313555956711674`*^9, 
  3.4313559733201675`*^9, 3.4313563731651673`*^9, 3.4314345767325664`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ymax", "=", 
  RowBox[{"ycentre", "+", 
   FractionBox[
    RowBox[{"5", 
     RowBox[{"(", 
      RowBox[{"xmax", "-", "xmin"}], ")"}]}], "14."]}]}]], "Input"],

Cell[BoxData["1.25`"], "Output",
 CellChangeTimes->{3.431347168557167*^9, 3.4313501170671673`*^9, 
  3.4313520944621677`*^9, 3.4313521364071674`*^9, 3.4313522000461674`*^9, 
  3.4313532662701674`*^9, 3.4313552410851674`*^9, 3.4313555956901674`*^9, 
  3.4313559733371677`*^9, 3.4313563731831675`*^9, 3.431434576749566*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ymin", "=", 
  RowBox[{"ycentre", "-", 
   FractionBox[
    RowBox[{"5", 
     RowBox[{"(", 
      RowBox[{"xmax", "-", "xmin"}], ")"}]}], "14."]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "1.25`"}]], "Output",
 CellChangeTimes->{3.4313471685791674`*^9, 3.4313501225341673`*^9, 
  3.4313520944811673`*^9, 3.4313521364241676`*^9, 3.4313522000641675`*^9, 
  3.4313532663011675`*^9, 3.431355241102167*^9, 3.4313555957091675`*^9, 
  3.4313559733561673`*^9, 3.431356373213167*^9, 3.4314345767765665`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"grille", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "=", 
       RowBox[{"xmin", "+", 
        RowBox[{"r", " ", "\[CapitalDelta]x"}]}]}], ";", 
      RowBox[{"y", "=", 
       RowBox[{"ymin", "+", 
        RowBox[{"s", " ", "\[CapitalDelta]y"}]}]}], ";", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "+", 
         RowBox[{"\[ImaginaryI]", " ", "y"}]}], ",", 
        RowBox[{"mandelbrot", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "py", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "px"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4313552552311673`*^9, 3.4313552583041677`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Map", "[", 
       RowBox[{"pixel", ",", "grille", ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "5"}], "}"}], 
       RowBox[{"Round", "[", " ", 
        FractionBox["180", "facteurReduction"], "]"}]}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4313493913111677`*^9, 3.4313494002301674`*^9}, {
   3.4313503052171674`*^9, 3.4313503119341674`*^9}, 3.4313529713301673`*^9, 
   3.431354454411167*^9, {3.4313555404501677`*^9, 3.431355575524167*^9}, {
   3.4313559291741676`*^9, 3.4313559304201674`*^9}, {3.431434092096566*^9, 
   3.4314340958565664`*^9}, {3.431434171176566*^9, 3.4314341716055665`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"destinationVignette", ",", "g"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4313495905741673`*^9, 3.4313495926891675`*^9}, {
   3.4313496840631676`*^9, 3.4313498204261675`*^9}, {3.431349864095167*^9, 
   3.4313498928601675`*^9}, 3.431350177265167*^9, {3.431350212484167*^9, 
   3.4313502234471674`*^9}, {3.4313544629731674`*^9, 
   3.4313544908891673`*^9}, {3.4314365479045663`*^9, 3.4314365793145666`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Traitement de l'image", "Subsubsection",
 CellChangeTimes->{{3.431354507899167*^9, 3.4313545112211676`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"px", ",", "py"}], "}"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"7", ",", "5"}], "}"}], " ", 
    RowBox[{"Round", "[", 
     SqrtBox[
      FractionBox["nbPixels", "35"]], "]"}]}], "+", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1259", ",", "899"}], "}"}]], "Output",
 CellChangeTimes->{3.431347168503167*^9, 3.4313500106031675`*^9, 
  3.4313501170201674`*^9, 3.4313508669791675`*^9, 3.431350997734167*^9, 
  3.431352094404167*^9, 3.431352136352167*^9, 3.4313521999881673`*^9, 
  3.4313532661481676`*^9, 3.431355987536167*^9, 3.431356387465167*^9, 
  3.4314345890125666`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nbPixelsEffectif", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"px", "+", "1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"py", "+", "1"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.4313563237481675`*^9, 3.4313563261331673`*^9}}],

Cell[BoxData["1134000"], "Output",
 CellChangeTimes->{3.4313471685191674`*^9, 3.4313501170331674`*^9, 
  3.4313511010441675`*^9, 3.431352094425167*^9, 3.4313521363701677`*^9, 
  3.4313522000071673`*^9, 3.431353266182167*^9, 3.4313559875521674`*^9, 
  3.4313563874881673`*^9, 3.4314345890315666`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]x", "=", 
   FractionBox[
    RowBox[{"xmax", "-", "xmin"}], "px"]}], ";", 
  RowBox[{"\[CapitalDelta]y", "=", "\[CapitalDelta]x"}]}]], "Input"],

Cell[BoxData["0.0027799841143764893`"], "Output",
 CellChangeTimes->{3.4313471685381675`*^9, 3.431350117050167*^9, 
  3.4313520944431677`*^9, 3.4313521363891673`*^9, 3.4313522000261674`*^9, 
  3.4313532662401676`*^9, 3.431355987569167*^9, 3.4313563875061674`*^9, 
  3.4314345890495663`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ymax", "=", 
  RowBox[{"ycentre", "+", 
   FractionBox[
    RowBox[{"5", 
     RowBox[{"(", 
      RowBox[{"xmax", "-", "xmin"}], ")"}]}], "14."]}]}]], "Input"],

Cell[BoxData["1.25`"], "Output",
 CellChangeTimes->{3.431347168557167*^9, 3.4313501170671673`*^9, 
  3.4313520944621677`*^9, 3.4313521364071674`*^9, 3.4313522000461674`*^9, 
  3.4313532662701674`*^9, 3.4313559875871677`*^9, 3.4313563875231676`*^9, 
  3.4314345890695667`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ymin", "=", 
  RowBox[{"ycentre", "-", 
   FractionBox[
    RowBox[{"5", 
     RowBox[{"(", 
      RowBox[{"xmax", "-", "xmin"}], ")"}]}], "14."]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "1.25`"}]], "Output",
 CellChangeTimes->{3.4313471685791674`*^9, 3.4313501225341673`*^9, 
  3.4313520944811673`*^9, 3.4313521364241676`*^9, 3.4313522000641675`*^9, 
  3.4313532663011675`*^9, 3.4313559876071672`*^9, 3.4313563875401673`*^9, 
  3.4314345890875664`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"grille", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "=", 
       RowBox[{"xmin", "+", 
        RowBox[{"r", " ", "\[CapitalDelta]x"}]}]}], ";", 
      RowBox[{"y", "=", 
       RowBox[{"ymin", "+", 
        RowBox[{"s", " ", "\[CapitalDelta]y"}]}]}], ";", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "+", 
         RowBox[{"\[ImaginaryI]", " ", "y"}]}], ",", 
        RowBox[{"mandelbrot", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "py", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "px"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4314342560805664`*^9, 3.4314342595425663`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Map", "[", 
       RowBox[{"pixel", ",", "grille", ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "5"}], "}"}], " ", "180"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4313493913111677`*^9, 3.4313494002301674`*^9}, {
   3.4313503052171674`*^9, 3.4313503119341674`*^9}, 3.4313529713301673`*^9, {
   3.4313551773371677`*^9, 3.4313551878871675`*^9}, {3.4313559398831673`*^9, 
   3.4313559411001673`*^9}, 3.4313579485885677`*^9, {3.4314341818495665`*^9, 
   3.4314341821545663`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"destination", ",", "g"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4313495905741673`*^9, 3.4313495926891675`*^9}, {
   3.4313496840631676`*^9, 3.4313498204261675`*^9}, {3.431349864095167*^9, 
   3.4313498928601675`*^9}, 3.431350177265167*^9, {3.431350212484167*^9, 
   3.4313502234471674`*^9}, {3.4313546589461675`*^9, 
   3.4313546694491673`*^9}, {3.4314342683385663`*^9, 
   3.4314342780235662`*^9}, {3.4314365921775665`*^9, 
   3.4314366212305665`*^9}, {3.4315353777097683`*^9, 3.431535381088768*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 903},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"PaperOrientation"->"Landscape",
"PrintingMargins"->{{72, 36}, {36, 36}}},
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 100, 1, 74, "Subtitle"],
Cell[693, 26, 150, 2, 41, "Text"],
Cell[846, 30, 99, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[970, 36, 232, 3, 42, "Subsubsection"],
Cell[1205, 41, 241, 5, 41, "Text"],
Cell[1449, 48, 238, 6, 43, "Input"],
Cell[1690, 56, 320, 6, 66, "Text"],
Cell[2013, 64, 266, 6, 41, "Text"],
Cell[2282, 72, 339, 7, 43, "Input"],
Cell[2624, 81, 356, 7, 41, "Text"],
Cell[2983, 90, 297, 5, 41, "Text"],
Cell[3283, 97, 489, 13, 98, "Input"],
Cell[3775, 112, 321, 6, 41, "Text"],
Cell[4099, 120, 501, 13, 71, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4637, 138, 120, 1, 42, "Subsubsection"],
Cell[4760, 141, 254, 6, 66, "Text"],
Cell[CellGroupData[{
Cell[5039, 151, 220, 5, 41, "Item"],
Cell[5262, 158, 187, 4, 41, "Item"],
Cell[5452, 164, 157, 3, 41, "Item"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5658, 173, 114, 1, 42, "Subsubsection"],
Cell[5775, 176, 137, 6, 41, "Text"],
Cell[5915, 184, 606, 11, 43, "Input"],
Cell[6524, 197, 136, 4, 43, "Input"],
Cell[6663, 203, 1354, 36, 104, "Input"],
Cell[8020, 241, 1005, 30, 116, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9062, 276, 103, 1, 42, "Subsubsection"],
Cell[9168, 279, 259, 5, 43, "Input"],
Cell[CellGroupData[{
Cell[9452, 288, 665, 19, 79, "Input"],
Cell[10120, 309, 434, 7, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10591, 321, 283, 8, 43, "Input"],
Cell[10877, 331, 347, 5, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11261, 341, 194, 5, 70, "Input"],
Cell[11458, 348, 338, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11833, 357, 184, 6, 68, "Input"],
Cell[12020, 365, 321, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12378, 374, 184, 6, 68, "Input"],
Cell[12565, 382, 338, 5, 42, "Output"]
}, Open  ]],
Cell[12918, 390, 810, 23, 43, "Input"],
Cell[13731, 415, 908, 21, 107, "Input"],
Cell[14642, 438, 473, 8, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15152, 451, 114, 1, 42, "Subsubsection"],
Cell[CellGroupData[{
Cell[15291, 456, 369, 14, 79, "Input"],
Cell[15663, 472, 386, 7, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16086, 484, 257, 7, 43, "Input"],
Cell[16346, 493, 299, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16682, 502, 194, 5, 70, "Input"],
Cell[16879, 509, 290, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17206, 518, 184, 6, 68, "Input"],
Cell[17393, 526, 275, 4, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17705, 535, 184, 6, 68, "Input"],
Cell[17892, 543, 294, 5, 42, "Output"]
}, Open  ]],
Cell[18201, 551, 810, 23, 43, "Input"],
Cell[19014, 576, 787, 19, 43, "Input"],
Cell[19804, 597, 571, 10, 43, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)