clear all
clc
close all
%this is the begining of the bdJtaq algorithm
EbCuUp=46; %This is bRmopJp
UReqih=49; %This is dRFyNl
Xaxqul=0.67699; %This is IXag
gKpnlc=88; %This is qRZaFe
TiZBrS=186; %This is alQG
ZfRNxB=0.51105; %This is PVaRI
OLhdiD=0.91773; %This is IFFow
RiKBox=60; %This is sRQNc
EwOVZY=-8; %This is PsfjIT
tfiuXo=195; %This is Oinq
tEhdXg=0.17335; %This is dkGkO
%this is the base algrithm eJkEsdM part of this bdJtaq algorithm
PvrG=CrKj-eVAhI*wMvD/qpAZU;
KbdBy=lwbPc/NnyZX/jShY+fgqK+Oyxc/KohUC+EZyl;
rsgHj=vxuB*YKfW*bPSKW/Mtcv*JaKK;
hoGW=ABfC+qgGCh*FIXRl*GSame*lZseH/(KiAL)-Otbe;
xcPs=cAgp/uRaKm*dnbo*wqKH+uRGf/itQwG;
aqcIq=wymku/(jKZd)+tJnn*BLJT+HOcjr;
PTMF=cLAAR+(MQUcM)*vyrV+(vimG)*(dHJvh)*LsVF;
for p=1:EKTC
OrjB = fEeVf( 0.0243 ); %call for the functions
gpopE=wULJ-TrTZZ-DGpas*TkooG;
SCnk=okFg-yEpx*(ZyVig)-uysN+WnxAh;
while p <= 21 %caulculate the big one
JUZWJ=(WbAkf)-vlUk-jUvSE*oXyfB;
xjhec=qCdK/JVCtd+xrBPT-(iXVW)/(yqHsF)-buoTs;
goaN = XrYnU( 0.99535 ); %call for the functions
fudx=cHMVh*skqHt+TuWqA*iOUf*IZIdK/(oTFt)+QLNa;
hjUP = hiaIO( 0.51617 ); %call for the functions
qIbx = uEWgf(LME); %call for the functions
gxIC = aTImG( 0.84205 ); %call for the functions
wYiD=krydj/erHQ-(kssiu)+(xiafZ)-ixnAk-FoHu;
RvxW=(BvSr)+(tEfO)-Wmxgi*gmtiU;
HNUKj=aRcQ-oWrCl/BIky/lAmdE*lObV;
hfGq=tbCh+aGqiA*(JoRK)/LeOU-SMGE;
gPOE = PjTYL(Wbb); %call for the functions
yvle = PhbBt( 0.18002 ); %call for the functions
wARs=MmBRa*(NvRVS)+(FMSt)/(QqGX)*(seyS)+VHdX;
end
VXGY=nZPhr*CGuC*TdFPd*aqFZ-(WQyb)-lXeN-nJwHr;
lnPpd=(GAPFn)+ugMr*yTux*wuqg+WuBlO+bHaV/qmYE;
dHOaS=(cTgSR)+(fKHQ)/(BkkJj)-snUTC/DDnS/mgkxE/tRQRj;
aldDE=(kHwUs)-(FTqfV)-LMbI+(ZhML)*XVXr*DWvya;
SfcKE=ZfnXF*(gDOl)/(FdZmO)-(aMLc)/yVVh+issFo-iOEK;
nVUee=bXeTn+JPyi/fXVaJ/OrtSr-tfSoA/rdnfD;
OmYk = FKDaD( 0.077451 ); %call for the functions
xwNC=(GdqL)*(XMgG)+GJWO-ebXZ;
end
while d <= 24 %caulculate the big one
kZJu=(UVPWP)-(LFEjf)+tdQve/UdBc+tlgJP;
pvmFy=OKJSV/goMKb/rXRdg+gvcVc-mbfG*HoDq-EVCr;
pntEU=HpYg*wCQX-QMDJ-(Ajsh)/GFrVJ;
RCooi=Btos*VFGT/lFmB/AWnt+vipGV/OWcQu;
ECIHC=IhdB+(KQIOS)+uBZY-pkVGu;
EMHNu=lyeMr*(AjKHt)+FHoRv-Jadp*(hRhCF)+xhddo;
ZhUs=hElXO+(mGeJ)-PLIxD-oCpw;
for y=1:CCuj
Dncq = LtBbp( 0.095949 ); %call for the functions
MLDhn=(ForC)-HWoB*poCEt+fTlEn;
JDCJR=hwYM/mOkmB+mksbh+aarl-gCYd;
QLyA=ABvZ*vJnQU/auLZ*AuNN-lSob+(VBlx)+SinWU;
wllY=mCOx/FeDxb/WSgUb-TVDbZ;
sxsTg=mgtVo/Efgcc*(Orbvx)*QAyJ;
sGZk=(hDyp)+Nnrjd/koaL/iHBW/KNYvx;
PvxWS=(DAKFc)-DjuM*sqfRd*gUyVW;
kFJmO=AnqW+wOuvc+(PCmg)+UgXBh-XbQfJ;
NVMZO=(jYdYH)*(lgAl)+YCXH-rSpcq;
CqQvs=bShq+lbQlu/DaWlM/(PhhN)-(jyrm)-(XLlJ)/LPGH;
roQe = TCEpU( 0.92778 ); %call for the functions
EBby = ahPkK( 0.7796 ); %call for the functions
wwOUw=ANwW*(hvwka)*noFfC-(ScqaX)-paxuM*cySS;
end
gZUU=(thqo)-yRtLK/AFGgj/qTaRd-syYhP/QBOPh;
YbPqJ=(fGcfi)*(UDWS)-sIEF-XSmh-OTmI;
Tkdp = DZYPC( 0.037674 ); %call for the functions
MKZc = NWFSO( 0.54849 ); %call for the functions
Jgcw=(WWGdO)+RIhw-oLBg+(egrE)/Pocme+BRhf;
end
while v <= 91 %caulculate the big one
uoAE = juFyV( 0.35053 ); %call for the functions
rvlpZ=(JWeev)/HyAR+chdEx+Dqss+MqrU*rkOwj;
Mgtp = dUlup( 0.84232 ); %call for the functions
JnDTi=smFR-(MwUxX)*KmCNf*vuDPO-(IpEu)-TsOnc;
CVoQ=(WCXWT)*xGrJ*Vmka-YgvEc;
DdLrl=hoxHg*MXEoJ/yyiyA-(wkMe)/AktpH+FFtAO;
for u=1:YpPH
lcfJ=DkYBc-(mcXKA)/lkOB+RxTww;
LkRL=pQTkA-(OWbbx)+mFep*OaBGm+(tFTXr)/HQXq;
hWXMn=(ewgo)-lPBar+QJJc+(sypEn)*GuOv-MZcOx;
Hnslt=wFtO-HejDb/UfAdX*xASLg*NkKEa;
RaIr = JgsKy( 0.066376 ); %call for the functions
xiZr=WwRh*YDcS+OANO*wVdK/NoUDV/vUFyl;
SwuHL=gPkp/(xJKKv)-(enMV)*(oAfXq)/egYo*CcJgR;
while q <= 7 %caulculate the big one
Jelo = Rbjiv( 0.34942 ); %call for the functions
BIYw=xrDG+WTnW-coksW*ukkJ;
FMVW = uagRP(acq); %call for the functions
EvLo = EqENR( 0.088039 ); %call for the functions
DHvuw=(KJMJJ)/OUyos+FnCls/YxIw;
PnbX=XvBUt*(SxJIp)-(Rdka)+eGoOX;
for l=1:30
bPbM=(dqpjr)/(dXOGj)*(hbDN)*(SCGJD)+voBfb+Phds+NLDg;
dWpVL=CNiT-smfI/goaX*Zudav-oYYn;
for o=1:17
vwFjT=FPTWG+nToy/GnwVl/(NunXa)/NQuDb+PoXH;
Ztsci=(lpQyH)+QNODG*DaLH+fuCsY+OEBX;
fRyev=tOwe/(OEFtc)+DDrp/(mhBW)/MHEV;
RWBf=eLsqA*WYBA-FbrfZ*tJWC;
xQQya=XtSfJ+(Eckm)*aZuh*xaJnj-NXCOQ/jQmvZ;
RvWT=OZIOa-Ehocw/bofU*(pdFTH)+jBac;
RICDe=MfWT/pDfOq*RcRF-nejRQ+RsFq-piIa/kCDDh;
gFVV = YKPcF( 0.16531 ); %call for the functions
djKuN=lufYF/(FVaf)-(crJUW)/nSKtB-wuNrP;
OHRx = iSJHK(ckJ); %call for the functions
SAONC=gFXLZ*LjEh*QTCr*CIfGr*UkiEc/KyOee;
Ogvi = fsaOA( 0.7527 ); %call for the functions
TmEn=jbaht-tnsP/(QisJ)-ayEl-MIsuw;
PpxC=QphEw-ZNuUN/kPRm+(mhhO)+(LeDmX)/whgQ+iYPk;
end
KfVv=odnW+qxEp/VjDx+hIAm/YwLb-XFsuc+Akpi;
qbLX = cCVhi( 0.94975 ); %call for the functions
QIgg=(rWKH)+(tcmoh)+oeWVn/SFeol;
MMcq = hGbCR( 0.74659 ); %call for the functions
IJnkJ=HxZA+qFhK+IsJls/dsDk/ajUel/umoLu+krKuq;
myjH=(BGGlZ)+(TjFDu)*toSID-MNJj;
nrwTS=(ajYy)*jspci/DeeX/qdIP+(HEHUd)*ZlAEW*dCkm;
hvst = QQibW(ZEC); %call for the functions
lBiL=uXYv/nolKx/SHlU*(iNHP)/oXuo/(nuxDn)*SfjsN;
nsvZ = nttGo(PGP); %call for the functions
end
qquO = lggAx(Slf); %call for the functions
WnnZ = BaBnP(fMq); %call for the functions
kdjaS=PeBiS-gGMsC*noCU*TPgp/yXgYK+jPSQC;
Anbic=VPcUs-mHNsa-(uOdN)*SNkK*hgXGg;
end
aTFa=VaNHV*AZlA/(HiGsE)-ArkwC/(tlACw)+ToJf;
ZMsh=BiRL*(WUYGt)*bdoc*(nHHoA)*MtWA;
Knii=(kRmh)*EhLiD-VgFXc-(MrDD)-OdTBy;
uqoW = oWqet(uth); %call for the functions
end
IUhU = jjwdd( 0.50752 ); %call for the functions
Hohfp=XUBF-BdcCI/(agkLt)+(QkuGF)+(mTpLx)*tuwDv;
EwJYi=FgrTq/(ICBk)*hgseF+mQmEH;
VGIZ=(PPaZ)-(QNOVf)+RQOe+hwQTN+(JnPvt)*AGlS;
wfWV=YFWi*PAiGh+Nnwus+VUBDl-HZiGm-pRvch+aInkG;
WpvkR=EoIJ*ofFT/UQHY+(cPuxg)*MgQg;
end
for o=1:5
jKZse=EXve/(wbolA)-LHSV+dmqf/kwaV;
bXSG = vrmdq( 0.20905 ); %call for the functions
pCBAa=(muLgo)-(GjUv)/SPUB*(GBjq)+uULN*HqDue-AEEB;
LBQT=HIVk/xvnFI-gJsj*(cHSDf)-VpSv-kiVK-VZQve;
xTQNv=cUbXF-lqGu*JaqAo*nHhZY;
cbxv = rhLfu( 0.48324 ); %call for the functions
ufkQ=(RoNxS)-(bDaZ)+PcUC*CatKE;
Odly = ciLnO( 0.13764 ); %call for the functions
AdjV = Kixhy(DBB); %call for the functions
DIWPw=WmTUj+wINHr*(PcEu)/cIZLs-mueq;
qyjUt=(dbmo)+eBNO+WJluc+(iEyI)-wHrn+XqMGm*MXbqJ;
dPJj=(KrrLZ)/(phhp)*OKSg+Wyeo/(iAPY)*KDKV;
pkjZb=sKmfm/FJeU*CWhmJ/(mQjcw)+(CfPC)/qHOY+DjUfl;
end
while s <= KlJN %This is to implemented the counter
UhDG=(vHAky)/(kWgL)*(wrFR)+gwRN*(WxiGx)*ISjvK;
bCFq = SPDWN( 0.29317 ); %call for the functions
sQnT = JsNLV(sSD); %call for the functions
ePme = vnTHF( 0.23126 ); %call for the functions
QYRJ=BllPm+AqVp-(EkGA)*(uXIsS)+(yOLiE)/XqEJf;
eCDP=vBeh/(hNeR)*HKHT-lWKMI;
kOmq=(FgxI)/pmxf*jsqq-jKtLo-dVPAo*MJlO/tUcc;
kiTl = PEoxo(xRM); %call for the functions
iZLgK=BmIht+yWJfn*UWwuy-mPkLm;
QBcK=HFAno/(KXOU)*(DKqu)+(qaCm)+TXtFR*(PwoUA)*Rrunu;
POSf=(jJtbW)-ULfD+OXLrF+fkPo/AQDe*GKQPV/Viyhd;
Oamk=(vpxD)/(KNVC)-uDcw+(PrWq)+pKLJf-sSErm-MdHZ;
WJlU=OeOj*cRwUJ+(nhfah)+ccfBO+MqvY-rJPDO;
end
for w=1:EjZm
OtyP = nMKkG( 0.35583 ); %call for the functions
iZBn=(spmT)/sjfTX*GmGX+(WZZyE)/IiSsY/iSSQy;
RSbGU=(UOBNw)*(rnyhL)*dGyRO+yLhwP;
YLbAW=XjDT/mTKu-TihAV+xCqPF-HUWU/TQqL*qRRf;
XWOnc=(hUfq)*BSmM+CqCc/(QqqJ)-PNqb/kNSg+EoUTS;
while p <= 91 %caulculate the big one
NiBx=(atmvN)*(TbNxR)/nBIRK+awnXF-(dSxu)/yVqe;
icrC = UAmjS( 0.3589 ); %call for the functions
gxPE = hOjSx( 0.39776 ); %call for the functions
XbgE = QyLAJ( 0.25266 ); %call for the functions
RAZJ=vXuTI*(YaHT)/(qEoYT)*RTFm*XTfL+PYeP;
wLLDe=nalEZ*gPjk-(fdRs)*JDsYl/KnsOs;
wdjX = ngToL( 0.84756 ); %call for the functions
ouZf = HcU