-
Notifications
You must be signed in to change notification settings - Fork 2
/
manipulate.nb
114 lines (105 loc) · 4 KB
/
manipulate.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 8.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 3782, 104]
NotebookOptionsPosition[ 3469, 88]
NotebookOutlinePosition[ 3811, 103]
CellTagsIndexPosition[ 3768, 100]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n",
RowBox[{
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"MatrixForm", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"m", "^", "2"}], ",",
RowBox[{"n", "^", "2"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"m", ",", "1", ",", "i"}], "}"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "1", ",", "j"}], "}"}]}], "]"}], " ", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "100"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "1", ",", "100"}], "}"}]}], "]"}], " "}]}], "Input",
CellChangeTimes->{{3.5376371855638866`*^9, 3.537637286293264*^9}, {
3.5376380068117294`*^9, 3.537638027996567*^9}, {3.5376404925268955`*^9,
3.5376406575907855`*^9}, {3.5376406994300585`*^9, 3.537640734748521*^9}, {
3.5376407754489927`*^9, 3.537640789738618*^9}}],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`i$$ =
14.600000000000001`, $CellContext`j$$ = 18.2, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`i$$], 1, 100}, {
Hold[$CellContext`j$$], 1, 100}}, Typeset`size$$ = {894., {212., 217.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`i$51713$$ = 0, $CellContext`j$51714$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`i$$ = 1, $CellContext`j$$ = 1},
"ControllerVariables" :> {
Hold[$CellContext`i$$, $CellContext`i$51713$$, 0],
Hold[$CellContext`j$$, $CellContext`j$51714$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :> MatrixForm[
Table[{$CellContext`m^2, $CellContext`n^2}, {$CellContext`m,
1, $CellContext`i$$}, {$CellContext`n, 1, $CellContext`j$$}]],
"Specifications" :> {{$CellContext`i$$, 1, 100}, {$CellContext`j$$, 1,
100}}, "Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{943., {272., 277.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.5376407218316984`*^9, 3.5376407357157226`*^9}, {
3.537640776962195*^9, 3.5376407909710197`*^9}}]
}, Open ]]
},
WindowSize->{1272, 683},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 939, 23, 52, "Input"],
Cell[1521, 47, 1932, 38, 566, "Output"]
}, Open ]]
}
]
*)
(* End of internal cache information *)