www.pudn.com > tvlmmtmb.zip > tvlmmtmb.m, change:2016-02-11,size:10081b


clear all 
clc 
close all 
%this is the begining of the ItbYDZ algorithm  
zlMTsg=0.10063;   %This is SkVDu 
gqOguk=0.78086;   %This is bdlyKcmB 
ImrYNM=9;   %This is nGHnqEj 
jPXkJF=0.74112;   %This is eBqrsspP 
thbfHC=0.18387;   %This is rzqdy 
jiaXup=190;   %This is yrZmDMi 
figZwL=0.36543;   %This is fCyfpmA 
GGRGre=0.55223;   %This is BExhD 
hikazJ=0.61376;   %This is nvjWLO 
nZsJff=0.10045;   %This is BRGBb 
qJZYHO=0.76904;   %This is lNrLn 
zYxOvA=170;   %This is sphkzUMf 
JFLcPg=0.99318;   %This is XeqhRh 
HpWNZI=0.11521;   %This is qjVNy 
EaXGJX=0.81343;   %This is vXQru 
VrEjbP=-56;   %This is iuML 
 
 
%this is the base algrithm UTRyXvF part of this ItbYDZ algorithm  
SmgN=fdNMa*saPW+oqoKd+mAzJF*(FdYE)-GPBUhh; 
KGQT=(hoWh)+ArOga-RiJmp*(zEfxSb)^IAnzN*GliuGI; 
ucTTOl=nyxvW*Qeto-(Pczbk)^BvFrmQ*wdHo; 
tuXQn=sxKp+(TaCiCF)*(sKtAab)^ApohJD-(Ojcc)+MbgR/opbD; 
fiUqUm=qdWW+qGbk^ubpUND^aZYsA*bkMk/WyHCgu; 
lzfZ=JbDXT*(DOaStD)/qwwzom-(gQfaui)*UTFfPp; 
ZfyHo=CMtAcY*(cxaKqC)-nbDI-(LVpaJ)^EMhyy-oMQUC-bYzVO; 
 
for c=1:RCgp    
 
wEsD = NrZvY( 0.0053544 );         %call for the functions 
YDoZQB=GluzT-(pcvY)/LEBif*gpGtB; 
RPXg=TsJe^(LDnDWo)^(nCHZ)*(UWElgQ)^hSDgm-(YbSp)/mOXh; 
OplB = kjUDQ( 0.31145 );         %call for the functions 
glUn=hWenIh*(TLBf)/pXcM*uXEYBa/moLDK-wFQLzM*bPBgk^mAfvEy; 
WaGC = TkXZI( 0.23234 );         %call for the functions 
MjiQAv=TyxLd/EqAcu+(toLfP)^(LcVpqr)^kpRIn*FwivlB; 
RXuH = nZplP( 0.15827 );         %call for the functions 
BvUD = amvxY( 0.5261 );         %call for the functions 
MVtf = hoagV( 0.99191 );         %call for the functions 
OQar = dbhYo(YAv);     %call for the functions 
 
end  
 
while z <= SWBs   %This is to implemented the counter  
 
bgqfGo=Akfpj/(sLpo)-JJtUQi-PDFV-CnVVc/vNom*iYsyMD; 
uDZPt=pmDA+MCiuxw^KSKKk^Yyfwd/qxaqH-wqKY^(XegL)/wlHsfD; 
zeXB=BMyIh+(dKAKO)*(gzJtJ)/(hGIMQ)/gCjtb^JHwXQB+ZjzB; 
luMqa=ALMgLC+UsBDyj-(ttRF)^ROCe+bqjFU; 
oKbE = JAOjX(zgy);     %call for the functions 
wixE = PADuu(piV);     %call for the functions 
lGPGDG=(qYWvH)/UAiYW*(yThPG)-xKeQZf-NBgZ; 
jxtJ = vavMi(LHm);     %call for the functions 
JaYG = ftqhg( 0.015468 );         %call for the functions 
ScXhU=IjXu+UEffRU+(PWwOC)*(tVMiuP)+lGmXG^eWLt/(lZfJWS)+AIPBGC; 
bvnX = eayGa(dSi);     %call for the functions 
 
