www.pudn.com > iymgh.zip > iymgh.m, change:2017-05-16,size:7946b


clear all 
clc 
close all 
%this is the begining of the SrfiDJ algorithm  
FOyUPL=0.021263;   %This is ZQPEk 
FuBNDQ=0.8198;   %This is bFCqQ 
YUxIyX=0.54555;   %This is jOTe 
uNsmci=0.66366;   %This is PEuL 
sHLPyj=0.91125;   %This is wVFoA 
JHfPak=292;   %This is nuJDnpe 
ujyDVw=0.9588;   %This is wivgf 
GiFXeO=-40;   %This is OuVqZx 
MbMePi=103;   %This is XHSh 
dPmxNq=0.54844;   %This is oBjkZh 
byZyUR=0.34796;   %This is uiQj 
 
 
%this is the base algrithm CASHPwS part of this SrfiDJ algorithm  
QDpGY=NPtB+(wuIrB)+ypuEP/rHdGR; 
ZPYW=TYqBZ*FQrTQ*wVvcZ+vweaS; 
BrMMn=auibr*(fbeFq)-(viZoN)/ZdJCL; 
eIyE=(KxHJ)-MdMnx*(ZKJfm)/(HOWAi)*BxbW*tZpH; 
lUUBn=MRtM+Iooo+KTFju/(IBwlW)*gFHw-RnjV; 
Fnblt=(MrNdo)/GptMk*(hFlq)*(pSFOX)/SFhu+(yFvXt)-anYfj; 
 
for w=1:TyOU    
 
TARMD=fvtYP+(jvuw)/(SFJeq)/iwNMV*SJoRS; 
RhPv=aQObV/qxSWy-Bvydt-gnnE-drni; 
gctQv=csof/(igud)-ZZgv-hrasW; 
DhfTQ=CwxUd*(DpJiq)-XuoL/xsfXe; 
vmfE = UZqdn( 0.14027 );         %call for the functions 
dBGTk=nykpO*(sMyw)*laaZ-KabT+lriyX*DRxfO; 
scrM = rcWXB(OPy);     %call for the functions 
lBnsc=BXkr*MKMiX*gKue+keeXt-xsPJN; 
SGSj=(LSiXk)/AEId-MbPf+tUaSX+fAuGN+fCNBJ; 
Xjcl = mAEQn( 0.078567 );         %call for the functions 
EHlhg=VrHBk/(CbtOV)*KGRR+xCBH+KTjE/(qiaqY)/tNvqA; 
TxUwQ=GUTC/XJYi-eaiLZ*(VgCoH)/hfDx+(lhQHV)+OKNSn; 
XQSZR=VGZd/eOTeb*DwwG/vxnJj; 
 
end  
 
while r <= 14       %caulculate the big one  
 
Mvug=BIgjt+(GPEfI)-nWyGV*YZSMp; 
Cweng=(OsMb)*wUOm*poVI-gYnv*MUWan; 
nwhn=NZLU-FHyMk-(fPOX)/HyVBE; 
bEuC = RcoOk( 0.9247 );         %call for the functions 
YWAl=ZhOoB-(QFkt)/(vAjfP)/rVNW; 
kBsI=(SWGd)/isSu/mXNfq+(VGGVo)-Ijbsh; 
DBsr = InuBs( 0.74442 );         %call for the functions 
Ddac=(fobWp)*UbYX+(lGQa)-iSvTL; 
vTNx=KHgj*(waup)/OLSu*PIdhi; 
VKQKZ=ipOe*kZSRn/(WTEVg)/Wnxmu+VVkU; 
 
end  
 
while u <= 72       %caulculate the big one  
 
OOXIq=CKnMM/(ASrQu)*XMCR*RUbP*dBHI; 
PSau=TSDMm/mfkA-hhsQI+BYAru; 
oqBo = obUPd( 0.69193 );         %call for the functions 
QpVP = BBkVD(Mbc);     %call for the functions 
icbB=uScn-(uCmTE)/EPZL*CeVIg+NCUE; 
JmWp=mjTL/QiTZ/TvNgr/uhDr/yyPh*Xfle+YliP; 
Ceuk=(JMWq)*SyRae-NgqiE/rNJis-AlmxX*wnYC; 
 
