0% found this document useful (0 votes)
69 views

Calc Project

Uploaded by

monicacampos58
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
69 views

Calc Project

Uploaded by

monicacampos58
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

In[2]:=

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

[email protected], 11.445<<, <>D

Printed by Mathematica for Students

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

AxesOrigin 80, 0<,


Boxed False,
AxesLabel 8x, y, z<

Printed by Mathematica for Students

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

* NIntegrate@f@xD ^ 2, 8x, .22906, 11.445<D


55.1949

11.445
In[16]:=

3 H50L

I2 H1.16850L2 + 4 H1.1915L2 + 2 H1.219L2 + 4 H1.2445L2 + 2 H1.2555L2 + 4 H1.286L2 + 2 H1.3385L2 +

Out[16]=

4 H1.378L2 + 2 H1.441L2 + 4 H1.49L2 + 2 H1.541L2 + 4 H1.583L2 + 2 H1.597L2 + 4 H1.6245L2 +


2 H1.654L2 + 4 H1.6795L2 + 2 H1.74L2 + 4 H1.763L2 + 2 H1.7785L2 + 4 H1.788L2 + 2 H1.7815L2 +
4 H1.7595L2 + 2 H1.666L2 + 4 H1.615L2 + 2 H1.574L2 + 4 H1.4925L2 + 2 H1.425L2 + 4 H1.367L2 +
2 H1.3085L2 + 4 H1.1905L2 + 2 H1.138L2 + 4 H.9915L2 + 2 H.9125L2 + 4 H.834L2 + 2 H.765L2 +
4 H.692L2 + 2 H.653L2 + 4 H.5925L2 + 2 H.543L2 + 4 H.5115L2 + 2 H.516L2 + 4 H.5195L2 +
2 H.5255L2 + 4 H.529L2 + 2 H.5315L2 + 4 H.5245L2 + 2 H.542L2 + 4 H.542L2 + 2 H.577L2 + 4 H.5815L2 M

55.6666

Printed by Mathematica for Students

You might also like