← Back to branch summary

~rmyeid/+junk/euler

« back to all changes in this revision

Viewing changes to latex/Manual/midterm_figures/plane.nb

  • Committer: rami
  • Date: 2009-09-19 14:58:45 UTC
  • Revision ID: rami@rami-desktop-20090919145845-9n2ha93otvizj522
the first after splitting euler

Show diffs side-by-side

added added

removed removed

Lines of Context:
latex/Manual/midterm_figures/plane.nb
1
 
(* Content-type: application/mathematica *)
2
 
 
3
 
(*** Wolfram Notebook File ***)
4
 
(* http://www.wolfram.com/nb *)
5
 
 
6
 
(* CreatedBy='Mathematica 7.0' *)
7
 
 
8
 
(*CacheID: 234*)
9
 
(* Internal cache information:
10
 
NotebookFileLineBreakTest
11
 
NotebookFileLineBreakTest
12
 
NotebookDataPosition[       145,          7]
13
 
NotebookDataLength[     12549,        299]
14
 
NotebookOptionsPosition[     12031,        278]
15
 
NotebookOutlinePosition[     12370,        293]
16
 
CellTagsIndexPosition[     12327,        290]
17
 
WindowFrame->Normal*)
18
 
 
19
 
(* Beginning of Notebook Content *)
20
 
Notebook[{
21
 
 
22
 
Cell[CellGroupData[{
23
 
Cell[BoxData[
24
 
 RowBox[{"\[IndentingNewLine]", 
25
 
  RowBox[{"Graphics3D", "[", 
26
 
   RowBox[{
27
 
    RowBox[{"{", 
28
 
     RowBox[{
29
 
      RowBox[{"PointSize", "[", "Large", "]"}], ",", 
30
 
      RowBox[{"Point", "[", 
31
 
       RowBox[{"{", 
32
 
        RowBox[{"0", ",", "0", ",", "5"}], "}"}], "]"}], ",", 
33
 
      RowBox[{"Polygon", "[", 
34
 
       RowBox[{"{", 
35
 
        RowBox[{
36
 
         RowBox[{"{", 
37
 
          RowBox[{
38
 
           RowBox[{"-", "5"}], ",", 
39
 
           RowBox[{"-", "5"}], ",", "0"}], "}"}], ",", 
40
 
         RowBox[{"{", 
41
 
          RowBox[{
42
 
           RowBox[{"-", "5"}], ",", "5", ",", "0"}], "}"}], ",", 
43
 
         RowBox[{"{", 
44
 
          RowBox[{"5", ",", "5", ",", "0"}], "}"}], ",", 
45
 
         RowBox[{"{", 
46
 
          RowBox[{"5", ",", 
47
 
           RowBox[{"-", "5"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
48
 
      RowBox[{"Table", "[", 
49
 
       RowBox[{
50
 
        RowBox[{"Table", "[", 
51
 
         RowBox[{
52
 
          RowBox[{"Text", "[", 
53
 
           RowBox[{"\"\<+\>\"", ",", 
54
 
            RowBox[{"{", 
55
 
             RowBox[{"x", ",", "y", ",", "0"}], "}"}]}], "]"}], ",", 
56
 
          RowBox[{"{", 
57
 
           RowBox[{"x", ",", 
58
 
            RowBox[{"-", "4"}], ",", "4", ",", "2"}], "}"}]}], "]"}], ",", 
59
 
        RowBox[{"{", 
60
 
         RowBox[{"y", ",", 
61
 
          RowBox[{"-", "4"}], ",", "4", ",", "2"}], "}"}]}], "]"}], ",", 
62
 
      RowBox[{"Arrowheads", "[", 
63
 
       RowBox[{"{", 
64
 
        RowBox[{
65
 
         RowBox[{"-", ".025"}], ",", ".025"}], "}"}], "]"}], ",", 
66
 
      RowBox[{"Arrow", "[", 
67
 
       RowBox[{"{", 
68
 
        RowBox[{
69
 
         RowBox[{"{", 
70
 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
71
 
         RowBox[{"{", 
72
 
          RowBox[{"0", ",", "0", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
73
 
      RowBox[{"Text", "[", 
74
 
       RowBox[{"\"\<\!\(\*
75
 
StyleBox[\"y\", \"Subsubtitle\"]\)\>\"", ",", 
76
 
        RowBox[{"{", 
77
 
         RowBox[{"0.25", ",", "0.25", ",", "2.5"}], "}"}]}], "]"}]}], "}"}], 
78
 
    ",", 
79
 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}]], "Input",
80
 
 CellChangeTimes->{{3.447693273799937*^9, 3.447693296931478*^9}, {
81
 
  3.447693339889894*^9, 3.447693371364194*^9}, {3.447693511536771*^9, 
82
 
  3.447693556052601*^9}, {3.447693592627703*^9, 3.447693602485476*^9}, {
83
 
  3.447693664127476*^9, 3.447693691392405*^9}, {3.447693726275432*^9, 
84
 
  3.44769377150666*^9}, {3.44769381164633*^9, 3.447693820634523*^9}, {
85
 
  3.44769391233411*^9, 3.447693915746988*^9}, {3.447693949170874*^9, 
86
 
  3.447693954106076*^9}, {3.447693987991259*^9, 3.44769399346196*^9}}],
87
 
 
88
 
Cell[BoxData[
89
 
 Graphics3DBox[
90
 
  {PointSize[Large], Point3DBox[{0, 0, 5}], 
91
 
   Polygon3DBox[{{-5, -5, 0}, {-5, 5, 0}, {5, 5, 0}, {5, -5, 0}}], {{Text3DBox[
92
 
      FormBox["\<\"+\"\>", TraditionalForm], {-4, -4, 0}], Text3DBox[
93
 
      FormBox["\<\"+\"\>", TraditionalForm], {-2, -4, 0}], Text3DBox[
94
 
      FormBox["\<\"+\"\>", TraditionalForm], {0, -4, 0}], Text3DBox[
95
 
      FormBox["\<\"+\"\>", TraditionalForm], {2, -4, 0}], Text3DBox[
96
 
      FormBox["\<\"+\"\>", TraditionalForm], {4, -4, 0}]}, {Text3DBox[
97
 
      FormBox["\<\"+\"\>", TraditionalForm], {-4, -2, 0}], Text3DBox[
98
 
      FormBox["\<\"+\"\>", TraditionalForm], {-2, -2, 0}], Text3DBox[
99
 
      FormBox["\<\"+\"\>", TraditionalForm], {0, -2, 0}], Text3DBox[
100
 
      FormBox["\<\"+\"\>", TraditionalForm], {2, -2, 0}], Text3DBox[
101
 
      FormBox["\<\"+\"\>", TraditionalForm], {4, -2, 0}]}, {Text3DBox[
102
 
      FormBox["\<\"+\"\>", TraditionalForm], {-4, 0, 0}], Text3DBox[
103
 
      FormBox["\<\"+\"\>", TraditionalForm], {-2, 0, 0}], Text3DBox[
104
 
      FormBox["\<\"+\"\>", TraditionalForm], {0, 0, 0}], Text3DBox[
105
 
      FormBox["\<\"+\"\>", TraditionalForm], {2, 0, 0}], Text3DBox[
106
 
      FormBox["\<\"+\"\>", TraditionalForm], {4, 0, 0}]}, {Text3DBox[
107
 
      FormBox["\<\"+\"\>", TraditionalForm], {-4, 2, 0}], Text3DBox[
108
 
      FormBox["\<\"+\"\>", TraditionalForm], {-2, 2, 0}], Text3DBox[
109
 
      FormBox["\<\"+\"\>", TraditionalForm], {0, 2, 0}], Text3DBox[
110
 
      FormBox["\<\"+\"\>", TraditionalForm], {2, 2, 0}], Text3DBox[
111
 
      FormBox["\<\"+\"\>", TraditionalForm], {4, 2, 0}]}, {Text3DBox[
112
 
      FormBox["\<\"+\"\>", TraditionalForm], {-4, 4, 0}], Text3DBox[
113
 
      FormBox["\<\"+\"\>", TraditionalForm], {-2, 4, 0}], Text3DBox[
114
 
      FormBox["\<\"+\"\>", TraditionalForm], {0, 4, 0}], Text3DBox[
115
 
      FormBox["\<\"+\"\>", TraditionalForm], {2, 4, 0}], Text3DBox[
116
 
      FormBox["\<\"+\"\>", TraditionalForm], {4, 4, 0}]}}, 
117
 
   {Arrowheads[{-0.025, 0.025}], Arrow3DBox[{{0, 0, 0}, {0, 0, 5}}], Text3DBox[
118
 
     FormBox["\<\"\\!\\(\\*\\nStyleBox[\\\"y\\\", \
119
 
\\\"Subsubtitle\\\"]\\)\"\>", TraditionalForm], {0.25, 0.25, 2.5}]}},
120
 
  Boxed->False,
121
 
  ImageSize->{360., 309.58954247700945`},
122
 
  ViewPoint->{0.7863771763885442, -3.2215566985978117`, 0.6731889587439387},
123
 
  ViewVertical->{0.1480966440238492, -0.3952281487408099, 
124
 
   1.8131322008852913`}]], "Output",
125
 
 CellChangeTimes->{{3.447695551111131*^9, 3.447695571386506*^9}},
126
 
 ImageCache->GraphicsData["CompressedBitmap", "\<\
127
 
eJztyMEJgDAMheEUF8kUjqAnhwhFSA6i1O6vregI3v4HeXx5i1VfN6uRTedi
128
 
h0c+ddpLm4YkkrzdqNJ9iXz1JHq9D8YYY4wxxhhj/KMl3ecSaOQ=\
129
 
\>"]]
130
 
}, Open  ]],
131
 
 
132
 
Cell[CellGroupData[{
133
 
 
134
 
Cell[BoxData[
135
 
 RowBox[{"\[IndentingNewLine]", 
136
 
  RowBox[{"Graphics3D", "[", 
137
 
   RowBox[{
138
 
    RowBox[{"{", 
139
 
     RowBox[{
140
 
      RowBox[{"PointSize", "[", "Large", "]"}], ",", 
141
 
      RowBox[{"Point", "[", 
142
 
       RowBox[{"{", 
143
 
        RowBox[{"0", ",", "0", ",", "5"}], "}"}], "]"}], ",", 
144
 
      RowBox[{"Polygon", "[", 
145
 
       RowBox[{"{", 
146
 
        RowBox[{
147
 
         RowBox[{"{", 
148
 
          RowBox[{
149
 
           RowBox[{"-", "5"}], ",", 
150
 
           RowBox[{"-", "5"}], ",", "0"}], "}"}], ",", 
151
 
         RowBox[{"{", 
152
 
          RowBox[{
153
 
           RowBox[{"-", "5"}], ",", "5", ",", "0"}], "}"}], ",", 
154
 
         RowBox[{"{", 
155
 
          RowBox[{"5", ",", "5", ",", "0"}], "}"}], ",", 
156
 
         RowBox[{"{", 
157
 
          RowBox[{"5", ",", 
158
 
           RowBox[{"-", "5"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
159
 
      RowBox[{"Hue", "[", 
160
 
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
161
 
      RowBox[{"Table", "[", 
162
 
       RowBox[{
163
 
        RowBox[{"Table", "[", 
164
 
         RowBox[{
165
 
          RowBox[{"Text", "[", 
166
 
           RowBox[{"\"\<+\>\"", ",", 
167
 
            RowBox[{"{", 
168
 
             RowBox[{"x", ",", "y", ",", "0"}], "}"}]}], "]"}], ",", 
169
 
          RowBox[{"{", 
170
 
           RowBox[{"x", ",", 
171
 
            RowBox[{"-", "4"}], ",", "4", ",", "2"}], "}"}]}], "]"}], ",", 
172
 
        RowBox[{"{", 
173
 
         RowBox[{"y", ",", 
174
 
          RowBox[{"-", "4"}], ",", "4", ",", "2"}], "}"}]}], "]"}], ",", 
175
 
      RowBox[{"Arrowheads", "[", 
176
 
       RowBox[{"{", 
177
 
        RowBox[{
178
 
         RowBox[{"-", ".025"}], ",", ".025"}], "}"}], "]"}], ",", 
179
 
      RowBox[{"Arrow", "[", 
180
 
       RowBox[{"{", 
181
 
        RowBox[{
182
 
         RowBox[{"{", 
183
 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
184
 
         RowBox[{"{", 
185
 
          RowBox[{"0", ",", "0", ",", "5"}], "}"}]}], "}"}], "]"}], ",", 
186
 
      RowBox[{"Text", "[", 
187
 
       RowBox[{"\"\<\!\(\*
188
 
StyleBox[\"y\", \"Subsubtitle\"]\)\>\"", ",", 
189
 
        RowBox[{"{", 
190
 
         RowBox[{"0.25", ",", "0.25", ",", "2.5"}], "}"}]}], "]"}], ",", 
191
 
      RowBox[{"{", 
192
 
       RowBox[{
193
 
        RowBox[{"Hue", "[", 
194
 
         RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
195
 
        RowBox[{"Cylinder", "[", 
196
 
         RowBox[{
197
 
          RowBox[{"{", 
198
 
           RowBox[{
199
 
            RowBox[{"{", 
200
 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
201
 
            RowBox[{"{", 
202
 
             RowBox[{"0", ",", "0", ",", "0.05"}], "}"}]}], "}"}], ",", 
203
 
          "2.5"}], "]"}]}], "}"}], ",", 
204
 
      RowBox[{"{", 
205
 
       RowBox[{"Arrow", "[", 
206
 
        RowBox[{"{", 
207
 
         RowBox[{
208
 
          RowBox[{"{", 
209
 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
210
 
          RowBox[{"{", 
211
 
           RowBox[{"2.5", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}], "}"}], 
212
 
      ",", 
213
 
      RowBox[{"Text", "[", 
214
 
       RowBox[{"\"\<\!\(\*
215
 
StyleBox[\"R\", \"Subsubtitle\"]\)\>\"", ",", 
216
 
        RowBox[{"{", 
217
 
         RowBox[{"1.5", ",", "0", ",", "1.5"}], "}"}]}], "]"}]}], "}"}], ",", 
218
 
    
219
 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}]], "Input",
220
 
 CellChangeTimes->{{3.447694031312829*^9, 3.447694032276993*^9}, {
221
 
   3.44769437467234*^9, 3.447694439686485*^9}, 3.447694483104687*^9, {
222
 
   3.44769452924281*^9, 3.447694589818783*^9}, {3.44769472437002*^9, 
223
 
   3.447694729265087*^9}, {3.447694770620411*^9, 3.447694895818688*^9}, {
224
 
   3.44769493280172*^9, 3.44769497480737*^9}, {3.447695005929271*^9, 
225
 
   3.44769507929536*^9}, {3.447695143986212*^9, 3.447695273378384*^9}}],
226
 
 
227
 
Cell[BoxData[
228
 
 Graphics3DBox[
229
 
  {PointSize[Large], Point3DBox[{0, 0, 5}], 
230
 
   Polygon3DBox[{{-5, -5, 0}, {-5, 5, 0}, {5, 5, 0}, {5, -5, 0}}], 
231
 
   {Hue[0, 0, 0], {{Text3DBox[
232
 
       FormBox["\<\"+\"\>", TraditionalForm], {-4, -4, 0}], Text3DBox[
233
 
       FormBox["\<\"+\"\>", TraditionalForm], {-2, -4, 0}], Text3DBox[
234
 
       FormBox["\<\"+\"\>", TraditionalForm], {0, -4, 0}], Text3DBox[
235
 
       FormBox["\<\"+\"\>", TraditionalForm], {2, -4, 0}], Text3DBox[
236
 
       FormBox["\<\"+\"\>", TraditionalForm], {4, -4, 0}]}, {Text3DBox[
237
 
       FormBox["\<\"+\"\>", TraditionalForm], {-4, -2, 0}], Text3DBox[
238
 
       FormBox["\<\"+\"\>", TraditionalForm], {-2, -2, 0}], Text3DBox[
239
 
       FormBox["\<\"+\"\>", TraditionalForm], {0, -2, 0}], Text3DBox[
240
 
       FormBox["\<\"+\"\>", TraditionalForm], {2, -2, 0}], Text3DBox[
241
 
       FormBox["\<\"+\"\>", TraditionalForm], {4, -2, 0}]}, {Text3DBox[
242
 
       FormBox["\<\"+\"\>", TraditionalForm], {-4, 0, 0}], Text3DBox[
243
 
       FormBox["\<\"+\"\>", TraditionalForm], {-2, 0, 0}], Text3DBox[
244
 
       FormBox["\<\"+\"\>", TraditionalForm], {0, 0, 0}], Text3DBox[
245
 
       FormBox["\<\"+\"\>", TraditionalForm], {2, 0, 0}], Text3DBox[
246
 
       FormBox["\<\"+\"\>", TraditionalForm], {4, 0, 0}]}, {Text3DBox[
247
 
       FormBox["\<\"+\"\>", TraditionalForm], {-4, 2, 0}], Text3DBox[
248
 
       FormBox["\<\"+\"\>", TraditionalForm], {-2, 2, 0}], Text3DBox[
249
 
       FormBox["\<\"+\"\>", TraditionalForm], {0, 2, 0}], Text3DBox[
250
 
       FormBox["\<\"+\"\>", TraditionalForm], {2, 2, 0}], Text3DBox[
251
 
       FormBox["\<\"+\"\>", TraditionalForm], {4, 2, 0}]}, {Text3DBox[
252
 
       FormBox["\<\"+\"\>", TraditionalForm], {-4, 4, 0}], Text3DBox[
253
 
       FormBox["\<\"+\"\>", TraditionalForm], {-2, 4, 0}], Text3DBox[
254
 
       FormBox["\<\"+\"\>", TraditionalForm], {0, 4, 0}], Text3DBox[
255
 
       FormBox["\<\"+\"\>", TraditionalForm], {2, 4, 0}], Text3DBox[
256
 
       FormBox["\<\"+\"\>", TraditionalForm], {4, 4, 0}]}}, 
257
 
    {Arrowheads[{-0.025, 0.025}], Arrow3DBox[{{0, 0, 0}, {0, 0, 5}}], 
258
 
     Text3DBox[
259
 
      FormBox["\<\"\\!\\(\\*\\nStyleBox[\\\"y\\\", \
260
 
\\\"Subsubtitle\\\"]\\)\"\>", TraditionalForm], {0.25, 0.25, 2.5}], 
261
 
     {Hue[0, 0, 0], CylinderBox[{{0, 0, 0}, {0, 0, 0.05}}, 2.5]}, 
262
 
     Arrow3DBox[{{0, 0, 1}, {2.5, 0, 1}}], Text3DBox[
263
 
      FormBox["\<\"\\!\\(\\*\\nStyleBox[\\\"R\\\", \
264
 
\\\"Subsubtitle\\\"]\\)\"\>", TraditionalForm], {1.5, 0, 1.5}]}}},
265
 
  Boxed->False,
266
 
  ImageSize->{360., 309.58954247700945`},
267
 
  ViewPoint->{0.7379629322327701, -3.227505388298253, 0.6990133612143203},
268
 
  ViewVertical->{0.1571227852978231, -0.3869607937076761, 
269
 
   1.817221807566021}]], "Output",
270
 
 CellChangeTimes->{{3.447695037089666*^9, 3.447695080095042*^9}, {
271
 
   3.447695144972322*^9, 3.447695228525161*^9}, {3.447695264136681*^9, 
272
 
   3.447695274155723*^9}, 3.447695641631297*^9, 3.447695681774228*^9},
273
 
 ImageCache->GraphicsData["CompressedBitmap", "\<\
274
 
eJztyMEJgDAMheEUF8kUjqAnhwhFSA6i1O6vregI3v4HeXx5i1VfN6uRTedi
275
 
h0c+ddpLm4YkkrzdqNJ9iXz1JHq9D8YYY4wxxhhj/KMl3ecSaOQ=\
276
 
\>"]]
277
 
}, Open  ]]
278
 
},
279
 
WindowSize->{640, 750},
280
 
WindowMargins->{{Automatic, 178}, {Automatic, 132}},
281
 
FrontEndVersion->"7.0 for Linux x86 (32-bit) (November 10, 2008)",
282
 
StyleDefinitions->"Default.nb"
283
 
]
284
 
(* End of Notebook Content *)
285
 
 
286
 
(* Internal cache information *)
287
 
(*CellTagsOutline
288
 
CellTagsIndex->{}
289
 
*)
290
 
(*CellTagsIndex
291
 
CellTagsIndex->{}
292
 
*)
293
 
(*NotebookFileOutline
294
 
Notebook[{
295
 
Cell[CellGroupData[{
296
 
Cell[567, 22, 2472, 63, 143, "Input"],
297
 
Cell[3042, 87, 2545, 41, 325, 2307, 36, "CachedBoxData", "BoxData", "Output"]
298
 
}, Open  ]],
299
 
Cell[CellGroupData[{
300
 
Cell[5624, 133, 3411, 91, 210, "Input"],
301
 
Cell[9038, 226, 2977, 49, 325, 2595, 42, "CachedBoxData", "BoxData", \
302
 
"Output"]
303
 
}, Open  ]]
304
 
}
305
 
]
306
 
*)
307
 
 
308
 
(* End of internal cache information *)