Scribd
Upload
29 views

MissileDefense Project Mathematica

mathematica

Uploaded by

juflores4556
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
29 views

MissileDefense Project Mathematica

mathematica

Uploaded by

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

r@tD := 917.732902 x, 2.146913 x, 22.1007 x - 10.

95 x2 =

a = ParametricPlot3D@r@tD, 8x, 0, 200<,


AxesOrigin 80, 0, 0<, PlotStyle 8Thick, Red<,
Boxed False, PlotRange 880, 50<, 80, 20<, 80, 50<<,
AxesLabel 8x, y, z<D

40

20

20
15
10
5

0
0

20
x

40

r2@t_D := 93.7821 + 23.0612 x, 1.3023 + 1.0723 x, 24.49190 x - 10.95 x2 =

MissileDefense project mathematica.nb

b = ParametricPlot3D@r2@tD, 8x, 0, 200<,


AxesOrigin 80, 0, 0<,
PlotStyle 8Thick, Blue<,
Boxed False, PlotRange 880, 50<, 80, 20<, 80, 50<<,
AxesLabel 8x, y, z<D

40

z
20
20
y

15

10
5
0
0
x
20

40

MissileDefense project mathematica.nb

Show@a, bD

40

z
20

0
0

10
y

20
x

40

15

20

MissileDefense project mathematica.nb

ManipulateA
ParametricPlot3DA

9ConditionalExpressionA

93.7821 + 23.0612 x, 1.3023 + 1.0723 x, 24.49190 x - 10.95 x2 =, x > .1E,

917.732902 x, 2.146913 x, 22.1007 x - 10.95 x2 ==,

8x, 0, k<,
PlotStyle 88Thick, Red<, 8Thick, Blue<<,
PlotRange 880, 50<, 80, 20<, 80, 20<<,
AxesLabel 8x, y, z<E, 8k, .0000001, 3<E
k

20
15
10
5

20
0
15

20
10
x
5

40
0

You might also like