1.15.  Примери за графики с примитиви

(* Начупена лин&# ... , 3}, {-1, 5}, {2, 2} } ] ; <br /> g2 = Show[Graphics[linia1]] <br /> Show[ g2, Axes -> True]

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

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

(* Плътен право ...   {Rectangle[{1, -1}, {2, -0.3}] }   ] ; <br /> g3 = Show[rec, AspectRatio -> 1]

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

(* Правилен пет& ... [2 π * n/5.] } , {n, 5}] ; <br /> d5 = Graphics[Polygon[pet1]] ; Show[d5, AspectRatio -> 1]

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

(* Общо показва& ... #x043C;итива *) Show[g2, rec, d5, AspectRatio -> Automatic]

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

(* Правилен 11 - то &#x ... s[2 π * n/11.] } , {n, 11}] ; <br /> Show[Graphics[Polygon[pet2]], AspectRatio -> Automatic]

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

(* Окръжност, за ... #x043E; y/x е GoldenRatio = 0.618 *) s1 = Graphics[Circle[ {1, 6} , 4 ]] ; <br /> Show[s1]

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

(* Диск, зададен ... x0438;уса *) s2 = Graphics[ Disk[   {2, 7}, 4 ]] ; <br /> Show[s2]

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

(* Комбинирана ... 43D;ошение y/x = 1 *) Show[s1, s2, AspectRatio -> 1]

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

(* Начупена лин& ... }, {5, 7, -1}, {-2, -3, -4}, {1, 4, 9}} ; k1 = Line[ points ] ; <br /> g6 = Show[Graphics3D[ k1]]

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

(* Полигон със з ... 43C;ер *) poli = Polygon[   points] ; <br /> g7 = Show[Graphics3D[poli]]

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

(* Графика на па ... рха *) cu1 = Cuboid[{0, -2, 3}, {3, 4, 5}] <br /> g8 = Show[Graphics3D[cu1]]

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

(* Комбинирана ... 0; точка *) Show[g7, g8] Show[%, ViewPoint -> {3, -2, 2} ]

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

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