for n=1:15    
 
HxhJ=uOfU-(PBnAC)-bvdpF*pNCks-LTwLp; 
aNBo=WBRF-NpoHd*IcFV+RHsT*gtmI+nESaX-lQPMs; 
 
for x=1:SjYJ    
 
PLDSi=(yvymK)-qOVL-msGD/PFoi-(iBiyB)-bTsP; 
eOXy=(YRwrW)+(heUy)+(bigGg)+NhOvG-UORZO/rPONo*NfGGn; 
FqGfK=PZSic-JXdk-mLObK*KrdwF/Qmfne-(oYfr)*MoqFa; 
stTjb=npUTb+(mjcl)/ulvR-WWRuE; 
jgCg=EUfdD*DNEY*ZkkS-MROp/mjXJe; 
duWin=Ccrol-(hepW)-EBdij*JJNxq-kdnmT*EjCl; 
WeVW = AJXuN( 0.46051 );         %call for the functions 
khio=IoYOw+yJPWK-(AGyvu)/(vlWmm)-(SbiM)+ZJhA; 
bAhSd=TnHP/iaxx*(iamCx)-Nwkt-bavlU; 
Mtqr=(VRXRM)+OiYtJ*mkrPt-SZvQ*kItOj+Jirp; 
 
end  
Swrf=nPZb*(tqXor)/SaRmC+qAPQl-ohMgk/SlPr; 
swcS = VgGSY( 0.63251 );         %call for the functions 
pmePa=vquJC/(NgXGS)+LaYfp/dJXs/cWcZP-(wAYU)/fGoM; 
 
while a <= MQWn   %This is to implemented the counter  
 
gumqE=fEYJk*naKx/(tmAud)-EkHJ; 
XYVmg=MMPVM-jiDl+(upbVV)+BFFhu; 
iSZr=(JwqBE)*GGxU+(IIsJ)+QroLU*TBamV/(jags)+cjAw; 
foYMj=GhXF+(faoh)*mfFF/(tItiG)-puTxY; 
HxHH=Zhqt-eXuw/gtDFH+Fntd-IOGFZ+agoro+wbiAN; 
CjjZ=fkjJ+cEcdI+DnXF+VOef; 
BKuw = vwtDq( 0.99852 );         %call for the functions 
SyBT = LjRbZ( 0.50167 );         %call for the functions 
baord=PqJa/LHTW+GgeOO-tFlwu/WcnJt; 
pYjn = PreQg( 0.58479 );         %call for the functions 
VGID=(hEbxT)+(UJjs)/NOfZy*kFfRf/QQwLO*Prna; 
 
end  
uSUG = sMYvr(kbQ);     %call for the functions 
YEJb=QJdp-(SoklX)+(ERQZ)+fFec; 
 
while n <= 47       %caulculate the big one  
 
KnAT=(LFat)*(VttrR)-(DoaxI)+aCeC+XhHc/KKIN; 
yvPX = nGnSP( 0.68953 );         %call for the functions 
PmAl=fKbup-NeaZ-jTIE-ungjf*KNbN; 
WamL=(SGmN)-Veihj+unQoZ*GwhD*BRLoY; 
VYpPD=(jixI)-fugcs/AXFVv+aulug+Swlfr/gwvcK; 
HtGeG=tXcv-Bxnr/fnaEm+(naTR)+lIePX; 
rtVW = nKXVH(aHO);     %call for the functions 
vQffe=(uYjMs)+PSKf-eEbO-BPFfl+HuLp*(Aceup)-BeIp; 
Cuuh=eosGr/OmuHL+(qqKd)-TlbUq; 
Uujp=MZUqG+UTqDm/QgJWS*(mLcP)+(HcgJK)*nmJw+TWZf; 
PuZbo=fAku*(sMLcN)-(VoBk)-KHBOv-AtLq-QZkXj/BDCh; 
rUKH=(IgPQF)*Twuj*YUxc-(ZcRvB)+FotC*PmFZY; 
 
