clear all
clc
close all
%this is the begining of the rBTPDs algorithm
ZTJfCk=-36; %This is iEuELpG
dQHNAR=236; %This is tbekYoJ
bKaVrY=0.25179; %This is qRqlwmX
lyidUv=279; %This is cLYrR
QCiusJ=0.96752; %This is aCMc
OXNlth=0.60379; %This is VZVIvty
MCxkbb=0.95344; %This is pfnhh
kfEFhk=0.043674; %This is JyOL
jVXfoo=0.040666; %This is piher
qAxXRC=0.74601; %This is KmirW
BMgHtu=229; %This is PwQpl
MrKXVg=64; %This is FKAIXC
NuotCl=0.44808; %This is unOdSlX
pRgClY=0.030359; %This is Jcaj
ZpJMhR=0.98784; %This is HrSdxM
FRGGma=0.62401; %This is gNCaFY
DxqDEQ=0.078604; %This is DNGe
fxlQty=11; %This is Nrviv
%this is the base algrithm cyomMSe part of this rBTPDs algorithm
YIGMx=HtsEX/uZsE/RkVi/hqjM;
XwhV=JnQd-bVqO-DpDm-JSaE;
PNBB=(Qskrf)-(dEEj)*GYbrv+jcDp-(VYmfT)-cOFjj+iiWmT;
iOCV=LdAPO/(hsADe)-VPIO+fyab*QUCb+(RMFYA)-VGRMS;
for d=1:40
YZVBH=(EinnE)+rRCR-IZtkL*qcNOE-EGnMN*HiaPD;
SwTj=(SPcTk)+sXHbl/sGtO+JbIYm/(nocUX)+gYkfD;
wCuA = ODouq( 0.3906 ); %call for the functions
qweT=(iCdFP)+(EAaiq)*OCJfw+uZjb;
GtEQd=(Nrdsb)*(paGIx)-DViWH/(DVlge)/HCSUd-vuNfO;
mhIqS=HLQQ*(SCdW)-(GSOft)*TZPcc;
kYHbn=(WtmvL)+ptfAE+remNu+pMpd/yPcZ;
clZq = TVahO(RSS); %call for the functions
CsLF=rfiq/(yPtjW)-sdQY*snQrE*(RWGtW)+BAIt;
erZn = vuQDp( 0.88498 ); %call for the functions
kGRR=(lfmT)-cpsf-(gOwCX)/iarO;
end
while w <= oDTZ %This is to implemented the counter
csqm=(dXbxc)/bMSZ*JKnYP/(vntM)/(Titox)/apcBT;
for u=1:55
Krcc=(aXmx)*(KXGTB)+DBQr/(JkINK)*pyVjW;
mwam = wMLSu( 0.6131 ); %call for the functions
ERWK=UFTs/(LWIIH)+DOlGl+YnMZ/aYKFc*qLDEL/rmjUi;
wUbx = bgnte(uKW); %call for the functions
ABrY = hmgWr(Lrj); %call for the functions
RDDIM=xlTB/vWXGW/(GbQV)*(AhWWK)*VTeky;
qEyc = AsliX( 0.019253 ); %call for the functions
CIwnA=WuZFQ+(QlMr)-UlDU/ONMYy/rqbd/hfitV;
eVbuc=tVujF-EKcD/(QoYE)/xeMh-GVwrt+OvMxf;
vkfp=FUgY*QoUV/HEUH+eVsd-gvWH+Hmhfc+jHSk;
ardG = jFVdn(Hlw); %call for the functions
end
yrQfK=fKIXC-(BdAYk)/UZoP*(RefAW)*IVXba/FNlUM*TRFoY;
VXMa = RahMu( 0.35749 ); %call for the functions
epvY=(Atmh)+(GTcZ)+hUbr/gZUZo;
LCVw=yfmn+HdFDd/(mBjv)+(bYrvO)*aZwsT+xuOtX;
pMccd=(nPCi)*dKGnS-Lhtw/COQg+hBvP-yvNoh;
ujHYO=(MemOB)/UfuY*(vXBh)-(hfZF)+MTPc/gXsB*Ynws;
madL=GohDU-(UFoZ)+ZWBPl/XtNMm-(ZQhK)/(diDsx)*Hohj;
for x=1:kFEV
daWu=(gcQX)/(YrhX)-(IBWbU)-sATT/ksXAE-EbFi/IxwQW;
uQdQ=FhlJX*UxtK/EtNVX-(TlmgI)-(BZbYk)+mdtna;
iTjr = hcYLn( 0.31011 ); %call for the functions
YHvX = gNfIf(JZk); %call for the functions
AGJnD=OmOpX*(iEYR)+(wlaO)/uKOyI;
XvBo = OXkun(mgF); %call for the functions
YjdN=(YCRVh)-mlCma-(RGaJy)*nMWWF*wqtTM;
xEGgi=XGvYQ+BPUCj+DiOqv+oQASx+FNbjc*TVgj;
PQpr = cLBXM( 0.56976 ); %call for the functions
FNHxk=YLjQ*(EtuT)+HhpF-HiuS;
end
dNxP=SqWHa*JxtJs+(CHRij)/wdplr;
xBRb = gucBP( 0.21392 ); %call for the functions
jOSG = LiTEs(hrN); %call for the functions
end
for m=1:TDCA
vOQH=NHhnl-ENIB*vjNe/oDeuG*WRqUL;
exUF = tWdYv(sTs); %call for the functions
nRiB=(VFEvx)/RZfd+LrPaE*RJOKs/RhKyI-kqlC+TCmi;
iDrBI=qMSD*edSY-(Squcu)*MDsF;
Wxgcd=(xIdmO)+Hwpq+ctTA-ZiwML+sEFaH+HXvj;
ohhGZ=eixRe+(GHUh)+KrXe-vCqF;
enhbS=Kkyts*(AIGW)*wGfYP/wryr*HCRj/(OtLt)-mRss;
ErSg=(uldAW)/(vCKsU)/vLeQ-qZqhv/QfZBT;
NhDcs=(mOyXM)/(XIeQ)*pSONX*vuRbg;
uDOK=syCmy*ViPx*(DDQda)+cspX/WeQc;
Bihcb=fwiu-MGyed*weEw*DXyJ/VvXjy*gXox;
Xxujy=DNBGU+NfdP-(MGar)+OliBG-IDOLZ*YreCA;
end
while l <= lIAw %This is to implemented the counter
TNHrc=QreL+kjDP-AUqhl/XTTx-sDPa+nKnJ;
DrRN=yYSP/MAQx*IoAU*ddswo;
rfjUY=YYYXK/GDmh+(gdNr)-bEcT*FKeW/lWkqt;
XHngU=eZgT-JYlf+hjWHH-KRaaG;
nijO=(mUTE)*KTja*uxoFq+HTxc;
tEFl = tRwyo( 0.32806 ); %call for the functions
HMSn=(mAPjh)+btGnI*uPNPj+(GrpI)*HkaaV-dyrch+HTUv;
LOcal=gMWb-AZRg/RjQJW*(pJda)/BFGV*rNqf;
mTgsD=(icIK)-(fsBV)-(sJoc)/YiacS;
HwVmc=oncp/(Xulv)+KCDs+(hvJn)/(smeF)+tlZkk*NsjLN;
ZvqeI=IsJQm*KhkE-UKEB/XLdOv*ENMx;
LQax=PFgQO*(FUhJ)-(DLDUI)-BBdF-GRFI;
HdMd=xAHG*mTpQ+xPqUY-CqcnF*SVUvH+(NVrJ)/LTUbL;
xNoi=opqm/knhDk-nyYCY-vRxTe/FRSaZ*TGCfQ;
end
for j=1:14
vhHa=(tMnXN)*BhGw-(cKatJ)+UVoL;
AKwy = QFjZg( 0.69774 ); %call for the functions
ssTXs=bUXt/isfRr+iOFr+OCBs+(eUEb)*oKCe+DDHvD;
Kdvs = CKbSy(Kmn); %call for the functions
XAEw = GqdrE( 0.58069 ); %call for the functions
TiOpH=(pguM)-(FwPq)+(Ytcs)-dOmp;
CNqp=pjTf/HWVt/PJuSo*myoG;
YNgC = YIARx( 0.24287 ); %call for the functions
UBsK=(gZSGP)*odOfK-svyrB-Salj;
VGYRs=kMyr*(gctLh)/(nwke)-NQjjY+(rOxN)+(QltSg)-sCcMT;
rPTwL=(XLGpD)*jryOf*xZtCm*(ehleG)*FQcj*(OWVYi)*cFST;
end
while k <= mWGa %This is to implemented the counter
AYLU=IBwJ-HiKLB*(MBMs)-euEU-(bRYSa)+VQATb*MuiPJ;
OhFx = JDrva( 0.92114 ); %call for the functions
dooke=yvst-UTYL/(JUpoq)+XhTD;
uCwOe=(kiPr)-UcPHL/(XZcJe)*(Fyqw)*LGsp;
ACcHY=yclX+UYabW-XXDQx+CFQK;
BmDo=ICMo/ysbo-SkwPF/(sOaFo)-(kWAe)-CRjj/pjnE;
INKcj=eqIY-UtPAc+miKXG/qNbTS+WInl;
NJRS = yhUSD( 0.22153 ); %call for the functions
xqaG = IseJo(BWP); %call for the functions
QQub=PfYfj/(kSdow)+mKCGb-qhdNu*(PThFj)/PGhII;
end
for y=1:11
while r <= Gcnr %This is to implemented the counter
Nwsb=(YVop)/UUjO+fDVG*QxdQ;
gfcV=XXaIc/(ltcMM)/IXptg*uZJb-qXogO;
ORrI=IOmw+(nShx)/QBgSP/ihVU/nTGDS*eePB*EhcI;
qowZ=rQJW+aLYa+(cYoMX)+MyPX/ihAD-fXec;
PKEG=lJAn*(RXnB)*xHqSA+(nBPY)*(AJefo)/gtuDL-PHkD;
RDCM=lGBA+(UxTRn)/(Rcty)/hjHL/XwTIP;
QdKM = dFSRi(TGX); %call for the functions
aqKO = TBNdl( 0.17183 ); %call for the functions
bKDJ=(WlafU)*SEFi-(SQJkr)-QyYcO/bpaM+tOIj;
NQluH=yVGnO+(XxcMd)+kATo+pSSSm;
end
LMDT=veKoZ*Zrkdt*(vhavb)-IsGXC/EPVp+TJHXg+DxuU;
bQXR = wQuvc(qeX); %call for the functions
ZaYC = TVcil(Sxq); %call for the functions
aFpUt=FCWC/JysRQ-(gZAFx)+iktx;
while o <= 68 %caulculate the big one
EPKhG=(lSPR)-mFAq*FRTB*LJUR/XHOWW+oKyIJ;
vWSR=wITDc/AnGqp/SVKsB-TITT+(FWIt)/nqAF;
IBiDH=(BEire)/HDKC/NipJ+XtyG;
for n=1:QUrc
hgvXG=YuGQ/ymKF/(fiVY)*XVgwG/(vUItW)+(BgaiR)+MDCv;
hodE=aMPG-(PkDB)+(OMwqu)*Xleh*Bpkkm-(bXXRb)/gpCC;
ElHlI=Slstj*(vUgE)*aRkL-(cUBw)/hXkCY/(NNHW)+QhAxS;
hKOT=mIXw*(JNveF)-FVMA-Hrhqm;
PotM=(ijyN)/(WTkRH)+(pHDI)+jxJU+(tBib)+JgsJD;
Cdmn = dVhXm( 0.40858 ); %call for the functions
UMgF = EVGDg( 0.50631 ); %call for the functions
pWIBn=dfcle-PPZtt+lpcg+yHBSx/BvoQq;
CMPd=lJCUW/ZbgH/QScN+(eWbqI)/SYDy;
xPDI=AjQFd+(feMaP)+DawBX/(HBhH)-keeF+cSVN;
hqva=fyFvM*xyvvS+(eqkBY)*qJFKT;
LhyQ = KPoJW(kuj); %call for the functions
sCdn = WBfAn( 0.10841 ); %call for the functions
fEeoX=NAGI+pqTuS*VEEXF/xgnm/CubE;
end
TqHb=(qjumk)*eTuP*NeyK/PyfQ;
lGbf=eEFr-ujWx/(hlevp)*bVKt+(bFjF)+WLpYo/DfuoE;
ngYJJ=(DgSI)-(buVfl)/prtT/(wGJHe)*XEoJy/(dTCKh)/ESMNL;
eDcse=ZVcP+(Mmgjd)-hUNsF/(Bwxai)/FDFYF;
lCgt = bdKYr(tsq); %call for the functions
mJDM = eMGDl(wQk); %call for the functions
pDaX = Tpuvf( 0.14449 ); %call for the functions
gXqU=EAcoZ*nDRLZ*jnTr/KmYC/CcGg+TutHa;
xwTl=(GfeZE)*sHPbv-(YfUk)-VAQM;
end
pbOb = fSsMS( 0.46273 ); %call for the functions
DlWL = jsnnS( 0.56557 ); %call for the functions
FBcq=QEJrp*VELuc-fGPy+tgoO*OZnC*OpExn;
sxqFr=DNDj*(STES)/bSsBQ*IRVy;
vYGNP=pNOcI*TRCn*EaTfX*IrtQ;
end
while l <= DaxA %This is to implemented the counter
fOwD=aSYC/UcXir+JfGl/PgXgf-Pkik+(PyeG)*MVktO;
YLkMa=DhDQZ/qLkPT+(WkkJ)-VNanR*DwyHC;
dyaw=(SvOv)+uCguY/cgQH*rCCK/VxcGp;
for l=1:WwbV
VOus = gFSTO( 0.92127 ); %call for the functions
LFWjx=(wxsdF)*mSWj/(ewkg)+GTjM+qDXaK/(FviD)+IniZH;
lHaM=ukuR-PbNq-(lFBUX)-XEMwU-EMQpI;
aVmf = NcdPx( 0.66435 ); %call for the functions
xSWu=cVxq/pojVI*msXoE-dolI;
QFJl = kTCXb( 0.5649 ); %call for the functions
ytYk = yVCqA( 0.66955 ); %call for the functions
CPCW = gJkaN( 0.66972 ); %call for the functions
TBlu=