Graphics 2D and 3D

Graphics 2D and 3DTue Apr 20, 2010 10:14 pm

Code:

Plot[{x^2, -x^2, Sin[x]}, {x, -2Pi, 2Pi},
      PlotRange -> {{-5, 5}, {-5, 5}},
      Axes -> {True,True},
      AxesLabel -> "Park Min Young",
      AxesStyle -> {RGBColor[0, 1, 0],
      Thickness[0.001]},
      PlotStyle -> {{Hue[0.5]}, {Hue[0.6]}, {Hue[0.7]}}
];

Code:

ParametricPlot3D[{Cos[j]*Sin[i],Sin[j]Sin[i] , -Cos[i]}, {i, 0, Pi/2}, {j, -2Pi, 2Pi}]

Đường hoa hổng r = aSin[nx], a là độ rộng của cánh và n là số cánh. Nếu n chẵn số cánh sẽ nhân đôi.
Biến đổi qua tọa độ cực ta được:

Code:

Show[Table[ParametricPlot[{{i*Sin[6*x]*Cos[x], i*Sin[6*x]*Sin[x]}}, {x, -Pi, Pi}], {i, 5}]];

Code:

Plot3D[Sin[x y]*Cos[3 y], {x, 0, 4}, {y, 0, 4},
      PlotPoints -> 40, 
      Mesh ->False, 
      Axes -> False, 
      Boxed -> False
];

Hình cầu x^2+y^2+z^2 = 1. Ta biến đổi toạn độ trụ

Code:

ParametricPlot3D[{Cos[j]*Sin[i], Sin[j]Sin[i] , Cos[i]}, {i, 0, Pi}, {j, 0, 2Pi}, 
      Boxed -> False, 
      Axes -> False
]

Được sửa bởi Admin ngày Thu Apr 29, 2010 12:52 am; sửa lần 1.

Vẽ các đường tròn đồng tâm với các màu ngẫu nhiênTue Apr 27, 2010 12:20 pm

Code:

(*Ve cac duong tron dong tam voi mau khac nhau*)
dtron = Table[Graphics[{RGBColor[Random[Integer, {0, 1}], Random[Integer, {0, 
      1}], Random[Integer, {0, 1}]], Circle[{0, 0}, i]}], {i, 0, 1, 0.1}];
Show[dtron];

Sử dụng phép quay 1 điểm quanh giốc tọa độ vẽ chùm đường thẳng quay quanh trục tọa độTue Apr 27, 2010 12:23 pm

Code:

(*Su dung phep xoay ve chum duong thang xoay quanh tam*)
k = Table[{{0, 0}, {Cos[k], Sin[k]}}, {k, 0, 2Pi, 0.1}];
dthang = {};
For[i = 1, i ≤ Length[k], i++,
       dthang = Append[dthang, Graphics[
               {
                 RGBColor[
                      Random[Integer, {0, 1}],
                      Random[Integer, {0, 1}],
                      Random[Integer, {0, 1}]
                   ],
                 Line[k[[i]]]
                 }
               ]
             ];
       ];
Show[dthang];

Kết hợp chùm đường thẳng và đường congTue Apr 27, 2010 12:25 pm

Code:

Show[{dthang, dtron}];

Tịnh tuyến chùm đường trònTue Apr 27, 2010 12:28 pm

Code:

dtron = Table[
      Graphics[
        {
          RGBColor[
               Random[Integer, {0, 1}],
               Random[Integer, {0, 1}],
               Random[Integer, {0, 1}]
            ],
          Circle[{j, 0}, i]
          }
        ],
      {i, 0, 1, 0.1},
      {j, 1, 10, 1.5}
      ];
Show[dtron];

Re: Graphics 2D and 3DTue Apr 27, 2010 12:32 pm

Code:

(*x = a*Cos[j]*sin[i];
y = b*Sin[j]Sin[i];
z = c*Cos[i];*)
a = 1;
b = 1;
c = 6;
ParametricPlot3D[{a*Cos[j]*Sin[i] , c*Cos[i], b*Sin[j]Sin[i]}, {i, 0, 
Pi/2}, {j, -2Pi, 2Pi}]

Re: Graphics 2D and 3DTue Apr 27, 2010 12:40 pm

Code:

