1.12. Примери за двумерна и тримерна графика

g1 = Plot[Sin[x],    {x, -2 π, 2 π}]

[Graphics:../HTMLFiles/index_40.gif]

-Graphics -

g2 = Plot[Tan[x],    {x, -2 π, 2 π}, PlotStyle -> Hue[.6] ]

[Graphics:../HTMLFiles/index_43.gif]

-Graphics -

Show[g1, g2]    (* едноврем& ... #x0447;ните обекти g1, g2 *)

[Graphics:../HTMLFiles/index_46.gif]

-Graphics -

g3 = Plot[{Sin[x], Cos[2 x]}, {x, -3, 3}, PlotStyle -> {Hue[0.1], Hue[0.8]}]

[Graphics:../HTMLFiles/index_49.gif]

-Graphics -

g4 = Plot[{Sin[x], Cos[2 x]}, {x, -3, 3}, PlotRange -> {0, 1.2}, PlotStyle -> {Hue[0.1], ... 435; на функцията *)

[Graphics:../HTMLFiles/index_52.gif]

-Graphics -

tt = {{0, 3}, {0.5, 4}, {1.1, 2.2}, {1.3, 4}, {1.5, 4}, {2, 3}} ListPlot[tt, PlotRange -> {0, 5} ]

{{0, 3}, {0.5`, 4}, {1.1`, 2.2`}, {1.3`, 4}, {1.5`, 4}, {2, 3}}

[Graphics:../HTMLFiles/index_56.gif]

-Graphics -

ListPlot[tt, PlotRange -> {0, 5}, PlotStyle -> PointSize[0.02]]

[Graphics:../HTMLFiles/index_59.gif]

-Graphics -

ListPlot[tt, PlotRange -> {0, 5}, PlotJoined -> True]

[Graphics:../HTMLFiles/index_62.gif]

-Graphics -

Plot3D[ ( Cos[x - y])/Log[x + y]   , {x, 1, 5 }, {y, 1, 10   }]

[Graphics:../HTMLFiles/index_65.gif]

-SurfaceGraphics -

Plot3D[ Cos[x - y]/Log[x + y]   , {x, 1, 5 }, {y, 1, 10   }, ColorFunction -> Hue, ViewPoint -> {0, - 3, 5}]

[Graphics:../HTMLFiles/index_68.gif]

-SurfaceGraphics -

(* елипса *)  ParametricPlot[ {3 Cos[φ], 7 Sin[φ]}, {φ , 0, 2 π}]            

[Graphics:../HTMLFiles/index_71.gif]

 (* елиптичен ци& ... ametricPlot3D[{3 Cos[φ], 7 Sin[φ], u}, {φ, 0, 2 π}, {u, 0, 3}]    

[Graphics:../HTMLFiles/index_73.gif]

(*   спирала на Ар ...   ParametricPlot [{a * fi * Cos[fi], a * fi * Sin[fi]}, {fi, 0, 5 π} ]      Null

[Graphics:../HTMLFiles/index_75.gif]

 (* тримерна спи& ... a = 0.25 ;  ParametricPlot3D [{a * fi * Cos[fi], a * fi * Sin[fi], u}, {fi, 0, 5 Pi}, {u, 0, 3} ]

[Graphics:../HTMLFiles/index_77.gif]

(* цветна салфетка *)  ParametricPlot3D [ {t, u, Sin[t * u]}, {t, -3, 3}, {u, -3, 3} ]

[Graphics:../HTMLFiles/index_79.gif]

(* тръба *)  ParametricPlot3D [ {Cos[t/2] * (3 + Cos[u]), Sin[t] * (3 + Cos[u]), 1.5 Sin[u] }, {t, 0, 2 π}, {u, 0, 2 π} ]    

[Graphics:../HTMLFiles/index_81.gif]

(* сфера *)  ParametricPlot3D[{ Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]}, {t, 0, 2 Pi} , {u, -Pi/2, Pi/2}]   

[Graphics:../HTMLFiles/index_83.gif]

(* Извикване на & ... ;а графика *)  << Graphics`Graphics`

(*   снежинка *)  PolarPlot[Sin[t * 10] * t , {t, -40, 20}]    

[Graphics:../HTMLFiles/index_86.gif]