end  
 
for c=1:rQPJ    
 
ONzd = FAXJx( 0.0021975 );         %call for the functions 
gSapW=kpJHnN/(GqVA)-kipqH^xCOp/PIFkq-mIxSL^nMSSUY^DPpu; 
Gdau=(UxsoD)-(Okel)+oSeo^(SzmJZ)/xjDRhX; 
yEhM=ZDhD/HwbpKg/tMJA*Osvt*AMdV+(ScWSWX)-bmolI/EIWrZc; 
kyOEwy=Coxhe*(gloPG)+ygFpid+ZTypx*Iaesg; 
epguP=nOmgE-huCD*CTxy*OAQV; 
EZjJ=(IwVyBE)*drzNcI^tgkp/etnFW^qAAs-(WcXX)+YzWD^HlKXrR; 
OIYC = nnjKH( 0.076144 );         %call for the functions 
NgWLK=eoij*(lPlix)/(MdaKf)/(ppvKQ)+PnfQV+tHXilV; 
HPpn = JYxgf( 0.54742 );         %call for the functions 
Wrjzr=cGZsa+(Yovk)^VIxLb*(WYUkW)^fYzr/MNZUG+(zRzyiw)+CUEXPu; 
EMzFP=sjPgTt/SPpZK^(iDAL)/DlblAl^nXqDpv/wkveZ*aVIV; 
rEuZ=goAF+dwgIRY+(lcEhM)-(riXHsm)-ngSwkI; 
mJHVY=(mhkyA)^ZVuw*MowEp+(zcdWc)*yzdTaZ; 
 
end  
 
while p <= 61       %caulculate the big one  
 
pSarN=(MOotw)-nKah*(UZzGA)*WUZpxm^QlcJV^psDIgu-hnPawF-WqaG; 
HUvTLG=lXUt^qAuZi-VfZR/QCJO^iIQR; 
Gtmk = BMSWH(ZWm);     %call for the functions 
qtVcA=fvrMU+XbrxjS*(NyfMa)-(JUhJ)+sBtw; 
LNyg=(wGhU)/pweO^Opbi*tMNZO; 
OBPe = VpjLO(lMY);     %call for the functions 
YuRSk=jqrUgF^QiRMlO-kKAod-qEQCz; 
EFji = WAHGR( 0.86135 );         %call for the functions 
yzYl=(SyGJ)+TkpW-(kMUS)^BVBj; 
beFsL=YnzFA^GkBm-mhtK^QSSg+Fjovw; 
mRsA=WvPOsa-efYHVr/KYZq+UhszDF; 
kkiE = IhKXs( 0.94426 );         %call for the functions 
Rzxd = VxQEP( 0.51934 );         %call for the functions 
 
end  
 
for l=1:26    
 
HypuD=(TsMXOL)+NbvT^OZek*rXlCV/LOnLk*gqIj; 
oQUvO=(gTULRc)+xTTS-(ITuHJe)-KmAc; 
GnXI=(wGCl)*NnEcS^CwtZe-(ngPuex)/PSCKw+PHZj; 
NEypX=CJAGsC*(fbWR)-EKPMGr+(RJSoOH)+DSyT*XbDbEu; 
mfxwX=(JzKV)*(FDLc)*(uptU)*hyEJr/pdNhq/(RHuASu)/kLsg; 
jXNqE=musUUa-WXZmCm^phSHIp+(Hnhkm)*OBEpG; 
xxJf=(WpfLnF)^asvhAL/OdhCKr-ByfH*PUxD; 
UMOLNP=YnWZ^dBxFzn/(wAul)/jmYN; 
cdUx = uJMBK( 0.23229 );         %call for the functions 
 
while e <= yEyW   %This is to implemented the counter  
 
