脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 软件编程 → C 语言 → Matlab青蛙

使用Matlab绘制七夕咕呱小青蛙

 更新时间：2022年08月03日 08:21:07   作者：slandarer  
七夕节到了还不快给你的朋友安排上这只咕呱小青蛙？本文将用Matlab绘制一个可爱的咕呱小青蛙，感兴趣的小伙伴可以动手尝试一下

咕呱，咕呱，咕呱

咕呱，咕呱，咕呱

咕呱，咕呱，咕呱

七夕节到了还不快给你的朋友安排上这只咕呱小青蛙？

基础代码

function gugua
ax=gca; 
ax.DataAspectRatio=[1 1 1];
ax.XLim=[-5 5];
ax.YLim=[-5 5];
ax.XColor='none';
ax.YColor='none';
ax.Color=[115,173,194]./255;
hold on
% hold(ax,'on') 
% =========================================================================
% 绘制荷叶
[X,Y]=getEllipse([0.14,-1.5],3.6,1.8,0,200);
fill(X,Y,[166,211,177]./255,'EdgeColor',[41,47,50]./255,'LineWidth',4,'FaceAlpha',1)
fill([1.45,1.5,2.75],[-3.4,-2.4,-2.95],[115,173,194]./255,'EdgeColor','none')
plot([1.4,1.5,2.6],[-3.2,-2.4,-2.8],'Color',[41,47,50]./255,'LineWidth',4)
plot([-1.1,-0.8],[-3.2,-2.6],'Color',[51,57,50]./255,'LineWidth',2)
plot([-.6,-0.5],[-3.2,-2.9],'Color',[51,57,50]./255,'LineWidth',2)
plot([-3.3,-2.8],[-1.7,-1.63],'Color',[51,57,50]./255,'LineWidth',2)

