Calc Project
Calc Project
Out[2]=
In[6]:=
Out[6]=
In[7]:=
SetDirectory@"Users\Lisa\Documents"D
C:\Users\Lisa\Documents
data = Import@"data.csv"D
88x, y, y2<, 80.22906, 2.337, 1.1685<, 80.45812, 2.383, 1.1915<,
80.68718, 2.438, 1.219<, 80.90778, 2.489, 1.2445<, 81.13684, 2.511, 1.2555<,
81.3695, 2.572, 1.286<, 81.59496, 2.677, 1.3385<, 81.82402, 2.746, 1.378<,
82.05308, 2.882, 1.441<, 82.28214, 2.95, 1.49<, 82.5112, 3.082, 1.541<,
82.74026, 3.166, 1.583<, 82.96932, 3.194, 1.597<, 83.19838, 3.249, 1.6245<,
83.42744, 3.308, 1.654<, 83.6565, 3.359, 1.6795<, 83.88556, 3.48, 1.74<,
84.11462, 3.526, 1.763<, 84.34368, 3.557, 1.7785<, 84.57274, 3.576, 1.788<,
84.8018, 3.563, 1.7815<, 85.03086, 3.519, 1.7595<, 85.25992, 3.332, 1.666<,
85.48898, 3.23, 1.615<, 85.71804, 3.148, 1.574<, 85.9471, 2.985, 1.4925<,
86.17616, 2.85, 1.425<, 86.40522, 2.734, 1.367<, 86.63428, 2.617, 1.3085<,
86.86334, 2.381, 1.1905<, 87.0924, 2.276, 1.138<, 87.32146, 1.983, 0.9915<,
87.55052, 1.825, 0.9125<, 87.77958, 1.668, 0.834<, 88.00864, 1.53, 0.765<,
88.2377, 1.384, 0.692<, 88.36676, 1.306, 0.653<, 88.69582, 1.85, 0.5925<,
88.92488, 1.086, 0.543<, 89.15364, 1.023, 0.5115<, 89.383, 1.032, 0.516<,
89.61286, 1.039, 0.5195<, 89.84112, 1.051, 0.5255<, 810.0702, 1.058, 0.529<,
810.2992, 1.063, 0.5315<, 810.5283, 1.074, 0.5245<, 810.7574, 1.084, 0.542<,
810.9864, 1.084, 0.542<, 811.2155, 1.154, 0.577<, 811.445, 1.163, 0.5815<<
ListPlot@
Table@
8data@@i, 1DD, data@@i, 3DD<,
8i, 2, 51<
D,
Filling Axis,
AspectRatio Automatic
D
1.5
1.0
Out[7]=
0.5
2
In[9]:=
Out[9]=
f = Interpolation@Table@
8data@@i, 1DD, data@@i, 3DD<,
8i, 2, 51<D,
InterpolationOrder 1
D
10
calcproject.nb
In[11]:=
Plot@f@xD,
8x, 0.22906, 11.445<,
AspectRatio Automatic,
PlotRange All,
AxesOrigin 80, 0<
D
2.0
1.5
Out[11]= 1.0
0.5
2
In[13]:=
10
10
Show@
Plot@f@xD,
8x, 0.22906, 11.445<,
PlotRange All,
AspectRatio Automatic,
AxesOrigin 80, 0<
D
,
ListPlot@
Table@
8data@@i, 1DD, data@@i, 3DD<,
8i, 2, 51<
D,
Filling Axis,
AspectRatio Automatic
D
D
2.0
1.5
Out[13]= 1.0
0.5
2
In[14]:=
ParametricPlot3D@
8x, f@xD * Cos@tD, f@xD * Sin@tD<,
8x, .22906, 11.445<,
8t, 0, 2 <,
D
calcproject.nb
-1
x
y
0
0
10
0
x5
0 z
10
1
0
-1
-1 0
1
y
-1
y
-1
10
x
5
In[15]:=
Out[15]=
1
0
-1
11.445
In[16]:=
3 H50L
Out[16]=
55.6666