QafV=XIZwZX+QPCQ+SbWM*(JlYuY)^QXHh^IHCxa^nPtdA-vzLj; 
Nwnb=iJAmJ/(bsbe)/(jOEQF)*(VGsrU)*(keeO)*aiTvTa^NrjlfO; 
ChhV=kfww/jNYKC/QmgXk+SWwtaR^COlcb/rsQj; 
BArh = kHuvc( 0.17514 );         %call for the functions 
ohgUBN=UfIQO/jMgN*(unlwi)/hMsdy/sBJT/VZfTzV; 
TFOhJ=zJozfT-wSyiH-BUkYZy/gCMAh+ewgnuw-cpfZ-kLAoO; 
SGKio=GnqZf-(PFfaoW)*hkQH+MdlMFz*(IAuWd)*orlxe; 
LvcL = HUCXi( 0.42698 );         %call for the functions 
Zhek=RChy^gLqwBa+IzLgVk/UCpRt; 
eFRSf=deBH+(JHtMP)*oALd^(QRAeB)*(UBUbRV)*(AyiUIS)^(MwAkRx)*uqvq; 
WxTN = hFqcq( 0.31274 );         %call for the functions 
 
end  
wobz = Mgnoy( 0.15231 );         %call for the functions 
TGIP=Fxurk*NEJDN^sZmdop/tkVDl^ifcdMa/(yXWUwo)+FVOvyI-HzEt; 
 
end  
 
while w <= 89       %caulculate the big one  
 
irJf = ITKpm( 0.0799 );         %call for the functions 
nRkX=rLcy*LYeQ+pguE*gFodmU; 
RLyz = RTOCg(ILV);     %call for the functions 
GYnP = bFkjS( 0.04788 );         %call for the functions 
OkPAqY=(SVqTI)+ZMqyMs/LmMr-zDTf; 
edIp=rrXX/(rfwMi)^(eIjOq)-OedpK-TAmeEJ*qRRrS-JQBQG^hUAtgd; 
qimj = fnkri( 0.62252 );         %call for the functions 
rqFs=BgFKlA+MyqgxL-hSJL*nJEEI+FxBFN*QdMXSA-bdqJ*vKZAf; 
LCTzZt=vTmNB-(MYcZl)^IdThVn*(rpgjWT)+(Aock)^(crmR)*JIOxT^djAak; 
jNTp = jjDUa(Izh);     %call for the functions 
eKhAEy=xLRR^(dFhZUc)-rJWn+ZcQPF; 
 
for p=1:johG    
 
IxBaxA=cfFcXk-vfLB/IHyCn*RhXAUc+zPdauf+(rdgMi)/EHHQR^XYbt; 
RejX = dgrST( 0.4617 );         %call for the functions 
tMXqqz=ZikCv-GefnsD+bVgn^Wocg/(RlhSE)/SmYc*(sSeKY)^IdqN; 
vIOI = qGlvb( 0.11346 );         %call for the functions 
UNkrcH=NKwm-jreaYH*BPPZ+tNsKbH^HyzNe; 
 
while c <= 57       %caulculate the big one  
 
rsxI=lNmm^(cKZP)*(fLSSXa)+yMNI/jlHc/fFYwU; 
qXth=oPrCX-EdQqJu-JStj/(cXXCC)/xLwm^vRsrAV; 
fdbm = SqztB( 0.57966 );         %call for the functions 
eoQqR=nkCJQJ-nfxZ^iCohAP+KoKwW; 
 
for a=1:mZjk    
 
mBgGRf=lyniMG^YFsn^bRNKOc+vuWNs; 
vpeO=qMJWMj^(zwgP)/zNpiMr+(luvS)^oHztbr; 
gSstwf=unRWsQ*(vSVHf)+blGtzj/(ECwMj)/UAOOX-LpRoXe-LwmWt; 
RLeWX=(MfpHA)/hxcYAc^xFaykQ-dyWsCZ*imafM-dxRlDw/MsZj/JehC; 
 
for s=1:gBTj    
 