% 绘制小草
[X,Y]=getEllipse([0,0],.62,.5,0,200);
Y=Y-.2;
X(Y<0)=[];Y(Y<0)=[];
X=[X,X(end:-1:1)];
Y=[Y,-Y(end:-1:1)];
[X1,Y1]=rotateData(X,Y,pi/8);X1=X1+.85;Y1=Y1+3.2;
[X2,Y2]=rotateData(X,Y,-pi/8);X2=X2-.15;Y2=Y2+3.2;
plot([.3,.33],[2.5,3],'Color',[41,47,50]./255,'LineWidth',4)
fill(X1,Y1,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
fill(X2,Y2,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)

% 绘制腿部
[X,Y]=getEllipse([1.65,-1.5],.5,.2,0,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.55,-1.8],.4,.15,-pi/5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.28,-1.8],.4,.2,-pi/2.5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.8,-.6],1.3,.8,pi/6,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
%
[X,Y]=getEllipse([-1.55,-1.3],.5,.2,0,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([-1.48,-1.6],.4,.15,pi/5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([-1.18,-1.7],.4,.2,pi/2.5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([-1.6,-.45],1.3,.8,-pi/6,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)

% 绘制身体和肚子
[X,Y]=getEllipse([0.27,0.4],2.25,2.18,0,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',4,'FaceAlpha',1)
[X,Y]=getEllipse([0.18,-.48],1.05,.75,-pi/15,200);
fill(X,Y,[253,241,155]./255,'EdgeColor',[41,47,50]./255,'LineWidth',1.8,'FaceAlpha',1)

% 绘制眼睛
[X,Y]=getEllipse([-1.39,2.1],.88,.81,pi/7,200);
fill(X,Y,[253,241,155]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.9,1.98],.89,.81,-pi/7,200);
fill(X,Y,[253,241,155]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)

[X,Y]=getEllipse([-1.28,2.1],.28,.28,0,200);
fill(X,Y,[41,47,50]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.82,2.0],.28,.28,0,200);
fill(X,Y,[41,47,50]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)

X=0:.01:pi;Y=-sin(X);
X=X./3.9-.2;
Y=Y./6+1.65;
plot(X,Y,'Color',[41,47,50]./255,'LineWidth',2)

% =========================================================================
% 椭圆数据点生成函数
    function [X,Y]=getEllipse(Mu,XR,YR,theta,pntNum)
        % Mu     | 中心点
        % XR,YR  | 旋转前X,Y半轴长度
        % theta  | 旋转角度
        % pntNum | 生成数据点个数
        tList=linspace(0,2*pi,pntNum);
        X=cos(tList).*XR;
        Y=sin(tList).*YR;
        rotateMat=[cos(theta),-sin(theta);sin(theta),cos(theta)];
        XY=rotateMat*[X;Y]+Mu(:);
        X=XY(1,:);Y=XY(2,:);
    end
% 数据旋转角度
    function [X,Y]=rotateData(X,Y,theta)
        rotateMat=[cos(theta),-sin(theta);sin(theta),cos(theta)];
        XY=rotateMat*[X;Y];
        X=XY(1,:);Y=XY(2,:);
    end
end

动图生成代码

function guguagif
ax=gca; 
ax.DataAspectRatio=[1 1 1];
ax.XLim=[-5 5];
ax.YLim=[-5 5]; 
ax.XColor='none';
ax.YColor='none';
ax.Color=[115,173,194]./255;
hold on
DelayTime=.5;
pause(.5)
F=getframe(ax);
[imind,cm]=rgb2ind(F.cdata,256);
imwrite(imind,cm,'test.gif','gif','Loopcount',inf,'DelayTime',DelayTime);


% hold(ax,'on') 
% =========================================================================
% 绘制荷叶
[X,Y]=getEllipse([0.14,-1.5],3.6,1.8,0,200);
fill(X,Y,[166,211,177]./255,'EdgeColor',[41,47,50]./255,'LineWidth',4,'FaceAlpha',1)
fill([1.45,1.5,2.75],[-3.4,-2.4,-2.95],[115,173,194]./255,'EdgeColor','none')
plot([1.4,1.5,2.6],[-3.2,-2.4,-2.8],'Color',[41,47,50]./255,'LineWidth',4)
plot([-1.1,-0.8],[-3.2,-2.6],'Color',[51,57,50]./255,'LineWidth',2)
plot([-.6,-0.5],[-3.2,-2.9],'Color',[51,57,50]./255,'LineWidth',2)
plot([-3.3,-2.8],[-1.7,-1.63],'Color',[51,57,50]./255,'LineWidth',2)
pause(.5);saveFrame()

% 绘制小草
[X,Y]=getEllipse([0,0],.62,.5,0,200);
Y=Y-.2;
X(Y<0)=[];Y(Y<0)=[];
X=[X,X(end:-1:1)];
Y=[Y,-Y(end:-1:1)];
[X1,Y1]=rotateData(X,Y,pi/8);X1=X1+.85;Y1=Y1+3.2;
[X2,Y2]=rotateData(X,Y,-pi/8);X2=X2-.15;Y2=Y2+3.2;
plot([.3,.33],[2.5,3],'Color',[41,47,50]./255,'LineWidth',4)
fill(X1,Y1,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
fill(X2,Y2,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
pause(.5);saveFrame()

% 绘制腿部
[X,Y]=getEllipse([1.65,-1.5],.5,.2,0,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.55,-1.8],.4,.15,-pi/5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.28,-1.8],.4,.2,-pi/2.5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.8,-.6],1.3,.8,pi/6,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
%
[X,Y]=getEllipse([-1.55,-1.3],.5,.2,0,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([-1.48,-1.6],.4,.15,pi/5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([-1.18,-1.7],.4,.2,pi/2.5,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([-1.6,-.45],1.3,.8,-pi/6,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
pause(.5);saveFrame()

% 绘制身体和肚子
[X,Y]=getEllipse([0.27,0.4],2.25,2.18,0,200);
fill(X,Y,[185,215,108]./255,'EdgeColor',[41,47,50]./255,'LineWidth',4,'FaceAlpha',1)
[X,Y]=getEllipse([0.18,-.48],1.05,.75,-pi/15,200);
fill(X,Y,[253,241,155]./255,'EdgeColor',[41,47,50]./255,'LineWidth',1.8,'FaceAlpha',1)
pause(.5);saveFrame()

% 绘制眼睛
[X,Y]=getEllipse([-1.39,2.1],.88,.81,pi/7,200);
fill(X,Y,[253,241,155]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.9,1.98],.89,.81,-pi/7,200);
fill(X,Y,[253,241,155]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)

[X,Y]=getEllipse([-1.28,2.1],.28,.28,0,200);
fill(X,Y,[41,47,50]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)
[X,Y]=getEllipse([1.82,2.0],.28,.28,0,200);
fill(X,Y,[41,47,50]./255,'EdgeColor',[41,47,50]./255,'LineWidth',2,'FaceAlpha',1)

X=0:.01:pi;Y=-sin(X);
X=X./3.9-.2;
Y=Y./6+1.65;
plot(X,Y,'Color',[41,47,50]./255,'LineWidth',2)
pause(.5);saveFrame()

% =========================================================================
% 椭圆数据点生成函数
    function [X,Y]=getEllipse(Mu,XR,YR,theta,pntNum)
        % Mu     | 中心点
        % XR,YR  | 旋转前X,Y半轴长度
        % theta  | 旋转角度
        % pntNum | 生成数据点个数
        tList=linspace(0,2*pi,pntNum);
        X=cos(tList).*XR;
        Y=sin(tList).*YR;
        rotateMat=[cos(theta),-sin(theta);sin(theta),cos(theta)];
        XY=rotateMat*[X;Y]+Mu(:);
        X=XY(1,:);Y=XY(2,:);
    end
% 数据旋转角度
    function [X,Y]=rotateData(X,Y,theta)
        rotateMat=[cos(theta),-sin(theta);sin(theta),cos(theta)];
        XY=rotateMat*[X;Y];
        X=XY(1,:);Y=XY(2,:);
    end
    function saveFrame 
        F=getframe(ax);
        [imind,cm]=rgb2ind(F.cdata,256);
        imwrite(imind,cm,'test.gif','gif','WriteMode','append','DelayTime',DelayTime);
    end
end

到此这篇关于使用Matlab绘制七夕咕呱小青蛙的文章就介绍到这了,更多相关Matlab青蛙内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！

您可能感兴趣的文章:

相关文章

  • opencv实现颜色检测

    opencv实现颜色检测

    这篇文章主要为大家详细介绍了opencv实现颜色检测，文中示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
    2021-04-04
  • C++中对C语言结构体用法的扩充

    C++中对C语言结构体用法的扩充

    今天小编就为大家分享一篇关于C++中对C语言结构体用法的扩充，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧
    2018-12-12
  • linux c程序中获取shell脚本输出的实现方法

    linux c程序中获取shell脚本输出的实现方法

    以下是对在linux下c程序中获取shell脚本输出的实现方法进行了详细的分析介绍，需要的朋友可以过来参考下
    2013-08-08
  • 解析C/C++ Capstone 引擎源码编译问题

    解析C/C++ Capstone 引擎源码编译问题

    Capstone的编译非常简单只需要一步即可轻松得到对应的Lib库文件，如下将介绍该引擎如何被编译，以及简单的测试编译，这篇文章主要介绍了C/C++ Capstone 引擎源码编译,需要的朋友可以参考下
    2022-09-09
  • VSCode插件开发全攻略之命令、菜单、快捷键

    VSCode插件开发全攻略之命令、菜单、快捷键

    这篇文章主要介绍了VSCode插件开发全攻略之命令、菜单、快捷键,本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下
    2020-05-05
  • 判断给定的图是不是有向无环图实例代码

    判断给定的图是不是有向无环图实例代码

    判断给定的图是不是是有向无环图，方法是应用拓扑排序，代码如下
    2013-05-05
  • C++ STL关联式容器自定义排序规则的2种方法

    C++ STL关联式容器自定义排序规则的2种方法

    这篇文章主要介绍了C++ STL关联式容器自定义排序规则的2种方法，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
    2021-03-03
  • MFC对话框中添加状态栏的方法

    MFC对话框中添加状态栏的方法

    这篇文章主要介绍了MFC对话框中添加状态栏的方法,实例分析了MFC对话框添加状态栏所涉及的相关成员变量与事件实现技巧,需要的朋友可以参考下
    2015-07-07
  • c语言实现http下载器的方法

    c语言实现http下载器的方法

    这篇文章主要介绍了c语言实现http下载器的相关知识，本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
    2021-07-07
  • C语言大小端字节序存储模式深入解读

    C语言大小端字节序存储模式深入解读

    我们知道，当编译器执行 “创建变量” 这一代码时，会在内存中开辟空间相应的空间来存储变量值。而对于整型变量而言，变量值又是以二进制补码的形式存放的
    2022-09-09

最新评论