exm12053_1.m

《精通Matlab6.5版》张志勇等编著

% exm12053_1.m
clear
h=surf(peaks(20));		
z=get(h,'zdata');			
chann=ddeinit('excel','Sheet3');
range2='r1c1:r20c20';
rc=ddepoke(chann,range2,z);
rc=ddeadv(chann,range2,'set(h,''zdata'',z);','z');
hc=uimenu(gcf,'Label','关闭');
hc1=uimenu(hc,'Label','关热连接','Callback','ddeunadv(chann,range2);');
hc2=uimenu(hc,'Label','关闭对话','Callback','ddeterm(chann);');
hc3=uimenu(hc,'Label','关图形窗','Callback','close;');