豆粑粑 matlab XKCD风格的图

meatball1982

XP的论文里,有个comic的图.别人好像是　python,mathematica, latex都画了.matlab 里也有实现,　
https://stackoverflow.com/questi ... le-graphs-in-matlab

我自己也玩了一下.效果,还不错.
正常效果的.



comic效果的.

1. clear all
   
2. clc
   
3. close all
   
4. 
   
5. 
   
6. 
   
7. %# define plot data
   
8. x = 1:0.1:10;
   
9. y1 = sin(x).*exp(-x/3) + 3;
   
10. y2 = 3*exp(-(x-7).^2/2) + 1;
    
11. 
    
12. 
    
13. 
    
14.   sbp_width=0.7;
    
15.   sbp_heig=0.6;
    
16.   n_row = 1;
    
17.   n_col =1 ;
    
18.   [out_pos]=fun_mm_subplot_pos(n_row,n_col,sbp_width,sbp_heig);
    
19.   
    
20. %# plot
    
21. fh = figure('color','w');
    
22. set(fh, 'Position', [100, 100, 600, 550]);
    
23. ax=axes('position',out_pos(1,:));
    
24. hold on
    
25. plot(x,y1,'b','lineWidth',5);
    
26. % plot(x,y2,'w','lineWidth',9);
    
27. plot(x,y2,'r','lineWidth',4);
    
28. 
    
29. xlim([0.95 10])
    
30. ylim([-1 5])
    
31. set(gca,'ytick',[-1:1:5])
    
32. set(gca,'fontName','Comic Sans MS','fontSize',20,'lineWidth',3)
    
33. 
    
34. %# add an annotation
    
35. annotation(fh,'textarrow',[0.4 0.55],[0.7 0.6],...
    
36.      'string',sprintf('text%shere',char(10)),'headStyle','none','lineWidth',1.5,...
    
37.      'fontName','Comic Sans MS','fontSize',20,'verticalAlignment','middle','horizontalAlignment','left')
    
38. title('I am title')
    
39. xlabel(' I am xlabel')
    
40. ylabel(' I am ylabel')
    
41. legend({'line1','line2'},'location','southeast','box','off')
    
42. grid on
    
43. box on
    
44. 
    
45. h=gcf;
    
46. fi_na = './fig_normal'
    
47. fun_work_li_035_myfig_out(h,fi_na,3);

复制代码

函数

1. function [imt]=fun_mm_xkcd(fh);
   
2. 
   
3. %# capture with export_fig
   
4. im = export_fig('-nocrop',fh);
   
5. 
   
6. % %# add a bit of border to avoid black edges
   
7. im = padarray(im,[30 30 0],255);
   
8. 
   
9. %# make distortion grid
   
10. sfc = size(im);
    
11. [yy,xx]=ndgrid(1:7:sfc(1),1:7:sfc(2));
    
12. pts = [xx(:),yy(:)];
    
13. tf = cp2tform(pts+1.2*randn(size(pts)),pts,'lwm',14);
    
14. w = warning;
    
15. warning off images:inv_lwm:cannotEvaluateTransfAtSomeOutputLocations
    
16. imt = imtransform(im,tf);
    
17. warning(w)
    
18. %
    
19. % %# remove padding
    
20. imt = imt(16:end-15,16:end-15,:);
    
21. %
    
22. figure('color','w')
    
23. imshow(imt)

复制代码