七夕节快到了，教你用MATLAB绘制blingbling的大钻石

最新推荐文章于 2022-11-16 23:26:50 发布
最新推荐文章于 2022-11-16 23:26:50 发布
阅读量2.1w 收藏 511
点赞数 175
分类专栏： # MATLAB 特效 文章标签： MATLAB 七夕 钻石 fill 表白
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/slandarer/article/details/119521516
版权

1效果

在这里插入图片描述
在这里插入图片描述

2程序说明

其实非常简单，只需要计算出各个顶点位置，并用fill3绘制一个个面出来即可，为了钻石的色彩更加丰富，我们用light函数设置了光照并为fill3创建出的PATCH对象设置了以下属性。

  • FaceAlpha 面透明度
  • EdgeAlpha 边透明度
  • FaceLighting 面照亮方式(是整个面相同颜色还是通过插值不同位置不同颜色)
  • EdgeLighting 边照亮方式(与面照亮方式类似)
  • SpecularStrength 镜面反射的强度
  • DiffuseStrength 散射光的强度
  • AmbientStrength 环境光的强度

其中：
若将PATCH属性由：

faceColor=[0 71 177];
facePara={faceColor./255,'FaceAlpha',0.6,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.3,...
      'FaceLighting','gouraud','EdgeLighting','gouraud',...
      'SpecularStrength',0.9,'DiffuseStrength',0.7,'AmbientStrength',0.7};  % 面参数

改为：

faceColor=[237 64 153];
facePara={faceColor./255,'FaceAlpha',0.4,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.2,...
      'FaceLighting','gouraud','EdgeLighting','gouraud',...
      'SpecularStrength',0.9,'DiffuseStrength',0.7,'AmbientStrength',0.6}; % 面参数

则钻石变成这个样子：
在这里插入图片描述
另：
大家可以猜猜下面这个钻石是咋画的：
在这里插入图片描述
在这里插入图片描述

3完整代码

function diamond
hold on
ax=gca;
axis equal
grid on
ax.GridLineStyle='--';
ax.LineWidth=1.2;
ax.XLim=[-2,2];
ax.YLim=[-2,2];
ax.ZLim=[-1.8,1.5];
ax.XColor=[1,1,1].*0.4;
ax.YColor=[1,1,1].*0.4;
ax.ZColor=[1,1,1].*0.4;
ax.DataAspectRatio=[1,1,1];
ax.DataAspectRatioMode='manual';
ax.CameraPosition=[-67.6287 -204.5276   82.7879];

light('Position',[5,6,5])

thetaSet8=linspace(0,2*pi-pi/4,8)';
thetaSet16=linspace(0,2*pi-pi/8,16)';

faceColor=[0 71 177];
facePara={faceColor./255,'FaceAlpha',0.6,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.3,...
      'FaceLighting','gouraud','EdgeLighting','gouraud',...
      'SpecularStrength',0.9,'DiffuseStrength',0.7,'AmbientStrength',0.7};  % 面参数
  
% faceColor=[237 64 153];
% facePara={faceColor./255,'FaceAlpha',0.4,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.2,...
%       'FaceLighting','gouraud','EdgeLighting','gouraud',...
%       'SpecularStrength',0.9,'DiffuseStrength',0.7,'AmbientStrength',0.6}; % 面参数
  
% 绘制最上方八边形
pntSet1=[cos(thetaSet8),sin(thetaSet8),ones(8,1)];
fill3(pntSet1(:,1),pntSet1(:,2),pntSet1(:,3),facePara{:})

% 一圈8个三角形
pntSet2=[cos(thetaSet8+pi/8).*1.3,sin(thetaSet8+pi/8).*1.3,ones(8,1).*0.7];
for i=1:8
    p1=i;
    p2=mod(i,8)+1;
    p3=i;
    fill3([pntSet1([p1,p2],1);pntSet2(p3,1)],...
          [pntSet1([p1,p2],2);pntSet2(p3,2)],...
          [pntSet1([p1,p2],3);pntSet2(p3,3)],facePara{:})
end

% 一圈8个四边形
pntSet3=[cos(thetaSet8).*1.7,sin(thetaSet8).*1.7,ones(8,1).*0.3];
for i=1:8
    p1=mod(i,8)+1;
    p2=i;
    p3=p1;
    p4=p1;
    fill3([pntSet1(p1,1);pntSet2(p2,1);pntSet3(p3,1);pntSet2(p4,1)],...
          [pntSet1(p1,2);pntSet2(p2,2);pntSet3(p3,2);pntSet2(p4,2)],...
          [pntSet1(p1,3);pntSet2(p2,3);pntSet3(p3,3);pntSet2(p4,3)],facePara{:})
