matlab；不依赖y值的三维分形表面程序

以下是一个基于Matlab的三维分形表面程序，不依赖于y值：

% 定义初始的三个顶点坐标
A = [0, 0, 0];
B = [1, 0, 0];
C = [0, 1, 0];

% 定义迭代次数
n = 4;

% 进行迭代
for i = 1:n
    % 分别计算三个新的顶点坐标
    D = 0.5 * (A + B);
    E = 0.5 * (B + C);
    F = 0.5 * (C + A);

    % 将新的顶点坐标连接起来形成四个新的三角形
    T1 = [A; D; F];
    T2 = [D; B; E];
    T3 = [F; E; C];
    T4 = [D; E; F];

    % 将四个新的三角形加入到原有的三角形列表中
    triangles = [triangles; T1; T2; T3; T4];

    % 更新三个顶点坐标
    A = D;
    B = E;
    C = F;
end

% 画出分形表面
trisurf(triangles(:, 1), triangles(:, 2), triangles(:, 3), 'FaceColor', 'blue', 'EdgeColor', 'none');
axis equal;

这个程序使用Sierpinski三角形的方法来生成分形表面。它从一个初始的三角形开始，每次将三角形分成四个更小的三角形，然后将这些新的三角形加入到原有的三角形列表中。最终得到的三角形列表就是分形表面的三角形网格。