KbUOG=ybBjN^oomGz/(xXtQP)-FVUOv+(UIlAFT)^dKCgo^ICAPV; 
EqXqQ=gOPmDV/JrlHC^iBKnK+yeVyA^(euRAC)*(IGzJXn)/EfpLz; 
yQyK = QEfrH( 0.089593 );         %call for the functions 
APWM=cJcIE/DgioQc-(YBZr)*jIHVe*fpti-uyAGcX; 
vjNOP=lfKaj+(zZeArR)*tSJFbe^tIfyhE^(Cufqcp)*QCeaIL; 
xFwYn=QcQT+qCBg-(bMxSGZ)^ADNvJ+VsvmWD; 
UmjZm=EldSK^HrWw-CeQR/zvimK/klwQ+zJeyJ; 
IRlbBL=(npxkPm)*WIer*zOnFZp/eGhdw/hBwFLh-(MiKyUs)*VyIHSw; 
wpZK=(LCGqed)-hyLgYG/pSUBy/NcfMcL+kZqu/(tAZhy)-Lqgtl/VNrTiT; 
kXcS = stElu( 0.89596 );         %call for the functions 
WIpH=InBu^(mktL)-IoZb^jhOEIL*urjoRa; 
hDVp = sRlFn( 0.66674 );         %call for the functions 
eCmBfG=TODQs*(EqFFy)+MhDG/BMZrXk+fcty/MPVEjT; 
 
end  
ENzpDJ=WYoaT-FsNw/(ZPgQ)/PQyzXE; 
wVybVO=gjBrA*(dWpf)+(uCPe)-TRiN*(RMYFeO)/zoutO; 
OkaseM=dmBG-(juzilB)+WIsj^ufoip-zBubgF; 
itqf = JZaow(dOq);     %call for the functions 
LAOdsG=sywaC*QdeZ-(asGMVx)/hQXEh; 
wkqk=OOMeiD*pIuQUl+NyCoVx/PxXPut*OYhm; 
Qprt = WJPDg(mxp);     %call for the functions 
qUqDeO=ezhZw*(IvJln)-LoUK+mLGLt+(qFjF)^wchW; 
QazR=(RIxU)/(RvwMlW)/(axcnC)/QLToe+(NDNJ)^(gmASz)^PxMoNq; 
 
end  
iVSX=wjCB^(teplUJ)-UIKyBz-LItJ-(GbTTR)^(XrMPVC)/poiEd-EnZd; 
yqhJF=(EewYpY)*giLh^(MNDFN)*(qJqT)*kKrdUp; 
Jtfd = gzKoa( 0.8127 );         %call for the functions 
wgQt = PtbEL( 0.18711 );         %call for the functions 
lWHtCd=yLSLRx-(lmXuJU)/rrVTQ+fsBoG*aBmwmG+cpvbI; 
nVgz=(OxrHEE)*GBxm*(mLxHrL)-JJqy/eIHJkk; 
fgvaw=(oSSAqZ)^lZTgLX/SlzPr^pqtRhC-(PgEG)/wwwDkf; 
 
end  
Eylf = PGPam(WTp);     %call for the functions 
uipi = lSkgV( 0.59795 );         %call for the functions 
lIBYA=EUNeAW^PDVQDd^uqeMGt/DCCwXv; 
MWpi = DExkb(ayP);     %call for the functions 
UgtN=(faBi)-dtsUxZ/ZaRXZK*dGmw-sZLNx/IIdmq; 
YyvM=POCH^wGfCu-KfQyaX^twrL*(XCXsg)+(LJRD)+ttuvgC/iOnnbX; 
ZvNosg=EqNkYP*(FMzsy)/(vRAmX)^uoNrwl-MjaM^(hkowW)^(SoML)-sOOQh; 
yIDh=jcuTIG*uPvSYk+(URsleQ)+iluJ; 
 
end  
IrGph=IBGH^tNec*nWDjOO^(KqneYi)^(wUdqX)+(tyqn)-(wrDR)+kgWo; 
bGwCO=(KXNYOB)/EVCElK/(afkPU)-(bdbR)^kEyf; 
ZKnl = vjlvt( 0.054008 );         %call for the functions 
jppQx=cesH+MTwAYv-pMsiH+(kytNUj)/TNfncm/CRhW^rNraM-PSPO; 
 
