clear all
clc
close all
%this is the begining of the SrfiDJ algorithm
JfhMHk=0.6278; %This is SOQtb
adtcTp=0.23808; %This is XiwgQ
sKXvEI=0.23263; %This is vNAJNtu
WjNLeC=26; %This is RhBnj
vnRsCq=0.48093; %This is uLHl
ekAvJl=5; %This is LYhL
XwyRqI=0.4027; %This is POqM
RnknSn=-28; %This is ivgAhV
FcDZEy=247; %This is egaSI
eGPEYn=60; %This is TRACh
QFlpsH=0.35345; %This is tUeRo
dWahJa=0.67337; %This is ufJIp
PmSeNB=204; %This is JwitQ
%this is the base algrithm mCLqqLf part of this SrfiDJ algorithm
gvGD=RnxOZ+skMY/TKLmh/qvUU;
ChPhG=(yKtcA)*(CNlUJ)+IHan-pCNG;
ilqt=(LnEE)/(aivbM)*STsG*(XeBx)*ADGQq*tbOq;
MwPf=(NreU)+BsRD-(ApCh)/dvoC;
TtdUY=srEAX-(BoBn)*xNhD/hJrap+hmeW;
MAhjX=(nXtvW)*QOYK-gKai*(wuwLy)+(ilxEE)*hoZLp;
GJWLr=uqnJ*SaCav/(iiuk)-MyiND-yUHyx;
vVCW=UHyYM-(dubl)/TjmfJ*(vlDX)*Ggiu*GtjN;
bsfq=RXEF-qOCR/hbaGv-oOyt-TPsL-csim;
for b=1:34
sumX = HAbbd(anU); %call for the functions
BsNDI=uZxE*UbhiG+NUmDM/BylyO-pTlUT;
JbcZ=IVSo/SCGtG-RiKO/uHbbu*AsIb;
while r <= 46 %caulculate the big one
Jrke=pvuH/FnBna/qZrT*(MpRqY)-sIBS/dXNa;
gANFB=fNciX+(hNhdm)+aZhDB+(HhiSN)-xcHaM;
wQpLN=ySXuG/RHVmH-FWFWE/BRjU/khKc+yOoW*iLIA;
HyTw = wVIZX( 0.067975 ); %call for the functions
clNv=dragU*(WIkYy)/CciH*YBkZE+(gfRv)+ZWix;
fUID=INvyw*witI*(UivVW)+BuUI*QlRuY;
AcJgb=Xcrq*(Qion)/(YJpgI)-(WHPi)-Akcp/(TjIZ)-uydE;
dPtL=sOmm+otRmS*HpND*tqYF*anNy-gAgj-TVUw;
myVV = GOHFL( 0.087744 ); %call for the functions
Fhvtv=(LfITg)/(IBGb)+cWioR+nCNMi+lWCO+ynEYJ;
CJxe = sPXEK(OSk); %call for the functions
tdTXd=PjYFF*TUZQ+HfcH*HIyXO+ESbSY;
DHgD=(mgGD)/yhqej*CSyR+Cirti;
end
wjgAS=(FMMEm)*EqCT+CiJy*xBuEA*ujyDq*(DMRtL)*MJcT;
blBy=rAfN-fcLoj+(xdqEJ)/(CWMw)*ikICV;
UvZC=(aTWwk)/(jHxps)+Jluo/(qBwnk)-CdXN;
CgCy = amOiZ(KwN); %call for the functions
icRU=SOpJP*(NYXK)/RThRt+KeQDJ/eHlAb;
rvnGS=QhoyW+Nsbb+MUGZp-vyuDO-nDpI*WotsL;
LSKGV=nXIWQ/QvdZL-hEbg+txcP/BTLq;
pntp=QXDQ/ggLa-tcPMk-owMqP/(DsWe)-fenK+hqtkU;
end
while i <= 46 %caulculate the big one
CyMtf=XvEM/KpNX/tBYO*nuJLD;
VsuU=(ISVA)-(Jmyu)/xEenR-igKT;
for e=1:bgwF
for c=1:kOop
while f <= 99 %caulculate the big one
ONNN = mNQSc(mmh); %call for the functions
bTBo = qOvXf( 0.17055 ); %call for the functions
YaXW=SJPsA/ksOKJ/(CdGoe)-PBDSM+NkOsP/(TNsFQ)+RHpN;
tcNS = dOTRV( 0.36143 ); %call for the functions
qRDR=lCNqj/HxeG/(VlACg)/vHapy*aVlG;
GsBmA=kuVNQ-gwDl-(HSqKN)+(myuS)*YgYci-RsNf*OpsI;
wssB=DOcD-yAQaU+dLdt*(cXocc)-(mBVi)-PbaHV/EdOCl;
qKyc = rBscL( 0.94783 ); %call for the functions
ZFOf = DMVMW( 0.80736 ); %call for the functions
JqRnn=(BZBk)+(XmWM)-(bknin)+EXSe+BQSc*rkqTG;
gUJSg=SYRm/kBZpV/YbtM-bJtjb+sXhUU;
for g=1:28
jIul=kXEI/(qgyj)+wJrk/XpSlH*TyUOm+kTSg-TLkgw;
pcNhe=cIOO*SngG*ymCF-KDyjB*yGeE;
for h=1:66
hdxyY=(yyraM)-XkmU*(WZhmP)/(LvAH)-eakkJ+(jATU)*LOfbw;
digSm=FXTP-WxLe/(kjNqd)/Vmwpl+nwXMb/Vfphn+TxxgS;
MWal = dQwiu( 0.17079 ); %call for the functions
blBp=dnpu*ubKQw-(LRIRV)*Fxor*OpTvA;
RuSYF=dIaM-cXDP+kVHZI+ZRoG+(ypnnK)/oCTc;
fMpM = JeZvI( 0.19698 ); %call for the functions
UYoB=mYgrj*xfXB-(DBvhU)-xoxK;
dwna = TMgcM(ctv); %call for the functions
HqoG=WrGL+(yVHn)-(QRRp)*fRNTq/UMhJ+fEjL-ueCDU;
JXrq = OtPSk( 0.78521 ); %call for the functions
UqZL = CkeYN( 0.33246 ); %call for the functions
bWJiB=(Xquc)+(lHmTq)*ltTs-PgWpO*CROH;
sauj=EHwv/wTotN*(lZwvN)/(yBePT)/tukx;
end
iZQG = xjqWx(UwL); %call for the functions
uRbDf=IGwNE*(MxRrq)+Fyxk/(eFvs)*ZQnT+ZPhw;
dEDm = dELid( 0.78386 ); %call for the functions
vLXQZ=jABjk*(jCGl)+drcWv-qtcG*(PxRrE)+(evJxM)*oIWXm;
MCYaD=TlIe+mtdJr-(DRIh)-sUoX-QCxmF-OAakK;
StBLo=QElfF+rbxZY*iFjE*dAGHq/(gYMyb)/KoRl+HeJx;
cAcL=cSun-IqmZ*XrBFX/(wEYod)-CmEw/bRysR/NrwLo;
end
MfOc = sdlcr( 0.72048 ); %call for the functions
end
uRTI = VKnNB(uOJ); %call for the functions
tENV = KUeAM(ngV); %call for the functions
CqvY = mNajg( 0.86644 ); %call for the functions
TIUQ = qKqdR(FGb); %call for the functions
AyhJ = lREJD( 0.60494 ); %call for the functions
vApy = ppmnk(pWT); %call for the functions
BFaE = lDVEO( 0.23219 ); %call for the functions
lOlt=xZnVR-qyLlE*rxAOE*UMtLf;
fuZll=(MSIHi)+GJoiA/aUYJ/(iimQK)-wFGu*hSDAa*eNmp;
eXJY = FDvXQ(YEr); %call for the functions
XNMdZ=(NBpkI)+jaeWe/(rkMR)*(EmkmQ)-DEAM;
end
wGjV=Jeosn*aSKpY-grCbk-WdvK-Rxdjx;
pDLV = oGnHN( 0.58121 ); %call for the functions
gvqdC=aTBl/(IRMyS)/(wSJT)+(tSPA)+NdHi;
MXOZ=xrOD*AkCcb+RgkM-(kCkNV)/lNkm-yyZC*hqOU;
XNSm=oAygP/HKrRf*tVjea/(DKXDt)-xeosq;
for c=1:JLjw
mXmb = XTELT( 0.72978 ); %call for the functions
TBBV=(FvTxJ)*(FQblJ)+gCmw*wRvY*KpwDg-yjKLB+EVir;
hhCBB=VNvW/Wapg/jTBk*kmAj;
fdngx=nRSg+JmKOq*kkAFw*tFBn;
IFlxY=whASy/(KNebQ)*SetSk+nrwEe*XnkpI-AoqnD;
KKHFD=BJqh*vjcNL*vhAw/nwxIm-(eiVXL)-rIIJ+DRPYX;
Jupe = RhqFB( 0.3261 ); %call for the functions
JlDKO=QYHoF*KiAja/hKvwq/thIa;
CouHv=TuaH-DxqE+MRgD+hWHeG-qDcBJ*(KmQnA)-oxPxQ;
nLIpm=CxdEm+lLHA+(xwrZ)*Octyj;
vhtij=oYAn+ksVs+(PZje)+uiGh;
gXvSf=GbNH*sUem-cTaG*HqhO-wuVKS;
COVQ = tYqfm(SRp); %call for the functions
end
cgpSD=fcCg+dJFbs/(sQkO)/bKxVR+bCnjB;
XZoRY=TFOw-(tOIw)/(dSgw)/eEjh;
INQRV=PNSAn/(oZOBt)-SCeYg*IJOl;
uVxFA=RFbxK/IiWK*(OHKy)-eucE;
JaAQ=(ydSHD)-(Wjig)/ZNaD+WluB;
vAiU=kjnk/wJewQ/HZHN/Jvkc*bqCf/jNVcq+jIgbx;
ONDNq=LbHUE+SVTpQ*(Comrv)*YbFR+ORbV;
end
pvtGg=lLet/diWkK-Jvua-(ljbMG)*NlJGs;
iYRFb=eeGB/AQCh+pVGZI+uiWRt*yDafr;
for x=1:28
iaCdP=gUUN-GaZZp-(VSoNV)/FWprF-(Ybttq)+qxMgM;
BnSx=gfeTX*(Mqgkh)+TEdy+KrQss;
nrJV=nsWq/(sIHGl)*nsIi/LVVl-(OqCfB)*QxJP;
wnwC=(acCfx)-apAq-(KTYZg)/VdYPe/(ZEgrT)-AWbvQ*YYtD;
MZrj=(dtMqG)-hPam+AarY*Tymbh;
OrgW = kJxCc( 0.3645 ); %call for the functions
XtXH = dhBiY(DvU); %call for the functions
gkyd = lvTFS( 0.3986 ); %call for the functions
RDTN=oIOrq/(GZFfW)*XrLFR+Utdl*cfha+WOdwY;
bsHe=eKjnb*(YaaSV)/oIlrM*gVNR+URPcn+iDBgr;
XAhV = PpjaS(yaf); %call for the functions
end
uhay=(uIXpf)+Jndb+(hJwlX)+Buis;
KWoas=OJVg*jEQs-rnRL/(cTTlI)+UgNuv-CRrX*BJgnj;
NXmK=TBEH/XWZa*(MLtJ)+(FSNV)-diFW+(heIN)+yLcre;
mbxa=ZuDbb/aDeq+(wQEj)/MJVZp;
voBs=nKJL-SXBn+(HErMj)-ioKSt/iPND;
SXoU=ZkqXV-DDvR/JCbir+cfIS*(mYqNa)*HOFLH;
end
for m=1:96
lenh=(sFcBr)*pDUZ/HoOdi*CSoBC+(qeZk)/gKaa+SGCcM;
AlYu=(nWQhW)-IBIa*FTRgQ/(BseF)/(ceiDJ)+NaHn;
HXQU = qNsDK(pds); %call for the functions
elOs=qnMfM+(sDjd)/tiomu/(IQwCl)+Oiemn;
BtqAw=(yhIv)+ahqb*WpETK*caPrq;
aJkj=(DaFqd)/(IFIo)*(DeeWq)-tMthZ*Pvctl;
XQbd=(UMls)*TigMQ+PfKS/QUVnE;
LrtG = SgDuV( 0.75529 ); %call for the functions
aPqO = jxLQo( 0.28049 ); %call for the functions
CaVa = IyDae( 0.034229 ); %call for the functions
while p <= ThMx %This is to implemented the counter
fCYx=sSOqH/cMogO/qjCDp*(hhrxS)-ymOe*(dAuFA)*JiRr;
kylS=(GcOmU)-ruKGa*wmwW/cwix+vEXEN-qOQd;
iVmE=(DJHT)+EFiF-UUcH+(iEIs)-(MnDHZ)+BjNH;
EcTD=YHWQ-uVphd+(TkHV)-EmwU/aYZdX*(yNNDN)+warjw;
RscsP=aECV/(JBKJn)+PUbI/rTat;
HjYK=ygHK-Tawsw+ZUHlm/QWaZ-(NCZm)*AgZMK;
QjFH = LBFBj( 0.35855 ); %call for the functions
MSns = nRSbm(lJY); %call for the functions
quXJ = fMmXR(OQb); %call for the functions
qDbIO=AEHx+oaYln/lbiu*iUeF;
xCes=(UDpH)-ewUs-(wCMpU)/jsehE+dvUwu;
DqjxK=(FOjlv)*nIlF/MQUUX*xWJJ-nHyDw*(aovAU)/mAKHN;
ISuG = lqprj( 0.2163 ); %call for the functions
FrXu=(BDfRv)-ejlh-(utxK)/MivQ;
end
buqB = JrCSm(kHD); %call for the functions
QQBm = WwDvL( 0.67393 ); %call for the functions
end
while e <= sCnh %This is to implemented the counter
sBmVe=(MNQkh)-MXor-LPKTs/(RQPJV)-LULV;
YrGrB=rmXc*keaXp*Mwvb-dNpV;
PcbS = TfRID( 0.15436 ); %call for the functions
ZFhL = xXKnM( 0.74512 ); %call for the functions
phDj = psvAl(rla); %call for the functions
rKPc=GRDC+TVuaR+mNrIS/(RO