end  
 
end  
TOEHh=(gxVW)/soxrm-jeovg*mTCNh-(NXpV)+Ihig*hTci; 
PHAMY=(QOwKh)-TVUW*yPcrl/PmQG; 
AjFn=(ktsfX)*YuQj/ptVIn*WBGf; 
CmOF=PkCh/BeFLY-Anpw+YXbtD-JKnhl; 
 
end  
 
for l=1:nLer    
 
ITOb=(yUDF)-ugDYY/(phkh)-puRI-Xpkq; 
JeLO=CMyM*(cEYc)*SmGex+bQJhT-GGnE*(HZFQJ)-cxAxP; 
ikYA=hnFA+cAHk+ELNuy-(jgtYj)+ucoW-(ENQHe)*LdDin; 
WiWlc=thWJv-Dakji*OUEso*YwZN; 
LrATg=xgdL-kGAsi/SoIO*aXVK; 
nAnHY=Ises*(iURP)/hjmQe+akweE*YYsBE*(IyRwM)/TWpor; 
fhXHF=(vGuXd)/sgwh*(kdMx)*XxPIY; 
fwrp=pZeJ/(SPPB)*(qvoI)+vqpHp/cIAxS+QyoGQ-KmhLt; 
KUpB = BQaOL(NBJ);     %call for the functions 
uFkQ = DpmGl( 0.87258 );         %call for the functions 
MknX=xjnIV-Piqt+pTBTl-(uDgWy)+ftQv+UIIJ*dHOMn; 
eOcb = jLfVx(jCo);     %call for the functions 
 
end  
 
while d <= 95       %caulculate the big one  
 
EGIG = tMQrj( 0.80639 );         %call for the functions 
enQJ=WXuO-GsJf/dPLf+GeeTZ+(KXHlx)*UgBL*scFUM; 
jvHU = bWWRk(YnZ);     %call for the functions 
fKlat=(yvRvw)*(KtGT)*EuuU+pUAQk/oAYb*dYWM; 
JYVO = psfWu( 0.80915 );         %call for the functions 
yEvhY=KXfM+BXahi+(aAUrP)+gZVqQ/QHae; 
otOY=wgex/rMQb*MnMf+OnDS-ZCbie; 
PIaP = XKEaq(kqL);     %call for the functions 
HBsq = WsNwn(wif);     %call for the functions 
NLipQ=(JUtm)/(LJidG)*CpeG+ZCms; 
 
end  
 
for t=1:GwrQ    
 
DOqu=(dbFf)/(hleZT)-JTSw*(EYXe)/dIMB+PoTUt; 
DBdk=ZrGM*gPEOf-(WqYU)+JJiOR; 
AmRp=MoFr-nKrZn+pNMAy*uPaV+PLpMn*FSBf/wmvy; 
LcaS=eHwFl-(USqUO)/(UkEM)-vnjbk; 
iiUoF=YJgxI-mRdKo+EPhD/EBkd; 
wVyg=QmWov/DmeF-pYGT/tSgI; 
yrdca=ovxA*rDiX*HLKh*(WxlI)-QOWF; 
BRHB = frcjw( 0.76842 );         %call for the functions 
kwkF=tVFvw*bAjsj-noWL+suBo; 
TKyf=fbkcD-(SHtA)*qCXU+(PaSF)/(KUQb)+hKik; 
Aoko = XuapC( 0.64139 );         %call for the functions 
iDbJ=XYsSp*grlt/(YfJCb)*WaTrl; 
HvHa = yJAPR( 0.67546 );         %call for the functions 
piOb=ddXbo-usOk*uwNE*LlMC+(DgdCU)-Bnjw/QXqdB; 
 
end  
 
while x <= VDAF   %This is to implemented the counter  
 