end

% 一圈16个三角形
pntSet4=[cos(thetaSet16).*1.7,sin(thetaSet16).*1.7,ones(16,1).*0.3];
for i=1:8
    p1=i;
    p2=2*i-1;
    p3=2*i;
    fill3([pntSet2(p1,1);pntSet4([p2,p3],1)],...
          [pntSet2(p1,2);pntSet4([p2,p3],2)],...
          [pntSet2(p1,3);pntSet4([p2,p3],3)],facePara{:})
    p2=2*i;
    p3=mod(2*i,16)+1;
    fill3([pntSet2(p1,1);pntSet4([p2,p3],1)],...
          [pntSet2(p1,2);pntSet4([p2,p3],2)],...
          [pntSet2(p1,3);pntSet4([p2,p3],3)],facePara{:})
end

% 一圈16个四边角形
pntSet5=[cos(thetaSet16).*1.7,sin(thetaSet16).*1.7,ones(16,1).*0.15];
for i=1:16
    p1=i;p2=mod(i,16)+1;
    p3=mod(i,16)+1;p4=i;
    fill3([pntSet4(p1,1);pntSet4(p2,1);pntSet5(p3,1);pntSet5(p4,1)],...
          [pntSet4(p1,2);pntSet4(p2,2);pntSet5(p3,2);pntSet5(p4,2)],...
          [pntSet4(p1,3);pntSet4(p2,3);pntSet5(p3,3);pntSet5(p4,3)],facePara{:})
end
pntSet6=[cos(thetaSet8+pi/8).*0.4,sin(thetaSet8+pi/8).*0.4,ones(8,1).*(-1.15)];

% 一圈16个长三角形
for i=1:8
    p1=i;
    p2=2*i-1;
    p3=2*i;
    fill3([pntSet6(p1,1);pntSet5([p2,p3],1)],...
          [pntSet6(p1,2);pntSet5([p2,p3],2)],...
          [pntSet6(p1,3);pntSet5([p2,p3],3)],facePara{:})
    p2=2*i;
    p3=mod(2*i,16)+1;
    fill3([pntSet6(p1,1);pntSet5([p2,p3],1)],...
          [pntSet6(p1,2);pntSet5([p2,p3],2)],...
          [pntSet6(p1,3);pntSet5([p2,p3],3)],facePara{:})
end

% 一圈8个长四边形
pntSet7=[cos(thetaSet8).*1.7,sin(thetaSet8).*1.7,ones(8,1).*0.15];
for i=1:8
    p1=mod(i,8)+1;
    p2=i;
    p4=mod(i,8)+1;
    fill3([pntSet7(p1,1);pntSet6(p2,1);0;pntSet6(p4,1)],...
          [pntSet7(p1,2);pntSet6(p2,2);0;pntSet6(p4,2)],...
          [pntSet7(p1,3);pntSet6(p2,3);-1.5;pntSet6(p4,3)],facePara{:})
    
end
end

4其他过节可能会用到的程序

↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
！！！！点击图片跳转连接！！！！
↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑

4.1玫瑰花球

4.2樱花树

4.3立体爱心九宫格

4.4立体玫瑰花

4.5水晶爱心

4.6两款相册

-1紫色钻石

抱歉大家我确实不记得具体的参数了，不过下面这份代码大家可以试一下：
这份代码的效果：
在这里插入图片描述
在这里插入图片描述

需要注意的是，很多角度下并不会产生中间色，只会显示原本的粉色或紫色，只有一部分角度会有很绚丽的颜色，
另：该份代码中对光源的设置设置了两遍：

light('Position',[5,6,5])

这样确实会使钻石某些反射面亮度更高更绚丽。
以下是绘制两遍钻石的代码，大家可以对各个部分数据进行调整以获得更绚丽的效果：

function diamondx2
hold on
ax=gca;
axis equal
grid on
ax.GridLineStyle='--';
ax.LineWidth=1.2;
ax.XLim=[-2,2];
ax.YLim=[-2,2];
ax.ZLim=[-1.8,1.5];
ax.XColor=[1,1,1].*0.4;
ax.YColor=[1,1,1].*0.4;
ax.ZColor=[1,1,1].*0.4;
ax.DataAspectRatio=[1,1,1];
ax.DataAspectRatioMode='manual';
ax.CameraPosition=[-67.6287 -204.5276   82.7879];

