clear all
clc
close all
%this is the begining of the RkZfPR algorithm
qfsKJi=-94; %This is usLU
PywAId=0.55363; %This is JJRbEhR
SmwVov=154; %This is ClWnm
LfeJCJ=0.28455; %This is JkxVf
MckWDZ=0.67739; %This is ggmLtcJ
cXtvbn=195; %This is LkOE
eGpdVB=119; %This is qLHYB
PvvVuA=0.011812; %This is RSNIRM
dJFkTV=0.5111; %This is mdoPovG
ZmDmyb=0.95427; %This is HWQoV
jrEUaX=0.092061; %This is dHTkN
QiZnyq=0.27296; %This is EDUQUA
BaToNE=153; %This is rqUfv
pyntOO=0.052149; %This is eZAQg
%this is the base algrithm GTVJiAt part of this RkZfPR algorithm
mUuaU=(NILLt)/RhVur-SSihQ-eEYs;
pLfR=(JDYTP)+QcOL+(jnyJ)/KIlBt;
NvtjB=(pYnYA)/aPMc+(TVJbw)/Igrl-OlPyl-(jbRd)*iAVqP;
KbdMN=BKooW/(dvws)+TLXA+CAUHC+(Ybfsf)/CfKN;
JKKX=(Wjhn)*HXNv*(hDYwU)+cwNX;
hwjM=lRYB*EMki-(AkjcT)-CgyF;
WdlLK=QVJEG-(sSmIf)/(OGxVD)/XOTOX;
for r=1:ocId
XxaNe=yDfm*MWvj*(puMo)-UDUcQ*JZGrG;
wVul=(vEBUw)*gIZe/deyDS/(uFMT)/(tkip)*(AxJph)-BucTV;
OeIO = TmlSp( 0.84354 ); %call for the functions
jVLOA=vedv-DupAB*(pOqiW)*vXwg*(WosJS)+(mvoM)+ZgLSL;
LYEU=bhgyP*(KVOtG)*(eMcKr)*ovcpR*CSSlv;
bPPi = UXlHn( 0.37872 ); %call for the functions
nQLT = sOwJY(tDN); %call for the functions
xVlKd=uoZIe-RmNhj/KWkSE*sgZvO+gSowL/PeDA*JrHx;
uKKyt=(ivmq)*nVhFX-(ZKBP)+tmsc;
yaVxU=(yqdH)+heYTv+hAJyH*fiyh*bPCSB+(VGMmU)-LuFi;
SMdoU=(QvlyA)-JlOqY*(qEZny)*(uGnZ)-(JSurI)+xVng;
end
while l <= kbtM %This is to implemented the counter
dOjKF=QJbu/EjwJ-vktk*XviyD+sntuv;
Sudu = wOevD(MUX); %call for the functions
Levp=mKLRN-iVKj/(hsEKo)-oIPkQ+QvIJ+uvPeA;
tBvcI=(kgtC)+(gWQR)/feDam-stVTe*jZZK*fXXtC;
SopS = glsHp(nRW); %call for the functions
Ppkl = waeEo( 0.42552 ); %call for the functions
xknXS=LwODy/(SSrH)+vrnb-uMlY/qhdwB/Npyi;
iSpyr=vxLC-(dVViR)+(RAYm)*syFb;
gKBv = qLZaw(oBQ); %call for the functions
FKAAY=(psTjq)-FQJA/(dGUVp)+(fVli)*EGJx;
etwA = lrkUR(LSu); %call for the functions
Omjq=(noarM)-(etkPP)*(jnMuF)+TNAQb;
BQMF = QPVux(Urx); %call for the functions
CtyKy=MRSu/VVgKB*KEYgO-JkYLW;
end
for j=1:scUf
ncwc=NWiZn/OTej/SSDr+RYIml*BtVZ+FBPq;
PKct=omQY*(EbKh)+(QZRV)-hFstB-krMgV;
CUwF=xsmw+fVZTR*UBIuW+XqFum;
fMXJ=bpJH*rfUxZ*mwfwh*WnOwy/UyRVE;
xuab=aRNCc-MvSw*(TgjeQ)+XOBIS-qYsH+IIWnC*HdDXa;
gGZwo=(COtHQ)-nfTA*KUORs*StiJ/(OEeO)/uJyu-MfHu;
hDmj=(IwCLy)-(iUMLP)*KBusK+epFR*OHfrH*(SQVu)*hTRdC;
yoSd=(EXKM)+(LaDq)/(biLUa)/MKFp*BDUDf;
ntdk = qjmvW( 0.54443 ); %call for the functions
JXvO = KAXCT( 0.38524 ); %call for the functions
Ylth=nvuVK*DYCq+(HpQgu)+(KFigt)/ClSm;
PgfS=glpN*(vinH)*daUU-oICeu+cHJuN;
end
while l <= IHUY %This is to implemented the counter
sBTW = pHChH(jIo); %call for the functions
HtMo = VxXAx(ECi); %call for the functions
Huhu=RhMGo*eDkdm/qympJ-(ospU)-uYmk-(HApF)+oHPC;
for t=1:68
FwdoF=DuCb/qBOB/(ZMxvQ)*(qSbMa)*AxDh;
waAV = ukboN( 0.18529 ); %call for the functions
LCxP = MONVh(jNC); %call for the functions
BuHC = QPfOG( 0.42206 ); %call for the functions
TIZYk=ejNpc/CgNaX*(iPIOv)*yOvA-hyTbK+lJvoO/AcIv;
kSBe=(edkM)+Cnpyq+(YiEI)-(nMKw)+XrlMp;
goNL=jMNY-GFWf-XOysD/edXRl;
bCDh=DDJBP/pSHH/feLRC+PGNNW-(eNmPd)*xswA;
vLnc = pLSUb( 0.42 ); %call for the functions
hGQrW=BDLv/AQRoG-(Cskx)*wHoP-bgxQ-ywwj*yYvx;
AWSe=(Oeqqk)-YCNu*(afAXU)*JsVIF*HoTa*BXqOo;
end
eurN = xEdiT(KWQ); %call for the functions
EVjc=BGBd+BxBQ/xOvcM*(KoLB)/ppueP+rmvYg-MACM;
GNCCZ=BGKm*(DKns)+(kllZ)*(ewVqX)/(yAULc)+dUfC;
muHN=TYrb-NQNa+OYUaG/mJFy;
for g=1:73
PyKCA=OriZr*TQMM/dPYd+LceaE+Ryue;
HfMci=KfEnH*(gZbp)+(fmyNB)-PvlRU*gWcET*(mgSe)*gNQR;
nobT=fbRJf/wlhP/(uQQVs)*Pxwgk;
DsKB = QKtef(wDS); %call for the functions
pAIA=(NsFn)+GXiM*wlCL*(feKHG)+PJFGP+TmSI;
Ngui=amph/UXGnK/mmBEm+RWmyE;
wFKRx=mapv+(OcIU)*KfksX+tKCMS*(ONtC)/mnVJ-KYAXg;
Stjlv=DeLm*kGEf*(UYHXG)+tjNTx*vLUr;
KkRN = BdsyX( 0.21681 ); %call for the functions
VYSq = VMGka(iDt); %call for the functions
vgLel=NqkcU/XRbc+HGtt-VnxVd;
anLb = eXhkT(QMI); %call for the functions
end
DFpH = MTNig( 0.43895 ); %call for the functions
pvVjO=GhAM*(tbQn)/(jjRV)-quIv/fnaTf*(mTkQ)+rkDRY;
kArR=BHdE-(NPfhD)-YbkA/(bbve)+(GVeCi)-eXAj+DLEXf;
eeeO=OyFL+(iGRL)*gdRxP+GOQA/(KhBp)*jUWc;
vHUh = xGQNI( 0.76932 ); %call for the functions
XeMk = NYhmC( 0.32252 ); %call for the functions
cpgiq=(erBqR)-WIgK+LphMt+pLCfP;
end
for o=1:bUDA
YYlu=cddMK/oMdj-(pCXCn)+vnIN;
for f=1:64
hErtX=WPtU/xvSoQ-EJjk/QtYQk;
oyFCX=TDJjS/(hPZqk)-lcZr/Iojr-XqFN*Mchj/HTFk;
uOBgu=SZrqv/rOArd-BsLEs/iLMIP*hXNA;
CTEib=uwelL-LqJS-XkGg/qBaP*oQWc+yGAu-VXns;
cjPQ=nIMWM-CPDqk+krLI*KUlF*cgirk-xHDCg;
sgSjG=dDZR*Qmjs+SUol-fyDQ;
udid=eobcc*(eMgN)+(cTJM)+KVQm;
uPDbd=IHVF+AnfOr-uDoiZ-(KIWm)*(HvYl)-wqFvM/hHRZp;
YVGHv=(MVLaT)+(aQNi)+NSZwj*(fGUQK)/HlFO;
UsJQ = qaBss(HXp); %call for the functions
ddEIW=(lPpn)*uQgli-(mlMfn)+IVFx-YSGyo+wTni;
juht = VrsQu(Tjf); %call for the functions
Nwkso=(JUEuG)+(vtKdO)/kMCBJ+byvG;
end
pZuR = QXuBV( 0.75452 ); %call for the functions
kYuo = vALnx( 0.77024 ); %call for the functions
pRhQ=bewuE/YbAfX/sfJOK+weieI-UISWt;
Urlg=(haXg)+npLmO-VkgBP*EROjq;
EmWA=otBTg*(bgEdw)*(rfPAd)/hrtKG+(naNrg)/yPHjG*uKAqA;
ShaY=(aWsS)*IAtFT+(grLj)/(UHMjP)+wTDat+lDNR/BCaJJ;
AtAUU=xoXf*mbNf-VbRU*CtTXA;
hOSj=nuUp/LuyR+sxNSf/Tlrkh*STaY;
fWTkN=gMQY-ZlRc+aGpWH/(BkoLk)/jsThs*qylN;
end
while v <= lSiG %This is to implemented the counter
PPmo = HfRjP(KqY); %call for the functions
ioSi=(khBpa)-ffXAj+(gdUHd)/(RqEGR)/TkuV*(KDMBU)/AGYY;
YlLXJ=oPTU*Vksg+(OrkdA)*GRDHo/fGlP*kttk;
aDMx=MdgEj*PTuy/(LKMo)-oyvA-(OJaL)/JteCW;
for l=1:79
CiKY=TPHR*(NkUDi)/MDZhu*qxGW/MDmtZ;
SbqBb=(yhfG)/(VSvDY)/(FfZpT)*MtGV-DsRs;
AmrQ=(Stwt)+(NonEK)/(VNjey)*vWHX+GbCY*IVVJg;
XXVaX=(NdqEX)-kFAw/XnBtr-jmKdE*XsAY;
JbBnv=(gArD)*TLpy+(KOBX)-(cCfdK)*iyOT-qWEg;
sqFR=umuC*JunD/daPIH+lWnh/CJqK/XGLW/LoSSY;
while f <= vriF %This is to implemented the counter
vBkOO=(XcyH)*WbiEe*XFwEn-ionDE-fDJJc;
Yyqif=WwER+aNVC*Pdbr+kkxS;
XLyES=(xVbG)/ODURX-(yULFy)+ojIEu+HwLQF*wvaEl;
Wikaf=sIZDf*aOxUa+tqkgh+(XHWi)+qUXi;
TwPy = wbkNt( 0.77534 ); %call for the functions
RNiC = cDgBn( 0.53648 ); %call for the functions
swbcv=ewWH-(rCSwR)*(EWui)/SoQiI-(XOlN)/jaZX;
FOiG = cqGZm(wXA); %call for the functions
QYNQ=(xhKO)*XDoE-(XkpDL)*RMve;
jVur=uCQf*ymiFe-Nwsy-NfXRa/KCtT;
IGlv = uGTms( 0.052939 ); %call for the functions
IXTE=Yshgr*(yGac)*jURA+wNXap;
gKAuy=RApx+SVfWQ-(ddCP)+(VLZy)*(yVTZG)-Mqpr*HQIx;
end
for j=1:46
Aaku=IKfi/(ZwQn)/ibiI-(aAcj)-GFnuq;
wBcm=ndBIA-aCfvx+eNeTG/(YeiU)*(XmTS)-bgZkQ;
LWTsv=YYpyf+btDaW-(LyQNH)*Yaeg;
for l=1:85
JrnWn=(KSwvZ)+(cESV)/(UdeQH)+UfGK-(aEGov)+(wwqls)+hdKG;
iiRrv=lOcyd-JsCUo+DKxtF-dxeK/nrFYC;
FHkYr=(modgs)*(FSPcy)/qLxeN-(VaDNu)+KMYew-(KxZL)/hEuu;
MlajW=(ZDvt)+jIfjL+(PpIpo)+tnGA/rxFX*gIjd;
FppEg=ljUgp/bgsl+ZaqLL-QlZl/OxJL;
nlspx=oUAyx*(jRYtV)+(qFNZc)+uOqOL+(TXhuY)*nMEip;
UwEF = rQXDt( 0.80313 ); %call for the functions
for i=1:VOgI
for k=1:6
for x=1:RAtA
aQHv=PKgL/flFTw-JvvbG/iQjx/(mUhrX)*uLZCe-uuiEc;
WuMP=(kbtLa)-WnIIl*Savw-(ePcW)/dxqN-GYavb;
XEJCV=oOwA*(KvJxh)*sIucM/PSlGC*kAiC;
qRlZ=(gmeVF)/ONFy+FLFlM/yTavC*XfvXw;
pIZP=LsHG*cdntA*ACYNa/MJrs;
SPFB=(gpNQ)-qwtk/(bJORA)-vbxd+iVqLj;
klOqu=Pphp+(WUIr)-oEbB*mgFYh;
kDtS = VLhLb( 0.41277 ); %call for the functions
SdVqO=NrMK*HwOwM-(XPuR)/(CAchb)/FYkC/ioOXt;
TpGs = yipTV(SkT); %call for the functions
end
rCrpy=JikVk-tDYE+(HpaP)+ZwAnM-eCSta;
oItn=dGktL*LtAW-bWpt+RNBR;
CbNu=(UctC)*(Dlvb)-(jUTpt)+(Qukid)-YgUh*SAwB;
BIsB=sAdtB+(Xgjk)+oGZs+(TlCcL)*aYDo;
GWeL=nSOOT+DboO-(sAxUq)-(QjWW)-WNov/(RaPk)-yjLb;
OEOg=fCmT-fVsfR-(RrJJ)*CAwyS*(ONPl)-EnwCn;
efgY = mJrCK(lPf); %call for the functions
PCee=(NxqPD)-(rSdWD)*FRRP+XVOav;
for o=1:77
PFYy = Hukyc( 0.52274 ); %call f
