-
Notifications
You must be signed in to change notification settings - Fork 0
/
ML.nb
90 lines (81 loc) · 3.14 KB
/
ML.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
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 3059, 82]
NotebookOptionsPosition[ 2530, 64]
NotebookOutlinePosition[ 2887, 80]
CellTagsIndexPosition[ 2844, 77]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"II", "=", " ",
FractionBox[
RowBox[{"Pi", " ",
SuperscriptBox["d", "4"]}], "32"]}], ";"}], "\[IndentingNewLine]",
RowBox[{"EE", "=",
FractionBox[
RowBox[{"F", "*", "g", "*",
SuperscriptBox["L", "3"]}],
RowBox[{"3", "*", "deltax", "*", "II"}]]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"d", ",", "L", ",", "deltax", ",", "F", ",", "g"}], "}"}], "=",
RowBox[{"{",
RowBox[{"0.0085", ",", "0.3", ",", "0.349", ",", "0.24", ",", "9.8"}],
"}"}]}], ";"}], "\[IndentingNewLine]", "EE"}], "Input",
CellChangeTimes->{{3.743138560906848*^9, 3.7431385678171735`*^9}, {
3.74314215391143*^9, 3.7431421610483294`*^9}, {3.7431425138422194`*^9,
3.743142575255911*^9}, {3.743142611335087*^9, 3.743142673560539*^9}, {
3.743142709497943*^9, 3.7431428361290026`*^9}, {3.7431429985961447`*^9,
3.743143005439307*^9}, {3.7431430397729845`*^9, 3.7431430734250603`*^9},
3.743143440832818*^9, {3.743143613991746*^9, 3.743143633197979*^9}, {
3.743147849194194*^9, 3.743147850125499*^9}, {3.743147884488471*^9,
3.7431478860851574`*^9}, {3.743147924548688*^9, 3.7431479763724427`*^9}, {
3.743148015813278*^9, 3.7431480455162706`*^9}},
CellLabel->"In[65]:=",ExpressionUUID->"f472daf7-cf69-4440-bc32-0b1239ba16d0"],
Cell[BoxData["1.1835287240588982`*^8"], "Output",
CellChangeTimes->{{3.7431478682534337`*^9, 3.7431478945827637`*^9}, {
3.74314792693897*^9, 3.7431479824550657`*^9}, {3.7431480201446924`*^9,
3.7431480491551332`*^9}},
CellLabel->"Out[66]=",ExpressionUUID->"4397c54c-2212-4fc3-ab23-09330d22a5f6"],
Cell[BoxData["1.1835287240588982`*^8"], "Output",
CellChangeTimes->{{3.7431478682534337`*^9, 3.7431478945827637`*^9}, {
3.74314792693897*^9, 3.7431479824550657`*^9}, {3.7431480201446924`*^9,
3.743148049159148*^9}},
CellLabel->"Out[68]=",ExpressionUUID->"03401a28-cf14-407c-9a92-76cb23e0e8af"]
}, Open ]]
},
WindowSize->{716, 304},
WindowMargins->{{Automatic, 398}, {55, Automatic}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1328, 27, 145, "Input",ExpressionUUID->"f472daf7-cf69-4440-bc32-0b1239ba16d0"],
Cell[1911, 51, 301, 4, 32, "Output",ExpressionUUID->"4397c54c-2212-4fc3-ab23-09330d22a5f6"],
Cell[2215, 57, 299, 4, 88, "Output",ExpressionUUID->"03401a28-cf14-407c-9a92-76cb23e0e8af"]
}, Open ]]
}
]
*)