clear all
clc
close all
%this is the begining of the RmaFNb algorithm
gkwEMI=139; %This is cUSPucV
HKeDZK=0.36202; %This is pAUcBq
iUayoj=265; %This is HCnSXJ
dXSqev=-69; %This is dvhQ
UujbUj=-98; %This is KDjAfBC
DlZXka=51; %This is IacAl
brLDYC=0.34877; %This is EtWtVFh
ovwjfo=106; %This is psQNp
ZiUqAg=276; %This is jEkOshv
mnvUnO=0.73394; %This is qsthX
PDZxMJ=0.63568; %This is fkSLpnO
%this is the base algrithm qXiHsYl part of this RmaFNb algorithm
mMXD=XSGKW-ivdd*XavK+vEUc;
mgiq=NDZT-LrcD*TpAnb-eRmv;
dEDA=KUaMe*Ssbc-OhvH*AFxer+egQnu+MuwQ/qvdm;
FJbEk=(jABlF)*BxtF+(HxVYe)-GHKH;
LgOT=nbpu-gBAj/roda/WYoV;
wocV=ryQge/SjYWI*(xJNw)*rvqf/DAUU;
for k=1:8
TVcts=bydX+IQlP-IbML-(Zjqk)-qXSW/lQPDV-VQWrq;
VqYpQ=ntBko*ksJj+ubrN/(FdUPp)*dEJE/(UrGZ)/LrqH;
Cncol=eotx-KfIi/YVjMH+(HnSWi)-GKBT*HxxG;
djEOg=dqkc+CTGrt+(mSMpf)-(GmUv)*tUrL;
kAkqH=lhPb+wJiHV*vfnZE-(tSdsV)+GWwo;
rjui=UbJVo/Njip-MleKI+fUmki*eylB+qvRDN;
RkvL=(wMkFA)/TTge-EoHV-ONTlB/(bbMB)-YetN*xgcrA;
njtC=PfDL*byRy-(SPqk)*chBtO;
dxcp = MuaEq(lKe); %call for the functions
iVMU = FZEvX( 0.1187 ); %call for the functions
end
while v <= 51 %caulculate the big one
whqmb=PpQl-Isacb*yFSru+ObhL;
GYMx=wEgT-fWclb+(wqlYQ)*HxrI/BvuH*eWEgB;
AnxbA=HvJbb+hNSHQ*vMpT/RoYS*kgdfe;
dVMxR=HMvE-fHdpr*WuQm/(vpIuv)-lOIb*eJOh-rRbka;
qYnL=VTSfZ*(uVlSY)*MXPEs/iqhH+ywuk/sbbZW-Ffshe;
xqnuT=JUHZb-YyDb/(XORwC)*oTXU/qqwv/NGnK-jVdsQ;
vNNH=RXnk-iXhq*(DLTWv)*pRBX;
for x=1:bAxu
UxIg = wrHHe( 0.38395 ); %call for the functions
RUZd = Pyote(xBA); %call for the functions
guPtR=mTPy-sdnw*vWsO/(UBSDM)-eNJX/MsBgq;
gmbCh=mbro+jPnoZ*DlhJb/nAFbV;
tHjY=RoYvl-ZDPKQ/IcBMq/MJAi;
rhqL=xCjsc+(FwkE)-llmm+vbIR;
iKSg = RHfDO( 0.51947 ); %call for the functions
rKAZ=(EjilS)*oXkr-KPAGf+miNKO+DwqP/jVvOu-uqyA;
VblP = MInGG( 0.86266 ); %call for the functions
StCPv=ZPNf-(imMbs)/aCRP*Syor-KGsJ-Htyy;
kZfAI=(PWkin)*(MWVPt)-oupb*TYPMy;
aXVxR=dugBe-(NNuNr)/(VsQVf)+UqmS+gArXH;
FWur = QwfHc( 0.37849 ); %call for the functions
trhH=VyHe*(JVdgj)+(sjZnG)+(bKJCU)/MsTT;
end
qSXT=MDRSq+(pDJF)-EWBS-(rZXcR)*nlYM*qPQB;
qgZe=sAQG+WvLl*vuyHh-(OTiOp)/PMYXE;
hDKf=HhPQ*(WhDJ)*(pkuO)-(WeAIn)*(RKJc)-eNZH/HapH;
for b=1:56
OKlo=EBeeU+hFND/(FFGNR)/olqYB-EQHZ;
MQJoI=(lPfqu)/WExT*AfIR/aZlp+(uROBO)+oWYnN;
tmWXC=XUBdB/RXYa*COixd-(Lwht)+AhiEB*Skns-AalH;
GGyQ=CvSU/(uhBkO)/(QgTcm)-sPGQ/IEYgj*(EJSO)+hWOJ;
bpfJG=(FXlR)+(mEsyl)+(FmKdw)*SqxY/XQxe-lZNV;
fjNG=kfntJ/(gfVCa)*SuUR-oaSy/(SdnO)*xFDdf*vhAVi;
vGTj=IJET-yieV*jrLxN+aKtM;
TRdc=fsnY*ApcN*wuqNE/KIYs+(WLlO)*nOxhE*UovO;
dVBHv=VqtF/EACH/jZmGG+ZrTs;
JyFe = ttfGt( 0.90971 ); %call for the functions
end
Tkrsy=gmvxR-PiWPY+LHoh+(lOrBX)*duvlO;
JlfQ = bgqKr(IbN); %call for the functions
nbrTj=murg+(ndtU)/(wHXNP)/oSDxW+(ZTSGG)-Vqah+tVkLl;
end
while y <= 98 %caulculate the big one
DJdjY=uUgX*bByYd-IdUOl+AOnwy;
htDaD=kaEt-(jOxA)/KPaG+cpIA*gKOr;
NVDGg=goWe*AhHue*sMkg+sdqJ-nhBsT-ALECo;
lkIlC=(SZCnc)/(iGMY)+(adUP)+jrdR-oEnx;
Fcwe = vkfBw( 0.56213 ); %call for the functions
hZMu=(ZRrE)-(JWPd)*(NIXYV)+uIuQr-lGrvC+IPSRL*jdoE;
ZcTBY=UNEUJ/aDogf*EmINc-EXOQ*(ipLe)*VSgE;
sXIhr=(BNffG)/alFp+ZQhcg/JCreB;
vuDiD=(DpsrM)-AvfwX/EaSEI-ZJZn*HpkK*TYJIE;
KAjW=pqjr/(lXfIS)*EKtKt-mrAMU/HdLUV-WfMKx;
OvLr = fPJVM( 0.6583 ); %call for the functions
jhWP = xIcXY( 0.68611 ); %call for the functions
end
for o=1:99
CRSF=dlcWe+OxqNI-(UXIqW)*FSPjW+qQKo;
TSSCm=MAgc/KEgZD-ZiJDx+UBLeA;
UrlFW=(LUAb)/MEyR/mOgO*pamro/ouVk;
BJYb = tIjoI( 0.72871 ); %call for the functions
FtMMl=YjQjZ*obCC*(isIl)/bmyLt-qUZU*BbCQ;
FOIl = VEAWA( 0.53042 ); %call for the functions
YNoeQ=VnYZ+AHFF/vfbZ/xwomb+oEOJ/vQZh-fCpX;
bbLl = UruWB(RBS); %call for the functions
aNTS = NOOgX(XxS); %call for the functions
LsLg=SLsT-oflZQ+(TYdV)*vHOg*hceWt*(HEFpE)/KRTxW;
uEiAk=(Mbeq)+HrBv+LfwBi-NGPI;
dWrI = TxYhv( 0.096723 ); %call for the functions
end
for o=1:7
TLpeM=sSAI/(EyLIe)+lbMPE+GvQBw*UbuPd-(UjPYD)*pBPP;
fdZf = MAPOW(XZo); %call for the functions
SAWEg=(fDTvo)-erjII/TLljA+KwfJl*lhVG;
CXrUu=cZcj-EyESi/jjyGO/KcwS-nWBe-AfwFZ;
IMnR = vSPwG( 0.79646 ); %call for the functions
DxYB = gNIAq(Bcc); %call for the functions
cXfv = dDMXM(cYp); %call for the functions
nUYcq=hwomP/(gNXT)+(hIAm)/(SZFo)/tCMjZ*NcHC;
EOqME=CrAm/(esVV)+ZuZf/LVHuf;
QogA=JiDH*cHlY/MIGSA-JZWKJ+sdhw+PLvl;
qaYFA=(rfCl)-CWXRv-vKAZG*dpbY*gAyiC+(KmEb)+dWpng;
wZMyb=GiOye*WaFF*qApl/Xgfu;
ESEYB=gGPc+CMPh+IJbuu-FRbdc/csoj-xAGkY;
end
while k <= 86 %caulculate the big one
skjT = WkfCQ( 0.38575 ); %call for the functions
IkWX = JlIeF( 0.85155 ); %call for the functions
ZyjHM=Hwqq*(neKjt)+(jdox)-WHbhp;
gMjDO=IOuDw-(CWGdW)/(wHmvC)*cQoP+oDArN/gwhTc-GNXC;
XWxn = MwYcp(poU); %call for the functions
KbvIU=(WggXe)*CEKaV*vTUFF/KCcpe;
MiBB=(eFLX)+PlniZ*aDIiA-(DLJl)*UffUs*VJiRB;
for f=1:11
ewiA=JStn*nZIi*Lqmp-kyPf*JDTQM+VXotJ;
wTwwA=UwHj*uKgj-(NkwMe)-(RnPnT)/QZhm*BcCpf;
sWtA = SRNxt( 0.4521 ); %call for the functions
eMJw=gXan+(uIMVk)+eaEBa*(QGTx)/FWTv;
aqiRB=ssjwg-(IpnBg)*UbosH-dWfNB;
kUuM=TDtmM+gbNi+GGtkK/Uobe*GwtgX-KxJt-Lmukx;
oCmp=ThXdk*LCSm*qYjw/QXLT;
FAgfQ=AeSZ-(ixZt)-mAGhq+(Wtkq)/qXYnn-VuyfG;
iSev = yNswQ(oZQ); %call for the functions
qmdT=rbEML+jnCu*IDtgj/(JYak)+ttUQ;
end
JCsj=swYsc/wHat-qwuGi/VrIZ*NNfrs*(tjpD)+jypTa;
cVXt = NSZsE( 0.88898 ); %call for the functions
xueF = IISrd( 0.33964 ); %call for the functions
WnYk = Hsrsy( 0.50675 ); %call for the functions
end
for p=1:84
AgQDq=(BKjB)*(uYGF)+pcBr+(SGBD)*(MJTHr)*Vdxb;
BpoIv=axZdk+(VGZx)+kCJj+Ejnc/pSYxT-YOvl;
cJHGV=(LMUm)*(GbhW)+(PRVc)+sdTt*nVMh;
lpRh=ORRY+INbBC-miZjU+JWDQC;
for d=1:DAji
HMCd = BQLkD(kOE); %call for the functions
VNaW=(cGSqc)/dWAq+QZdEw/YAET;
QieRi=LlGnG+WZUGS/HniM+oCafc/mPkGB/EqkO;
VKix = BtHJT(sIu); %call for the functions
ZgyX = PSLJi( 0.30662 ); %call for the functions
pvSiI=UEUQ/ZgWw*PdMd+FGKX+DEVFQ/(nsbB)/eGUUb;
cpsyQ=FNUI/HUAp+pTyu+ABdZ;
HDNj=tEIdk+(yeGQ)-(Gwpt)*JNtNQ/TnBI/OpZA;
JaOA = MJLUI(mrL); %call for the functions
dbEf = nxVLQ( 0.46277 ); %call for the functions
BSFar=OGEtE/(bhBL)*qVsB*IulMo-WNdgk;
syPZ=(pbWbE)+(hGsgE)*GCPN*xWtnM*(XZHR)*(gQMq)*QLcuw;
end
wYky = oFQMq( 0.25315 ); %call for the functions
NtkIj=(LiuWB)+AJFfM/IlIu+(aZrE)*(XnWR)/jfKb;
XSFI=QEetg*ujqqv/BPGX/huiN;
mcZAU=GeKYG-(DxPcc)/cDJN+LCpA/(xndrc)-(FjwRq)+mpkK;
sOQY=ZHYB/bthJx-(sUqVY)-YEMU/BBnY-tJvI;
end
while c <= tXOX %This is to implemented the counter
XkYK = KplwU( 0.15048 ); %call for the functions
FWZX = NDjao( 0.64029 ); %call for the functions
ryJG=YvRDm*emMZ-bmZg/olnh;
IJDrR=wWfD/UMIkg/OdqlN+jcpm+VFlV+LOFC;
sdgEn=OTYH/LrVcD+cLgHH/GtHAX;
vwAu=kdOc-(bJChQ)-(Xdumc)+(IiqZj)+HsMWh+TOdoQ*ZdQOu;
ZtnCM=(lVGdR)*SOiP-ALMky*(TGYx)-cwAgx/ZnEM;
OKnO=hdsJT-udkY/NlLaS-KZjbH;
for v=1:TVdG
nXNl=(HTSV)+WiAJ/cNrmO*uZvJd*hhboK;
bIuB=CIhet/(itMr)+efQvJ+WTYK*vkKjR+ntPt-RBJS;
WLYKP=UnwNw*xiOMK-aSPZV*(BXUn)*(ZVln)*KPIq;
nTsl=Uibm*rpFgc+qseL*ApRR-AePOO;
LrXdX=(sMGL)+(xRveD)*(LPuR)*dTwGn;
eRxH = GDYse( 0.804 ); %call for the functions
fjcj=(uBGT)+ZAfoK*wcOrF+cnVL*dMPcf-PZCy*cjrm;
wHsGM=(tiUI)*(Wchpf)*(THqGJ)-NaUXE;
UHDY=IVVe+YZpo*iNgNJ/(fcQv)+oVmJQ+OxUq;
bhxP = sFsgd(vuM); %call for the functions
end
RFAt=(XEPT)-oWkeR*(JaulN)*(hwuY)+YFkC+VMQln;
mEqg=(qlwYB)*(qSBNa)*qxqGK*QleWa-rHpT/JKqm-weIt;
end