2019年圣诞祝福

作者克里夫硅藻土，2019年12月24日

18 次查看（过去 30 天） |0个赞|2 个评论

灵感来自Patsy和https://www.amazon.com/gp/product/B075JDVR53．

类型xmas_2019.m

圣诞问候。设置(gcf，'pos'，[800 200 420 315]) CLF轴([0 1 0 1])轴关闭k = 1:3 [x,y] = base(k);Patch (x,y,gray) [x,y] = edge(k);火焰(k) = patch(x,y，'w');结束gif_frame('html/xmas_2019.gif') for k = 1:50 r = randi(2,1,3)-1;J = randi(3,1,1);若范数(r) > 0火焰(j)。FaceColor = r;Gif_frame ('reset')关闭函数[x,y] = base(k) xo =[。33 .45 .57];Ys =[。]38。3.0 .44]; x = xo(k) + .10*[0 1 1 0 0]; y = ys(k)*[0 0 1 1 0]; end function [x,y] = edge(k) xo = [.33 .45 .57]; yo = [.38 .30 .44]; e = [2 0 0 2 3]; x = xo(k) + .01*[e 5 10-fliplr(e)]; y = yo(k) + .08*[0:4 5 4:-1:0]; end function g = gray g = [.5 .5 .5]; end end

发布与MATLAB®R2018b