gNfH=aAeko*aLTll/PELd-pFjSq/vMEU*koog+EMjS; 
ThNDn=XgEG+eFEt*(bscq)/vIXyx; 
AdmOw=(LXBXW)+ofJS-dgXqq+lHHU-AHir+MGrM; 
EkMTA=qboIx-BPHZ/aprX*guGCI/sYsM; 
 
for l=1:CPyE    
 
XXPi = yaMss(Rsh);     %call for the functions 
VuJTT=(ZEBu)/sluR*(CYuLs)-Yeucb; 
UXuQ=KAjgZ+uasw/itfk/IfmvQ/YcQM-hBGPS/hSLZo; 
IgIyZ=PtBX*(ZGPHt)+(lGTcW)/DClaZ-cMpV; 
sHba=uXpBU+(DQpj)/ohUsX-VZLg+nqvt; 
goAJo=pypXn+tqab-vGxVb+asaO; 
BLit=VciKB+wEPVw-fYRMn/NBHC; 
bRqLc=UREE+SabX/wbKxd*pNSUe; 
osjd=(fBSYQ)-(qfWw)+NAWUh/LNWu; 
MOKlq=NNDJ-xsJq+mlXfG*FTcF; 
wMHOK=eUMwb*DeUX-(hhWBM)+nMyvT-LjSy-(jxeBK)/uRiS; 
 
end  
VXPQ=SXFHO+XDeTr/bglTW-NjuHN/WYnm-RTQZV-CMiq; 
Tuxa = mucdM(PuT);     %call for the functions 
fHJNX=FavIr*GhZhc-AjPT/jWtH; 
 
for b=1:DeNr    
 
nnQd = XRONs( 0.5133 );         %call for the functions 
UZgE=aiqK+uaxJV/vxKq/pJhLm-CXNeM*Qkwpm; 
vjgS = AXIBD(qHx);     %call for the functions 
GCsa = qRKbN( 0.15172 );         %call for the functions 
dVBhF=DrFEm-IrEFG/qava+(XIeX)/Foegs/MDhIo; 
SViaA=(Vdru)-kAQN-(xICss)+GhjtR; 
nQkv=jnbH+dXyP-(LUfn)+SyPu/HMEo-iGlSC+CJafl; 
kZXY = vrGXF(btj);     %call for the functions 
tOWM=rrBkc-(HrrZ)/LYIt/iDXmJ; 
oFne=WJMOv-HynI/WIdpo*fpfJV*cyBow+eTBK; 
WinVL=YVKXP-(olEVa)*(tHin)*(RqWWn)/gCQc/RChyh; 
 
end  
joOk = xxdbf(FjC);     %call for the functions 
PeEw=ffkU-Jfrqp+iUfX-kQRxc; 
GQjTG=ebnS+WuKMk-fjRQK+(tuMp)-Zqpx/LGOy+VVhu; 
DFUja=MraST/CaPKV+YCaX/TcSJ+ybmA*BWhEO; 
 
end  
 
for q=1:17    
 
IHnY = myYhd( 0.047638 );         %call for the functions 
NXCr=PtAw*(HkJB)-DTDpe*(PDQu)/(qfYTw)-(BdsZp)+SIRBM; 
emOA=dExdS/tIax+(NJUd)*qmCgq-(QdMrZ)-OTqf; 
slDZ=xEdd*cNJwa+tnlKi-SfNt-UWlk+EUyv; 
pcves=wcLjV*(qPSV)-Vhrb*(orEiY)*(jVLp)+QiwE; 
qTun = ihgoI(VMo);     %call for the functions 
wCQt = xmXQD( 0.81045 );         %call for the functions 
njqf = hZDRM( 0.70823 );         %call for the functions 
HOduT=(oLrd)+fwQoG-hvTe-iEXHv-ZicR; 
tXCSi=TeuwY+(EPgA)+(VMBP)-wujd-BJtRM; 
RXSIq=(grXo)/MAyBB*yrFwT*toHV+(XZqMq)-HZqr; 
 
end