light('Position',[5,6,5])
light('Position',[5,6,5])


faceColor=[0 71 177];
facePara={faceColor./255,'FaceAlpha',0.4,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.2,...
      'FaceLighting','gouraud','EdgeLighting','gouraud',...
      'SpecularStrength',0.9,'DiffuseStrength',0.8,'AmbientStrength',0.7}; % 面参数 
drawDiamond(facePara)

faceColor=[237 64 153];
facePara={faceColor./255,'FaceAlpha',0.4,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.2,...
      'FaceLighting','gouraud','EdgeLighting','gouraud',...
      'SpecularStrength',0.9,'DiffuseStrength',0.8,'AmbientStrength',0.7}; % 面参数 
drawDiamond(facePara) 

    function drawDiamond(facePara)
        
        thetaSet8=linspace(0,2*pi-pi/4,8)';
        thetaSet16=linspace(0,2*pi-pi/8,16)';
        
        % 绘制最上方八边形
        pntSet1=[cos(thetaSet8),sin(thetaSet8),ones(8,1)];
        fill3(pntSet1(:,1),pntSet1(:,2),pntSet1(:,3),facePara{:})
        
        % 一圈8个三角形
        pntSet2=[cos(thetaSet8+pi/8).*1.3,sin(thetaSet8+pi/8).*1.3,ones(8,1).*0.7];
        for i=1:8
            p1=i;
            p2=mod(i,8)+1;
            p3=i;
            fill3([pntSet1([p1,p2],1);pntSet2(p3,1)],...
                [pntSet1([p1,p2],2);pntSet2(p3,2)],...
                [pntSet1([p1,p2],3);pntSet2(p3,3)],facePara{:})
        end
        
        % 一圈8个四边形
        pntSet3=[cos(thetaSet8).*1.7,sin(thetaSet8).*1.7,ones(8,1).*0.3];
        for i=1:8
            p1=mod(i,8)+1;
            p2=i;
            p3=p1;
            p4=p1;
            fill3([pntSet1(p1,1);pntSet2(p2,1);pntSet3(p3,1);pntSet2(p4,1)],...
                [pntSet1(p1,2);pntSet2(p2,2);pntSet3(p3,2);pntSet2(p4,2)],...
                [pntSet1(p1,3);pntSet2(p2,3);pntSet3(p3,3);pntSet2(p4,3)],facePara{:})
        end
        
        % 一圈16个三角形
        pntSet4=[cos(thetaSet16).*1.7,sin(thetaSet16).*1.7,ones(16,1).*0.3];
        for i=1:8
            p1=i;
            p2=2*i-1;
            p3=2*i;
            fill3([pntSet2(p1,1);pntSet4([p2,p3],1)],...
                [pntSet2(p1,2);pntSet4([p2,p3],2)],...
                [pntSet2(p1,3);pntSet4([p2,p3],3)],facePara{:})
            p2=2*i;
            p3=mod(2*i,16)+1;
            fill3([pntSet2(p1,1);pntSet4([p2,p3],1)],...
                [pntSet2(p1,2);pntSet4([p2,p3],2)],...
                [pntSet2(p1,3);pntSet4([p2,p3],3)],facePara{:})
        end
        
        % 一圈16个四边角形
        pntSet5=[cos(thetaSet16).*1.7,sin(thetaSet16).*1.7,ones(16,1).*0.15];
        for i=1:16
            p1=i;p2=mod(i,16)+1;
            p3=mod(i,16)+1;p4=i;
            fill3([pntSet4(p1,1);pntSet4(p2,1);pntSet5(p3,1);pntSet5(p4,1)],...
                [pntSet4(p1,2);pntSet4(p2,2);pntSet5(p3,2);pntSet5(p4,2)],...
                [pntSet4(p1,3);pntSet4(p2,3);pntSet5(p3,3);pntSet5(p4,3)],facePara{:})
        end
        pntSet6=[cos(thetaSet8+pi/8).*0.4,sin(thetaSet8+pi/8).*0.4,ones(8,1).*(-1.15)];
        
        % 一圈16个长三角形
        for i=1:8
            p1=i;
            p2=2*i-1;
            p3=2*i;
            fill3([pntSet6(p1,1);pntSet5([p2,p3],1)],...
                [pntSet6(p1,2);pntSet5([p2,p3],2)],...
                [pntSet6(p1,3);pntSet5([p2,p3],3)],facePara{:})
            p2=2*i;
            p3=mod(2*i,16)+1;
            fill3([pntSet6(p1,1);pntSet5([p2,p3],1)],...
                [pntSet6(p1,2);pntSet5([p2,p3],2)],...
                [pntSet6(p1,3);pntSet5([p2,p3],3)],facePara{:})
        end
        
        % 一圈8个长四边形
        pntSet7=[cos(thetaSet8).*1.7,sin(thetaSet8).*1.7,ones(8,1).*0.15];
        for i=1:8
            p1=mod(i,8)+1;
            p2=i;
            p4=mod(i,8)+1;
            fill3([pntSet7(p1,1);pntSet6(p2,1);0;pntSet6(p4,1)],...
                [pntSet7(p1,2);pntSet6(p2,2);0;pntSet6(p4,2)],...
                [pntSet7(p1,3);pntSet6(p2,3);-1.5;pntSet6(p4,3)],facePara{:})
            
        end
    end
