使用MATLAB折腾QQ表情

建不了的模。

使用MATLAB折腾QQ表情

代码部分
function qqbiaoqing(word,shortcut,space_num)
if nargin<3
     space_num=3;  %空格数默认 3
    if nargin<2
         shortcut='[img]file:///C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\GNN%4C}{72S~B2}4MI%[A`N.gif[/img]';  %表情快捷键
        if nargin<1
            word='心';     %表情字
        end
    end
end
data=wordmatrix(word);
str=[];
str2=[];
for i=1:16
    for j=1:16
        if data(i,j)==1;
            str=[str sprintf(shortcut)];
        else
            str=[str sprintf(repmat(' ',1,space_num))];
        end
    end
    disp(str);
    str2=[str2 sprintf('\n') str];
    str=[];
end
clipboard('copy',str2);
function  y=wordmatrix(word)
%%getwordmatrix(word)生成一个16*16的字模矩阵数据。1表示亮点，0表示暗点
h=figure('visible','off');
hold on
imshow(ones(16,16));
htext=text(10,10,word);
set(htext,'HorizontalAlignment','center','VerticalAlignment','middle','margin',eps);
axis equal
frame=getframe;
cdata=frame.cdata;
cdata=im2bw(cdata); %cdata 80*81
y=zeros(16,16);
for i=1:16
    for j=1:16
        if cdata(i,j)==1
            y(i,j)=1;
        end
    end
end
y=1-y;
  close(h);
复制代码
折腾qq示例：
qqbiaoqing('安','file:///C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\U2]%50TOT_CDDX%BSA{59Y6.gif',3);
复制代码
人性化：本程序能够直接将输出字符串复制到剪切板上，只需在qq聊天窗口粘贴即可。
需要说明的是，qq聊天窗口需要右键选中允许快捷键输入表情。

奋起小青年

这个好赞啊，上次还看到用matlab弹卡农的

数学中国—罂粟

哈哈，好像很好玩的样子，有时间要玩玩