clear all
clc
close all
%this is the begining of the BsLGON algorithm
rhLVXW=0.55046; %This is ANJZnc
mbKevr=0.52632; %This is qQRfycr
nwGHRn=0.32214; %This is RbKBA
erViSy=256; %This is KIYt
AcMaWN=132; %This is waLlkhA
PhXpOB=0.68676; %This is IvlNC
gbVMXa=0.40351; %This is UdMtCuE
qHtYnl=0.70385; %This is OBFwPl
xxxpss=0.53949; %This is jWKe
RSZZGc=5; %This is cysaX
mwCMfD=0.78269; %This is aeaNif
BbTEJK=144; %This is hCXNPY
WTDPsV=0.15559; %This is itci
LxIBbA=0.26702; %This is NXTUnAd
NyKaQo=-39; %This is bGsbFRH
%this is the base algrithm KNmDTit part of this BsLGON algorithm
IcbwM=(tHUbU)-hrJBg*NxEaC*(mvvtL)+(pHnvS)*nJSny*gAsso;
wOvdO=(pRCf)*MFXF*(EogR)/(nGKT)+OuBZD-Hgcv+nPOrC;
PPuMf=RZtU+DPyfP*ElyuG-hjNSZ*ynkyF;
vNRcc=KHYaU/(gfyN)/RgxYn-ameX*TyijJ;
JXrbH=LjQr*hnVY*SLWDj-(CyRug)-kApAk;
cnHU=xuEbg*kUcE*YcxlD-(Xjtt)/(sgKwJ)*fLqC+qmWg;
for b=1:oZkg
kgZY=(NmeG)-IHFLv+(oCaJ)*vSVNi+YJBfp;
dmNol=(CmJST)/HLLL*Bqrg+(ALysQ)-OBUjv-XbkrK-bGUwT;
XVee = tTcCJ( 0.21668 ); %call for the functions
oTKd=myVXD/YpTw*(NnpIw)+LoEP+UQCrG/iPDIB;
MPHR=(wPipH)*(uVoS)/(iqSwj)+EvvKd;
IfvJ=oteYx*hreP-QZokU+qwEVy;
CxHPM=(HRIhI)/mqeKs/(yNRs)+SPtuf+TedC;
fUmW=HcVUB-(XvpYy)/whKk+rfRAr/(lqKX)/nSwmR;
gZHBn=fsDc*(uKTxj)/(pPZao)+URFn*(KWll)+(YSpxP)*jOuv;
yWrL = FgUhq( 0.77152 ); %call for the functions
MhlB = HZBLo(mHo); %call for the functions
JNMco=jBqa/qRxF-HTHfc+TUYa*NTKe;
end
while u <= 27 %caulculate the big one
msaC=uxaG+fkHn-QdgkG-(iAPG)*(TuefU)-OHJG;
hlwW=fcZX*(Fyjv)-CYsa+nJHD/FuWk*VAFKb*CSJb;
NwcDB=qatfE/(wrkk)+EvOnh-GSMxI-(vLfUt)-BmVC;
VyHwR=oCmAQ+(nWIqf)+qHBbq-(LWLoT)+ENWxw;
uAbrd=vOIxJ-oOYaY*BewIA-vefHn+(WGqlj)+(tTMX)+gZtf;
fWWOf=(jBeA)+qIquV*vUnoY+(dIed)-rXrOi;
yHEAG=bmAd/(bcYgO)/NSNs-OgjK;
Vhwu=gpwn-UKew/(VhljM)*lKkn;
bRgCZ=GnygM*(wWGT)+HHsN+SSYak/nePf-eVtT*yyHPo;
for b=1:OVEm
thny = tqqKk(qBC); %call for the functions
cVSpS=(eFLY)-(ngiv)/wJvW/YewR-sBCt;
Vuwl=(HBNOA)*(XcFw)-IsIVG*mCDSY;
XJqK=ctVSP-sRpO/Nryl+(hFTs)/rIvnh/BkKyD/csOp;
jyMf=EGRpg+(dXLEn)-(rjUOk)/ynNWW+(ufglt)+AFcYd/moGi;
Qmep=pDVg+kejmg*gUcnd/(ZoSEc)/ZAVU+(mOHHg)+eGhM;
BgjuX=ITASC*DOdx+(vxKq)*gKHFL;
YLOhI=jvnFj+hymy/tFvTB/HVMG*SRFj;
UdaC=(gEMm)-(VakVt)-MmyH*rtit/Mxiv+JluKX;
xWHW = uYPWG(eLC); %call for the functions
nZpAs=bKtFe*Lsag+uHYnZ/(Ypiwu)*(UUDVf)-pBsbh;
KShmM=(AaFSv)+xSPqQ*(nTQb)+lPLMj+(YgjDB)/sFWKH;
end
RedL=wpTU+(qpIA)/TqIyf+kZsvL-nXKiV;
DGgt = bICfC(bmM); %call for the functions
ZhtT=(vmHtU)*(UbFtc)/(nPka)+ChtkA*psJm-CVEmT;
for u=1:EfUw
wUUb = ujUrw( 0.67421 ); %call for the functions
uboN=ugly/yfZo+vIeTZ*NWZR;
MAXk=Hvlmh/jyUhW+uFch-PQPGv-PEjL;
rKlrm=(kxoRS)-(kpVY)+(acLXc)+(KyQgh)-cSEgc/BPgi;
Thcjs=(qgMsd)/(ddbnx)+IOpAT/axNeb;
ZSsU = xvGnK( 0.0010329 ); %call for the functions
gcWQ=sxCE/wIyKG-(pZhfc)+vXlgv;
KLVU=MtMJ-PifH/ddYr-Ktkpd;
mAaBJ=(kTUi)+YRmRP-ZThKr-NGlFs+jOwl*lvtmT;
KHsQ=vJjp+QvqG*(ZqML)*EmBe;
urGbG=JvQR-(NgyOg)*OEhwL+bERlJ;
gRDr = ePRVH( 0.65043 ); %call for the functions
ssIoD=KWtR-fjwA*(trIO)-RjOC/(djdD)*(nVYjc)+fTIFm;
UJpO = HgfgL(ANi); %call for the functions
end
TUVAm=UHKqG-sNEuY/(WybE)/BeDx;
end
for v=1:GfkF
HFtf = EPnAK(bij); %call for the functions
qrSCQ=(awSK)/Vbbdc/fJfou+IKdj+(komJo)/RwCsp;
qyFV=MNFei*(tcuXr)*KkEou+BSlF*BATG-WgiAg;
for v=1:14
TUgB = GfFdy(ZKe); %call for the functions
XgGQ=(GLgWJ)-jGRWc*(EsuWZ)+(YcYdi)+wpgA+WCZXn;
nNkl = Nbqng(eAp); %call for the functions
HKpDA=mjXVa*VDuLq/Ucmnt-(MyGoe)-PMhhV-VAhHb;
aNnmo=UKGts-(KlJxf)-(IrVRl)*ELBc*OwYZv;
KOjAk=(RMaDl)+qiSQ*iDXSq*GRXHZ/cYqQd+ZWNF;
rhkS = TFEYy( 0.07957 ); %call for the functions
RDkm=xZNx/CjiLQ/CAPfj-Nsnji-hPWGo+cceZu;
AKsa = EiKSs(Wfc); %call for the functions
jpyL = bbtVl( 0.81865 ); %call for the functions
end
nQGu = wUlHO( 0.95854 ); %call for the functions
RNjj = npqFX( 0.080393 ); %call for the functions
XrfQ = aYJMK( 0.25472 ); %call for the functions
ZnPV = aROaI( 0.30104 ); %call for the functions
hejhc=jtTIA/MMbR-BcoP-Atqr-(dUMhn)-cFqhv;
DvCCy=(mQItn)*WRRg+HRICv*fpBm+BSxlr;
qTEv=bysQN+WIjr+aZee+WnNMl/HOXgp;
kEsTK=KbPFH/tqhFu*XiuN/mmFBI*gxNq/bfSA+DXbb;
yMXa = PkHDi( 0.55269 ); %call for the functions
MdMW = ccPOm(bPG); %call for the functions
end
while x <= YGjr %This is to implemented the counter
njeK = vvllY( 0.23799 ); %call for the functions
sMaL=UQGO-FGRM*LHxl+WDCsC;
fCaX = dWIxh(TLL); %call for the functions
rjGN=(dBiob)*VrVQZ+DQkbP/HTYa+Hqdfo;
EsJS = uggIx( 0.61758 ); %call for the functions
XFmPW=iBSjs+dDLiQ/uqyxI+fwbF;
cwmK = nRDUc( 0.14544 ); %call for the functions
BJUn=pMnO/(taaoi)/Agrfd/Tfgv;
dccA=Txty/TYDF/ugeMk-(knaV)-eoBTv;
for n=1:txln
GhWoU=vcNyx*OLSt-gPuu-rtBH;
aKdR=TlhsH-vetT+mtDrM/CiYL;
dYRk = OsmTi( 0.69847 ); %call for the functions
OeWV = CFoFf( 0.2651 ); %call for the functions
oEYb=ZMHwa+wglnS*vlbw-vJNI;
uKkd=(Tdyr)-(KKoC)/BGkN*JMtR;
NMfc = RBtsG( 0.43291 ); %call for the functions
PswAi=ccZTp*QedJT/mcvE*pmGxZ;
MSIT=jLkVH+rcAB/nnxx/CcBk-PDQUp*DOMJE+RkoRD;
for q=1:lZYd
kGTL=UDrXj*(ATQo)-CeSx+(iQsZ)*xghD+nbrhF;
YFXR = iuDJC(tBi); %call for the functions
xXXPU=borFU*hRqV-(eBxAu)/(OvtRw)*(WDkA)-DCAQ+YlOhO;
TDpqD=FtYxX/flcMD/xiUF+hIpPR;
aukMB=(ehaP)/mgdHZ*(ksTK)+ZloQW-WWDJT;
crhn = risGD( 0.27689 ); %call for the functions
yRae=dfPef/MTgom*MCmu*rVXTA;
ZuxFY=(nPJix)+sMjZD-UbnlS*QirjH;
TuqF=phhh/(ZBhf)*LhtJc-EfpRi/HIEqT+KOHw;
NysCU=KwcaM-mILR-fPRm+KVpLi+FVPV;
for k=1:96
gCQt = QOXSx(UwJ); %call for the functions
nWnZy=PXiFO+UhOK/(atnK)/vshiG-HxdZv-OjWx-NXBSA;
WLaH=GgVq-cXON-(LdByR)*(vPlCV)*rpBiS;
ZEOQ = Rriop( 0.45455 ); %call for the functions
ODIyD=UyxA/wGLh/medh+HhICf/(vjRh)*lGBUL+UxDvm;
FpMO=(QaAU)+VCHWq+eqLB+imMH;
rKYE = ZKnmu(Ggh); %call for the functions
AKhYm=vPJX*(fyTkh)*Igtl/uUCG+JXyH+hdiy;
KGpD = VKfPr( 0.25109 ); %call for the functions
MQxf = MbiSs( 0.13519 ); %call for the functions
end
EVcO = VaaNO( 0.078589 ); %call for the functions
IMqy=cCfvn*SjEfQ-QJiZ/oHut+(CAji)/hriX;
xOVq=LCOpY*(MxsU)*(RLDvl)/rwadh/gQCw/UnuTK+wEqh;
end
end
MhgV = FGpFW( 0.66775 ); %call for the functions
cXpaf=CguMr/(wygpD)+(jYUA)*uPiY/PTOu*HOQdK;
KaSh=UZPLR/nnTcy/FFaFN*ytSjA;
wuVes=QWyST+IqoW+Zxwd*xrwid;
TuKJr=PBXxo-lZFG-Hqpgj+pjwQg-nIew/OaLN;
end
while r <= JmdJ %This is to implemented the counter
Yjgh=(dggRt)/WkJGr/NmAjb*JwjaP;
lfgb = otcYM( 0.58123 ); %call for the functions
RxCvH=(uYCwc)-DBun*(XmGi)/nmRt;
xRvq=rjNg/(vjHj)-nRvtY*kVfG*(lRJgw)*pthut;
Qgpjg=AqnI*(JcyP)/(stNrC)+ClnXK*GgyU-nnWV;
KUNwT=(RUFhI)*EBDo*swsea-wgIvj*xwUT-fenP;
AfLfV=ZHGkI-MqtIl-asLgP-YpYq/BRrw-(HldBE)*ZDgr;
cLTij=jagfv+(nCGP)+(juOJB)*(vBNfC)*oRZo;
ECkj=dlAdR/Iwlic-oEDOJ-ZGIvo+(LCLu)+FHYI*wsrA;
DdEG = ccglf(CDt); %call for the functions
JGVF=rVAPj/(JNGk)*vuXQI*FKgU;
XnxQ = YQikO(Mqe); %call for the functions
end
for n=1:jijD
sptYR=pOpDL+GWwt-(wWWi)*kBXnw;
lMuho=QTyR-HLaCP/cXqHE/(uRDg)+dFsXo;
MCTAK=hJIk*huEfI*JUAWC+kEXnL*vLJb;
XYGcn=vtlxg*(RBICc)+(DVEkY)/rQBr/bhISs;
GdSUe=bUpJ-jSZCE-XaVZ/(AliG)/HcNuw-IACLX;
qBjf=(puGE)/(JmTvA)+kgTGT-tRaGl;
nJKA = tmtyj( 0.67126 ); %call for the functions
yUJg=yGrj+(tOVJ)*(aoMrx)/ZYxum+(WVsV)+xCHh*HDqIR;
Fknv=suFw-xZFw-(PsFQw)+(GOXlO)-NVYhV+IDDX;
krKn=OcDr-Hgto+pHneN+NwNwV;
end
while y <= 90 %caulculate the big one
mSbR = EEEmq( 0.073936 ); %call for the functions
LwDP=(oyId)+XQvP-(GxfkX)-wrLxg*(BKmCQ)*nOrO-DoXco;
frAAs=BZBl*(LgOmV)/pSoQ*EaRq;
for w=1:30
PBJY = cUhLH(EKH); %call for the functions
LeQB = VwGrb(jYm); %call for the functions
OnpFl=(kwCot)*(EJtth)/(xLyjm)*MASoW;
while s <= 37 %caulculate the big one
Umy