Show[
    {
         ParametricPlot3D[
              {
                   2*Cos[j]*Sin[i] ,
                   2*Sin[j]Sin[i], 
                   6*Cos[i]
                }, 
              {i, 0, Pi/2}, 
              {j, -2Pi, 2Pi}
           ],
         ParametricPlot3D[
              {
                Cos[j]*Sin[i] ,
                Sin[j]Sin[i], 
                3Cos[i]
                }, 
              {i, 0, Pi}, 
              {j, -2Pi, 2Pi}]
      }
    ];

Đường trái timTue Apr 27, 2010 12:52 pm

r = a*(1+sinx)
Biến đổi trong tọa độ cực:
x = rcosx = a*(1+sinx)*cosx
y = rsinx = a*(1+sinx)*sinx

Code:

Show[
    Table[
         ParametricPlot[
              {{i*(1 + Sin[x])*Cos[x], i*(1 + Sin[x])*Sin[x]}}, 
              {x, -Pi, Pi},
              PlotStyle -> Hue[Random[Real, {0, 5}]]
           ]
         ,
         {i, 5}
      ]
    ];

Sử dụng phép quay 1 điểm A với một góc i quanh điểm MTue Apr 27, 2010 2:20 pm

Code:

(*Su dung phep xoay ve chum duong thang xoay quanh tam*)
k1 = Table[{{0, 0}, {0.5*Cos[i], 0.5*Sin[i]}}, {i, 0, Pi/2, 0.025}];
k2 = Table[{{1, 0}, {0.5*
        Cos[i] + (1 - Cos[i]), 0.5*Sin[i] - Sin[i] }}, {i, -Pi/2, 0, 0.025}];
k3 = Table[{{1, 1}, {0.5*Cos[i] - Sin[
    i] + (1 - Cos[i]) + Sin[i], 0.5*
        Sin[i] + Cos[i] - Sin[i] + (1 - Cos[i])}}, {i, 0, Pi/2, 0.025}];
k4 = Table[{{0, 1}, {-0.5*Sin[i] + Sin[
      i], 0.5*Cos[i] + (1 - Cos[i])}}, {i, 0, Pi/2, 0.025}];
dt1 = {};
dt2 = {};
dt3 = {};
dt4 = {};
For[i = 1, i ≤ Length[k2], i++,
       mau = RGBColor[
              Random[Integer, {0, 1}],
              Random[Integer, {0, 1}],
              Random[Integer, {0, 1}]
           ];
       dt1 = Append[dt1, Graphics[{mau, Line[k1[[i]]]}]];
       dt2 = Append[dt2, Graphics[{mau, Line[k2[[i]]]}]];
       dt3 = Append[dt3, Graphics[{mau, Line[k3[[i]]]}]];
       dt4 = Append[dt4, Graphics[{mau, Line[k4[[i]]]}]];
    ];
Show[{dt1, dt2, dt3, dt4}];

Vẽ tam giác qua các trung điểm.Wed May 12, 2010 11:35 am

Code:

A = Table[Random[Integer, {-3, 3}], {i, 3}, {j, 2}];
A = Append[A, A[[1]]];
B = Table[{(A[[i]][[1]] + A[[i + 1]][[1]])/2,(A[[i]][[2]] + A[[i + 1]][[2]])/2}, {i, 3}];
B = Append[B, B[[1]]];
TamGiac = Graphics[{{Hue[1.6], Line[A]},{Hue[0], PointSize[0.02], Point /@ A},{Text["A", A[[1]]], Text["B", A[[2]]], Text["C", A[[3]]]}}];
DTrungDiem = Graphics[{{PointSize[0.02], Hue[0.1], Point /@ B}, {Hue[1.2],Line[B]}}];
Show[{TamGiac, DTrungDiem}];

Vẽ mặt bất kỳ bằng phương pháp biến đổi toạ độ cầuWed Dec 29, 2010 3:17 pm

Code:

Clear[f, x, y, z, r];
f = Input["Nhap f(x,y,z)"];
f = ReplaceAll[f, {x -> r Cos[φ] Sin[θ], y -> 
    r Sin[φ] Sin[θ], z -> r Cos[θ]}];
f = Solve[f == 0, {r}];
x = ReplaceAll[r Cos[φ] Sin[θ], f[[1, 1]]];
y = ReplaceAll[r Sin[φ] Sin[θ], f[[1, 1]]];
z = ReplaceAll[r Cos[θ], f[[1, 1]]];
ParametricPlot3D[{x, y, z}, {φ, -Pi, Pi}, {θ, -Pi, Pi}];

