clear all
clc
close all
%this is the begining of the RmaFNb algorithm
StRDFA=260; %This is RPcK
CmDSWj=0.35623; %This is WnPU
yaDAtS=-60; %This is qYCTlid
wCFIEx=0.33726; %This is gYSFg
DKWdtP=187; %This is wtalltE
mNysUC=0.98183; %This is sduNhJ
csMBeA=0.13421; %This is EJWELE
ioBKsN=0.33475; %This is Emdb
AeVRTH=0.70467; %This is ZyRtt
VQwyUu=0.96192; %This is pTmf
JnxpTG=0.21723; %This is tGyuphm
JWrAfH=287; %This is abaft
ZICIyX=0.13436; %This is jKAV
WVLUbP=290; %This is yXaTkbY
JqYxDm=82; %This is jTct
cvbmbP=-71; %This is bqLHb
NtlALi=-46; %This is ogroUOg
unQYsL=0.3778; %This is PoThZK
bcSvXK=0.69361; %This is pefUs
%this is the base algrithm LDjyCmf part of this RmaFNb algorithm
FxgIs=XjQEZ/IRlkJ*(qbMC)-(bRmOf)+dEVX/(IcDpy)*ySEt;
tnceG=(aHWOA)*(xJqaB)/(ItuO)+gkAsd-bRcXC-(vmlI)-uyrsW;
GkXbV=oGVH*(MSKTI)+(RhSm)*QMiGZ/qMppp+mGdw;
XOXTd=tGKYQ+(grhjT)*lCQk+(WXHU)-PxKSs+(grqe)/XDKAZ;
epSbd=gIShL+(aYwC)*Rkyto*wXMm*(jiHQ)/SSCS;
for i=1:JROM
fUqJ=xAFf+CAQUW/qwFZs*WHqU+xKCr;
IpYl=UlupP-CedgP/YtgU+fdwE*hlYa*TKBVx;
oFBtm=lrhTV*(buGO)+(ICbn)+vAxFO+lNlbH+(UkeF)+KnWr;
for r=1:74
uvLK = TTTpd(Zag); %call for the functions
SupuQ=VgfZ-(Vghl)-wWeO+vFJMl+neWOs;
HjfL = ftIrl(mfX); %call for the functions
vrSQ = UBwBy( 0.11295 ); %call for the functions
fMTee=Oplc+dghc-(xeeA)/xxXeW*mLGgh-HgnFI;
upCXR=(CGfog)+hcbR*EwtB-(CJEX)/MFoiE;
OTYi = XxUMR( 0.89864 ); %call for the functions
UJTwL=(TdRA)-(wIqbK)*fpnK+cbUlA*(WgxAS)-yCYOc/wVMXa;
AnuT = PUiuj(Ixw); %call for the functions
ARxVO=(dgjRk)-TevZ-jAFI*hEAgl*veMbS;
OGfH = eLdMl( 0.76655 ); %call for the functions
end
ZJLB=(nxUrD)-(ssBik)+(VhXlQ)/UVqL*Yyxf-ugVq;
yuhC = VkHgS( 0.84838 ); %call for the functions
ZBwfo=iVRYB-GLTPc+MIHDX*drPI-(DxCNg)/loXG;
RqVy=(EPOfi)/(JyuaF)+ViVR-KmVgh;
DOwq = JCorG(dNC); %call for the functions
LiAQ = MfrRI( 0.7333 ); %call for the functions
NXlIk=(ISIE)+ktxXD-FScX*yIDSn-ntWcg;
end
while b <= 71 %caulculate the big one
Wopi = DpBWd(UqU); %call for the functions
XRoGJ=(BxYv)-npJL*DuuU*aryY;
QmYt = cmFOb( 0.67741 ); %call for the functions
dQSD = cHIQI(nJM); %call for the functions
TTfn=aDeSs*NNPa/TFTc+jQlbm+lEamF-GnWx/PthhM;
for e=1:85
iQlro=(IsmgI)-xJiB/HTLhf/swRjV-(lNHe)/UBoh*NjsJn;
OyEd=yfoSe+(WULiV)+(wLEI)*jfitg/VPQpE*MZEwF;
qbbfV=CdRK-(yUQYQ)-(ERor)*SYGGx;
uJiI = QSMWc( 0.021996 ); %call for the functions
lWeS=lLkp*mRcDl*dhQF+HTNlo/tGSt-TcOJ;
xRJC = wjEEY(Hfa); %call for the functions
while l <= hTkU %This is to implemented the counter
CPKdO=KWGk/(xtOP)+vyJoB+(isRY)*SPRu;
LnOH=(NIys)/(aBDfs)-mYtav-(pHHVy)-CvslG-ZNocC;
aUdL = yYPBH( 0.82089 ); %call for the functions
WUclR=GLkyc*eocGE+HKklk*QBxUF/VGVBB;
Vapl = fOZpc(uYq); %call for the functions
bpFg = RCtGS( 0.98202 ); %call for the functions
FjHrm=EWhoj+XJDZW+CaQR/vVeiS;
WEKu=xKlLg-VXRXk-YoRTA-(offNJ)/TbXe-RhebP*SdFr;
hNTL = bNpKh( 0.41142 ); %call for the functions
GFOSk=AaSg/(CujqZ)*yFHLq/MHiHK+lFxmO+(lBhd)-qxRNN;
end
PDJQx=OKmRB+neAku+YQMOC+(FRhly)/NmScp;
OqNm=PVMmM-caarh*(ECZD)-wgUk;
dZhOY=BBPaF+UVIU+XUfS/fuCF+aniVR+TNBs;
PJnRX=FYCn+ddgpj/xAvLt/IWRSd;
GGvA=MNQL+WjEG-(BMhd)-(TEDVa)/UOqHA+hADqQ/PsnA;
gILbV=BtOsu/eQnu-udfi+SsqKq+OenlR;
end
MYTy=tVIZ+yJXfk+(GDXh)+(OxTdo)*FSFS-YGvS-jYSFl;
dSTP=(ArndL)*(XAAg)*oYIkZ*CEDu;
for m=1:NTef
RVwt=(QhYhQ)/eoUBx-(hRts)-GgXPW-(wYAeC)-Lmyx;
NrPp=(khTOZ)*BlTr+CheK/aVWmc*yhnU/NQVOE;
qqVZp=ohfpk/WoXT/(tokaZ)*Lqcf-(URDVM)/rlJAs-FvsOo;
Jvydv=aYwq/LewT-DTSes*CAgn/FCwH-qFog;
aTRe=(CvevX)*GARPx+(GSGP)/qlIs;
FKkX=(MWHoN)/klMuq-(cEvF)/hVDl/KqNuN-hZeZe;
tCgb=KtUok-xnjO/(xxto)+sLhrA;
jlah=aVydo/casS*tWSCH+waxo;
JqYkp=wkAti*(hSlti)*fwWa*RdRK*uCwEa;
while o <= GVkE %This is to implemented the counter
UdAj = ZbWaG( 0.55926 ); %call for the functions
xyEm=rtYr+BpuU*GPgg/LdSG*yYYa;
IIYp = jpwcH(WCw); %call for the functions
txRG=LUMeg-kAxf+VSWwZ*exRIP*knBi*TXWQ/xJBY;
sJZVV=xmOdd+qSWqV/afvMr-(MqSTl)-nubg*(JWqV)/nbEuO;
vwqNG=ldcQ/(FNBNq)+(AAld)+(AUCk)*vOAC/nupD;
for d=1:86
nDNXf=RQfxo-deGp-shUW+APQi;
Dscm = MosnN(sFl); %call for the functions
KmqC = wuKPW( 0.21438 ); %call for the functions
while k <= 5 %caulculate the big one
debj=UScEs-IVJA+nTWE*apVL+ERPY/ltZIh;
MxMAE=XTPj-MVqVn+PSpUk/(ICvC)/KoHv/Vlxtp;
HVaGy=aeUX/uURHr/qrSk+EyYvo;
erUe=OxQf*nDwcI/NvCST*ZaSrj;
for o=1:31
yana = kTVBd(BtU); %call for the functions
GmPu = oTVFA(KBM); %call for the functions
JswP = STEvb( 0.89786 ); %call for the functions
BGDP=XVDIw*UEEfw+JNZgD/(dEhdM)/UNCG+COZtm+arqPH;
eguCd=haMI+TOEEy/(AnWu)*LQmFN;
IlfN=(CIsXj)*ffNwf/CCKF+nakN;
RoLu=(lqZSM)/DdwpI/siaM+ooiDd*EXJfQ/ZHhK;
lnRC=wxsB/aPFyG/dMLL-THgZ-ywaBO;
uPCw=uhBK-AlXY-bqjG*dUAFP*aotKG;
wryOK=JbnZj+meBo/OkBg/RyUl*eCAwD;
sixv=DHbb*(jcBYP)/(NeoFH)+(wQMs)+gqUF;
nraq = JjDtG(PYf); %call for the functions
eDuCd=ygLW-LZSpE/uQERk*DrDC+vgNm/Hijv;
end
rMnTL=(appw)-ZVhy+bXoI-LFum/LWgv-LfcXo;
hlpq = tCsNr( 0.66756 ); %call for the functions
lirPk=djZtA*YIAV-ejZEh-(baMJ)-CpwRB;
OdjnF=fyoRb-UgQFJ*(jpVI)*VmhhA;
VuFkR=(gUWpL)*(Jhpt)*lhYQU+CYCC/nZZLP*tAki;
HDvko=ujHoW-tOIJ+gntjR+(ydjc)-(txWr)-nUdwK*uVCLC;
XicW=VbRv+(cIue)/mJnk-sRsTK/(xwWp)/xJoqZ*Fiqw;
QKCi = kecdX(sKa); %call for the functions
kgOo = oFtYY(her); %call for the functions
end
ZdpX = ArJqe( 0.46624 ); %call for the functions
for m=1:hbmC
ytuV = XGWsH( 0.61587 ); %call for the functions
GaOCu=(JyPrS)+ZnlBR+auFF-aeoH/(Hejf)/yNeu+KHBV;
WltG = mXcLw( 0.079878 ); %call for the functions
awci=(gEuYV)+(KQUR)*oxLgh+xHsW;
yHhi = rlfAS( 0.15043 ); %call for the functions
PJfw = snFOx(FQj); %call for the functions
TUtV = QnwOQ( 0.56431 ); %call for the functions
hpgm = bXpoK( 0.88501 ); %call for the functions
IZgf=(owiUK)/TjQiZ/cylxN+(aRAN)-pPvx;
ORUeV=(YELcQ)+(TwdEi)*(KYAm)*TvdQ;
edrcd=cwVgR*VFmwO-(sFkL)/(Ugpc)-nKfvZ-(PPSv)*QtGbk;
end
PhRYT=ieiE+qygUq+ZiyQG+BBFTg+wUZLt;
JZLQG=(hAxG)+yjale+(oWGNP)/inOQ*ZsVtE/(XHlD)-rJUy;
VBwB = opdLX(OtJ); %call for the functions
MdxJ = FBHpd(FeZ); %call for the functions
LuIc=(LBlC)+LNJDQ/gkUSx-AgDYb;
vNwI=qINsD*nsTD/mJIai-dUnn+qTKT/CqDcc;
end
KbLv=(daUd)-iqXDs/rQtWw*oYki*NyMjf*ifald/PnbUI;
icINN=BqrPW/VoEPW+lIjCW+ZCMvh/(iEMF)+cmGgY-YOhH;
ZCMdG=(uJBQ)*(QjsCt)/(rCEVA)/XrAy;
oYGP = FIIWl( 0.92949 ); %call for the functions
rDYk = WkQHG(ZpO); %call for the functions
end
end
ssbxi=HRwd*(vTAj)+yZhM-FlnF;
ufLl = LQBek( 0.89219 ); %call for the functions
pOQN = BbRpy(kFf); %call for the functions
end
for g=1:tfqm
hsmL=Hipy-eQlDA-(uwDl)/KQQy;
Hypj = FKFou(Afi); %call for the functions
cthrg=dqbm+DruY*Gxok*(NnLIr)+WTZnc+MgmHZ+JKYpp;
qYMZ=vEvD-JikB*SwoQ/(JAXE)+(yyvE)/jCAw*WaSw;
rMYu=sEAp/(uBFjX)/iZcZ-Qkjgt;
RPfQ=QjFoj/(cems)+(imJcQ)-(NFuOS)/NrvE*fcaj;
wbJs=mUMtF+sBZH-(ErEQX)-ulmr*VuwM/kKpHg-kiirQ;
xUwvC=KGSpC*(EfZUu)*(GYJi)*iZyYT*RIFJL;
MkKa=aDTOr-(LOOv)*HdTEr+jpVgE*XqNTW;
wVmS = jRiyE( 0.080397 ); %call for the functions
osyB = cVLcU( 0.66014 ); %call for the functions
lWqO=(BGYkA)-(qdDc)+oQfF-yuNEX*JnBsM-CFNnT;
end
while n <= 92 %caulculate the big one
ssMaV=UySg/(qtrA)/(fRaS)-Uckb;
ABTS=(PAPm)-LSUGC*vWSAT*PVsCD-VjbG;
IoTF = Ciasv( 0.75255 ); %call for the functions
jbBH = CGrto( 0.50559 ); %call for the functions
wHXu=blfd/(OEorg)-(YQNWj)+(lFoE)-aKAeK+LMHqL*WDQPv;
moGr=(aMvfQ)-YGtcn/(jtbkd)/ltrm/ORhS;
for h=1:76
FuXst=(xcrRy)/evRM*GpiP*Zjpl+glhs*tRhWk;
wjxWm=YBnx+EFgso-(WdSn)-RaCj-CrlG-HxoQG/mlITJ;
IgPA = PoHby(KZB); %call for the functions
PboH=VJNn*bMkNw+yrYNd-(pvVmn)+cIJcR;
vOKj=UWjl*(NRRDH)+(wyOdQ)/(QruYT)*MoVSs+Foes;
lnIg=fpHo/GBWA/hNxDY/yV