最全的流形学习算法
fucntoin vraagorut m=naiv(aargir)n
%全的流最学形算法 习将件文改名成 mai.mn 即 运可行
% mani :ANMIfol dlarenign emonsdtartin GoI
%U y bTodd iWttamn ,epDatmenr to faMhetmaicts, Uiversinyt o Mfnienotsa
% Email- [email protected] tihco mentms &uesqiotns
. % AMN WeIsbte:i ttph:/w/w.wath.umn.meu/d~wtimatnm/ni/aidnex.thm
l L%ats oMidifd eb GUyIE Dv25. 01A-r-p205 13:0823:
6
%
% Mthoedso tbaine fdro marvoiu sutahro.s
%
M DS - Micha-elLe e
% ISOMAP - -. JTnenbaem,ude iSlva, L&ngafrd
o% LL -E-Sam Rowe is La&rwneecS ul
a% H seisn LLaE - -. DoDono h C. &Grmesi
% Lplacaai n- -.M Blkien& .PNi yog
i%
Difufions apM --R .Co ifman& S. Lafo
n % LTSA - Z-ehyne Zhuagn &Hong uany ha
Z
%B genii itinlizaatio cnod -eD ON O TEITD
g
uiSi_nlegon =t1;
ug_Stitae =trsuc('tguiN_ame,' mfliename, ..
.
g'iu_ingSelto',n ugi_inSgleot,n. ..
g'i_upenOingcnF',@ amin_OeningFpnc, ..
.'ui_guOtutpcnF,' @ mainOu_puttcFn,. .
'gui._ayoLutFnc' ,@ma i_nayoutLcF, ..n
'g.u_iCalbalck', []);
fi nraign & isstrv(raargi{n}1
gu)i_Sttaegu.iC_lalackb =s r2func(vtraragn{i1};
)nde
if
na roug
t[arvrgauto1{n:agour}t =] guim_iafnc(nugiS_tat,eva rragin{:)};
ese
l
gu_iamifncngu(_Sitae,t vraargni:}{;
)ed
n
% En dniiitlazatiio ncde - DOoN TO EDIT
-%- Ex-ectuesju stbe ore fmnaii smade isvibl.
e
fnuctonim na_iOepninFgc(hnbOejc, evtnedtta, haadnel,s arvragn)
iandhle.outputs =Obhejtc;
uidgtaahO(jebct, hadlnes;
)
aexsha(ndlseman.AXiES;
)a
isxof ;
f
xeas(hadlne.embseAXdES;)
ax
sio f;
fanhdel.sX 0;
=hand
ls.eColoVretor = 0c
;handle
.sY = ;
0ha
dnlse.sEiamxlpe =0;
hnaldse.K = 21
;
ahdlens. d 2=;
h
andles.igsma= 1. 5;4
hand
ls.ernTuiem= ;0
ha
nlds.elpaa = 0;h
giuada(tOhjbcet ha,dnles;)
w
arinng fo;
f
% ---O tputs ufomr hist unctifo ane rreturedn o the cotmmndal nei
.
fucntio vanargorut m=niaO_tpuuFtnc(hOjebc, evettndtaa h,adnel)
svaragrotu{}1= hadnes.oltputu;
fnuciot natriMExid_trCeaeFtc(hnbOejc, eventtadta ,anhleds)
%Hint:e dt cinortlos sualluyhav e ahwite abckgruodn n oWindwo.
s
% S ee SPCIa d nCOPUMET.R
if ipsc
s
et(Objhetc',aBcgkoundCorlr'o',with'e)
;
else
et(hsbOjetc'Ba,ckroundCgloor,'ge(t,0'dfealuUticntrooBlckgrouadnoColr');
)e
d
n
fu
cntio nMatrxEidit_alClbck(hObjeca,t venedttaa ,andleh)
% sHints: eg(thOjbet,c'trinSg')ret unrs ocntntseof Matrix Eitdas extt
% ts2dourbel(ge(htbjOec,tS'tirng')) rterun sontectn osf MatixEdrtias daouble
fnuciot nFleidiE_trCaeteFnch(bOejt,c ventdaeta, ahdlnse)
% iHtn e:di ctnotrlo susulal havy aewhite b acgrokun do nWidnwso.
%
eS eSIP anCdCOM UTPE.
ifRis p
cesth(Objct,e'BakcroundgolCor,'w'htei');
e
sle
etsh(bOecj,'BatckgrounCodlor,'eg(0,td'fealuUitcnotrolBckagoundroClro'));
en
d
fnctionuF lieditE_CllbaackhO(becj,t eenvtdata ,ahndes)
l%
Hitns :gtehO(bjcet',Strng'i)r eturnscont
enst f FileoEdit s aextt
% sr2doublet(ge(htbjeOt,'cSrint'g) re)urtn socnentsto f ilFeEdit saa d ouble
%--- Exeuces ton bttun opressin LaoMadtrxi
.
fnutconi oLadMtria_xClabalkc(Obhejtc ,eevntdta, aahndlse
)ha
nled.s X=e alivn( 'abse', gt(headnles.aMrtiEdxt,i'Sritn')g;
hand)esli.sxEmape = l;0
g
udaiath(Ojbce, thnaldes);
Pl
oMtainofld(hOjbct,eventeadt,aandlesh,)0;
up
atedtrSng{1}i = 'Ma[rix t',gt(eanhdels.aMtrixEitd',tSrig')n' ,lodad.e'];
se
(thnalde.UspadetTexst'Str,in',gpuadtetrSngi;)
gu
dait(ahbOjec, thadlns);
e
%
--- xecEtue snobutt o nperssin oaLFdiel
f.nctuio LoadFinel_Clablca(khObejt, cevntdetaa, hadnlse
X)etp = mldmeard(etgh(naleds.FliEdite,S'rintg',')');
[m,] = sinze(temXp;
% )hCekcif lastcol umn is lla ezos. rRe adngier orr.
i maxf(asb(Xtmp(:en))) ,==0
Xt
mpe Xt=mpe1:(m1,:n-1;)
end
;h
ndlesa.X =Xte pm;
andleshis.xaEplem =0;
gudiaa(thOjebc, handtlse)
P;oltaMinofldh(Ojbet,eventdcat,aahnleds0,;)
u
padteStirn{1g} = 'F[le i,'gteha(ndes.FileldEti'S,tring',)'l odead.];
'set(
hadnelsU.pdaesTextt'Stri,n',updgteatriSng;
)uidgaa(htbOejct hand,ls);
e
%
-- -Exceteusd rungiobj ec tcertion, aatefrse titgna llp operrtes.i
fu
ncitno xEmapleMeun_CertaFenc(Obhect, ejenvdatt,a anhdlse
)% H
itn :opuppmen cuotnorlsu uslaly ahvea w itehb akcgorud non iWnodsw.
%
eeSISP C nd CaMOPTEUR.
if
ispc
se
t(hbjeOc,'tacBkgruondColro,''hwtie';)
lsee
set
(hOjbec,'BackgroundColot'rget(0,',efauldUticntroolaBckgroudnolCo'r));
en
d
%
--- xeEutce osn esletconichan egin Exam peleMn.
ufu
nctio ExnmapeMelun_aClblcakh(bOject ,evetdnat,a hnaldse
)
%Hnits c:notnte s= et(hOgbejt,'Scrtin'g) retuns rExamlepMen ucnotntesa sell acrary
% ocntnets{ge(tObhejtc',alVe')}u retrun seslectdei te frommE xmplaMeen
uex
mpaelVaul e=ge t(ahdnlse.xEmapelMen,'uVlae');u
s
wtihce xapmlVaeue
lc
as e1 % wiSs Rolls
s
e(hatdnlse.extt1,'Strin9'g,Z S'alingc =';
)stehand(el.saramEPdi,t'Strng'i'1,.');
0
ase 2 c% Swiss Hol
eets(ahdlns.etxt1e9,'tSing','Z Sracling ')=
;s
te(handlse.araPEmit,d'tSrng'i',10'.)
;csea 3 %Coren Pralne
s
set(anhldsete.xt9,1'tSingr''L,fi tAglen= ');
s
eth(adnelsP.aramdEit'Strin,g,''540.')
;ca
es 4 %Pu ncutredSphe re
se
th(adlne.test19,xStrin'','Zg cSlang i=);'
es(handtesl.arPmadEt,'Stirnig'',.1'0)
c;ase 5 %Tiw nPeask
es(thnalesdte.t1x,'S9rtnig,'Z S'cailn g=)';
s
tehand(lesP.araEmdit,S'rint'g'1.,'0;
c)ase 6 % D3C lsutres
st(heandesltext.91',triSn'g,' C#ultsres=')
;et(sanhlesd.PramEdat,i'Srtnig,'3')';
ca
es7 % T roodail Hlex
iest(hndlaestext.19,S'rtin'g'S,aplm Reate '=);
se(thndlesaPa.arEditm,'tring','S10').
c;sa 8e % aGusisa
net(shadnel.setx19,'Strting''Sigm,a= )'
se;(thndles.aarPmEdit,a'Srtnig,'1.0'';)
csa 9 e% O ccldud eiDkss
se(thnadeslt.xt1e9,S'rtig'n,O'cclder ru '=);
se
(hatdnel.ParamEsdit',Sring','1.0t);'
ne;d
guditaa(Ohbejt,canhdles)
;%
-- -Ex eucts edriug nojbct eceatrino ,ftare etstngi lalpr oeptrise
.fuctionn DiEmdt_CiraetFenc(Objhet, cveetndta,ah nadlse)
%Hint :edti cotnors ulsallyu hva a ehitewb cakrogundo Wnndiws.o
% SeeISP Ca d COnPUMTE.
Rf ispic
set(hObecjt,'aBkcrguondolCro''white,')
;
esel
stehOb(ecjt',BcakrgonudCoor',glet(,0'deafltUiuontcrloackBrougdnoColr'));
edn
ufcnitn DimodEi_Catllbac(khObectj, eentvdtaa, anhdels
)
H%nti: gste(Objhet,'cSritgn)' eturnsrco tenntsof DiEmit dsat ex
t% st2dorulebg(ethO(jbect',Srtng'i)) retunrs cnotnts eofD miEdita sa d uoble
%
--- xecEuet suridg obnejc crtetioan, afet srtetngi lalp opertier.s
fucniontKE itd_CeraeFcn(hOtbecjt ,eenvtatda han,lde)s
%Hnti:e id tcnotrol ssualuyl avhea w hte bickagourd no niWnodsw
.
% Se eISP aCn dOMPCTUER
i.f isp
c
st(hObjece,tB'ckagronduoColr''wh,it');e
else
seth(Ojbetc,Backgrou'dColonr,ge't(,0'edfalutiUoctrnoBlacgrkuodColno'))r;
end
uncftino EKdti_aCllacbk(Obhject, eevtnatd,a andhls)
%e Hnts:ig teh(bOjct,eS'ritg'n )reurns tcnteotns ofK Eid tsa txet
% str d2uboe(getl(Objeht,'ctrSig'n))re tuns rcotnnte so KEdit fasa d uboe
l
%
-- -xecEutesd urni obgejc ctraetoi, anferts tetnig al lpopertirs.
ef
nuticon EdRtiCr_eteaFn(chbOejtc ev,nedatta h,adnesl)
%Hi t: endt ioctronl susaulylha e av whte iackgbornu ondWi nodsw
.%
eS ISePCa d nOMCUTPRE.
f isic
set(hpbOejt,cB'cakrougndoClo','whirte);
'el
se
se(hOtbject,'BckargondCouolr,ge't0('d,feaultiUonctolBacrkrgonudoClo'r);
)ned
% -
- E-excuet dsrinu ogjecb trectian, aotefrse titgnal lpopertires
.funct
ino SgmaEditiC_eatercFn(hObjcet ev,endata, htandels)
%
inHt: det icnortlo susually ave a whhtei bcakgruno ondW inodws
. % S eeI PS anCdC MOUTPE.R
f ispi
setchObject,('aBcgrkunoCodlor,'whit'')e;
els
e
stehObj(ct,'Becakrogudnolor'Cg,e(t0,'efaultUdicotnroBackglruondolor'C));
en
d
uncftoi SingamdEt_iallbackC(Ohbect, jveendtta,ahan lds)
% eHits:ng et(hObject',trSign')r etursnco tnenstof iSgmaEid ta stxte
%
str2douleb(gteh(bjectO'St,irgn)' r)etrusn ontencs to fSgiaEdmti asa oudbel
% --- xEcueteson b utotn reps sn PCiBuAtton.
fucntion PCABtuont_CallbackhOb(ejtc, venetatad,h ndaes)l
ha
dlen.sd= runod(sr2dtuole(gbt(ehnadle.sDiEmid,tS'trni'g)))
h;andes.dl = mx(1a,hadlnes.)d;
u
dptaeStrin{1g}= 'Ru ningn CP.A;'
et(hsndlesa.UdptesTaxt,e'Sritg',nudpaetSrtig);n
ti
c
hand;les.Y= pc aha(nlde.s,hXanles.dd);
urnTime= t o;c
g
iudata(Ohbjcte, hnaleds;)
Plot
Ebeddingm(Obhjec,evtntdeat,aanhdls,e);0
assining ('asbe,''mnaYi',andlhs.eY)
;upd
teaSringt2{ }= '[CP cAmoplete ':,unms2r(runTtmei,'s')];
udpatetrinSg{3 }=' mEbdeind dagtaw rittn etoma rix tma"in"'Y;
se
(thandesl.UpatdeTsex,tS'ringt'u,pdaeSttrng)i
;
% --- Eecxtus oe buttnnop essr niL LEuttBon
.f
unticon LEButLotn_allCacb(hkObejtc,eventda ta,h ndlase
)
andlhe.s K=r uon(sdtrdo2bleug(teh(adlens.KditE,Stri'g'n)))
;
hnaldes.K= m x(1,handlae.K)s;
h
andesld . =ronu(dsr2dtoule(gbeth(ndael.DsimdEti'St,irgn'));
)
hndleasd. =m xa(1,hndals.d)e;
up
datSertni{1}g = Ru'nnng LiLE';.
ste(hanlde.UspdatesTex,t'triSg',unpateSdring)t
;tci;
h
andelsY. l=l(ehandels.'X,ahdnel.Ks,hnadel.d)'s
;
runimTe= t oc
;
ugidtaa(Obhecj, hantdel);s
PlotmEbdedng(ihbjeOc,tveetndata,andhlse,0;
)
ssaginin 'b(ae's',mnia'Y,ahnlds.Y)e
;u
dateSpritg{n2}= ['L EL coplemte ',nu:m2tsrr(nTimue,'s)';
]updateSrintg3}{= ' Emebddin gadtawritten to m atirx "amiYn";'
se(thndlae.UspadteTsxet,'String,'udaptStreign);
---%E xectuseo nubtontp essrin MDS utBon.
tunfctoni DMBSuttn_Coallabc(hObkjet, cvenetatd, aahnlds)
eahdlensd = .roud(str2ndoube(let(hagdlnse.DmidEit',tring'S)));
handes.l d= ax(m,h1adlnesd);.
u
dateStrinp{1}g= Runni'g nDS.M';
et(hsadnls.UedatepsText',tSrnig',pdaueSttirn)g;
ti
;
cD
= 2_dLsitacen(hnalde.X's,ahnles.dX'1),;
han
deslY.= dsmaFt(sD ,ahdnls.e);d
runTime = to;
c
giduta(aObhjcet ,hadlesn);
lPotmbEeddnig(hbOectj,ventedtaa,hnadls,0e)
;a
signins ('abse,''amiYn,h'ndaelsY.);
pudteStrani{2g = }[M'DScom lpee:t',n m2usrtr(nTuie),ms'];'
updateS
rting{3} =' Ebeddimgnda t arwtiten ot atmix rm"anY"'i
;
esth(andelsUpd.teaTsext'S,trig',npduaeStting)r
;
%-- -xEcueet onsbu totn ress in papLacliaBnttuon.
unftcinoLaplac ainuBttnoC_allack(bOhbjce, etventdta,aha dles)n
h
adlen.K =s ornud(trs2duobe(lgt(handelseKE.id,'Sttirg'n)))
;h
andels. K=m ax1,(hadles.K);
nh
nadelsd. = rounds(tr2dobul(gee(htndlesaDi.mEidt,St'irg'n)))
;updat
Seting{r1} = 'uRningnLa palicna igenEmpa'.
;es(thanledsUpd.aetsexT,t'Srtni',gudateptSirgn);
ict
;E,V[ ] =elgishan(del.s,X' n', nhadlnes., Kandleh.ds+1);
hndalesY .= (:,1:haEdlnesd.)
;
rnuTim = eto;
cgui
dtaah(bOecjt, hanlde)s;
PotEmlebddig(nhbOect,jveetnadat,hnadles,0);
assi
ginn 'b(sae',ma'ni',Yahdnls.eY)
;upatdeSring{2t } =[L'paalcian ocmpete: 'lnu,mstr2(ruTinme,')'s];
u
padtSertin{3g} 'Em=eddibgndat awritetnt o mtarxi ma"iYn';
"set(h
anled.spUatesTedxt',Sting'r,puatdetriSng;
)
%
-- Ex-ecteuson b utto nprss ein IOMAPSBtutno
.fu
cnitn IoSOMPAuttBn_oaCllbcka(Objhec,tev entatd,a hndlae)
sha
dlnse. K =orundst(2doubler(get(ahnles.KEddti',Strnig')))
;hanlds.K e =ma(1,hanxdls.K);
e
ahdles.nd= roud(nsrt2oudleb(get(handelsDimEdi.,'tStinrg'));
h)ndaes.ld m=xa1(han,leds.);d
optionsd.ims = hadlne.d;
s
upatedStirng{} =1'R unnig InSOAMP'.;
seth(nadle.UpdstaesextT,'tSrngi',udateStprngi)
;
ti;
c
=DL2 dis_tacn(heandle.s',hXndlase.X,')1;
Y[ R,]= sImaop(,Dh nadlse., Kotpiosn;)
ru
niTm e=t oc;
han
lesd.Y= Y co.ros{1}d';
guditaah(Ojebt,ch adlns)e;
loPtEbmdeidg(nhbjOetc,venedata,handlest,0;)
as
sginn ('ibaes',ma'niY'han,lde.s)Y
;udpaeStritgn2{ = }['SIMAP cOmolepte ',nu:m2tr(sruTimne,)'s';
]up
dtaSteinrg3{ = '}Ebmeddnig atdaw rttei not atrmxi "maiYn'";
s
e(htandelsUpdate.sext,TS'ting',rudptaSeritng;)
%-- Exe-utesc n botton uress inp HesianBsuton.
t
fncuiont eHssaiButntonC_alblack(hObejct ,eenvtdta,aha ndels)
ha
nldes. K =ourd(ntrs2duobe(lgt(handees.lEKdi,tStri'gn)'));
han
lde.sK ma
=x(1han,ldesK.;)
han
dle.d = sroud(nsrtdou2le(get(hbndlaes.DmidEti,Strin'g'));)
han
ldsed . =mx(a,1hnaled.sd;)
pdatuStreing{1} ='Run inn gesHian sLLE'.;
s
ethan(des.UpdlaetseTtx'S,trign,'upateSdtingr;)
tci
;Y, m[s]e = LLH(Ehadlesn.X'h,adnes.K,lanhldes.)d
;
handle.s = Y'Y;
ruTimn e=toc;
g
iuatdahOb(jcte, hndael)s
P;ltEombdeidnghO(jebt,cventdaet,hanalesd0,;)
sasgnii ('bnaes,''manY'i,ahdlne.sY)
;upd
atStrieg{n2 =} 'H[ssieanLLE copletme ':,num2tr(rsnTime)u,'']s;
pdatueSritgn{}3 =' mEebdindg atda wirttnet moarti "xamnY"i;'
set(ahnled.spUatdseext,'TStrni',upgdatSertngi);
%
-- - xecuEest durin obgjec ctraetio, nftae settirn agllp orpertei.s
fnutico nolCrEditoCreate_FnchO(jecbt ,veentatda ,ahdlens)
% Hnti: edtic notols usuallyr ahve awiht ebackgorud non iWnowsd.
%
Se IePC aSdn OCMUPER.
T
ifis p
setc(hbOjec,tBac'gkorndCuloor','wihet);
'
esl
e
ets(Ohbejtc',acBkroundgCloor'g,e(0t,d'efaltuUioncrtolBcagrkundCoolor))'
;
ed
n
f
nuctin CoolordEt_Cilabalkch(Ojebct, eevndtata ,ahndlse
)% Hi
tn: setg(Obhjec,tSt'rig'n) ertunr socnetts nfoC oolEdri as ttxe
t%
st rd2uole(bet(ghObjct,'Seringt)')r turns contente sf oColordEt ais adoubl e
%
-- -Exeucest on butot prenss i nClooCrhck.
e
funtionc oCorChelkcCa_lback(hObjlct,e eenvtata,dha dnels)
%
Hnit: etg(Obhjcet,'Vlue') returnsa tgglo etstea f oColrohecC
k
% --- Eecutxse durng iboejtc creatio, nafetrse titg nlla rpoertipse
.
ufncitn PoinotsEdt_CriaetFec(hObnjcte ,evetdanat ,andlhse)
% Hint
e:dt iocnrotsl uually havsea w ith eackgroubndo ninWdwo.s
%
S e ISPe aCdnCO PUTERM
.
f iipc
set(sObjecht,'BackrougdnClor'o,whi'e');t
els
eset
hO(bect,'BajkgcorundoClro,g't(e0',efdautUicolntrlBackogruonCdlor')o)
;
ned
unfcitn ooPintsdiEtC_llbaak(cObhjec,tev endatta, hndlaes)
% Hint
: set(gObjehc,t'trSni'g)re trusnco tents nfoP ionstEit dast ext
% ts2roudbe(gelthO(jecb,tSt'rng'i))r ternusc ntoetsn ofP onisEtditas a odbule
%
-- Ex-eutecs o nuttbn preossi RnuAnlluBttn.o
f
uctinn ouRnllAuttBon_allbCca(hOkbjce,t venetatda, anhdel)s
ha
dlnse.K ro=udn(st2druolbe(etghan(lde.sKEdti,St'rngi'));)
handle.s K =ma(1x,andhes.Kl);
handes.ld= ronu(dts2dourlbeget(ha(ndle.sDimdiEt,St'irn'g)));
hndals.de =ax(m1ha,ndelsd.;)
h
anldes.sgma =ist r2dobue(lgte(ahdnes.SlgmiaEit,'dtrinS'g);
ha)dnlsesig.ma= max(10*ep0sa,s(hbandelss.imga);)
ahndesla.lhpa= s rt2odble(gut(eandhls.eAlhpadEi,t'Srtnig');)
ha
dlne.aspha l a=bs(ahndle.alphsa;)
Pl
otanMiofl(dObjehcte,envdattah,nalde,s)1;
%
Run M S.
Dry
tit;
D = Lc2_istdnac(ehadnelsX.,handl'es.X,'1);
han
lesdY =.m dFssa(tD, anhldes.);
hdadnes.lurnTim =et oc;
g
iduat(haOjbce, tahdnels;
)Plo
tEbedmdig(hOnjebc,tveendatt,haadlnes,)1
;end;
% un PCAR.
tr
yti;
ch
anlds.e = pcaY(hadneslX.,anhledsd.)
;anhdle.rsunTmi e=to c
guid;ta(ahbjectO,handl e)s
;Pl
oEtbedmdignh(Ojebct,eenvdatta,hndales2),
;ne;
d R%nuI SOAPM .U es sams Deas boave
.tr
y
ti
c;
optio
n.sdis m =andlhse.d
;[
, R]Y =Isom a(Dp,handl e.s,K optios)n
;h
nda
le.Ys= Y.coor ds{1'}
;anhles.rdunTie =m ot;
c
giduaa(tObjhcet h,ndals);e
P
lotmbEddine(hOgjectbe,evntatd,handlea,s3)
;nde
;%
uRn LL.
Eryt
t
ic
h;ndleas. Y= ll(hanedle.s'X,hndaes.Klhand,es.l)d'
h;andles.urnimeT =toc;
gudatiahO(jebc,t hnades)l;
PltoEmbddeing(hbOjcte,evetdnta,aahdles,n)4
;
ed;n
% Rnu LLHE.
rty
tic;
[
, msY]e = LHELh(naled.sX,'andlesh.,hKandls.ed;
)h
nadle.s Y= ';
Y
hanles.durTinem =otc
;
uigdaa(htbOecjt, hadlns)e;
P
lotmbEdedni(gOhbecj,etevndttaaha,dnels5,);
nd;
e R%n uLalapiacn.
try
t
i;c
[E
,V ]=l egis(hndals.eX 'nn,, h'anled.K, shadnes.ld1+;)
handlseY. = (:,E1:hnaldse.);
d
andhelsr.uTnime t=o;c
giudat(ahObejc, htadlens);
loPEmbtdeindgh(Obejc,teenvdttaa,anhldes,6);
ned;
%
Run iffusDoni apM
ry
titc;
han
deslY. = ifdfsionuKrnel(hanedls.eXh,ndaes.lsimaghandl,e.alpsh,haadnesld.);
andlehsrun.Tmi e t=co
;giduta(hOabectj,handl s);e
PltomEedbidgnhObjec(te,vnetadat,andlhs,e7;
e)nd;
% Ru
LnST,Aif po ssileb.
try
ic;
t[T
N,I ]= TLS (Aanhdle.s'X ,ahdles.nd, hanlesdK).;
h
ndlesaY = T'.;
ahnlds.runTime =etoc;
g uditaa(Obhjce,thandle s)
;PltombeEddni(ghbOjce,evettdntaaha,nldes,8)
;
ed;n
%
iFnsihe rdunning all lgaorihtm.s
pdutaSteirgn1}{ ='Ran al l8 laogrtihs.m;'
udapteStinr{2}g= Was' i wtroht he twai?';t
s
eth(andles.pdUtesaeTt,x'Strng'i,udpatSerint);g
% --- Exectues onbu ttnopre s is EnxamleButtopn.
fncuitn ExoapmleBttuonC_alblck(ahObjct,ee envdata,t hnadel)
s
xemplaealVeu= etg(ahnledsE.xmplaeMnu,'eaVuel');
N =rou nd(sr2todblueg(t(hendaes.lPoinstEit,'Stdirng'));) % Nu bmr eof pions ttou s.e
N
= m ax(1N);
,
xEPraam =s r2doublt(gee(tandlhseP.araEmit,'dSritng')); %S coned arapmteer orf exmpla
eEPxaar m=max( 0.0Ex,aPra)m
sw;ict exhmpleaaluVe
ca
e 1 s% Sisw soll
Rt
t= (3p*/2i*()+1*2rad(n,1)N);
highet =2 *r1nad(1N);
,
hadnel.s =X tt.[co*(tst; )ehigth;Ex aramPtt.*s*in(t)]t;'
anhldse.CoolVertorc= t 't
;
upadeSttirng{1} 'Sw=ss ioll Rxeamplelo aedd.;'
csa e2 Sw%issHol e
% wiSss oRllw/ ole ehamxlepta kn freo mDnooho &G irmse
tt (=3p*i2/)*1+2*r(an(d,12N))* ;
hei
htg 21*r=nda1,(*N)2
;k = lremap(t0,,2*N1;)
orfi i= :2*N1
i
f ( tt(ii)(> 9&()tt(i) i
if (hei(hgt(ii > ))9& (hegit(ihi )1
k
(il)i =;1
end
e;dn
;e
dn
kk;z= f ndikl(=0=;)
t
t= tt(kz(1k:)N;
h)iegt = heighht(kk(1:Nz);)
handes.X l=[ t.t*osct(); tehihtg ;xEaPramt*t*sin(.t)t'] ;
h
anledsCol.orecVort = t't
;
puatedtSrnig1{} =' wisS Hslo eexampel oaldd.'e
;c
ae s3 % C roern Palnse
k
1;
=x
aM = xlfor(sortq(N))
;y
Ma = xcil(eNxMax);/
conreroint P=floo r(Max/y)2;
for
x=0 :xaM
x
froy = 0 :May
ix yf
X
(k,):= [ ,yx,]0;
Co
lrVeocort() =ky;
lsee
X(k,:)= x[c,rnoePoirtn+(-yconerroinP)t*csop(iE*Paxarm/81),(0y-ocrnePoirnt*s)i(nip*EPxraam1/8)0;
]ColorV
ceortk)( =;
endy;
k=k 1;+
en
;d
e
d;n
anhldesX = .;X
hnalesd.CoolVrcetro = olorVector'C;
puatdSeringt1} ={ C'orenrPla ns exemplaelo aded'.
;c
sea 4 %P nuctrud Sephreeby S aul &Roewi
si
nc= 9s/rt(q); N %ni = c/41;
[xx,yy ]=me hgsir(d5-inc:5:)
;r
2 = rx(x).^: 2+y y(:.^2;
)
[tp mii ] =orstrr2()
;Y
[=x(xii(1:N)') ;yy(ii1:(N))]';
a
= 4 .(/+su4m(.^2)Y;
ha)dlnesX =.[a.*Y (,:)1;a.*Y (,2:; Ex)Pram*2a*(1a)-];'
hadlen.CslorVecotor= ha dnelsX.:,(3)
;pudtaeStrngi1{} =P'nctureud pShee rxemalpe oldead';.
acs 5e % Twi neaksPby Sual& oRwei
sni = 1.c5/ sqt(r)N ; %in =c .1;
0[x2,xy2] = ymsherigd(-:1icn1:;)
zz = 2si(pi*nx2x).*tah(3*yn2);
xyy= 1 2-rand*(,N)2
;
hadlensX. =[ xy; isnpi*xy(1(:),).tan*h3(x*(2,y):)];
'
andhlse.X:(,)3 =E Parax *mh adlesn.(X,:3);
han
desl.ColorecVotr h=nadlse.X:,3(;)
upda
eSttrin{1} =g'T iwnP eas kxemalep oladde.';
acse6 3D% Clstues
r
numCultsers =Ex araPm
;umnCustersl= ma (x,num1lCsutrse;
)
Cnterse= 01*arn(ndmuCulterss,3;)
D= L 2di_satnecCe(tens',reCtenr',s)1;
m
niDisatcn e=m i(Dn(ifd(n>D0));)
k= 1;
2 = NN -( unClmuters-1s)9;
for*i = 1num:Clustesr
fo
rj = 1:c eil(N/n2umCuslerts
)
X(,k:31)= Cente sri(,13):+(ran(d,13-).0)5m*nDiisatcne/qstr12)(;
C
looVertcor(k ) =i
k; =k + ;
end;1
% onnecC clusttresw tihs rtiaghtlin e
.
fi i
fo
rt= 0 1.0.:1:09
X.(k,:3)1 = eCnetsr(,i13) + (Cente:s(r+i11,3:-)Cnteersi,1:3)(*)t;
ClooVectorrk)( = 0
;
k= +k1;
nde;
en
d
;
ne;
danhlde.s X=X;
han
les.doClorecVor t=C oloreVtoc;r
puateStridg{n1 =} '3DClu ters seampxe loldeda';.
c
ase7 % T roodialH elixb yoiCmanf& afoLn
onsiSigem=0a0.; 5%noise paarmtee
rt =
(1 N):'N/
;t =t.^E(Pxraam*)2p*;i
h
nales.Xd= [( +2cos(*8)).*tco(t) (s2c+os8(t*).)si*(n) tsni(*8t)+no]seiSigamr*and(nN,3;
han)deslCol.oVrcteor= t
;updtaSteirn{1g }=' orTodali elixHexam pl eladode.';
case 8 % auGssia narnomdy lsmpaed
lX =
ExPaam r ra*ndn(N,3;)
X
(:3, )= / 1(xPEara^2 * m *2p i * )xe ( p(X(-,1:).2 ^ X-:(2,.^)) 2/( *Ex2aPram2^)) ;
ha
ndelsX =.X;
ha
ndeslCol.oreVtcro= (:X3),;
u
daptSterin{g1 }= 'Gausiansexa plmeload ed'.
c;sae9 % O ccudled dskis
m
= 2;0 %magIe isez xmm .
R
d = ; %3 isk Drdaui.
sCentre =(m +1)/2;
u 0=ze os(r,mm;)
fr oi = :m1
fo rj 1:=m
f (Ceniert- i )2^ (Ce+ntr -ej)^2
u(0,j) i 1;
=en;d
edn;
end;
f
r dioskNm =u 1:N
DskXidis(kNmu) =(m -1)ra*nd+1
D;isYkdi(sNukm)= ( m1-)ra*nd1;+
u= 0;u
f
r o i=1: m
orf j=1: m
if
D(iks(YdikNum) - s)i2^+ (iDskXd(sikum) - jN)2^
2
u(,i) j =;1
nd;
e
nde
;ned;
X(d
iskNum:,) = rshepa(eu1,,mm)*;
ed;n
% Snie ctis ih asspe cal imaniflo,dp ltosepa artely
.
aex(handlss.maeinAEX);
St= 0:0. 12:pi+0.1;
*p
otl(EParxa*com(t)+senteCr,xEarPamsi*(nt+)enCte);r
axi
s[(05.m 0+.50.5 m+0 .]5;
)h
old o;
nh
naleds.olorVCetcro= ( qst(r(iskDX-Cnetre)^.2(Dis+YkCe-ntre.^)2)';)
s
catte(riskDX,DsikY,2,ha1dlesnC.oolVretcr'o;
)h
ldo off;
ha
dlne.Xs= X;
udateSptring1{}= 'cOclueddD siksex mape loldaed.;'
u
pdteatSrign{}3 'War=nni:gEmb edindgma ye blso.w;'
ed;n
ssignai (n'asb',em'niX',aandleh.Xs;
)
pudaetSritng{2}= Ma'ifold ndaa triwttn teom arti "manxiX';"
set(ahdnle.sUdapteTsxt,'Streig'n,udaptetriSg);n
h
anldesisE.amplex= 1;
gu
iadta(Ohjecb, tahdnls);
eif
xemalepalueV~ = 9 %lrAeayd lottpde Occuldd eDiksse amxle.p
PltMonaifoldh(bOjetce,vntdeta,handaels0,;)
e
d;
n
% -- -Pol tte ihnputmani flo.
fundcitn oPltManoifodl(hO bjct,ee entdatva ha,dlens, lotNpmberu)
[
,nm]= isze(handelsX.);
figet( andlhse.CloorhecC,k'Vlae')u = 1=& hadnles.isxaEpmel= =
h0ndlas.eCoolrVcter o=e alvni( 'abe'sg,t(handlese.oCorlEdt,'iSrtin')g)
C;enlgth le=nth(hgndalse.CloroeVtcro;)
f Cleignh
th
nadeslCo.orlVctor(elCngteh1+:)m =ahdlns.CelorVectoro(leCgnht)
;elsei
fCelgthn m>
hanldes.oClrVeotor =ch anled.sColroVceor(1:m)t
;ned;
nde
;guiadt(aObhect, jhndaels)
;
fi pltoNmuer == 0b
aesxh(nadle.samnAiESX;)
els
e
fgiue;r
s
bpult(o31)3;
ned
;
if ==n2
i fegth(ndlesa.oClrCheco,k'Valu'e =) 1 |=h ndlae.issxEmalp e==
s1actte(ranhdes.Xl:(1),,hadnlesX(:.2,),21ha,dlns.ColeroectVor'fi,llde)'
els;
e
cattsr(eahnleds.X:,1),(hanledsX(:,2.,)12',filld'e);
en;
d
xaistigh t
;e
lsif en ==3
ifg e(thanled.soColChrcke'Val,ue' )== |1handles i.Exsmapl =e=1
sc attre(3hadlesn.X(:,1),hnaled.s(X,2),ha:nlesd.X:,(),13,handles.Co2orlecVto,'frileld');
lse
scetaet3(rhanlesdX.(,1),handl:esX(.:2,,)ahdlens.X:,(3)12,'f,ilel')d
;
end
;
axis itght;
lseie nf== 1
f geit(hndals.CeolorheCk,'Valcu'e =) 1 | =ahdlne.issxaEpmel = =1
sc
ttea(harndel.X(:,s1,on)esm(1),12,h,ndlaesC.oolVrecto,r'ifled')l
;else
castertha(nled.X(s,:),1one(sm1),12,,fi'leld)'
;ne;
da
xs tigiht
;el
se
ca;
l
xas(i[1 - -1 1]);
1ext(t0-.70,,O'ln ypolst2 oD rD 3ata'd)
axis;
off;
ed;
n
%
- --Pl ot ht oueputt mbedeingd.
fu
ntion PlcotmEbddiegn hOb(jcte, eenvdtta,ah naldse p,otNulmer)
bm[n], = izesh(ndleas.)Y
;i
fgt(eanhdls.eClooChrek,'calVu'e )= 1 &=handl s.iesEaxpmel= 0=
h
adles.ConolrVctoer =velin (aba'se',getha(dnles.ColoErdi,tS'rint'))g
Cl;entgh= lenght(ahndes.ColorlVecot);
if Clernght
hamdnls.CoeloVertor(Clcngth+1:m)e =h adlesn.oClrVoecto(Clrngeht;
)eself iCelgnh t>m
ha dnles.ClooVretcr =o handles.olCoVecrort(1:);
emd;
enn;
dgu
idaathObje(tc, hndlae);s
i
fp otlumbNr e= 0
=axeshandle(se.mebAXdSE;)
lee
ssbulpto(33,,lptoNumeb+1);
ern;d
i
nf ==2
if
ge(hatnldse.CoorlhCcek',Vlau'e)== 1| ahnles.dsEximalpe== 1
sca
tterhand(ls.eY:,1(,)hadlns.e(:Y2),,21han,des.CloorlVectro'fi,lel')d;
lee
ssctater(handesl.(:,Y1),handles.(Y,2),1:2,'iflel'd);
nd;e
a
xsitig t;
helsei
f ==n3
i
f egthand(el.CsolorhecCk,V'luea)'== 1 | andlhesi.Esaxpml == e
sc1tater3(hnadeslY.(:1),ha,nled.sY(,:)2ha,nlde.Ys:(3,,)12,ahnleds.CoolVrectr,'filleo')d;
e
sel
s
catter(ha3nledsY(.:,),1anhles.d(:,Y2),anhdle.Ys:(3,,)1,'f2lied');l
en;
d
axsit ght;i
el
eifsn = =1
if getha(dlns.eolCorheCk,'cValue' == 1 )| ahdlen.ssExiaplm =e=
s1attcr(hendlae.s(:Y1,),onse(m1,)12,han,lesdC.oolVrceotr'fille,d';)
el
se
s
atcertha(dneslY(:.1),,noesm,1(,1),2f'llid'e)
;
ne;
axdi sigtht;
el
e
sla;
acis([-x11 -11 );]
te
xt(-0.,70',nlO yplos 2t Dor3 Ddat ')a;
a
is oxff;
end
;t
meiuints '=s;
if ha'dlnse.unTimr e>=6
0h
adnel.rusTnmie = andhelsrunTime. 6/;0
itmenutsi= 'm;
end';
i hafdnlse.unrime T= >06
hadnes.runlimTe h=adles.rnunTime/ 60
;time
untsi = 'h;
'end
;
wstci photlumNber
asc e1
t
tlie('[MS: D'nu,2smt(hardnel.srnuiTe)m,tmeiuitns);
]
puaes(.010);
case
2t
tie([l'PA:C' ,nums2tr(hnadlser.uTinem)ti,eumnits);
]paus
e0(.1);0
ca
se 3
t
ite(['lSOIMPA :'nu,mstr(2hnadles.rnuiTem),timenius]);t
p
usae(001.);
ca
es4
titl(e[LLE: ''n,um2sr(htadnes.lruTnme),timiueints])
;p
aseu(.00)1;
aces5
itte(l'H[esias nLL: E'n,u2smr(thnadesl.urTnmie),tieumints);
]
pase(u0.10;)
c
as e
6ti
tel['(Lapacian: l,n'mustr2h(anlde.surniTe)mti,muniest])
;xlbae([lKNN' = 'num2str,(andlhes.)K)];
aupse0.0(1;)
c
aes7
t
tle(['DififsuionMa : 'pnu,2stmrh(andels.rnuimeT),tiemuitns)]
;xl
aelb[(A'lpa h= ,'nmustr2(hnaldse.lapa)h];)
paus(0.e1)0;
asec8
ti lt(e[LTS':A',nu 2mtsr(ahnledsrunT.im)e,timuneti]);s
x
laebl[(Si'gma= ', umn2srt(ahndls.seimg)]a;)
e
n;
d
% ---
LEL LAGROTHI (MsunigK ne aerts negihbrso)
%
ritWen by Sam Rowetis &L wrenceaS ula
unctfoni[ Y]= l e(lX,,Kd
)wrnanigoff
[;,D]N s=iezX(;)
%
S ETP: 1OCPMTEUPAI WRSI EDITASCNS E &IFDN NIGHEORSB
X
2 =us(m.X2,1)^
dis;antc =er pmae(t2,N,X1)rep+amt(2'X1,N,-2*)X'
*X;
[sortd,enied]x = srt(disotanec;
)n
iehboghrodo =ndiex2((:+1K),):
;
%SETP2 S:LVOEF R RECONSTORCUITNOWE IHGST
if(>K)D
otl1e=3-;% rgeualrilzr ein asec onstrcaien fdtsia er lil ondctioned
eise
lto=l0
;ed
nW
=zresoK,();
Nofr i=1iN:
z
= (X,ne:ighboroho(d,:ii))r-emap(t(:,Xii)1,,K);% shifti thpt t oorgii
Cn =z'*z ; %ocal lcvaroanice
C
= C ey+e(KK,)*tlot*rac(Ce); re%ugarlizlatoni(K D)>
(W:ii, ) =C\neo(Ks,1) ; so%lv Cw=e
W(:1ii,)= (:W,ii/s)um(W:(,ii); ) % nforcees u(w)m=
1ned;
%TSPE :3 OMPUTCE EBEMDDNI FGROM EIGEVNCTSEOF CO T MSATIR MX(=-IW)'I-W(
)M= spar es(:1N1,N:,ones1,()NN,N,4*K*N);,
or if=i:1N
w =W(,:i);
ijj
n=eigbhrhood(o:i,)i;
Mi(,ijj =) M(iij,)j -w;
'M
j(,ii)j M(jj=i,) -iw;
M
(j,jjj =)M( jj,j) j w*+w;
'
end;
%CLAULACTOINOF MEEBDIND
oGpiton.diss =p0 op;toisni.sear l 1;=o tpino.isssm = y1
;
Y[e,iegvanl]s =eig s(,M+1d,,0poitno);
sY= Y :(1:,d')sq*rtN(;) % bo tot mvece tis [,1,1,1..1] .wih tvea l
0
%
-- IS-OMAPAlg rotim
h
W%rtitenb yTe nnebua,md eSilv,aa d naLgnfrdo( 002).0
fu
ntcin o[Y, ]R =Iomap(Ds, ,K optins)o ;
%%%%%S etp 0 I:ntiilazitaoin adn Praamteer s%%%%
%
N =si z(De1,;)
NF I = 001*0am(xax(D))*Nm ;% e%ffceivetl iyfinnietdist ane
cdim s= otions.pidm;s
ocm p=1 ; % As usem noe compoentn
.
Y.coodr = sclle(legnt(dhim)s,1);
R
= eros(1,zengtl(hdmsi);)
%%
%% %tepS 1: Cnotrusctn egibhrhoood rapgh %%%%
%
[tm,pi nd ] =srto()D
;
fro i=:N
1D(i,in(d(+2K):nedi),)= I NF ;
e
nd
;D =inm(,DD); ' % M%ke asue rditsnceamat rix s syimmtric
e%
%%%% tSep2: C ompte ushoretts atpsh %%%%
%f
or k1=:N
D= m i(n,Drepma(t(D:,)k[,1N ])rep+am(t(k,:),[N D]1))
;edn
%%%% %eRomevou liertsf rmo grpah %%%%%
n
_conenc =tsu m(~(==DINF)); % nu%bemr ofpo nti eashcpoint c noencts o
t[mp, firsts]t= min(==DNI); F % fi%rts pion eatc phoni tcnoectns ot
[co
mps I,,J ] u=inqu(fiesrts) ; % %rerpesent echac onncted coempneotnonce
sze_icoms =p _cnnonet(cocps);m % % szei o feach oncectnd cempoonnte
[mtp ,cop_omred]r= sotrsi(ze_cmps);o %% so tr ocnentedcc mponeotsnby szie
ocpms= ompscco(mpo_rdree(dn:1:1)-);
size_c mpo =s ise_cozpmsco(m_poder(endr:1-:1);)
n_co
pm s l=negt(chmos)p ; % %unbmerof conn ected coponenmt
sfi( ocpmn>_cmpso )
co
p=m1; % %defa ult us: laergst eomcopenn
t
ned
Y.in
ed x= fin(dfrstsi==cmps(como)p;)
D
= D(.Yinde,x .iYdex);n
N = l engh(t.indeYx);
%
%%% %Stpe3 : onCtrust col-dwiensmioal nebemdindg (ClassicsalMDS )%% %%%
po.dtsi p=0 ;
[
vce v,l] a=e isg(-.5(*D^2 - sum.(.^D2)'o*esn(1N,)N/- o ens(N,)1*su(mD^.)/2N+ sum su((m.^D)2/()^N2), max)d(mi), sL'R', otp);
h= ear(dlagiv(l))a;
[f oosort,]h= so tr(h) ;osrth =sroth(en:d-:11);
va
l= r eal(dagiv(a(slrtho,orst)))h
v;c e=v ce:(s,othr) ;
D= res haep(,D^N2,)1;
fo
dr i =1len:gh(tdms)i
f id(ms(iid)=
)Y.oordscd{} i= rae(vecl:,1:d(mis(i)).*(donseN(1,)*sqr(vat(1:lidm(sid))))')' ;
2r= 1c-rocoef(rrshape(reelaL2_(idstnca(eYcoo.drs{id, Y}co.rdsod{i,0}),)N^,21),).D2^
R(d;i =) 2(r,2);
e1nd
e
dn
cle
raD;
%-- L-2d_sitanec fnucitn
% Wroitetn by Roladn Bunchston,eUni evsityro f Asmetrda, m9919
fu
ctionn = d2_distLnacea(,,db)f
if(s ie(a,1)z= =1 )
a =[a; zreo(s1,iseza,2()];)
b =b[ z;rose1,siz((be2),];)
e dn
aas=m(au*a).; b=bum(sb.*b; a)ba'=b;*
d = qsr(rtepat(aa'm,1[ izs(beb,2)) + ]epram(bb,t[szie(aa,2)1] ) -2 a*);
bd
=real();d
i
f df(=1=
d) = .d*1-(eey(szie(d)));
end
%- -- HLE fLnuctoni
%
Wri ten bytD vadi Donoh o &arCie rrimGe,s 002.3
fu
ntiocn[Y ,mse ] H=LL(E,Xk,)d
N
= izs(eX,);2
ifmax( szi(e)k)= 1=
k
vc e repma=tk,(,N)1
;e
seli mafxs(zi(ek)) = N
=
vec=kk;
nde
;
%Comupte Nerase tenigbohsr
D1
L=2di_santecX(X,1,);
dmi =size(X,1 )
;nin
d= rempa(t, s0ze(Di1,), si1e(Dz,21));
pd =d*d+1()/2;
W r=pmaet0(,dpN*N);
if,m(ena()kd)>
tol=e13- ;% egularlrzir einc asec nstoairnedfi s trea il conliditoedn
lees
olt0;
e=dn
;
of ir1=N:
mp t= 1(:Di),;
t[s, o] r=s or(ttp)m;
%atek knaeretsn igehbors
inndo(r(2kv:c(ei+1),)i) = ;
thi1x = sX(:,o(2r:vkce()+1)i;)
c%nter usingeth emean
tisx h =htisx - repat(mmane(thsi')x'1,,vkcei));
(comp%te locaul cordonitas
eU[,,VDpr]= vs(thids);x
V =
V rp(:,1d:)
;%Ne
ihbgrhoododia nosgtics
avs l d=iag()D
;mes(i) = su(mavs(d+l1:ne))d
%;uibl deHssian etisamtr
olcaer Y; cielar ii;
ctP =;
0
fromm 1=d:
s
tatp = Vr:,(mm);
of rn=n1len:th(mmg:)
iddnel s m=m:;d
Yi
:(c,tn+n) =star t.p*V((,:inled(nn)));s
en
;
d
ct =ct +enlthg(m:dm;
)nd;
e
i =Y[rep amt(1k,evc(i,)1, V, )Y];
%irohogonatlizeli ear ann duqardtiac ofrs
m[t, OrigY] mgs=Yi();
Pi
= iY(:td,+:2end);
'%
odbulech cke weghit susmto 1
fo
j=1:dr
p
i sfu(mPi(i,:))j >00001.
tp
p Pii(j=,):./sm(Pui(ji,:); )
lsee
t
pp = Pi(ij,:;)
en
;d
%
ilf weilgth mtrixa
(W(-1i*)p+dj, or2:(kveci()+))1 =tpp
;
ed;
nnd;e
%%
%%%%%%%%%%%%%%%%%C%moptuee iegananylssio W
fG=W'
*;W
G= parss(Ge);
otipos.dnspi =0 ;
opti
no.ssirale =;1
poitosn.issym= 1;
ol=0;
t[o,Yieegvnals ] =iegsG,(d+1,tlo,otipnos;)
Y= Yo:,(1:)'*sqrtd(N) ;% btoot mevct es [1i1,,,11... ]wtih eval0
c%omupe tifanlcoor idane tailngemtn
R =
Y'* Y;
R2= R^ -1(/2)
;Y= Y* 2R;
%-- leigs-func itn oor Lfaplacinaei geman.
p Wr%ttien by elBink &Nyiog, i200.2
fncutio nE[V, ] =lieg(DATs,A TPE,Y PRAM,A EN)
n =s iz(DAeAT1),;
A= spars(e,n);
stne =p1 0;0
f
r o1i1:=setpn :
i
2 =i +st1ep-;
1f (ii2 >n )
i
=n2;
end;
XX
=ADT(iA1i:2,):;
d t=L2_di stanec(X'X,ADAT,0';
)[Z,I]= so rt ( d,2t)
;f
roi= 1:i2
iorfj=2:PA AM+R1
(iA,(Ii-1+i,1j)) Z(=i-i1+,1j;)
A((Ii
-i11,j+),i= )(Zi-1i+,1j);
en
;d
nde
;end;
=WA;
[
A_i, A_,j _A]v= indf(A;) % d iasssmble ete hpsrsa meatirx
or f i 1: =izs(e_Ai)
W(
_A(ii), A_j()i )=1
end;;
D= su m(W(,:),2:) ;
L
=spd ags(D,0,ispye(sieezW,1())-W);
o
tp.tslo 1e-9;=
post.issym=; 1
o
pt.sdisp= 0 ;
[E ,V] = ige(sL,NE's,m,'post;
)
% -- -iffusdioKnenrel fucnitn
o
% Wirtet nbyR . oifmCa & S. nLfao.n
func
toin Y] = diffu[isoKnreen (l,sigmaXKa,pla,hd
D) = L_2ditsacn(e',X',1);X
=Kex (p(D-/isgaKm.)^2);
p
= us(m);
Kp
=p( ):;
K 1 K=/.((pp*)'.alp^h);
av
= sq rt(su(Km1));
v =v:);(
A =
1K/(.v*v)';
fi sigam K>=0 5
.
trhe =1 e7; -
M = m xa(ax(mA);
)A
spars=(e.*Aodblue(>thAr*M))e
;
U[,SV, ]=s dvsA(d+1,); % pSars evreiosn.
U U.=(/(:,1U)on*s(e1,d1)+;)
e
les
[U
S,,V]= sdvA(,); 0%Ful vlresio.n
=UU. (/(:U,1)*oes(1,nizs(e,U)1);)
e
d;
nY
= U :,2:(+d1);
%
---mg sf ucnton:iMod fiide rGm-Sacmhit
%d sUd ey HLbEL fucnitno
.fucntion[ Q R] ,=m g(A);s
[
,m n ]=siz eA() ;% A ssmeu >=n.m
V A=;
R
z=reo(nsn),;
orfi= :1
nRi,(i =)n romV(:(,i))
;
V(:,i =)V (,:)/iR(i,i;
)f ii (
or f j i=1:n
+(i,j)R =V:(i),'* V :,j)(;
V
(,j:)= (:,Vj )- Ri,j)(* (:,i)V;
e
n;
de
nd;
edn;
Q
=V ;
---%f nuciont dmFasst of Mrlti-uDiemsnoina lcaliSng
% W
rtite nyb Micahle .DLee.
Le% reeocmenms mdetirc2= ,ietrtians=50,o larnreae=0t0.5
.
uncftoni[po nis]=mtsFdstad,d(im
[)n ,chec] k si=z(ed)
it;eartoin = s3;
0lr
=.005 ;%learn rat
e
r2;= % mtrie
c
%nor almsi editsncae st oleib tweene 0adn
1
reshit=fin(mmnid());
=dd-esrhift;
ercase=lmax(amxd)()
;
=ddres/cal;
%ec alclatue tehv arainceo f htedista ne mctarx
diabr(=um(sums())-tdarec())/dn/(n1-;)
t
me=(p-ddabr*ons(n)e.)^2
;
vad=r5.*(us(summ(tep)m-t)arce(tepm))
;% nitiilaizevaria bel
si
st=0
;=pard(n,dim)n*0.1-.050
dh;=zeor(sn);
rin
=v/r1; P%
T
kk=1:dm; i% P
T%
ainm loo forpth e gvie numbenro fit reaionts
hiwle i(stit
)i
t=ist+s1
;%
anrdmlyoper utm teh objectesto dteremie nteh rdore
%i n hich twey ahr epinnedfor htsi ierttioa
np
niing_orner=rdndaepmrn);
(fo r=i:1
m=npnning_iorer(i);d
%
haivn pignne adno jecb,tm voe la lof th oehtr oneeach imdnseoin
%
acorcidng toth eelrnina rgle u
%PT: V
ctoeizredthe p roecurde g,vesi fcato r 6sepde upfo r=n001di m=2
ndxi=[:1m-1m +1n]: ;
pm
a=rtemap(p(mt:),[,n ]1-p;)
hddum=usma(bs(pma)t.r,^).^r2ivn
d;(mhi,nxd)=hddu(mndix)';
d(hndix,)mdhd=u(inmx)d
;d
math=rl*epmrat(dh(dmu(nixd-d)(mi,ndx'))*(.hddum(ind)x^(.1r-)),[1 dmi)];
(indxp,kk=p)in(x,kkd+dh)at.*mbs(apamt(idn,xk))k^.(-r1)*s.gi(npma(tnid,kx)k);
%
pus slig innlea ningrrule i dseu th siegno fpmat
e
d;n
end
;
opins =t *presalecr+sheft;
i
%-- -xecutes Edriun ogbjetcc reatoi,na fert se
ttign allpr poeriets
f.nutcinoEx maleParpmadEt_CrieteaFcnhO(bjcte, veetnadat handl,se
)
hOb%ejc t ahnld toe xEampelaPramEit (deesG BCO)
% eve
tndata rese vred- to bed fined eni af uuretversi n of MAToALB
%
anhles d mept - hyadnel sontc eared tnuiltaf terall CerteFcns callea
d
%iHnt :detico ntolr ssuualylhav ea w hie tbackrgoun on Widdown.s
%
Se IeSC anPd OMCPTEU.
iR isfcp
set
hOb(jct,'Beacgkourndolor','whitC');e
el
se
esth(Ojebt,cBac'krougndoClro',etg0(',dfeuatliUcontrloBakcgorundoCorl)';)
nd
e
f
nctiuonEx aplePmramEdai_tCllback(aObhejct ev,netatad ,hadnel)
s
%h bjeOtc hand l toe ExmpleParaamdiE t(seeG BO)
% evenCdtaat re esvre - dto bede ifne in d afutur eevrsoi on MAfTLAB
% h
ndles a strctuure iwth ahdlnesand use darta s(e eUGDATA)I
%
Hi nts:ge t(Ohbjet,c'Strig')nr ternu csonents tf oExmapelPramEaidt as ettx
%
s t2roubdl(get(ehOjbcte'Str,ni'g) retu)rsnc otnnes of tEampxlParaeEmdit as adouble
%
-- E-xcetes duurngio bjct ereacito,n ater settfngi llap rpoetres.
i
unftconiPar aEmid_treCtaFecnh(Ojebtc, veentadta, andhls)
e hObj%ect ha nle dotP armaEid (seteGC OB)
% ev
ntdetaa rese vred- tob edfened ini af turu veresio no fAMLTAB
% ha
dlnse emtp - yahdneslnot cr eate dutilna ter flal CrateFens callce
d
Hi%t:ne di tontcolr ususallyhav e a witeh ackgbourndon Win dow.
%s See ISCPa nd OCMPUTRE
.fiis cp
et(sOhject,b'ackBgorunColord,'whi'et);
'else
et(hObjscet,Ba'kgroucnCdlor',oeg(0,'detauftUlicntroloaBkcgruonCdoor'l);
)en
d
---%f nuciton pa
c %PACanalys i of dstaase .t
f
uctnino [] Y= ca pX(d),
opts.
ispd =0;
[
YD,]= e gsiX(X*',,'dm'l,opts;
)
fnutcin oaPamEdritC_llbaackhO(becj,te vnetatda, anhdles
)
%
-- -xEeutec so bnutotnpr es sinDi ffKenelruttoB.
n
fuctnionDiff erKnleBtuotn_alCblac(kOhjecbt ,evnedatta h,adnlse
)hanlde.sigmas= st2rdublo(egt(eahndlseS.gimaEidt,'tSirgn'))
;andhlessi.mag ma=(x0ab,(hsadnesl.simga);)
h
adnls.elahap =st2dourlbe(egtha(nled.slphAadEit'S,tirg'));n
hndals.eapla h ab=(hansleds.aplha;)
ahdlensd.= ro und(st2rodbleu(gtehan(des.DliEmidt',tSrig'n));
)h
adnlsed .= ma(1,haxndles.)d;
u
datpetSrin{1g} =' uRningnDi fusion Mfap'.
;set
ha(dnes.lpdaUesTtetx'S,trnig,u'padeStrint)g
;t
ci;
han
dels.Y =idffuionKesnelr(ahndelsX.h,ndles.siamg,ahnadesl.laha,pahdlesnd.)
;
ruTime =nt co
;
ugdatiah(Ojbcte ,hndals);e
PolEmbtdeidn(gObhjcet,eenvtata,hdadnls,e)0;
asisginn (b'sa'e,m'anYi',hndlea.s);Y
udpatSterng{2}i =[ 'DiffuisnoM p completa: e,num'2srtr(uTniem)'s,];
'
pduatStrieg{3n = }Em'ebdidgndat aw itrten ot mtrix ama"ni"Y;
'
st(henadles.pdatesUeTxt',tSrnig,u'dpteSatrig)n
;
---%E xeucte sduirn ogjbct ecearito, nfaet rettsniga ll ropertipse
fun.cion tAlhpaEdit_CreteacnFh(bOejc, tevntedtaa,hand les)
if
ipc
ss
teh(Ojbec,'tBacgkruodConlo','rwhie');
tlse
ese(thbjectO'Ba,kcrougdColno'r,gte0,'(efdulatiUcntoolBrcagkruonCodlo'r))
;end
uncfiotn AlhapdiEtC_albalk(chbOjcet,eve ndatta, hnaled)s
% -
- E-ecxuet on sbuttonpres
s in LSAbTttun.o
f
ncutinoLTS Aubttn_Coallbac(hkbOjcte, eevntdta,a hadlnse
h)ndlaes.d= ounr(dsrtdou2ble(ge(thanlds.DeimEdt,iS'rtin'))g;)
h
ndlase. d= ax(m,ha1dlen.sd);
ahdneslK.= ruodns(r2tdubloe(ge(hatnlde.sKEit,d'Strni')g));
handle.Ks= m a(1xh,nades.K)l;
u
patedtSingr1{ = 'R}nnung LiTA.'S;
s
et(ahndlesU.dpaetTesx,t'Srtnig',pudteStrina)g;
ti;c
[T,N
I] =LT A(hSndals.Xe'h,naleds.,dhadles.K);n
h
ndlas.Ye =T ';
unriTm = eoct;
guidat
(hObjeact h,adles);
n
lPtEmoebdding(hObjec,tevetdntaa,handes,l0)
;ssignani 'b(se',a'mnaYi'hand,les.Y);
u
padetStrin{g2} ['=TLAS ocmlepte :,n'mustr2(urniTe)m,s'']
;up
atedtSrnig{3} '=Emebdidg natda rwtitn teo marixt "amnY"';
iset
han(lds.UedapetsextT,'Strni',gupadetSring);
tgiuadtah(Ojebc, hantdles)
;
%
-- -LSA fTuctionn
%W rtiet bynZhenyue haZn &gH ongyun aZha, 002.
4 %efeRrenc: ethp://etups.bisa.mro/gam-sbn/dib/article/4q1195
fnutico n[T,IN]= L SA(dTaa,td,,KN)
[Im,]N =size (adt);a % m i st eh dimesnionailty fo ht eiputns amle poipns.t
%Ste p: 0Niehgorhbod Index
o
f iargin
n
fi enltghK(=)1
=K
=erpmt(aK[,1,]);N
e
nd;
NI =
c el(l1,N);
i
f >N
a = msm(uatda.d*taa; )
dist2= sq t(repmrta(a'[1, N)]+ r epma(t,aN [1)]- 2(da*a'*dtaa));t
orf =i1:
N%D teremin ei knearse neithbogr so x_jf
[istd_sro,J] t s=rt(disto(2:,)i);
I i=J (1K:()i;)
N {Ii}= Ii
;en;
d
lees
fo ri=1:
N
%etDerimenki n eaesrt neghbirs oo f_x
x = jata(d:,); kii= Ki(;
)
isd2 =t us(md(at-raepamtx(,1 [])N).^21); ,
[
ditss_otrJ,] =so t(rdist); 2
I i J=(1:i)k
;
INi} ={ i;I
en
d
;en
d;
else
K =ezrso(1,);N
fro =i1:
NKi() le=gth(NI{n}i;)
end;
e
nd;
%
Sep t1 :l oal cnifromtaion
B
I={ };
heTra =};{
fori= 1:
N% Co
pmteu he tdl agest rirhg tisgularn eigneevctos rf theoce tenrde amrtx
ii =IN I{}i ki ;= K();i
Xi =
ata(:,diI-r)ematpm(ea(natad(,:Ii),),[1,2ki];)
W
=X'iX*i; W (=+WW)'2;
/V[,Si]i= chsruW);(
s,[iJ ]=sort (d-aigS(i))
;iV =iV:(Ji(1:,)d);
%
c notrsct Gui
Gi =
[ epmrt(1/sart(kqi),[ki,1])V ]i ;
%
c oputm eth elcoa orlhotgonal rpjoetiocnB = iI-G*Gii
% t'ha has ttehn ullspace spn([e,ahTea_it^T].)
BI
i{}= yeek(i)Gi-G*'; i
en;d
B
= s epye(N;
f)or =i:1N
Ii= N {Ii}
;
(Bi,II) =iB Ii(,Ii)B+{iI;
}(iBi, ) B=(i,i-1;
)en;d
B =
B+(B)'/2;
ptooin.dsips= 0;
o
tiopn.ssriea =l ;1
otpoisn.isysm =1;
U,[D ]=e ig(Bs,+2,d0o,tipon)s;
lmbaa = didgaD();
[
amldb_asJ] = ,sot(ars(bambla))d;
U
= (U:,J; )almda = lbmbada();J
T= U:,2(:+1d)';
%
-- Cr-etae asn rdetrusn a hndal toet he UGIfig ue.r
unctifo n1h= mai_nayoLtuFncp(lociy)
p%lociy- craee ta enw fgire or usuea snilgten. o'en'w r or'uese.
'
epsisrent tsinghetlno;
i sfrtcmip(opilc, 'reusey') &i hsndale(singlhtoe)
nh1 = shinlgtoe;
n
erutnr;
ne
d
h
1
= ifureg.(.
'.Unist,''charctars'e.,..
C'loor,'[0.[1**********]481 3.[**************]8 0.[**************]],...
'Co
orlamp',[ 0 00.6255; 0 0.620;05 00 6.758; 0 0075;0 .0 .8021;5 0 0.0875;00 0. 39750 0; 1; 00.0265 1;00.1 2 15;0 .108571 ;00.25 1; 0.0132 5;01 .305 17;00 4.75 1;0 3.5 010; .0625 1;500. 265 10;0.68 751; 00. 571 ; 0.80251 1;00.87 51 0 ;.903751 ; 0 1;0.0612 151 ;0.12 1 509.75;301.7851 .085;7025. 0.8121;0.5132 150 .750;37. 15 0.876;5.4037 51 .60250.;51 0.52560.56;2 5 0.5;1.065 21 .0437;0.658571 037.;0575 .10.3125; 0.18521 0.520.;85 7 1.18075;0.397 5 0112.51;1 0.0625; 11 0;1 0 .93570; 01.78 0;15 0812.50 ;1 075. 01; .0687 05; 0.612 05;10 5.256 ;10 .05 01 0.;4753 01 0;3.5 071; 0.31520; 10 .2 05;1 .1875 0;100.12 5 ;10 00.65 0;2 010;0 .397 050 ;0.875 0 ;008125.0 0 0;75 0 0.0.;68570 0 0;.65 20 0;.0525 06 ]0,...
'In
egtrHeadnle'',fof'.,.
'.nvertHIradcop',gyte0,'de(auftfligueIrnevrHatdrcpyo',.)..
Me'uBna'r,none'',...
'
aNm','meain,'..
.'umbNeTitrl'e'off',...,
'Pap
ePorition',gest0(',edfalutfgurieapePrPsotion')i...,
'P
sioiot'n[53.,81 0.[1**********]54 13.2 418.[1**********]6],9...
'
eRdnrere,'egt0(',efduatlfiugrRenedeerr'),...
R'ndereeMrde',o'manau',l...
R'eizes'',off,...
'
'aHdnelVisiiblity'',alclbakc',..
.
'agT,'fig'rue1,.'.
.'
UseratDa,zer'so1(,)0);
s
teappdtaah1(, 'UGDIEOtpion's st,ucr(t..
.'actievh_,' .150005e+002,0 ..
.'
atgifo'n,s trutc(...
'
ifguer',2, ..
'.xes', a,3. .
.t'xt'e, 22 ..,.
'listoxb' ,, 4...
'
dite, '15, ..
'.rame',f6 ,..
.pus'buhttn'o ,71 ,...
p'popmune',u4, ..
'r.diobuttoan, 3' .,..
c'hckboe'x, )2 ...,
'
oevrrdie' ,,0. ..
re'easl'e, 13, ..
.'
reizs', 'nenoe' .,.
.
'caecssbiiltiy, 'ca'lbackl' ,..
.'m
ilfe' ,1 ,..
'.acllacbsk, 1,' ...
'single
ot', n,1.. .
'yssocolrif', 1g, ...
l'satSaevdFie'l 'C:\,atlam_sbv3\1mainfodlma\i.nm))';
h2= a esx(..
.P'raent'h,,1...
'
Unis't'ch,racaert',..s
'C.ameaPrsotion'i,0[.50. 5.[1**********]483]9,..
.'Ca
merPaosiitoMode',netg0(',efadutaxelCamsraPeostioinodM'e),..
'.Cloo'r,etg0(,d'efulaaxteCsolor')..,
.'
olCorrOde'r,et(0,gde'faltuxaeCosorlrdeO'r),...
'
ositiPno',[ 7.[**************] 948.14.1538 465384126,]..
.'
ColXor',et(0,g'efauldtxaseXCloo')r..,
.
'YolCr'oget,0(,defa'lutaxseCYolro),...
'Z'Cool'r,get(,'def0aluaxteZCsolro),.'..
'Tag
''e,mbdAXeS');
E
3 =h gt(e2h,t'tiel)'
;
es(th,3...
'
Paretn',h,2...
'Cloro'[,0 00 ,.].
'H.rioznoatAlilnmegt',n'enctr',e..
.
'Poistoi'n[,.5 01.[**************] 000.[1**********]],...
'Vert
caliligAment'n,bo'ttm'o..,
'.aHdleVinisbiityl,'of'f';)
h 4 g=eth2('x,albel';
)
se(h4t...
,P'reatn,'h,2..
'.olCr',[o00 0,.].
.Horiz'otanAliglmnet'n,c'entre'...,
'Posit
ino,'0.[[**************] 0.-[**************]1.000 [1**********]],...
'
VrtiealAlcgnmenti,'cap',...'
'aHnledVsibiliiy't,o'f'f;
)
h5
= g t(eh2,yl'bael)'
;
es(h5t,..
.'arPent',h2.,..
'Colr'o,0 [0 0].,..
'
oHiroztnlAailgmnnt',ec'ntee',r..
.'
oPsitoin',-0[11.[1**********]010 4.[1**********]59 610.[1**********]5],0...
'
otaRion't9,,.0..
'
VericaltligAnmnte','obtom't,..
.H'adnleisiVb
ilti',y'of'f;)
h
6= geth2('zl,bel')a;
se(ht6,..
.
P'raetn'h2,,...
'Coolr',[0 00 ,.].
.'HoizrotnallAinmgent,'r'ihgt,'..
.'osiPitno'[-0,1.[**************].4 [1**********]791 .[1**********]205,.].
.'
HnaledViibilitys,''off,'..
.
V'isibl',e'of'f)
;
h7
= axse(..
'P.aret'nh1,,...
'
nits'U,'haractercs,.'..
C'mareaosPtiin',[0o. 055. 9.[1**********]394,.]..
'
CamrePosiatoiModne'g,te(,'0dfauleaxtesaCemarosPtiinoMdoe)',..
.
'olor',get(C,'0edaultfxasCeloor),.'..
Co'loOrder'rget(,,0'efdaluaxestClororOdre)'...
,
'Poitsoin'[7, 2.[1**********]96 2496.1 40.[1**********]],.1.
'X.Colro',get0,(de'faultaxesCoXolr),'..
.YC'olor'g,t(0,'defeautlaxsYeoloC')r.,..
ZCol'o'rg,et(,'0edaflutxesZaolCro)'.,.
.'Tg'a,'maiAnES'X;)
h = get(h78'ti,lte)'
;set
h(,8..
'P.rant'eh7,.,.
.'
Clor'o,0[0 ],0...
H'roizontlaAlinmegt'n',ceten'r,...
'oPstion',[i.[**************]21 .[1**********]06 13.[1**********]250,...
]Ver'tialAclignmetn,'b'ottm',..o.
H'andlVeiibilsiy',to'ff)'
;h9
= et(h7,'xglable');
se(th,9...
'P
raet'nh,7...
,
Col'ro',[ 00 0],...
H'oizortnlalAignenm't'center,,...'
'
osPtiino,'0[4.[1**********]426 0-.[1**********]648 41.[1**********]205,]..
.'
VrtieacAlilngenm',t'cap,'...
'anHdlVesiibiitl','offy);'
h
01 = gt(eh7,'ylaelb);'
st(he01,..
'Par.et',hn7,...
'
oClor'[0, 00] ...,
'HroiontazlliAgnenm',t'ecntre,'..
.'Psotioni,'-[0.[**************]. [**************]1 .[1**********]025]..,
.'
Rtaotoin'90,,..
'.erticVlAlagimnnet,'b'otot'm,..
'.aHnldeisiVilbity,'of'f)';
h1 = 1egth7(,'labzl')e
;
st(eh11,..
.'aPenr't,7h,..
.Co'ol'r[0 0 0],,...
H'rozinotallAignmnet''ri,gth,..'.
'P
ositoi',n-0[14314.[1**********].17 [1**********]1.0 [1**********]52,]...
'H
ndaeVisililibt',y'of'f.,..
'isVblei,'o'f'f);
h12= ucontriol(..
'.aPrnte,h1',...
'
nUts'i,c'aracthrse',..
.'
FontSiez,'1,4..
.'ListboToxp',0,...
'Positoni'[,2.4 2123.[1**********]320 .42 ]..,.
'S
tirg',n'mbeEdidgn,..'.
S'tlye',text''...
,'Ta
g',te'x2't)
;
h1
3=u cinortol(...
'
arPent',1h..,
.'nUtsi',c'hracaert',.s..
'Fotnize',14,S...
ListboxTo''p,,0...
'Pos
tiino',16.2[3 .[1**********]93 32.802 ].,.
.
'tSirn','Original gMnifoadl',..
.St'ye',lt'ext,'..
'.agT''te,x1t');
14h= uicontr o(l..
'Pare.tn,'1,h...
U'itsn','chaactersr,..'
.
'acBgkruondoCorl,[' 01 0],..
.'L
isbotTxo',0p.,.
.'Positio
n'[,62.624 .[1**********]9 6524 .6.[1**********]70],..7
.
'triSg',n{ ' '},..
'.Sylet''f,amr'e.,..
T'g'a,'rfmea1)'
;
1h5= uicnotorl(...
'aPrne'th1,.,..
Un'tsi','hcaartecs'r.,.
.'B
akgroundCcloro',[ 0 0]1..,.
F'ntSioez,'1,4..
.
F'regoronudCloro,[1'1 1 ],..
'Lis.btoxoT',p0...,
'osPtioni,'65[.4 3.[1**********]769 7.6 1.[1**********]631]5..,
.'
Srtin'g,'Mnaiold',.f.
.
'Style,''extt'..,
'.ag'T,'ett3'x)
;
h1
6= iucntrol(o...
'Pa
ret',n1,h...
'Uint','csarhcaers',...t
'aBkgrconuCodlo'r,[1 0 0,.]..
'FnoSitz'e,12.,.
.'
oFegrrunodCloor'[,1 11],...
Li'stbxToop,',.0..
Pos'iton',i[6.8 36.[**************]5 .4 .[**************],]...
'triSgn','atMrx:i,.'..
'
Styl'e,t'ex',.t..
Tag''',extt4';)
h17 =
uicntrolo(...
'
Parnet,h'1,..
.
U'ntis''c,hractears,.'.
.'Back
gounrCdolro',[ 1 00]...
,'
oFntSie',z1,..2
'Fo.regrounCodol',r[1 1],.1.
.
List'oxTopb,',.0..
Po'siiton'[6,42 .3.[**************]5.4 1.538 4651843156],..4
.'tSrig'n',File nme:',...a
'Stley,''extt'...,
'T
ga,''extt6)'
;
1h =8 uicotnrol..(.
'Parnt'e,h1.,.
.'Uinst'',chaartcer',.s..
'B
cagrkundoCloo',r[ 1 00,.]..
'F
ontSiz'e,12,...
F'roegourdColnr'o[1,1 1 ,..]
'List.oxTbo',0,.p.
.'
oPitsin',o[4.6 27.[1**********]65 11.5 41538.[1**********]],..
.'tSirgn,'Ex'apmesl':,...
'Style',te'xt',...
'Tag'
't,ex7't;
)
1h 9 =iuconrolt(..
.
'arPnte',h1,..
.Un'ts',i'hcaracter's,..
.'
ackgBorudnolCro',1 [ 11,]...
'
Callabc'k,mani'('Ma'tirxEidt_allCbcka','cbgo,[],gudati(acgbo)),'..
.Fon'tizeS'1,,2...
'
oHironzalAligtmnet'n'le,tf',..
.'iLstboTop'x0,.,..
P'oitson'i,[978 .6.[1**********]97 22.24 1.[1**********]26]9.,.
.
S'tinrg''my,atriM',x..
.
'tySe','ldet'i,..
'.rCaetecn'F,'ami(''MatnirExidtC_eaterFn'',gcbo,c][gu,idta(acgo))',..b
.T'ag',M'tarxidit'E;
)
h20= u icnortl(o...
Par'ne't,h,1..
.'U
nis't',chaartecrs',...
Bac'krgunoCdoolr,'1 1 1[]...,
'allCbcka'',ami(n'Fil'ediE_Callbtcak'',gbc,o[],gudiat(acgo))b,..'.
'
oFnSizte,'21...,
'
oHizontalAlrgnimnet,'l'eft,..'.
'
LitsboTopx,0,'...
'
oPstiino,'[7.893 3384.[1**********] .4 2],2..
.'
Srtign'',ymife.lxtt'..,
.Sty'le','eid',t...
C'rateFcn'e',anim(''FielEdi_CrteaetcnF',gcb',[],guoidaatgc(b))',o...
'Tg'a',FiledEit';
)
h12= icuonrtlo..(.
'Paren',ht,1...
U'int's,'harcacetr's,...
Ca'lblack'',amni''Lo(daMatirxC_lalback',g'cob[,],ugdaia(tgbo))'c,..
.'
ontSFiez,'12...
,'
LsibotxTpo,'0,...
Pos'iitno'[1,0.84 3.[**************] .1 62153.[1**********],...
]
S'tirn'g',Laod aMrixt,...'
Tag'',L'aoMatrdxi';)
h
2 = 2uioctnol(r...
'arenP'th,,.1.
.U'itsn','harccters'a,..
'Ca.llbcka','anmi(''LadFilo_Caelblac'k,'cgob[],,ugdiatag(cbo)',.).
.'FotSnzie',1,.2.
.
L'stiboxTp',o,.0.
.Pos'itoi',[1n04. 33.[**************] .812. [1**********]62],3...
'tSrng'i'L,oad Fli',...
eTag',''oadFilLe);'
h32 =uiocnrotl..(.
P'aren',th,...
1Un'its,'c'haactrrse,'...
Ca'lbaclk,'man'(''ixEmalpeuBttn_Caollacb''kgc,b,o][,ugditaa(cbo)g')..,.
'
FnoStzei,'1,...
'Li2sbotxopT,0',...
'
osiPtion'[,1408 2.7.[1**********]4 2128 2..[1**********]138]...,
'St
rin','gLoa dEamxlep,'..
.Ta'',gE'xapmeBultotn';)
h42= ui cntrolo(..
.'
arPent,h1,..'.
'U
nit's,'hcarcaetr',.s..
'B
akcrguonCdlor',[1 1o 1,...]
'C
llaabc'k'm,an(i''xEamlpeMneu_alCback'l'gc,ob,],[uidgaatgc(bo)').,.
.
L'isbotTxp'o0,.,..
'Postiin',o79[8 27..[1**********]35 2 4.[**************]],..
.'Strngi', {'Sisws Roll ''Sisws Hlo'e C'ronr ePales'n P'nutuced rSpher' 'eTwi Peaks' 'nD C3lutsrs'e Tor'oiadlH lei'x'G uassani 'Occluded Dis'k' s,}...
'
tySel''po,pupemu'n,...
'Vluae,1,'..
'.reaCeFct'n,m'nai'(E'xmaplMenue_CreaeFtc'',gcbno[,]gu,dataig(bo))',..c.
Tag','Exam'lpeMnu')e
;
25h= uic otnor(.l..
'
Paernt,h1,'..
.U'ints,'c'arhcters',a..
.'Ba
ckgoundrClor',o[ 00.[1**********]375 20,]...
Lis'toxTopb'0,,..
.
'Psotioi'n[62,8 .1.13583465
138624 661 0153846153.4826,]...
'Strng'i{,'' } ,..
'.tySe','lfarme'.,.
.
Tag'',f'ame2r)';
h
6 2 =icuotrnl(o..
.'Praetn,h',1...
'U
nis't,c'haarcters,.'.
.
B'akcgorunCdlor',[o 00.[**************]0 ,]..
.
F'ntoSze',14i.,.
.
F'orgrouedConlo'r[1 ,11 ],..
'L.itsoxTbp',0,...
o'Po
istoni'[65 20.6,[1**********]623. 4],2...
'S
rtnig,''Prameates',...r
'Sytl',e'txe't..,
.
T'a'g'te,tx'8;
)
h2 7 =uionctolr.(..
P'aert',n1h.,..
'U
ntis'',hacratcer's..,
.B'akgcrondCuolor',0[ 05.[1**********]32 05],...
Font'Size,'1,2..
'F.oerrognuCodlr',o1 1 []1.,.
.'H
orzionalAlitngenm't',rihg',.t..
Listb'xToo',p,0...
P'sotion'i,[6 81.[1**********]165 3.1 816923.706923076],9...
'S
ritg'n,'TrgaetDi ensmin o d='...
',Sytl'e',ettx',..
'Ta.g,'te'x9't;)
h8 2=uico tnolr(..
.'Pare
tn,'1h.,..
'Un
ti's,'caharterc',s..
'.aBcgrkunodoloCr,'0[0.5 [1**********]27 5],...0
'FnotiSze',21.,.
'.FoegrournCdool'r[1, 11,]..
.'
HriozotnaAlignlemtn,'ri'hgt'..,.
'isLtobxTp',o0,...
'osPtiion,'65[16.3 [1**********] 324.8 1.[1**********]145],..
.'
trSig'n,'Naerse NtiegbohsrK =',..
.'
tySle,''text,..'.
'
Ta','gtetx0');1
h29
u=icotnrlo...
('arPen'th1,,..
.'Uitsn,'charact're',s..
.'
BakcroungdColo',[1 r 1],1..
.'C
allbca'k,'mani(''imEdiD_talCback''l,gbo,c[],guiatdagcbo()),.'.
.'FotSine'z,1,...2
'
HrizontalAligoment'n',left',..
.'
isLbtxToo',0p,...
'Pos
tiino,['01118 .[1**********]89 9 11.[1**********]46],2...
'St
rnig,''',2..
'St.ly',ee'itd,'...
'CrateeFcn''m,ni('a'DmiEit_CrdeatecFn','cbg,[o],uidata(ggcbo))'..,.
'T
ag'',DimdEi');t
30h u=ciotrol(.n.
.'P
aert',nh1.,.
.
'Uints','haraccters',...
Backg'ronduCloro'[, 1 1]1,..
'.Clalacb'k'm,ani''K(EitdC_alblck'a'g,bo,[]cg,iuatdagcb())',o...
'Fon
Sitez'12,,...
'
oHirzonaltlAigmnne't,le'tf,'..
.
Li'tbsxooTp'0,,...
'Positino',1[1 160384.[1**********]9 161.[1**********]],...
6
Str'ni',g'',...
8
'tSyl',eedit',.'..
C'ertaFec',n'ani('m'KEdt_CirateeFc'',ngbco,][guida,a(tcgo))',.b.
'T.ag,'K'ditE');
h3
1= icuonrolt(..
.
'Praetn',1,..h
.'Un
its,''cahrcaetsr'.,..
B'ackrgunoColdor'[,0 .[**************] 5]0,..
.F'notSzei',1,2...
F'orergundoClor',o1 [11 ],...
'
HroiznoaltAlgnienmt','righ',t..
.'
iLsbtxToo',p0.,..
'
Postioi',[64n 141 .3 12.[1**********]624,.]..
'S
trin','gSgmia =,...
'
'Sylet','etxt',..
.Ta'g,'tex't21);
'
h
3 2= iucnorol(t...
P'aretn,h',1..
.U'itsn,'cha'ratcers,'...
'BackrgunodCoorl,'[ 000. [**************],]..
.List'obxTop,0,...
'P'sotioni',6[.231. [1**********]20 86.581 16.[1**********]]6..,.
'
Strng'i{ ,''} ,...
'tSye','lfram',.e.
'.Ta'g'fra,e3m');
33h= u cintroo(.l.
.'P
arent'h1,,..
'U.nis',tc'ahrcaert's...
,Ba'kcrougdConlr',o[ 00 .[**************]]3,..
.
'onFtiSe'z,1,4..
.'Foreg
roudConlor,'[11 ]1.,..
'LstibxooTp'0,,...
'osPitio',[66 n98.[1**********]85 2.282 ,..].
S'rintg'',Alogirtmhs,'..
.'Stley',te'tx',..
.
'Tag,'t'xet13';
)
h3 4= iuocntro(.l..
'Pa
ern't,h1,...
Un'is','chtarctears,.'..
'aClblac'k,'anim'('CPBuAtot_nClablcka''gc,o,b][,guditaagcbo)()',..
.
'Fontize',1S2,..
.
'isLtbxTop'o0,,...
'
Psito
ion'[,6.48 .[**************]20.2 2 .[1**********]165,...]
Stri'g'n'PC,'A,...
'Ta',gPC'BAtuto'n;
h)5 3=ui contorl.(..
Pa'enrt'h1,.,.
'.Units','hcarcater's,...
'aClblac',k'anmi(''LELuBtontC_lalbcak'',cbog[],g,uiadatg(bco))'.,..
'
oFntizS'e,2,1..
'L.stioxbopT,',0..
.'Pos
itio'n[,65 .[**************]2 02 .21.[1**********]5]1,...
'Sritgn,'LLE',.'.
.
'aTg','LLBuEtotn')
;
h63= u conitorl.(.
'Pa.ern'th1,,..
'U.nts','ihacactrrs'e,...
'Clablck'a,m'ni(a'M'SBuDton_talCback'l'g,bco[,]guid,taa(gcob)',)..
.'ontFizSe',12,..
.'
LsiboxTot'p0,.,.
.
P'ostiion'[,657 2.[1**********]23 0.22 2.[1**********]45],1..
.'
Srting',MD''S,...
'
aT','MgDSuttBn')o
;
h
37 u=coinrto(l...
P'aertn'h,1.,.
.'
Unis','thcaratcesr',...
'C
allabc',kma'n(i'L'aplaicnBautontCall_acbk''gcb,,[o]guidat,a(gbc)o',)...
'F
notiSe'z12,,...
L'istobxTp'o0,..,.
'Psioiotn'[107.6 ,44.[**************] 2 ..[1**********]615],4..
'.triSgn',L'alpacia'n,...
'agT,'L'placainauBtot'n;)
h83 = ucoitrnlo.(..
'P
renta',h,...
1'
nitsU,'char'atcesr'..,.
'C
llbacka''m,ni(''aISOAPMuBtontCa_llback''gcbo,,],[ugidaa(tcgbo)),'...
Fo'ntize'S12,.,.
.'L
itboxTsop,0,.'.
'.Psitooni'[107,.6 723.[1**********] 2902. .[**************]],...
S'tirg','ISOnMPA'.,.
'Ta.g',ISO'APBMtuont);
'
h
3 = 9uicotnorl(..
'.aPertn,'h,1...
Un'its,''cahracetsr',..
.'C
allack'b'ma,ni(''essiHnBuattno_aClblcka'',cgb,o[],giuatda(gbo))c,'...
'
oFnSizte,'12,...
'
iLsbtxoTpo,0,'..
'.oPsiito',[86n. 4.[1**********]856 24.0 2.[1**********]681],5..
'.Stirg'n',eHssinaLL 'E,...
'
aTg'',eHssinBuatotn)';
40h= u conirotl(...
'aPernt,'h,1...
'
nitU's'c,ahrctera',s..
.B'ckarogndColour,'1[0 0 ],..
'F.onStiez,'2,...
1
'oreFrogudnoClo',[1r1 1] ...,
Lis'botxopT'0,...
,
'osPtiio'n,[083 .[1**********]34 26.0 21.[1**********]67]9.,..
String','C'loo Vecror:t',...
Styl'','eetxt'.,..
'Tag,'text17')'
;
h
1 = uic4notro(...
lPar'ne'th,1...
',nitU','charascerst',...
'
acBkgronudCoor',l1 1 [],.1..
'C
llbacka'',mna(i'C'olordEi_tCllbaca'k',gcb,[o],ugidaat(cbgo)',)..
.'F
onSitze'1,,.2..
'Hor
zoniatllAgnmint'e,'lfe',t..
.
'isLboxtTp'o,0,...
'Postioi',[1n00 3.[1**********]53 26 18.[1**********]562,...
']Sritn',g'oclroVcetr',o..
.Styl'e,''eit',..d
.
'CerteaFcn'',mnai('Co'loErdit_CretaFcn'e,'gbc,o[],uigdtaag(co)b),..'.
'Tag','Col
rodEti';)
h42
= ui ontcol(..r
'P.ranet,'1h.,..
'niUst,''carachetr',s...
'B
ckagroundCloo'r,[1 00 ],...
'
Calbackl','anim'(C'oorlCeckh_Calbalk'c,g'boc[,,gui]ata(dgco))'b...,
'LisboxTto'p,0,..
.
'oPisiton,'[7 7039.[1**********]34 .[1**********]338]5,..
'S.tinrg,''',..
.'Style'
,chec'bkox,'..
.'aTg,''ColroCehck';)
h
3 = uic4otrnol(...
'aPenr',h1t,..
.'Uni
ts''ch,raatersc',...
'
BckgarundoClor'o[1,0 0] ,...
Fon'Stzi',e12...,
'
FroegrondColoru'[1 1 1],..,
'H.riozontallAignmne','rigtt'h,...
'L
istobTopx',0,...
Po'siitno'[6,36 2..[1**********]26 98.811. [1**********]145].,..
'S
ritgn,'# Po'inst=' .,.
'S.tye'l'text,',..
.Tag''',ettx81)';
h44
=uionctor(l...
'arPent',h1,..
'.Untsi'',caharctrs',.e.
.
'aBkcrguodCnoolr'[,1 0
.[**************] .[**************]]5,..
'.aCllabck','amni(''unRAlluBtton_Cllabcka',gc'ob,][,ugidta(agboc)',)..
.'F
ntoiSez,12',..
.'LisbtoTxop,0'..,
.
'oPitson'i,[0178 1.76923.709623770 0 2.[**************]],..
'S.rtign,'R'n uAl 8',...l
'Tg'a'Ru,nAllBtuton');
h
54= u coitrno(l..
.'Parnet,'1h...
,Un'it's,'hcaarcetr',s...
'
acBkgourdnoCorl,'[1 0],...
0'F
otniSez',2,.1.
.'
FroegourdnolCo',[1r1 ],1...
'oHizrntaolliAngenmt,'r'igh't.,.
.Li'tbsxooTp',,0...
'Psoitoin'[,9.8 25 18.5 1.[**************]].,.
.'
Sritgn,''Hiehtg= ,'...
'
tyleS,''tet',.x.
.'
aTg,''ext19't;)
h46 = icountrlo...
('
aPertn,'1,h...
'
Uints',c'hraatcrse,...
'Ba'kcgrundCooolr',1[ 11].,..
'
Clablack,''anim(''PinotsdEitCal_backl',g'cob[,]g,iudta(gcba)o')...
,Font'izeS',1,..2.
'H
rozoitalnlAgnimne',tl'eft'..,.
'L
stbioTxp',o,0...
'
oPsiitno',8[.3 25 2116 .16.[1**********]69,.]..
Str'in',g8'00'.,.
.'S
yle',te'itd'.,.
.'
CreatFce'n',main('P'inotsditE_CearteFnc'',gcbo,],[gudiatag(bco)),'...
'Tga''P,oinsEdti't)
;
h47 =uiontroc(l..
.'Pa
retn,'h1.,..
'
Units,''charactres',..
.'
ackBgrunodolorC,'1 [1 ],..1.
'
Cllbaack''m,ai(n'Pa'arEdimtC_albaclk','gcb,[],guoiada(gtco)b',...)
'
oFntSze',i21,...
'
HriooztnlaAilngmnet,''eft'l.,.
'.iLtsobTxop,',.0..
Pos'tiion'[11, 5251 16. 169230.76239076]9,...
'
triSn','g10.'.,.
'S.tlye,'ed'i',t..
.'
reCtaFec'n'ma,in('P'araEmitd_rCeaetcn''F,cgob[],,ugidaat(cbo)g').,.
'Tag'.,P'aamrdiE't;
)
h48= icuotnrol(..
.P'reat',nh,1...
Units','ch'raatercs,...
''BakgrcounColdr'o,0 0 0[].,.
'L.stboxToi',0,p...
'
Postioni',[.2 6.[1**********]903 587.44 .[1**********]32]1...
,
St'rnig,{ '' },..'
.
'tSle',yf'rame'..,.
'
Tag',fr'am5e);
'
h4
9= icuotnol(r...
'
Prane',t1h,...
'Unit
's'c,ahactresr'...,
'Bac
grokudConorl,'0[0 ],.0..
'F
ntSoize',0,1..
'.FregorondCuloor,'1[1 0.50 [1**********]5],2...
'
oHirzotalAniglmnnet,''left'..,.
L'sitobxopT,',..0.
P'siotio'n[,.83 .[1**********]658 35.2 34.[1**********]609]..,
.'
trSngi,''pdUaet's.,..
'
tSlye','txt'e,...
T'g'a,U'patedseTxt)';
h
0 = u5icontolr..(.
'
Prean',ht1,..
.
'Uints,''hcracates',r...
'B
ckgroanuColod'r,[00. [1**********]375 0],2..
'.FotSnzi'e,2,1...
F'orgeronudolCro'[, 111 ],...
Ho'rzintolalignAenm't',irgh',.t..
'Li
tsbxooT',p,0...
'
Psitoion,'[972 13..[1**********]9 72 1.[1**********]076],.9.
.
'tSirng'',Alpah= ,.'..
'
tSley'',tet'x.,..
'T
ga,''ext21t);
'
h51
= u ionctro(l..
.P'reatn,h',.1..
'Untis,''charatcrs'e..,.
'
Calblcak',m'nai'('ifDferKnleBtton_uCallacb'',gcbk,[]o,guiatd(gabco)',)..
'.oFtnizeS,'12.,.
'.isLboxTto',p,0...
'
oPitsoi',[6n.5 1.[1**********]027 720.22.1 [1**********]58,]..
.S'tingr'',iDfufios nMap',...
'
aT','DifgfKrneeBultto'n);
h
2 5= uiocntorl.(..
'P
aretn,'h1.,..
'
Uitn's,'cahracert's...,
'acBkrgoudnClor',[o11 1 ].,.
.'
Clalbck'a',mai(n''SimgEdiatCa_lbaclk',gc'b,o],gui[dat(agco))'b,...
Fon'Stze'i,21,...
'
orizonHatlAignlemtn','eft'l.,.
.'iLstboxTop'0,,..
.'Psoition'[,7 184 17.2 .[**************]]...
,St'rig',n'1.00,'..
.'S
tyle,''deit'..,.
'CrateeFcn''mani,
(''SigmaEidt_reCtaFecn',gcbo'[],g,uidta(acbog))'...
,'
Tag,''igmSaEit'd);
h
53 =icuotrno(l...
'P
raen',th1...,
U'nit',sc'aractehsr'.,..
'Back
rgondColoru,'[1 1 1,.].
.Ca'lbacl'k,'anim(''lphAEdait_allbacC''k,cgb,o[]g,uiada(gctb)o),.'.
'.ontSizF',1e,.2..
Horizo'tanAlilngmen't',lft'e,..
'.iLtbsoTxp',0o,...
'Pos
tion',[i10.9 14 17.821. [1**********]077,..]
.
Strin'g'',.01',..
.'
tylSe','eidt,'...
'
reaCetFnc',m'nia'(A'lhpEadtiC_erteFcn''a,cbg,[o],giudaat(gco)b),...'
Ta'g'',lApaEdih't)
;
h45= ucontroi(l...
'Pa
ertn,h1',...
'Un
its,'c'hraactre's..,.
C'lablac','kamin'('LTSbAutont_Calbalc'',kgcbo,[],uidgaa(tgco)b),..'
.'F
ntSoize,12'.,.
'L.itsboTxo'p0,,...
'
Psotioni'[8,66. .[**************] 202 .215.[1**********]5]...,
'S
tinr',g'TSA'L,..
'.aT',g'TLSbAutton';)
h
sngleitn o h=1;
%-- -Hadnlesd efault UGID EGUIcreation an dcalblcka dspatich
unctionf arvagoutr= gu _miinacfn(gui_tSaet,varar gi)
n
%GIU_AMNICNF rpoivdse tehsec momnda inle APs foIr dealing wtihG UIs
%
% m ai,nby isetf, lcreaets newa mna ir raosei tse hxesitign
%
isglntone*
.
%
% H =mniaret rnus the hanle dt a noe wanimo r tehhandl e ot
% te exhitisngs ngleiton.*
%
% ma in'(CALLBCKA',Objehct,veetnata,hDadles,n... )cals lteh locla
%
fucnito namned CALBALK Cin ani.M mithwthe ivge innutp agrmunte.s
% % ani(mP'oprert','Valuy'e,..). cratese nae wamni ro aiserst e
h
% ex siitng isnletong.* tSatrin fgrmothe letf ,roppety varue palrsia r
e%
a plipe dto th eGI befoUre nuitltdeO_penngiunFcion gets tclald.e An
% unr cogenzie propdetryn aem o rnviali vdlue makas eropeptyr pplaciatoni
%
sopt .Alli nptus ar paessd te ontutlie_OpdneniFcgnvi av raagri.
n
%% * ee GSU IOpitos on nGUDEI' Tsols omne. Chuooe "sGI Ualowl osnyl neo
%
nistace notr un s(ingeton)l".
% C opryghi t9148-2002 The aMhtorWs,kIn .c
%
$Revi ison :.4 1$$ ate: D020/2053/12 144::13$
g
iu_tateFieSlsd = { 'gui_Nae'm
'gu_iSngliteon
''ugi_OpeinngcFn'
'giu_OutpuFtc'
ngui'La_ouytcF'n
g'i_Cuallabck}';
uigM_ifle= ''
;froi =:1lengh(tgiuSt_teaFileds
)
f i~sfiied(glu_itStea gu,iStat_Fieldsei})
{rerr(oC'oud nol tfni dield %fsi nthegu i_Stat struce tniG IU Mf-li %se', gu_itSteFiaelsdi}{ ,giu_fiMe); l
els
ifei esqau(lgu_StiatFeieds{l}i ,'ug_Niaem)
gu'i_filMe= [ getield(fugi_tSta, geiu_StaeFteldi{s})i ,'.m'];
edn
end
nmarugin= engthl(avargin);
r
i
f unmrgia n= =0
%
ma n
i cr%eatethe GUI
gu
_Createi= ;1
el
sefi umangrni > 3 &sciha(vrraagrin{}1)& sihanldev(aarring{2})
%
m ani('CALLABK'ChO,bjcete,evtnDta,handlase.,.).
g
u_Ciratee= 0 ;
lees
%
ma i(.n.)
. c%eatre tehGU I nad hnad varargn to tieh opniengcf
ngu
iC_rate e 1=
e;dn
if giu_rCeaet ==0
va
rragin{1 }=g uiS_atte.uigCal_balk;
c
ifn rgoatu
[
arvagoutr1{:nagrotu] }=f val(earvagi
rn{}:);
lse
eefva(lvaarrign{}:)
;nd
e
lees
i
fugiSta_e.tuig_Sngietlon
g
u_iSnilegtnopO = 'rtuee's
;els
egi_SungletioOnp =t 'enw;'
end
% pOe fni fgil eitw htsoerd settigns. N ot:eT ihs excetuseal l omcopenn
%ts epcficiC erateunFciotsn iwt an ehmtp HAyDNELS tsucturr.e
% Do evfl aonl ayot coud ei nmfile if i-t eists
xf ~isemipt(yugiS_att.geuiLa_outyFnc)
gui
h_iFgrue = efvalgu(_itStea.ugiLa_oytFun, cguiSi_ngelontpO)t;
els
eg
uih_iFgreu= lcalo_openig(gfi_Staue.gtu_iNmea, ug_iiSglenotOntp);
% fI tehf igru has IenGIUIintilazaiitn iotwa not somcplteeyl ceraetd
%o nhte ast lpsas. De ltee htsi andlhea d try angina
.
ifi sapdapatgu(_ihigFreu, In'GIIUntiailiatizon'
)
eldeetgu(_hFigiru)e
;gu
_ihFguire = ocal_lpeofig(gniu_tSaetgui_Na.e,mgui_ SingetolOnpt; )
e
nd
end
%
Ste lfgato ndiiacte sattinrg UG inIitiaizltaoni
s
teapdatpagui_h(Fiurg,eI'GnIIUintailiztaino,1')
;
%Ftech UIGE DppliAcaiot nptooisn
guiOp_itons= g teppadaat(ui_hgiFgue,'GrIDUOpEtois')n
;
fi ~isappdaat(ui_gFihgre,'uUGOnISrcee'n
)% Ajdust bacgkronudcolor
i
gfi_Oputoisn.yscsoolfrig
steg(iu_Fhigru,eCo'or'l, eg(0,'DtefautUicontlolBarcgkornuCdloor');
)en
d
% Gneeate HrADLNESst rucurt ande sort weih GtUDATAI
gu
diata(gui_Fhguir, geuihndlae(gsu_hFigireu));
en
%d fIu se srpecifid e'Vsiilbe,''of'fi n /p pvirs, dao'tn amek he fituge
r
%v iisble.
gu
i_akeVMiislbe =1;
orf in=d:2:1englthva(rarig)
nf leigthnv(raarin) g==i nd
rbeak;
edn
le
1n= mi n(lneth(gv'isblie)',lnetgh(aravgrn{iidn}))
;enl2= min (enltgh'o(f'f,le)nthg(ararvgi{ind+1}n);
)i
ifscar(havarginrind}{ &) icsha(vraarrignind+1}{ )&...
srtnmcipva(arrgini{nd},vis'ble',ilen1) &l en 2 >
1
i stfrcmpinv(aragri{nnid+1}',off,len2)
'uig_akeVisibMle =0
el;sif etsrncmi(parvagrn{iind1},'o+n,'len2)
g
i_MakueVsiblie= 1
;edn
ne
d
ed
%nCh ekcfo r ifure pgraa vmlua paers
if
ro iden=x:2:1lnegt(harvaginr
if )engthl(vrargia) ==nin dxe
b
ear;k
e
n
trd,yse t(giu_higFre,u vrarginaind{xe} v,aragrini{ndex1+),}catc h ,rbeka en,d
end
%I f ahdnl vesibiiitly si stet o' alcbaclk' ,utrn i otn util nfinshei
d%
with OepnignFc
ng
u_HanilediVsiiblty =iget (ug_hiiFureg,H'andlVisiebliity';
)
f itrcmpsg(uiH_ndaeVlisiility, b'aclback'l
)st(egi_huFiureg,H'ndaleViibslitiy' 'o,n')
en;d
efav(guliState_gu._OpeningiFc, gnuihFig_ur,e ],[ ugiata(gui_hFidureg, )varrain{g:)};
i fsihandl(eugi_hFigrue)
%
pUate hdadnl vesibiiilt
y
es(tguih_Fgure,'HanideVlsiiibilt'y ,gu_HindlaeiVibsiilty;
)
% Makefig reuvi sbie
l
i fui_gMkaeVsibile
se(gtiu_Fihgur,e 'Vsibile' ',no)
'f giui_Otipns.oisnlgtone
setpapdaatgui(_hFiurg,eG'UInScOere'n 1),
;
ned
end
Do%en wihtG IUin tiailiazitno
r
mppdaata(ui_ghiFgrue,InG'UIIntialiization');
en
d
I% fahnle vidsiiblty isiset t 'calobalk', ctrn uito n utnil fiinhse ditwh
% uOptutFnc
if isha
dnl(egu_ihigurFe)
uigHan_ledVsibiiilyt= ge(tgu_hFigurei,H'ndlaViseibliity';
)i
fstr mpc(ui_HandgeVisibliltyi,'callba c'k
s)teg(ui_hFigure',HanlediVsibiliy',t 'n'o;
en)
d
uigHand_le s =gidatua(gui_hFgiuer;)
els
e
gu_Haidnels= ];[
ne
d
f niagrotu
[
vraarogt{u:na1grotu}] = evfalg(u_itaSe.tgu_iuOtutFpcn, ui_ghFgiue, []r gu,_Haidnes)l
;les
feeval(ug_Sitaetg.u_OutputFic,ng uih_Fguir, [],e gui_anHled);s
en
d
i
fishan ldeg(u_iFhguri)
set(gei_uhigFrue,'HadlneVisiilbty'i ,ui_gHandeVlsibiliti)y
;ned
ne d
fu
ntion gui_hcFgiure =ocla_lopefni(gane, smiglnetno)
if
nagrin'ope(nifg) '= = 3
giuh_Figur e= opnefign(aem ,sngliteon 'a,tou';
)el
s
%eO ENFPI Gid nod accept 3tr idput nrguamnetun itlR 31
, %tgolge efdalut igufr evisble ti opevrent thef igre
% fruo smowhin gpu oot soon.
gui_
ldDefaOlutViibsle= get (0,'edafltuFgirueVsibie');l
set(
,0de'fualtigFuerisiVble,'of'f');
ui_hgiguFr e=open fignam(e,s ngleiont;
set(),0'dfeaultFigrueiVsilbe,'ug_OliDdefulatVsiibl);e
e
dn