Input: f(x,y,z) = x^2 + y^2 + z^2/2 - 1
Output:
Input: f(x,y,z = x^2 + y^2 + z^2 - 1
Output:

Graphics: Line, Dashing Thu May 12, 2011 2:56 pm

Code:

Clear[L, g1, g2, g3];
L = {{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}};
g1 = Graphics[Line[L]];
g2 = Graphics[Line[{{0, 1/2}, {1/2, 1}, {1, 1/2}, {1/2, 0}, {0, 1/2}}]];
g3 = Graphics[{Hue[0.7], Dashing[{0.05, 0.05}], 
      Line[{{1/2, 0}, {1/2, 1}}], Line[{{0, 1/2}, {1, 1/2}}]}];
Show[g1, g2, g3];

Graphics: Rectangle, DishThu May 12, 2011 3:00 pm

Code:

Clear[g1, g2];
g1 = Graphics[{Hue[Random[]], Rectangle[{0, 0}, {1, 1}]}];
g2 = Table[Graphics[{Hue[Random[]], Disk[{1/2, 1/2},1/2, {i, i + Pi/2}]}], {i, 0, 2 Pi, Pi/8}];
Show[g1, g2];

Graphics: PolygonThu May 12, 2011 3:04 pm

Code:

Clear[x, y];
x[φ_] := Cos[φ];
y[φ_] := Sin[φ];
g1 = Graphics[{Yellow, Polygon[Table[{x[i], y[i]}, {i, 0, 2 Pi, Pi/3}]]}];
g2 = Graphics[Line[Table[{x[i], y[i]}, {i, 0, 2 Pi, Pi/6}]]];
Show[g1, g2];

EvaluateThu May 12, 2011 3:09 pm

Code:

Clear[funs];
funs = {x^2 - 3, x^3/5 - x};
Plot[Evaluate[funs], {x, -7, 12}, Epilog -> {PointSize[0.04], (Point[{#,funs[[1]] /. x -> #}] &) /@ (x /. Solve[Equal @@ funs, x])}];

CuboidThu May 12, 2011 3:13 pm

Code:

Clear[L, g];
L = Table[{i, j, k}, {i, 0, 2}, {j, 0, 2}, {k, 0, 2}];
g = Table[Cuboid[L[[i, j, k]]], {i, 3}, {j, 3}, {k, 3}];
g = Union[Delete[Union[Delete[g, 0]], 0]];
Show[Graphics3D[g]];

VỮNG TIN - TIẾP BƯỚC - THÀNH CÔNG

Graphics 2D and 3D

descriptionGraphics 2D and 3DTue Apr 20, 2010 10:14 pm

descriptionVẽ các đường tròn đồng tâm với các màu ngẫu nhiênTue Apr 27, 2010 12:20 pm

descriptionSử dụng phép quay 1 điểm quanh giốc tọa độ vẽ chùm đường thẳng quay quanh trục tọa độTue Apr 27, 2010 12:23 pm

descriptionKết hợp chùm đường thẳng và đường congTue Apr 27, 2010 12:25 pm

descriptionTịnh tuyến chùm đường trònTue Apr 27, 2010 12:28 pm

descriptionRe: Graphics 2D and 3DTue Apr 27, 2010 12:32 pm

descriptionRe: Graphics 2D and 3DTue Apr 27, 2010 12:40 pm

descriptionĐường trái timTue Apr 27, 2010 12:52 pm

descriptionSử dụng phép quay 1 điểm A với một góc i quanh điểm MTue Apr 27, 2010 2:20 pm

descriptionVẽ tam giác qua các trung điểm.Wed May 12, 2010 11:35 am

descriptionVẽ mặt bất kỳ bằng phương pháp biến đổi toạ độ cầuWed Dec 29, 2010 3:17 pm

descriptionGraphics: Line, Dashing Thu May 12, 2011 2:56 pm

descriptionGraphics: Rectangle, DishThu May 12, 2011 3:00 pm

descriptionGraphics: PolygonThu May 12, 2011 3:04 pm

descriptionEvaluateThu May 12, 2011 3:09 pm

descriptionCuboidThu May 12, 2011 3:13 pm

descriptionRe: Graphics 2D and 3D