MATLAB中M文件例子.doc

《MATLAB中M文件例子.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、20.11M文件例子精通MATLAB工具箱含有许多实用函数，它们可以验证本章的许多概念。这些函数的基本部分已经在二维和三维图形这些章阐述过了。有了前面对句柄图形的讨论，我们现在可以更彻底地讨论这些函数。最简单的精通MATLAB工具箱的函数之一提出了一个共同的问题。MATLAB函数gcf返回当前图形的句柄。但是，它有一个副作用。如果图形不存在，gcf就创建一个，并返回它的句柄。如果想寻找一个图形是否存在于头一个位置，要是没有，又不得不创建，怎么办？函数mmgcf正好实现由其内容所描述的工作。functionHF=mmgcf%MMGCFGetCurrentFigureifitE

2、xists.%MMGCFreturnsthehandleofthecurrentfigureifitexists.%Ifnocurrentfigureexists,MMGCFreturnsanemptyhandle.%%NotethatthefunctionGCFisdifferent.Itcreatesafigureandreturnsitshandleifitdoesnot%exist.%Copyright(c)1996byPrentice-Hall,Inc.Hf=get(0,‘Children’);%checkforfigurechildrenifisempty(Hf

3、)returnelseHf=get(0,‘CurrentFigure’);end函数mmgcf首先检查根对象的子对象的图形是否存在，如至少有一个图形对象时，根对象的‘CurrentFigure’属性就返回当前的图形。函数mmgca为坐标轴对象执行同样的功能，如同在它的M文件内所描述的那样。functionHa=mmgca%MMGCAGetCurrentAxesifitexists.%MMGCAreturnsthehandleofthecurrentaxesifitexists.%Ifnocurrentaxesexists,MMGCAreturnsanemptyhandle.

4、%%NotethatthefunctionGCAisdiffent.Itcreateafigureandanaxesandreturnstheaxes%handleiftheydonotexist.%Copyright(c)1996byPrentice-Hall,Inc.Ha=findobj(0,‘Type’,‘axes’);ifisempty(Ha)returnelseHa=get(get(0,‘CurrentFigfure’),‘CurrentAxes’);end由于函数gco已经表现出当对象不存在时返回空矩阵的行为特性，就不需要函数mmgco了。在精通MATLAB工具

5、箱中的另一个函数是mmzap，在二维图形那一章里已作过介绍。如下M文件中所示，它使用mmgcf作错误检查，与findobj和get一起删除一个指定的图形。functionmmzap(arg)%MMZAPDeletegraphicsobjectusingmouse.%MMZAPwaitsforamouseclickonanobjectinafigurewindowanddeletestheobject.%MMZAPorMMZAPtexterasestextobjects.%MMZAPaxeserasesaxesobjects.%MMZAPlineeraseslineobjec

6、ts.%MMZAPsurferasessurfaceobjects.%MMZAPpatcherasespatchobjects.%%Clickingonanobjectotherthantheselectedtypeorstrikingakeyonthekeyboardaborts%thecommand.%Copyright(c)1996byPrentice-Hall,Inc.ifnargin<1,arg=‘text’;endHf=mmgcf;ifisempty(Hf),error(‘NoFigureAvailable.’),endiflength(findobj(0,‘T

7、ype’,‘figure’))==1figure(Hf)%bringonlyfigureforwordendkey=waitforbuttonpress;%pauseuntillusertakessomeactionifkey%keyonkeyboardpressedreturn%takenoactionelse%objectselectedobject=gco%getobjectselectedbybuttonpresstype=get(object,‘Type’);ifall(type(1:4)==arg(1: