Mathematica中文论坛-非官方

标题: 豆粑粑　matlab XKCD风格的图 [打印本页]
作者: meatball1982    时间: 2018-6-1 13:26
标题: 豆粑粑　matlab XKCD风格的图
XP的论文里,有个comic的图.别人好像是　python,mathematica, latex都画了.matlab 里也有实现,　
https://stackoverflow.com/questi ... le-graphs-in-matlab

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



comic效果的.



  1. clear all
  2. clc
  3. close all



  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;



  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);

  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)

  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

  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);

  3. %# capture with export_fig
  4. im = export_fig('-nocrop',fh);

  6. % %# add a bit of border to avoid black edges
  7. im = padarray(im,[30 30 0],255);

  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)
复制代码


test_xkcd.m.rar

1.06 KB, 下载次数: 0

fun_mm_xkcd.m.rar

460 Bytes, 下载次数: 0



欢迎光临 Mathematica中文论坛-非官方 (http://ilovemathematica.com/) Powered by Discuz! X3.2