shili09.m

自己手敲并验证的matlab 6.0实例的代码 及运行程序所得的图像结果。此部分为前20个例子。为matlab的基础部分

function shili09
h0=figure('toolbar','none',...
    'position',[200 150 450 250],...
    'name','实例09');
t=[54 21 35;
    68 54 35;
    45 25 12;
    48 68 45;
    68 54 69];
x=sum(t);
%对T中元素按列求和
h=pie(x); 
%绘制饼图
textobjs=findobj(h,'type','text');
%得到饼形图的子图的句柄
str1=get(textobjs,{'string'});
%得到饼形图的子图string属性
val1=get(textobjs,{'extent'});
%得到饼形图的子图的‘extent’属性
oldext=cat(1,val1{:});
%得到val1的第一个元素
names={'商品一：';'商品二：';'商品三：'};
str2=strcat(names,str1);
%将str1和str2串接起来
set(textobjs,{'string'},str2)
val2=get(textobjs,{'extent'});
newext=cat(1,val2{:});
offset=sign(oldext(:,1)).*(newext(:,3)-oldext(:,3))/2;
%确定str1和str2的长度差
pos=get(textobjs,{'position'});
%得到饼形图的‘position’属性
textpos=cat(1,pos{:});
textpos(:,1)=textpos(:,1)+offset;
%计算文本对象的新位置
set(textobjs,{'position'},num2cell(textpos,[3,2]))
%修改文本对象的位置属性