(* 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[     17987,        463]
NotebookOptionsPosition[     17693,        449]
NotebookOutlinePosition[     18034,        464]
CellTagsIndexPosition[     17991,        461]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"balloon", "[", "n", "]"}], "=", "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Purple", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], "3"], 
              "+", "5"}]}], "}"}], ",", "2"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Green", ",", 
           RowBox[{"Cuboid", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", ".5"}], "+", 
               RowBox[{"(", 
                RowBox[{"n", "/", "1000"}], ")"}]}], ",", 
              RowBox[{"-", ".5"}], ",", 
              RowBox[{
               RowBox[{"-", "5"}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], "3"],
                "+", "5"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"1.9", "+", 
                 RowBox[{"(", 
                  RowBox[{"n", "/", "1000"}], ")"}]}], ",", "0", ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1.9"}], "+", 
                 RowBox[{"(", 
                  RowBox[{"n", "/", "1000"}], ")"}]}], ",", "0", ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", 
                RowBox[{"-", "1.9"}], ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "1.9", ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Background", "\[Rule]", "Cyan"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", 
       RowBox[{"ViewPoint", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "2"}], ",", "0"}], "}"}]}]}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "5000"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"balloon", "[", "n", "]"}], "=", "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Purple", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], "3"], 
              "+", "5"}]}], "}"}], ",", "2"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Green", ",", 
           RowBox[{"Cuboid", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", ".5"}], "+", 
               RowBox[{"(", 
                RowBox[{"n", "/", "1000"}], ")"}]}], ",", 
              RowBox[{"-", ".5"}], ",", 
              RowBox[{
               RowBox[{"-", "5"}], "+", 
               RowBox[{"-", 
                RowBox[{"(", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "4"], ")"}]}], "+", "5"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"1.9", "+", 
                 RowBox[{"(", 
                  RowBox[{"n", "/", "1000"}], ")"}]}], ",", "0", ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1.9"}], "+", 
                 RowBox[{"(", 
                  RowBox[{"n", "/", "1000"}], ")"}]}], ",", "0", ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", 
                RowBox[{"-", "1.9"}], ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "1.9", ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "/", "1000"}], ")"}], ",", "0", ",", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"n", "/", "1000"}], ")"}], "-", "2"}], ")"}], 
                  "3"], "+", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Background", "\[Rule]", "Cyan"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
       RowBox[{"ViewPoint", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "2"}], ",", "0"}], "}"}]}]}], "]"}]}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "2500", ",", "5000"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"balloon", "[", "n", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "5000", ",", "10"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.408973293813736*^9, 3.408973304908764*^9}, {
   3.4089734355019317`*^9, 3.4089736250081353`*^9}, {3.408973660659609*^9, 
   3.4089737444192567`*^9}, {3.4089737774386854`*^9, 3.408973995745081*^9}, {
   3.4089740567677355`*^9, 3.4089741379333344`*^9}, {3.4089742236932125`*^9, 
   3.408974253118477*^9}, {3.408974285012776*^9, 3.408974322376455*^9}, {
   3.408974379461155*^9, 3.4089743906655707`*^9}, {3.4089744292012596`*^9, 
   3.4089747206723332`*^9}, {3.408974764583641*^9, 3.4089747688497577`*^9}, {
   3.408974831778881*^9, 3.4089748795812626`*^9}, {3.4094090633666997`*^9, 
   3.409409242374855*^9}, {3.4094092978751993`*^9, 3.409409298015905*^9}, {
   3.4094093772016087`*^9, 3.4094094392212896`*^9}, {3.4094095033515472`*^9, 
   3.40940960053187*^9}, {3.4094096333943276`*^9, 3.409409655719537*^9}, {
   3.409409715597374*^9, 3.409409737594271*^9}, {3.4094098834116564`*^9, 
   3.4094098938707356`*^9}, {3.409409936520015*^9, 3.4094100015414047`*^9}, {
   3.4094100379371243`*^9, 3.409410059105425*^9}, {3.409410121734828*^9, 
   3.4094101277538795`*^9}, {3.4094101583806896`*^9, 3.409410159068581*^9}, {
   3.409410438274401*^9, 3.409410452798294*^9}, {3.409410502998747*^9, 
   3.4094105707873373`*^9}, {3.409410615562827*^9, 3.4094106296489716`*^9}, {
   3.4094106601194425`*^9, 3.409410697062348*^9}, {3.4094107301436806`*^9, 
   3.4094107545012965`*^9}, {3.409410807562753*^9, 3.409410870317228*^9}, {
   3.409410901287984*^9, 3.409411005503561*^9}, {3.409411073495392*^9, 
   3.4094111225702047`*^9}, {3.409411183198468*^9, 3.4094111833235397`*^9}, {
   3.4094112239873133`*^9, 3.4094112874765816`*^9}, {3.4094113269990807`*^9, 
   3.409411588366621*^9}, {3.4094116198063936`*^9, 3.409411637191291*^9}, {
   3.409411732902026*^9, 3.4094117407815123`*^9}, {3.409411923698142*^9, 
   3.409412086134363*^9}, {3.409412134020999*^9, 3.409412149482926*^9}, 
   3.4094121813917155`*^9, {3.4094122117683835`*^9, 3.4094122522132826`*^9}, {
   3.4094127053570766`*^9, 3.409412705466514*^9}, {3.409412880081543*^9, 
   3.409412936691895*^9}, {3.4094130382966113`*^9, 3.409413050491053*^9}, {
   3.4094130937813225`*^9, 3.4094131362273607`*^9}, {3.409491956383786*^9, 
   3.4094920211888533`*^9}, {3.4094920713754516`*^9, 3.409492205008958*^9}, 
   3.4094922364613047`*^9, {3.4094923863202496`*^9, 3.40949240814065*^9}, 
   3.4094930119422894`*^9, {3.4094931215742135`*^9, 3.4094931372069716`*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Konstans.gif\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"balloon", "[", "n", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", "5000", ",", "100"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4094124503885994`*^9, 3.409412498963126*^9}, {
  3.409412702183395*^9, 3.4094127022771983`*^9}, {3.4094923569873977`*^9, 
  3.4094923591538515`*^9}, {3.4094927108051834`*^9, 3.4094927110701456`*^9}, {
  3.4094927806304636`*^9, 3.4094927807863235`*^9}, {3.4094931456078253`*^9, 
  3.4094931469170494`*^9}}]
},
WindowSize->{616, 750},
WindowMargins->{{237, Automatic}, {Automatic, 0}},
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[568, 21, 16513, 411, 872, "Input"],
Cell[17084, 434, 605, 13, 31, "Input"]
}
]
*)

(* End of internal cache information *)