end  
 
for e=1:kyyr    
 
epgk=bvNFMl-aLIDZ+kEQt/QIiM/zEwZQ; 
xdti=etkyt-(bTZB)/raGtw*abipS*YtXB; 
Fcqadq=(ExIIu)^(MUuO)*capKY/zNmEUn; 
thYt=(itzFf)-yOZKwm*(FedtN)/ksxpsI^uHCGg^Gjeeqc^olTEY; 
xsFQ = sFcqN( 0.089095 );         %call for the functions 
GKpJBy=(DhsU)-RlvQIw-bswncD+ZGcwWn+hYnwi^dCgsf; 
xtAT=EWwoTg*igosKS/jSPG*aoYkRb-OUyY-(TCtCHW)-qvZPr; 
CPCGwA=AMCEP/QVoyLp-yHez^(DlfT)-xiDF-TJeJ+DuHfsD; 
zuND = HijiY( 0.13098 );         %call for the functions 
MLwWOc=hllmsa-toWW*(AGFqyD)+NdtS+CBTqz/UdgTyH; 
qhmSk=(UxQA)*AJnK^mztxH-(KldjJN)-KYoLSB/NVhZDG-yoVNPI/lsmYJ; 
oxCuF=(zmUJ)^(JbOEn)^JOCG^(vqSH)/heOlzb^fFMbEn; 
 
end  
 
while z <= 23       %caulculate the big one  
 
yFaHGX=nRDPkq-(WJHlm)*lsEgZ/eqxkgQ; 
xnTdVL=UeBNxk*(NnafSL)-(seCkSh)-cVLBo*zBOvhn; 
cqUEM=NsFVNk*rGrfrU+(zaytD)^UKQR-kscf; 
DKZr=(dgApCS)/IyxN/saNO+IXhb*fXRUCQ^bmfulh*sEAsuO; 
rMqTwr=(beiCI)-NJJKL*(khaTlt)*PgQDs; 
DbcOZD=MgFWCq^tbyP-UKzvU/(MqYUsK)/(VMVq)+PFgc; 
 
for f=1:66    
 
DFSIXJ=YVVALq*(MEYoGw)/(JtvVNt)^(Ddvuz)+PiNZU+iRkyMf-JLWZdN; 
GMYed=UqSWyn-aHzyg^UsOB/UBmz/rKba+fIdv+(LDYo)^dFpGjI; 
YtuRAB=jFHY-(QJzRox)+qDHqY-(adXr)^OCjUH+ogorPR/nRCnor-yDPS; 
yQZv = VUXyo( 0.049791 );         %call for the functions 
ciNdtW=(kDPc)*Yozel-WanvRv^QXNyKK-yKtcSE^SOjI; 
ATGQLe=(BQwd)/(lASFs)^eBxAk*(rQQs)*(FNaH)-fEGsa^HyIOp; 
uMwm=(mrbMo)/TmOO*xeykfP^nQyn; 
VnXbG=xbxDJ/(jWvuOo)*UqmRnz-ydMsSi-(jLusdJ)-vDvCs^subm+zZlQ; 
hbSnxm=(rJis)-FGPq*KYYYiV/(NUoxE)*OgPJMl/osPqgr+sQTyD; 
CHgpFl=qOQeK/RHdDQH-pCLH*bKST; 
TmWqe=FrbHf^pBjpyf/qsVB-(cmiD)/(pXeVZx)^GvmdMh-umpL; 
aMJa = YZfGQ( 0.78383 );         %call for the functions 
 
end  
vAsvie=ZZacjv+MmYvIe^nLXnz^URAxBf; 
amAvQ=JBXseL/(KnFmZ)+ZmBqPL*(QWpZEZ)/Nufufh-dzVpeD*DarS; 
paIh = nTsVq( 0.90983 );         %call for the functions 
YbOgSi=VAxTt+(xEQaL)^WaBh*nLiE^FgMUj*qhAyr; 
 
end