+ Trả lời chủ đề
Trang 2/2 ĐầuĐầu 1 2
Hiện kết quả từ 11 tới 16 của 16

Chủ đề: Graphics 2D and 3D

  1. #11
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Vẽ mặt bất kỳ bằng phương pháp biến đổi toạ độ cầu

    Mã:
    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:

  2. #12
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Graphics: Line, Dashing

    Mã:
    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];

  3. #13
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Graphics: Rectangle, Dish

    Mã:
    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];

  4. #14
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Graphics: Polygon

    Mã:
    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];

  5. #15
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Evaluate

    Mã:
    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])}];

  6. #16
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Cuboid

    Mã:
    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]];

+ Trả lời chủ đề
Trang 2/2 ĐầuĐầu 1 2

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
Trang Chủ Việc Làm Gia Sư Gia sư