Scribd
Upload
46 views3 pages

Printed by Wolfram Mathematica Student Edition

The document contains data with x and y coordinates that define a curve. An interpolation function is fitted to the data to create a continuous function. The interpolation function and original data points are plotted on 2D and 3D graphs to visualize the curve.

Uploaded by

amylopez80
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
46 views3 pages

Printed by Wolfram Mathematica Student Edition

The document contains data with x and y coordinates that define a curve. An interpolation function is fitted to the data to create a continuous function. The interpolation function and original data points are plotted on 2D and 3D graphs to visualize the curve.

Uploaded by

amylopez80
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

In[52]:=

data =
x
0
12.14
24.28
36.42
48.56
60.7
72.84
84.98
97.12
109.26

y
14.765
14.88
13.41
13.825
13.395
13.66
13.385
13.195
13.005
13.665

121.4
133.54
145.68
157.82
169.96
182.10
194.24
206.38
218.52
230.66
242.8
254.94
267.08
279.22
291.33

14.025
14.075
17.57
20.895
24.55
26.915
29.53
33.6
39.975
45.54
42.71
39.13
33.485
29.665
28.79

data = 880, 14.765<, 812.14, 14.48<, 824.28, 13.41<, 836.42, 13.825<, 848.56, 13.395<,
860.7, 13.66<, 872.84, 13.385<, 884.98, 13.195<, 897.12, 13.005<, 8109.26, 13.665<,
8121.4, 14.025<, 8133.54, 14.075<, 8145.68, 17.57<, 8157.82, 20.895<, 8169.96, 24.55<,
8182.10, 26.915<, 8194.24, 29.53<, 8206.38, 33.6<, 8218.52, 39.975<, 8230.66, 45.54<,
8242.8, 42.71<, 8254.94, 39.13<, 8267.08, 33.485<, 8279.22, 29.665<, 8291.33, 28.79<<
ListPlot@
Table@
8data@@i, 1DD, data@@i, 2DD<,
8i, 1, 25<D,
Filling Axis,
AspectRatio AutomaticD

Out[52]=

98x, y<, 80, 14.765<, 812.14, 14.88<, 824.28, 13.41<, 836.42, 13.825<,
848.56, 13.395<, 860.7, 13.66<, 872.84, 13.385<, 884.98, 13.195<,
897.12, 13.005<, 8109.26, 13.665<, 93.13457 1034, 4.13401 1021==

Printed by Wolfram Mathematica Student Edition

BottleneckProject.nb

Out[53]=

880, 14.765<, 812.14, 14.48<, 824.28, 13.41<, 836.42, 13.825<, 848.56, 13.395<,
860.7, 13.66<, 872.84, 13.385<, 884.98, 13.195<, 897.12, 13.005<,
8109.26, 13.665<, 8121.4, 14.025<, 8133.54, 14.075<, 8145.68, 17.57<,
8157.82, 20.895<, 8169.96, 24.55<, 8182.1, 26.915<, 8194.24, 29.53<,
8206.38, 33.6<, 8218.52, 39.975<, 8230.66, 45.54<, 8242.8, 42.71<,
8254.94, 39.13<, 8267.08, 33.485<, 8279.22, 29.665<, 8291.33, 28.79<<

45
40
35
Out[54]= 30
25
20

50
In[57]:=

Out[57]=

In[60]:=

100

150

200

250

f = Interpolation@Table@
8data@@i, 1DD, data@@i, 2DD<,
8i, 1, 25<D,
InterpolationOrder 1
D

InterpolatingFunction@880., 291.33<<, <>D


Plot@f@xD,
8x, 0, 291.33<,
AspectRatio Automatic,
PlotRange All,
AxesOrigin 80, 0<
D

50
40
30
Out[60]=
20
10

50

100

150

200

250

Printed by Wolfram Mathematica Student Edition

BottleneckProject.nb

In[62]:=

Show@
Plot@f@xD,
8x, 0, 291.33<,
PlotRange All,
AspectRatio Automatic,
AxesOrigin 80, 0<
D
,
ListPlot@
Table@
8data@@i, 1DD, data@@i, 2DD<,
8i, 1, 25<
D,
Filling Axis,
AspectRatio Automatic
D
D

50
40
30
Out[62]=
20
10

50
In[64]:=

100

150

200

250

ParametricPlot3D@
8x, f@xD * Cos@tD, f@xD * Sin@tD<,
8x, 0, 291.33<,
8t, 0, 2 <,
D

AxesOrigin 80, 0<,


Boxed False,
AxesLabel 8x, y, z<

40
200
20

100

-20
Out[64]=

-40

z
-40
-20
0
4020

Printed by Wolfram Mathematica Student Edition

You might also like