shwfrac.m

本人收集的一些有关matlab的代码程序设计 也不知道改选什么分类

function shwfrac(ref_point,str1,str2,ref_height)
%GSHWFRAC 函数在图形窗口上显示一个分式。
%
%  shwfrac(ref_point,str1,str2,ref_height)
%
%  其中，ref_point 为显示多项式的参考点 [x,y] 坐标，str1 
%  和 str2 分别为分式的分子和分母字符串，ref_height 为分子分
%  母字符显示的参考距离，默认值为 0.15, 它可以根据图形窗口的
%  大小或用户的喜好调整。
%
%See Also: GSHWFRAC

%Designed by Prof D Xue (c) 2000
if nargin<4, ref_height=0.15; end
x0=ref_point(1); y0=ref_point(2);
h1=text(x0,y0+ref_height,str1); h2=text(x0,y0-ref_height,str2);
x1=get(h1,'Extent'); x1=x1(3);  x2=get(h2,'Extent'); x2=x2(3);
xm=max([x1,x2]); h=line([x0,x0+xm],[y0,y0]); set(h,'Color','k');
if x1==xm, 
   p1=get(h2,'Position'); hh=h2; xx=x2; 
else, 
   p1=get(h1,'Position'); xx=x1; hh=h1; 
end
p1(1)=p1(1)+0.5*(xm-xx); set(hh,'Position',p1);