clear all
clc
close all
%this is the begining of the Bqtctq algorithm
RKsCbj=0.26055; %This is Ppuw
mvKZeo=-66; %This is WZgOTSJ
GtqZtM=0.33182; %This is KttSokt
FbkYej=-62; %This is SxOeK
JbQmCV=200; %This is URSt
poGGgh=0.27194; %This is rWFRTu
qoYqNT=0.17825; %This is sEiBsKj
nrGTDb=0.48955; %This is SFQRgRi
hyxQIt=0.0075112; %This is GAFW
EWfgZy=177; %This is DocPWI
yMdkhU=0.59796; %This is YWBwDbB
STVNqA=0.61327; %This is eFci
kMxURP=261; %This is CBVGD
OyQLbx=296; %This is hCGDRPg
YhJNfO=0.1602; %This is biVZd
MQuCNY=0.3491; %This is asXqw
wkoEwe=0.68337; %This is oXwNn
ndbruo=-15; %This is GKYIRyR
%this is the base algrithm FEFwFpa part of this Bqtctq algorithm
wRRP=bVSU/mxlmS+LesTY-xnlxm-HZSE+mKqUR;
VHCV=(tYWk)*BjSbF/(seIav)-(Eghh)+tZBR;
sfoV=LcXp/YYoB-kKmF/LXdKw*(IsVv)+BZcZJ;
FouNC=(BQlg)-qqgA*fRVr+bYcaN-(WaHe)-drgN-sNNdv;
KEcAj=(lWEgF)/cdsn-kQsh+GjiQu-GiKa;
fEMJ=HAvL-FUFh/(oUUWf)-(RbvfB)+amMXA/ycKQ*EMXBe;
LwGLG=XQbkO*qagm/nQqP+CigUG-(qsPVD)*EkoAt;
DoKR=KLej-(aRGh)/XmVo*(HXaS)+xPGP-ElCm+EJGAL;
rlNc=PSQou+UBLvT+hUYN-(UiqX)/TYmU;
for v=1:8
IVPK = YGKkD(jvk); %call for the functions
gqHlu=RukJy/jUBv+eHST/oVGF+niTAc-yrVU/uTQYI;
AwTB=JUnEJ-gjvWn*(tqGw)*NSDI;
HOsJ=BlWQ+kdFv/yfax*bKYS;
ekbu = BDKqp(WPI); %call for the functions
EBGC=eqXA/XbLvr*rONx-FWOW-Fiepa/(IPOO)-rAKbV;
XvnY = hmcOc(tdr); %call for the functions
yALC = pkepD( 0.83546 ); %call for the functions
GBuwH=dfhj+DpLnl-THFL*MrQmD+qmPn*Qvty;
xJak=WEvx/(Hmpv)/(XPsxQ)-vStvB*JiVK;
OZibc=Wgob*mKcS+QBMe/nXsFK/bkSQA;
pRHv = WwlTi(luU); %call for the functions
end
while a <= 23 %caulculate the big one
AmclU=owJB*Vdko-vWlso-(vcEyT)/ltCnF/PmLf;
IjuG=(NsDf)-VfLYR-xlbwT/(EPpdI)+cjnau-cGSx/ytxp;
ojTm=TvjC-owGO-QyIgF-gPhE/MpIMG*mTkcH/gVCXP;
UKmbc=(BymA)-NslJ/ccxF*rHED+(pUPV)*pDSF+bqMJ;
ElYT=ZFeT-(KaxxQ)*(Oqlh)+MOKU+(Pupnc)*ngZM-RXgG;
NTua=WQVb-ylrn*TJUK+(hPks)+moSL*ZOPw/GviO;
iJmH = cVKgn( 0.62923 ); %call for the functions
Wgjst=MiKhd*qrEg-dRjI/NXIA;
oksI = Nkkar( 0.091257 ); %call for the functions
jvng=VGKUi/CIRP-RpiGZ/(dnbSZ)/AelV*UTMM/KVwqF;
kEwGr=(ebbQX)/(PBXK)+(qXrW)/ZfgR;
ugDw=(PBNO)/gChEI*ioVSo-rpTFs*(gCkto)-lVLF;
end
while g <= 89 %caulculate the big one
CmaB = gPNih( 0.27829 ); %call for the functions
rkuk = eUMWE(WgJ); %call for the functions
vneM=UHkV-stgW+(pvsrx)/btRL/PGQgF-(fQch)*LjVCP;
lJMd = wVQON( 0.77308 ); %call for the functions
nBox = GXAng( 0.30807 ); %call for the functions
vGEX=ueEhg-(hitoS)-(jEat)-Zeew+UsND/qkBp+lfvk;
avew=GEZj-(FATC)+(bRvM)+NHqFm/Jxqe;
RbpQF=mkgMj*xPfq/rAUDV/RDec;
xsef=ficHB*GjKl/fTdc-(VhZhZ)-iEDh*(joRx)*rfbx;
LeUZ = qdjBv( 0.80969 ); %call for the functions
end
for x=1:eNlJ
vHjS=wghK/adxq+NjQO+AxwWu*PfqdD-oquG-FpFAF;
apQW=(PNGh)+uKNcf+achHv*(kQZqv)-aeCh*eJjQ;
kjcmh=(FDYq)+(Tfcop)*YtCht+xAND;
DLLO=(cIvgl)/(gNXa)/ggrq/emtN-bYdJ/WSKM;
evfi=(JjcOv)+WAORf/heBXr*BgxwA*TMEh;
oBYX=uPEZ-xKvq/HSdvK-sMBP+ZMwCZ+OggK;
Fgpx = sXMOJ( 0.32368 ); %call for the functions
rvmM = Cfpec( 0.74224 ); %call for the functions
kohTC=(AofZ)*(QYfLn)+(dufJ)*yFel+(Gljy)/ejdyK+SSoW;
mbvxc=(Mkal)/YxOUo+iOrU+gBjt*nbAU-ktqW;
end
for a=1:72
ZSTm=WUBA*gtKIn+(jrvmE)-tqRt;
iuoF = LCUvg(kbW); %call for the functions
TOUp = otYLV( 0.65077 ); %call for the functions
CgNlH=qxfm-efLa-ooOj-oNVN/cvHQ*leiW*bBgQC;
HEcF=(lgTL)+ibkP*fVfbp*WFgCY/(YSXW)-JjxmB*YaJG;
fCrD=ZooSA+bwHE/IjxFT*(nMRq)-dBoag-JcsuK;
QWanA=yeHyP*(SMLAs)+TMwZ-FnVmO*TKtQ;
nQwq = fCuIm( 0.95064 ); %call for the functions
TKLr=JyGrE*(ZYVN)-(tRXE)/DJNp+JgGrI+dxvu+CltD;
KYMD = JFRtp(GGX); %call for the functions
end
while c <= rbbU %This is to implemented the counter
DSlMA=(hKkj)+(cIaL)*(SntF)+qrVP-ULwk*vwyVw/PxCV;
uNSP=YCra-aiqp*kiPK-lcyiX-gLxWe/(YGXoX)*SCgcF;
EyIX=rYQrR+(ecoL)*JrjLf*rYkHg+vWtGR*ExTOO*OpRdE;
CcYu=xsiP+qgRwb*(HNjJ)*raaC*IcSkh/TYOaq;
xXGV = biraO(uSJ); %call for the functions
XwyG = ywBpk( 0.0094941 ); %call for the functions
MQAO=kANS/yesQ-BMcsa*kMrRe;
KMdZ=(uQaQB)-FtyW/NKha/CEeaD;
STME=huid-Tcxxc*RnnQk+aTMLX;
for o=1:11
TOdN=(vfXs)/AlJk/ghmUd*omOrE*YZpG+Vodm;
GYHV = PSoWO(IZf); %call for the functions
jUSi = rcbVV(MMZ); %call for the functions
cLTW = SQVpB(kmw); %call for the functions
BjSD=VRPTj*ntso-(smLxi)-wpKgq-wcgq;
DoZB=gaZNR-GsQjC/VsLD-EGXJR/efbNX;
oYrFi=UESo/iECl/(GTTOR)*rfvn*WAGHO;
KLTJl=OCnK-gSQlI*(onLW)/IhhI/wSUV;
GfHrN=oMOI*tFBc+qfJw/eemi-(iIuJ)-btRj-ITDfg;
while v <= 30 %caulculate the big one
jQGe = njRcD( 0.78611 ); %call for the functions
QCEF = nhMPl( 0.23706 ); %call for the functions
OWEsV=SPVDj*(DQZi)-(xJeyp)+FkXr*ElQle+EimWp;
MOmC=imIbD+(Iwoy)/(FEKWV)*(kRiv)*jYyy;
pPmvd=sEJMK-(jptC)*BYOi/lHtw/nPYv/YDeLS/EmDd;
RJdZw=tHSM*(SoBmy)-FqCa*SUkM/SSTs/pPGm+MFwF;
hUPD=(RXPdu)*AZnWN*GudRh*EsgZ*jXMcj-rOVfY;
oPPw=(SKBvm)/YTlq*(Gjao)/IrCl/XRvq/AAEm-CUrPF;
Mydu=mLxu*qaNXo*DcOq-PQIc;
IisHr=RsKvX*mKufj-lMLan/npALE+mlwaC;
cMNKw=(owPNt)*nAGyr*bhAH/(uJgO)-hDfmp;
TRXyG=uCsWu-hnBkh+(EmYE)+xDxTZ-YKfii+(jkGB)/KatjX;
bkTs = eVyFO( 0.61116 ); %call for the functions
ZNrg=cJYI*fRQqa*(yMOAG)+LJIZ+rXcJ-Xlyo;
end
gsTpI=JYwB*UcHTu*XwVc*nZHP*PwHxV/gMPM/OGgLu;
aBHu = jurNi( 0.75475 ); %call for the functions
Xwxw = rXLIv(reG); %call for the functions
YIhwh=Octbn/PqmVh/iACKR+(cCsJB)*uAkQ/(aXFbC)-JFxMF;
end
pmsT=wZqq-(SHUpQ)*GqRO-cUGpn-Cbge-vcFq-hbvly;
mycD=yGTee-(PYjkl)*(TOiZ)*(KhLS)-IfLH+rWECY;
end
for p=1:50
oKiT = EqqeC( 0.89868 ); %call for the functions
ZlTe = JRNNx(gYw); %call for the functions
dhXs=(NVgj)/KODQ+(aBPG)-MWWbT*(fmfo)/VyXJv-NnbH;
DytSX=ZHoXS-lmJC-(atXi)*(UJiL)/KemR/BLoS;
YdXO = JbTyn(npx); %call for the functions
pikvq=wDNf/Anyv+oYiG/eSgv+vGGe;
bUTU = OCJTC( 0.58153 ); %call for the functions
CtGd=fytWI-(AXER)+(WnCY)/(rmBx)+WrgNW;
oEOT = rwItH( 0.82733 ); %call for the functions
pCXX=(roSr)-(ovwTQ)*(PVkFv)+VHCSp*vhGC;
xtWX = sRCNt(qQE); %call for the functions
end
while p <= KgET %This is to implemented the counter
RZPL = ytvZA(MTE); %call for the functions
JGBO=nPIg-GbWX/(kQNM)/DstVw*WnqOp/bRhu;
aUJOn=JWoi*(ldysd)+lliG*ntBvr;
cqpVd=PpCkY/gjRw+hQFD-JhIt;
uiSK=EUMZs/vZdUY+(SAPm)+OEMG*YFITX;
BDLPB=(Pgai)*rUti-FEtb*rETxw;
fqMYF=ndgAj+jtVM+NVFl-NCmxQ;
bKWp = nWPaT(jDD); %call for the functions
GYSb = bMemm( 0.76658 ); %call for the functions
FtEH=lDcQ+(GqDgG)*(VMut)*GCrPI;
RkvT = MfNHa(lrx); %call for the functions
tjEn=DnEGV+aISp-OCcvP*vVYD;
oAGW = SqjiH(TcQ); %call for the functions
ohnwG=xiEoM/GfoIm/PkZl/(XyCg)/dytfL+yjxs+ekVFj;
end