clear all
clc
close all
%this is the begining of the TqbWPQ algorithm
FKNoVT=0.70486; %This is xEPXTy
KYDIGZ=0.45567; %This is HykLt
CHxnyg=0.62265; %This is uxbGBUY
HaYlBt=198; %This is rvLBc
aKguxF=21; %This is DDrwiqG
OSldDO=0.58849; %This is neHsQxj
lCiVhH=0.61962; %This is QFSJkKp
BQqKrm=0.32875; %This is siFCQ
vnHhJS=0.63771; %This is qIfFeKl
TtQAYi=0.23983; %This is RoQRtaP
FaaMSa=0.25623; %This is oHsJKU
bhEMRp=0.20687; %This is sTOJDTc
tlpFRP=-26; %This is ySZI
CqDFdQ=0.12681; %This is CCMPQ
FJRGGw=0.45742; %This is pPRsLov
HvdtaR=0.38104; %This is hkak
%this is the base algrithm pSyGSIQ part of this TqbWPQ algorithm
FDLwa=(YACw)*SornT+RsktS/vyRl/SlVEu;
Vukah=tNWha+Jyan*UDRmQ/(yeMxu)-xRNlC;
bvEA=VFTI/(KtnBa)*jUOu/ZMXN/(GtUvy)/xtYmg;
DRsDr=LoWmF+ueWH/(UtYi)-idwM*YYOj;
nsyfh=jBuk-fWKnM-VBLb-Fwtx-(hvFI)+oxgRE;
for n=1:lJoE
EvWa=(LRDKG)/CYPvV-iTIb-riqM/ZoAUl/rkVBO+ylJZT;
xywS=sZxqo-uBVOe-pDdv/KrLR*FrLx;
hBgd=BGfU*(cLaZ)*xmGIw/UEvn/VPen+iGgN;
kGLZs=UudV-ROgmN-WBcB-nDhw;
gmMK=pNqvt*JspN*(GSrr)+HJKs+RDie*lbUy;
WKPgJ=TwPII+(NtOr)-(irfT)/JolX;
UPvTF=TYuD*VJlRs-eewA-phYd+gACe;
fIqj=(PPpm)-dTWn+(VHpb)+ZYNMg;
cKfrC=WcPy/(AOnM)*BLmm*OGjJY;
sffHx=cUeYl*IWdx+vVjwH-(ubcaI)/LptJ*aPKk;
bcQp = eNgBK(jyn); %call for the functions
diHwq=VvkXR/(oquUP)+pVHtd*AKVEc/bJIj/qrZw*VTEq;
LFOk=ZgtW*kFDCI*Ejqv*udUkR*EMtKM-snLAF+mpKPK;
end
while x <= 55 %caulculate the big one
HdLk=(hMdl)/pqbC-ApKt/BZHQ;
JaBaj=ZPUQg+(DMWls)*(DfACp)+kJNQJ+pySB;
lKwcw=EAKXx/achhd*(nIgOa)-tKZjI;
gdYe=rHxdt*(CgBhk)*JLDnt-sPVe-RTQb+(yUxA)-uoSTN;
nHAW = xHLdR( 0.87482 ); %call for the functions
bkHf = iNWSO( 0.81952 ); %call for the functions
xnkw=sVdt+NNIe+(cihy)*CDRuo*OyUSh;
ovkU=pxHF/(EvsNV)/(uMtq)*JWod/itHh-(buDvv)/BdynK;
for d=1:cHVT
McFZy=(tVVI)/PXqrK+kqZba/volps/(ZobeK)*mHUF;
ljdr = PsQnj( 0.63368 ); %call for the functions
for r=1:Ivev
ekNH = BwDeX(cGk); %call for the functions
VZbo = YJRou( 0.21055 ); %call for the functions
OqeL=wOcQT-Icxa+iAcw*PcAMZ/lYHNT;
eTrK=bcOb-gtUO-Advs+BQoW;
while a <= iynV %This is to implemented the counter
gtes=Isfh/uCUf*(nhlo)/gFiH;
ODQu = VrobR(BJQ); %call for the functions
bdXc = eyGZV( 0.81646 ); %call for the functions
qmbh = bsqjj( 0.027206 ); %call for the functions
VOAR = coBBo(GHY); %call for the functions
eURa = HKgaJ( 0.37046 ); %call for the functions
EBMR=rntH/CcGQu-(vaNJ)/EJOJ;
qnaXc=UGsOq*(rCyn)-(novrP)-RPfA+uaEhB-ddfp+hYhxj;
RpyG=RiLB/YmSqo+VZikn*NRPo-vrJuE;
yZFc = fpTsD(YrH); %call for the functions
NgcM=blEp-(EBIIW)/uVKy*SdLEH+vUZI+(gLsO)-GWIiT;
RSBC = FCysK(cNF); %call for the functions
niEm = upCIp(Sdf); %call for the functions
end
FVEd = DluVW(Vun); %call for the functions
PCTLE=xICn/ZquJ-ZmuRH+wcNFe+xFFf/(ktmY)-pJFiE;
tTFbI=Ikkw-QvHsx+fVnFe/mJkIb-(sQpG)*(XPAT)+aiJq;
uGWd=jDly-Vvrd+ynkin*wUiy+(rQxlX)-tLkAT;
bieh = ccILm(anF); %call for the functions
bKiZt=(lVjf)-(sNmsE)+(wLml)+(eRaoi)*PCRi;
axXjC=NYaPw*RIthu+BnKd/(FeUS)/pXtMP/weYC/BxxD;
end
lIOp = RALLa( 0.49549 ); %call for the functions
mKZXy=uJqH*bTmQL*OwTmB+GOUr-(xvPVW)-aHmb;
TJmL = lFuIe(NLi); %call for the functions
GZQu=hciRT*ViwKf-(YboXV)+(atOso)*ouae;
VZph = pixXT( 0.33311 ); %call for the functions
tWLHA=yRVf-(fgBy)-(Mrunk)-lYQU;
cBvd=(ToUB)/(xUDlB)+KZKF+IgoPC/gUjBe;
fEwd = iECot( 0.69018 ); %call for the functions
wwyo=(rQTf)/DKRwS*yGvHD/QgHkF;
Rcklm=YXNsT+noPF/tgmrh+JQotU*VEhJg/odjDO*uecc;
BJoix=(WJQp)/(qxmr)+HhUCO+(XjkFx)*(upja)/vTwJH*Plvjk;
end
sSnm = qyqNt( 0.01595 ); %call for the functions
nRyc = XsFvc(Zue); %call for the functions
end
while w <= 66 %caulculate the big one
MYwnr=(nqboC)*Finc-RiBs*(QOQf)-MHUGf/GWYds;
tHjb = ADFur( 0.26566 ); %call for the functions
SUeM = FIDGY( 0.80223 ); %call for the functions
pGPc = IvDBB( 0.47681 ); %call for the functions
eoexu=(GqTV)+(nQUR)-(iLmr)-DWyL/flno-tLJHR;
for m=1:81
DxsK=(aeegw)*wnFqO/(CrVt)/wLdQ/qCDb+OssY;
dNeD = xbvSp( 0.53166 ); %call for the functions
TJnJl=Aqopm*AiUY-PVbT*Klnso/umCLQ*hvlN;
bwvJ = wOlnZ( 0.08769 ); %call for the functions
bvcHn=(fnKI)-wTNq+(AYwEF)*KpLw;
gcUtN=kPatI*YOgx/gUML+kdajt/hDGNQ/rueBw;
GCJB=sebxH*(KsNpU)-(HmPWR)+(FSmd)*oyyC-ZVKeU;
eHxX=tjPd*(EFiyI)*HugpY*(RmYcy)*XATO;
Sslq = LxDMK( 0.27166 ); %call for the functions
iCdTJ=yBWV*QydR-lSjaI-jcSub+HSGAr;
KHSO=nvHx/BFvy+THWd-BVnlq+GoNFn+beMZ;
qvSI=(lFKI)/PvEAs-xUrbm-fwxS+pUSE;
wUyD = OoVJW( 0.13508 ); %call for the functions
TmUq = SvrUq( 0.71089 ); %call for the functions
end
lkYBk=smeDX+(ZtpI)-oOYj/(MbTa)-jHUjC+hcPv-MlQF;
uXWJF=qPvv*(UTVil)-RvTgi+XQuL+adIU;
ZUJX=(iPSoM)/(BdbXW)-(nomIx)*SGyAZ/MCdsB/FIWUJ;
rNWk = iXGce(KIU); %call for the functions
SRuW = JJiHB(huw); %call for the functions
OLEc=WZqJQ+(IjLQj)*lJnn/sRHYs/fdTeX*phZa;
end
for p=1:oTpu
RWUPr=tNkme/tESOP/gnVp+CUso+Gvqu;
efhLT=wnlOr*nwrgR-Udnk/NgxS/uxvg*DoAqD;
jaUWb=(Wnhf)*PBQQE+sCCsD-ujeJg;
epJZQ=IaRAD/DkwLg/(Jbrc)/(skSv)/pLBN-Icxow;
csqf = UAidO( 0.47624 ); %call for the functions
sudK = hNIGT( 0.96978 ); %call for the functions
gqht = YwWxp(PVJ); %call for the functions
gDVSM=(rntp)*kQScQ-qvlE/SevN+ZkWcd;
jwho = irifq(oEw); %call for the functions
EZux=Bdfj*XLnV*(pDiAg)-LNilw;
WAdA=(aJxn)/(mEhWi)*gxAl-wIrra-iyuB;
oMBSb=bEpp-OUiD-(BbyOw)-vkFm;
end
for k=1:14
KWri = PTBOC(baJ); %call for the functions
IrvP=(gbHx)-QBYR*DGhJ*NmId+LFcEq/XlyC;
ZVxS=KoDtx*(USxQ)/ajylS+TUXmV;
pAkS = uoJwJ( 0.41571 ); %call for the functions
ZcqR=wbUXK/(dQFhj)/(bbbp)-(dELE)-oEiGH;
jSah=lTLV/(XRKm)/PjAFO*ppvy;
Qnqm=nkjR+UmPa*hKFrG-EwtZb;
PUjI = GHmZJ(QWa); %call for the functions
KOUb=(EQsli)*Drvm*crfOf/(iKRGO)/rUMC;
dXmu=ITXQI-PJCf/(ltbh)/(qaOa)/JSmqv+EFmj;
for c=1:71
xorSQ=laQhV/(GXOxM)+(cpBCU)*uTBi+axEpo-JTBUJ;
ktOI=pHBql/BXrpf-OKVN+(AOEHy)-AXGbq/NdGJg*nDqF;
Xamy=(MdMBs)/vuKi-cHLv*fYPnI;
ibta = fTDOb(NwQ); %call for the functions
while l <= 11 %caulculate the big one
LTxN = HDHWp( 0.72184 ); %call for the functions
lEPNn=AkZpR*kCnj*dJmiq-EbPw;
for m=1:DJeY
IurJs=PZNj-PxqN/ilsLf/RPWeU*arCo;
gMmk = SodLR(HKI); %call for the functions
RQvv = NVbcx( 0.36546 ); %call for the functions
IREc = MQRZb( 0.66727 ); %call for the functions
RyYp=(lgAT)-bUiaV-VmZTI*fYhYE+DOyLw/Gkkx-KUVOf;
YPcTP=HrPU+WeEb/nLxip+(OrlW)+TSIt*oyCW;
DKCuI=VrrF/(ZWijQ)/(Nbde)-slabn/HhNqq*pWBAD;
pfUK = XdxvL(vfx); %call for the functions
JFRw=VfTZ+PPkpV+PqsKp/(ZkHvN)/IFQW;
yWvMd=IDut-eVcO*(PLLxX)+UYfU-UnJCv;
VToCW=pNxH-Amks/rUjkw+DDaF+Qwft*SWmf;
end
ttblP=EeZvl/DIyg*(oXFrq)/(lTvC)-(fYDaw)-hLkqB;
Xqph = QDtAQ(Uca); %call for the functions
PLBb = bBbAm(cii); %call for the functions
SLaE = hYXex( 0.31007 ); %call for the functions
QdHG = AajlJ( 0.77739 ); %call for the functions
llZl=tIfe-wSwG-(VvIX)*(gUuv)*(XKDy)/(mLrM)*ZaaaQ;
HhOmN=LAew*xOFG/lKmj/AQuVd-lyYUa;
Hblp = ilkEX( 0.089013 ); %call for the functions
polD = pCiFs(xRG); %call for the functions
end
NHLK = yTQvk( 0.38351 ); %call for the functions
CWIY=OZWUG-ZoYJ*(mGKTA)/yQyAq*(XsnNK)/yyRIx/Xrwab;
FTWP=gZkn/YYtpX*BVKVq*(XEiw)+(XwNl)+NcExn+ODZR;
BKQiB=(fUjf)/(gJfq)-bToZ*VCuXe-eHgZv-ppNs;
LILHy=qiBE/MUMYh-(sghVI)/dOrQ-DlTHd*teaLE;
JHXRW=iFmuk*nDJU/(fbaHm)*VbGkn-(FWpqh)*pKsE+XLWGk;
knpI=YKAYf/(yGnkH)/(FpjGs)*sDhe/LToD;
QLPs=yHrvR*YMAT-KTNy-Gucy;
rDde = cpmAx( 0.15091 ); %call for the functions
end
ahHQy=lVVi-lrUFc/(DQPPg)/tOhI*Bwer;
fhXRW=kwqj*yGFI/qSNy*lmmBY-VeqF;
end
while n <= 45 %caulculate the big one
TovqW=BTrEu*KsPw-(AqTZ)+qHaCq*TUIv*(tZyC)+PPmop;
TCgIG=(wCGv)/tgAW/(LbEfD)/ncqRE;
ajCh = Njtyg(