end
slandarer
关注
  • 175
    点赞
  • 踩
  • 511
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 64
    评论
专栏目录
【数学建模】复杂水平井三维轨道设计附论文和matlab代码
matlab_dingdang的博客
09-10 879
在油气田开采过程中，井眼轨迹直接影响着整个钻井整体效率。对于复杂水平井，较差的井眼轨迹很可能会造成卡钻或施加钻压困难等重大事故的发生。因而，在施工之前分析影响井眼轨迹走向规律的诸多因素，设计最适当的井眼轨迹显得十分重要。在井眼轨道设计模型中，设计轨道往往由一些连续的曲线构成。目前常用的复杂水平井的井眼轨道设计模型有“垂直段 + 增斜段 + 稳斜段 + 扭方位段 +稳斜段 + 增斜段 + 水平段”的七段式井眼轨道设计模型，如图 1 所示。描述井。
【MATLAB】制作一幅钻石沿着圆周运动的动画
Fanjufei的博客
11-21 460
【MATLAB】制作一幅钻石沿着圆周运动的动画。
matlab 钻石绘制,用MATLAB代码模拟大雕和钻石人单挑
weixin_33441139的博客
03-24 577
该楼层疑似违规已被系统折叠隐藏此楼查看此楼不考虑士气、幸运等偶然因素。以下为测试用MATLAB代码和结论。function r=damages(amountA,attA,defA,dmgA,hpA,amountB,attB,defB,dmgB,hpB)%让大雕和钻石人单挑，其中A是大雕，B是钻石人。BAAB是钻石人先攻击，ABBA是大雕先攻击。hpleftA=hpA;hpleftB=hpB;wh...
Matlab绘图附加参数意义
ximenchuixuezijin的专栏
06-06 1619
<br />下面是选项的参数：<br />'r' 红色 'm' 粉红<br />'g' 绿色 'c' 青色<br />32<br />'b' 兰色 'w' 白色<br />'y' 黄色 'k' 黑色<br />各种线型属性选项<br />选 项 意 义 选 项 意 义<br />'-' 实线 '--' 虚线<br />':' 点线 '-.' 点划线<br />各种标记点属性选项<br />选 项 意 义 选 项意 义<br />'.' 用点号绘制各数据点 '^' 用上三角绘制各数据点<br />'+' 用'
Matplotlib常见用法
攀登Fox的博客
11-11 616
目录一、简介1.1、pyplot常用方法二、绘图2.1、直线图2.1.1、常规效果2.1.2、折线图2.1.3、曲线图2.1.4、三角函数2.1.5、subplot画布分区2.1.6、多颜色多格式2.1.7、添加图例2.2、散点图2.2.1、常规效果2.2.2、多颜色多大小2.3、柱状图2.4、饼状图2.5、等高线图 一、简介 Matplotlib是一个Python的2D绘图库，可以将数据可视化成各种图表； 1.1、pyplot常用方法 title()：图表名称 xlable()：x轴名称 ylable()
matlab钻石项链
weixin_62508889的博客
10-18 624
简陋的钻石项链
Matlab plot绘图颜色详解
热门推荐
jirryzhang的博客
08-18 11万+
MATLAB plot画线的颜色设定plot中画线的颜色通常是八种：标记符 颜色r 红g 绿b 蓝c 蓝绿m 紫红y 黄k 黑w 白 但是线的颜色是由红绿蓝（RGB）三原色组成的，通过设定
计算机图形学——绘制钻石图案
Dream
06-06 6865
要求：绘制钻石图案。将一圆周进行n等分，然后将所有的等分用直线连接，构成图案。 n=8 q =2*p/n X=2*r*cos(q) Y=r*sin(q)
在三维空间绘制心形宝石项链图案
06-30
这个程序可以在三维空间绘制出一幅心形的宝石项链，并附带matlab绘制出来的图形，有兴趣的可以看一下。
MatLab代码大全.rar_matlab 代码查询_matlab代码大全
07-15
快速查找代码用的一种简单文档，方便初级编程人员使用
myeclipse2018.9.0 bling版激活
10-02
myeclipse2018.9.0 bling版或者其他版本激活 亲测可用
etheme-blingbling-e20:启蒙主题"blingbling"到e20的端口
05-31
BlingBling 启蒙主题 BlingBling Enlightenment 主题是 Enlightenment 的旧默认主题： 它的目的是保守的，但仍然展示了 Enlightenment 的某些方面，例如动画过渡和为对象进行不同布局的能力。 原始主题是由 ...
Bling你的管「Bling your Tube」-crx插件
03-13
亮闪闪 单击“ B” ling按钮，然后将您的管子放回原处。 它将更改youtube播放器的背景，使其与视频的平均颜色匹配，从而放大每一步的每一处氛围。...在全屏模式下也可以使用。 支持语言:English (UK)
myeclise-2017-CI-10破解文件_Bling
01-04
myeclise-2017-CI-10破解文件_Bling myeclise-2017-CI-10破解文件_Bling myeclise-2017-CI-10破解文件_Bling myeclise-2017-CI-10破解文件_Bling
MyEclise 2017-CI8激活补丁(可选择Bling破解）
11-07
本人只在MyEclipse2017 CI 8版本下测试可用（可选择Bling）。 CI 8安装包下载地址: http://www.myeclipsecn.com/download/
基于Matlab的穿越火线-枪战王者（CF手游）王者飞行棋礼包收支分析
weixin_41476562的博客
01-31 5982
基于Matlab的穿越火线-枪战王者（CF手游）王者飞行棋礼包收支分析前言仿真假设部分仿真结果相关界面仿真程序运行结果后语 前言 最近，枪战王者更新了一个新的礼包玩法——王者飞行棋，玩法看着非常诱惑，但实际玩一局需要多少钱呢？我根据相关玩法规则，写了一个Matlab仿真程序，通过这个程序，我们共同来探究一下，一共需要多少钻石，才能拿到喜欢的那把在终点的武器。 仿真假设 模型中的一些假设如下： 1、...
Matplotlib教程一
qq_43456605的博客
11-16 751
pylon pylot axes
隐写算法(DE: Diamond Encoding)
YMilton的专栏
07-18 2272
1. DE直译过来为钻石编码，以下称钻石编码。其模型公式 根据上面的公式可以得到钻石编码模型的图形大致如下： 2. 钻石编码编码的进制确定，则 3. 钻石特征值的计算公式(DCV)： 4. 列举，秘密信息与钻石特征值的距离：，其中决定着选择的位置，若，则秘密信息嵌入的在D1,D2,D3中对应的位置如下图红色方框所示。 于是相应的像素值的改为如下：，， 其...
MATLAB统计地层可钻性
s0302017的博客
11-24 381
function [kd,S,B] = Drillselection(A) %统计地层可钻性应用； %根据抽样测定的一个地层整体的岩石可钻性级值数据； % 计算出1、地层整体的统计地层可钻性kd; % 2、地层级值波动范围S; % 3、验证地层可钻性级别统计分布图和理论分布图等； % 例：输入测得实验数据 % A=load('result.txt'); ...
blingbling
最新发布
07-28
抱歉，我无法理解你的问题"blingbling"。请提供更具体的问题或者说明，我将尽力帮助你。 #### 引用[.reference_title] - *1* *2* [七夕节快到了，教你用MATLAB绘制blingbling的大钻石](https://blog.csdn.net/slandarer/article/details/119521516)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item] - *3* [最长公共子序列 (nlogn)](https://blog.csdn.net/qq_59773176/article/details/119464342)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 64
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

slandarer

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值