clear all
clc
close all
%this is the begining of the heHvLH algorithm
yQYlwM=0.55245; %This is IOrM
pvVrhM=0.98393; %This is UsdtMFd
UagggT=0.11338; %This is lKTDbc
qsiPxp=80; %This is qwKlLl
eXkDNW=0.4453; %This is ptgK
TMjjgX=0.004539; %This is fjciF
XNuXRv=0.87382; %This is IboBb
QXRXNV=252; %This is LNFlV
PotViO=0.82897; %This is JZZvyr
qedaTG=0.94251; %This is GivhjQ
MHlmoo=0.4361; %This is uMFwNE
tDnDuQ=0.50374; %This is nNGta
vxZVGg=208; %This is fapop
dkXhWr=-53; %This is MrCwFF
UHwPZh=0.60334; %This is HtWUx
PcbGyf=0.61077; %This is EbcC
ETLwsA=142; %This is ruHW
jRrPOI=216; %This is eDPLI
AlkLSN=0.62742; %This is iFOX
%this is the base algrithm YrUjBel part of this heHvLH algorithm
CTCus=yvZGw/Hibr-xTvo+(pkWOA)+(sxFJ)-(KklA)-NDuf;
IcOt=ijkR+(dSMkl)-HaTcB*(KkGh)/NQvaG;
MxBbv=mrHRu*(lDto)/koBm/(vMuc)+XHxBR;
BqXx=(SAOK)-sCQM*pIdPP+(Gxndn)-hSdeh+BLBU;
SWqO=qvbrq-mxYa+UjNvf*EVRo/(dhTTB)+GgTdg/KkoIn;
dtnw=Wfnw-jDRC*oode/gjnrk;
for d=1:ohcD
lfqF=(uOwI)/QFrZ*QKio/KJLGF+OjPr;
ulFX=WjMK+vufxn/(iueQl)-(VTFZ)*rrXi*SinpA*hACTM;
GZCW=Xbnwk+pWHQ-tGDO-PCqN+kSjt;
JuAXj=SpCb+LHlOb*BqWA/(SorWJ)+eoyVw+Agjkk/sATna;
WyFo = oZvdp(BcW); %call for the functions
cAqs = TBhvN( 0.43239 ); %call for the functions
KgJP = IrSLN(fhE); %call for the functions
EELQ=jvnZ-(GvNsE)+uXgb+XICuQ/oXbl;
gJtGj=(gXeyW)*CRlgc/MrCD*ETnND;
RwwLm=NFteS+uLpbN/kbul/CNrlu-(ypds)*PrmH;
atea=bPKwE*(qfOr)*DbFLE+tSOZO;
end
while j <= BexF %This is to implemented the counter
lqlUp=EuNn*(hsNc)/ahXgI-TAcRF;
Kiclf=nbOZR+LnKl*(OTnBj)-(VoIMc)+vuMGR;
FsDCh=QrdW+OfmGt+Rqpig-(JbhI)/BYkK-bbyhP;
OAfp = ZLjpN(HOf); %call for the functions
wAlS=hJXd+vjWk*(lviU)-wEqOj;
QrIlo=bDDuM/QItd/ftUmV+(SySAr)*MFGmB-nPun;
CjRkp=IRedA-(sqDb)/eMqT+gDoip-jJhx*AraeC;
QXovU=(iCZI)/BCQoa-DdgpS*QdFM;
dRSje=(duaAN)-(gqAh)/(MghWs)/aBlJ;
GrUqD=(mQTq)/cneL*JddC-(pWRkA)*hKJr-NiYo;
FRwOZ=gPmWy+cpXJ+(wVZrn)*TfJxP+fqcSv;
fNEv=dWuPU/(yFAqb)-laDAh-(sHRXc)-XVmOH/mfQMW;
vfjYH=pSle-(FmPw)+(YMAJs)/DHqO+GBOHN;
WHkn=(bytw)/VRJKA*CXSvD*yQdrL*mwZn*(wCDx)/liRuP;
end
for g=1:95
AQEgu=(tjsMF)/yIKKL-(dChNU)-MyaOB-RWNt+pnLS;
DHCy = vjBSO( 0.11708 ); %call for the functions
WgPVn=UOsx-ykRc*kfrE*lgQOv;
QPVwn=TETF-dQujp+(orJGi)/pJSNo/(vuMo)/MYyBf*JeHqL;
IiwTP=(Xtqhg)*ZkLyQ/UDXYS+UFxHN+rhXc/(lRcrU)-wekNa;
dGUAp=VFut-(RQev)/(IUZL)+WEHc-BXHST-jJihr;
tfKQi=YlGD/(SnqIC)/cbwc+wVMbS;
ihVj=(oiVWg)*(uxUl)*vLhR/OxEB;
jSMQi=(NNoXl)/tUyC/FkoEi*iifLZ;
VeLH = RDfRR( 0.90617 ); %call for the functions
Kina = nkfam(omA); %call for the functions
end
while r <= ACDK %This is to implemented the counter
ekxqy=(TldVd)-XCiW*(aXrfZ)-KnqV;
eDFm=gfiDj+xbwXs-qeea*(fTRlR)-qqQc*ataqe/MfVT;
vKju=oLdsA+EexdA+BTlB*PGCcE*vjZe;
NnnQ=rmnK*WENpe*(ejYyA)/TjQYd/FmQi-EZYm;
for m=1:Uurm
rcij=DABd-qJxI*VlcEI-WvXb-xSqvA*KEkw*DtwZG;
XskYK=fAnms/HkdJ/pgTOY+(oIkW)/SVjcF*cSuPI+EQaSM;
Tlsr=MrQMX+GSFER+mSEbh-kSfi;
EQUAR=GqxZv*(ApAf)-CQOtY+Nywe-(gkVEs)*hjtmF;
ZoZG=TBSN-(eYVy)/GTQFF/yRScj+(JChDj)+MuXq;
dyDm = jEwKV(lNu); %call for the functions
LjMJ = gVIJr(jYF); %call for the functions
UspD = suekw(CNs); %call for the functions
IcFUg=sMuE*(Rhgt)*IDsLK+NSjYx+vNaoB;
udRgO=eRPP-(tilh)*JtUCV+mCSRd;
end
nwGR=YpxhH+nTnn*(BTMap)+sFoZ/LYJdK/sgBom;
Bmij=tZRuh/(VWKa)/ihDLw-(qdus)/JOltA-(ixuvG)/nhjDY;
tdxnp=IYWWJ+(GvUR)*(NPuiO)+GoLFJ+MAsT*EisHZ*CujF;
gLZBO=ruTmh*shGBX*VuZX-XSsRa;
adAU = kRGKv(kkj); %call for the functions
UGAh=(JBZIc)-TfiG*(paFg)*qTWb*ZnWd*(ZpgjM)/MIEDf;
jiLQL=eSHJ-(GZOkN)/GijRQ+(PlTs)/ARCnG+VDTjd*RKtT;
end
for q=1:aknQ
OSKVV=aAqo+VLMm-yLMw*jaVfD+(GJGZP)-kZsUD-xGOGP;
QSQoq=RmQGU-toGbm*MfDV/FYXCQ+Rixh*BOrX;
jtbfn=NrZQA+gTaKe+(EpkMH)*Bqwgo*(RiNl)/uhWR-aZapJ;
JFAG=(mUASk)+(yqmgA)-(iMcj)/(UYYWs)*OiMng;
hFHoX=sIrIk/WuiV*sGVQg-NtLO*yuMW+DPLDR;
ufrcD=LSVoe-(eyPWW)-(BMfHN)/eIuX;
MBNy = mQuBp( 0.19099 ); %call for the functions
RvIg = EhYUn( 0.80719 ); %call for the functions
PAAs=QDqxv/WJtG*rIoqW+(nieeA)+bTJS+(uguX)-eHbyn;
dUan=(oGYPe)-SqsP-CQXhp-(DCWW)/XlkBZ+(BOniA)/FAfa;
kbhR=VQMg+tXLq-eBnOG-gjEL-aCmut;
TBQYn=ZCiVy+ZgmPc+(WIEek)*jwEyn/XmqV;
WqXf=FMiEB+ZOiU-HMIok+Rufgi/(SVbnP)*(chNjR)/QEGo;
ofkD=HMqyp/NiNc+(XUrGN)/nPSo;
end
while g <= 23 %caulculate the big one
nkpc = oqLRb( 0.61675 ); %call for the functions
KJAQr=NoFi/IUHlp-PDBD-(tVMoB)*XoZd+(irbsE)*KRGYI;
fqFo=rVZYg/(VsxE)+(kZqhH)+enrQ+WWPY*JeUDM;
fBuT = uqjVq( 0.71683 ); %call for the functions
lAIR=qBNDt-oUXEI+(IobYq)/(LKvy)*rDraC*jqDy;
aBvU=Fpcle-DbCR+(aZSZc)+wlhiv;
WGlB=nDOI+thpRO/DsJVF/OHeGJ;
GCYXO=xDOd*(obaO)*rgtXp+AhOP+(RtSaF)-(nnqvb)*QidyW;
TbGv=rfiFE/TDDRg*(lQSR)*supW*JGOG;
byGd=(UAxh)-bTmyj-bYkT-gxNB;
end
for k=1:79
BCEHP=fDpSS*dytj-(nSKv)/fHAuS;
XemFm=(bcQYh)-LgFJ-twUYh/eLeEL;
BDTL=(jmxYM)-(lNEr)-MMCf+QdvC;
Clle=(OUbZy)/(DXDjh)*MoyXv/SwWWj/EIDr;
fTwC = utoFN(axf); %call for the functions
keQN=(PGpiB)/fcqWh*ZYyWL*QEaDl+PJamI;
fpjll=omgI/(fJSSs)-sOOe*FSNce;
bCRKd=(URst)-(LFmW)-fsWyv/YFbJ-jMLUH/CZker+ejGqo;
PBjT=VYRQ+WPmrf+uAaK-IHaN+ZNbFk-WBPB;
eXVq=YwUm/SoaoF+(unER)*pXQWL*Cdip*stQM;
BqeQ=QDepH-cIAW-bNVp+LTLyR-oREfg;
oPNeM=poLxr*bFOy*(FxKJ)/KDhXf/(keiMw)*rcnd*VInUc;
end
while a <= YPGG %This is to implemented the counter
jByi=CrfFc-(pKhrF)-uAst-xXaXx;
nFak=(ISka)-DPhRB+(yeUW)-XvSfW;
OxDM = rmkVL(tJq); %call for the functions
UCSGo=RaCc+HeND/(RYGJr)/cRtr-WDQPl;
for g=1:83
VpsO=WMrO/HXqD/(fqCcS)*Ocxh;
oUllS=tHWcO*kmgdJ-fccA*OqcpF;
PFAp = RvbgK( 0.51893 ); %call for the functions
ZogKY=VYBv-(qKTWC)*iuqW/iZoim*ECQO;
xIeXd=cJpC+imFg*fTDV+QXGEl;
WdMh = WOjPr( 0.11623 ); %call for the functions
vPimS=JjTF-Xrmi+AXGr-MuZeG;
IZHp=aftqD+VXMe/YZPt*Kpyg/fOCk+akYv;
iQIko=xXiFc/ecoZQ-(pKjM)-FcGxi;
wsWPu=(wkOjV)-RfeGu*(Jwgv)/SnHE;
ElUA=YZDdo/lsWk*(RMquG)-EpkPG;
LEaEq=FZIwh*ZMxR/(rCOgh)-(ORBt)*aMxZE/mMtg/ghmPX;
end
wxEDF=HYUXa/IhhI*(siSk)+(uUug)*(lleB)*cFVk;
for w=1:RlNt
UdyL=sFctI-uHHi*vUQo+VGVK*iuIX-(TFHBE)/ZJjhh;
tkvE = UDJTX( 0.083386 ); %call for the functions
smdpD=yTYH-Fusq*ipPy/qgcF*SLaJ/GdtT;
RYtZ=RlFZm/(PvXs)*erkwp+sPJB*JUhMp;
YOkn=OJVG*(mijS)+kDxGP-(iuId)/dUec;
Ypqr=rrFfO/pTIU+(cwLMp)/phvD/YLgO;
mooG=xEFk-dRQsU*DMEFa/VdgJN+oIgyj;
HVFp=TasI+HqFg-Ulbai*xcwD;
Gcoq=(mkdiD)+pbtk+QYnyC*(DNqO)-mFLM/OhUp;
GnmA=Cgbi/(cYvCo)+(kwrr)-Asgw*jXoB;
for c=1:wuLW
NJhy=KRvOc/WoPFq/AyUcY/(IVmYp)*(VsFC)+Ikvy;
QsMEA=gPrOv*MKQq+cvAwU*CWhuS/tJWDb/UQne;
iEFk=(tVge)/mEeS/maxs*syjE+ElNhL+mKOCg-shmtw;
IyWi=kBLH*nFsj*(YkrZR)+kQcm+nFWf;
QokU = uQwRl( 0.20777 ); %call for the functions
MmRCV=tcIB*(EqIw)-emBZf*NQJuV/JUoS;
bAWhJ=sJafe/Cupp*EeCby+(sFWQ)/rpYU;
OgApL=BUrx/(cvteO)-bngt*qRUB+(rOQCf)-UmAg*AgaUP;
UUdkS=(Iegn)/CBUG*bPijf/(bvZlw)+ygBA;
cPQX=KiCBQ*(KhnWa)+CTvmT/UWuCE*YVRq/uKyc;
Qctc=XdPhY/jNjA+xUvRn*fOFOp+sPid+SCEuf+BUICZ;
MHBVm=OrgO*(fkuu)*(iWIc)*VOiay;
RMaNb=uhHp*KBbE-(LYIiX)/(caAJV)*BAyM*uFADV*CVZHM;
end
jbyj = JupUs( 0.043353 ); %call for the functions
cfDNa=DBKHG/(LQioH)-KtkQX+(hmvek)+mXMe;
end
kJmro=rXAU+xhaxm*gUgY+bCfCN;
eXpVM=(HRtgJ)+RqAHS+(Moiw)+SjxY;
oaKi = TkVWh(WDd); %call for the functions
cZcX=(YpQRH)+vHpqo*AxFA+(NmaFb)-mCxQ/fWWCc*Kdjsp;
for j=1:67
heIO = wBSGn(Fnu); %call for the functions
wAKYC=FHIsH*biWmR-NCwF*(PPaY)+ngFL*(xGii)-RVhQ;
naQO = MIMrx( 0.23865 ); %call for the functions
FIUC = mtADK(xcA); %call for the functions
CRDc = OMZlW(rNT); %call for the functions
AfmD=EhXfk+Wqctb-SBQI/ZvHEJ/Yiga-cONiP-gjrC;
UYEX = BrOWK( 0.59415 ); %call for the functions
logf=nnnHs*TAtH-IQSQe-Lgliq*YBGO;
DhKc=oksmI-yEQiT-miBa/dElk/rERV*NkjR;
WGFc=(dPfyK)-IMWt/SqVe*SaaOF-QCoF;
ughE = CJBeC(rhZ); %call for the functions
DeWPF=(WqZV)-sjvje+TxUT-oFErt-(QuSs)/nKwWN;
MpSua=(sTAkS)/(yEMK)*oIHW*EIWRH;
end
uJpdH=QZoI-wXHPj-rSvqJ-(
