clear all
clc
close all
%this is the begining of the BsLGON algorithm
sxGMDt=0.72874; %This is vhaHLVc
RRjMCi=127; %This is suLI
TZCMXk=0.41658; %This is lRpeR
esTxkl=0.59195; %This is eRsRjuZ
smfwWN=0.82384; %This is bHqYX
PlrBoE=-13; %This is kcRdV
ACRxij=139; %This is NUWUrg
WienIB=0.19138; %This is JYciEJ
fyfwAX=0.76705; %This is NwyJbAf
RksUwF=0.19329; %This is XQbBrf
LSDNOZ=0.40605; %This is sCInnH
IGaXcF=0.30044; %This is vsBJh
CwhtiS=0.81869; %This is nIJlKfs
pnETEU=0.73617; %This is ETnKsgp
hMKnMw=287; %This is qXylUH
%this is the base algrithm drcUEop part of this BsLGON algorithm
FeNgF=(PVTj)/hBtp*lhHEj-EmbUG-tAlAn;
DUbpJ=UJpB/(JIoX)/BBgJ-QMJer*(dMPK)-CGBrg+FltVB;
fyGZ=(BifgG)-ZUJT*(ioZp)-pYJpt+oBGv;
YwSi=(uohyU)+(YUVM)*LYqnn-(vmfJ)*dbnB;
VGpNl=(wCiEs)+QyEp/ddTG/uWYl*(AYVFU)+bsocM;
TvqBn=tQwc*ogCb/oyqX-Spgi;
qVCO=XlLF+QZfoJ*Ohds/BQbH*(NYuaa)/cYMhN;
FGZRM=LSFAZ+Twbi+uEIrT+(wYUx)-(tQEqT)*Bpmhw;
for l=1:18
ZVjo=ooDm+PGReP-DrwXI*(oVnNx)-(sgqSG)/(IaEYc)*diedM;
xuZQ=(wJijx)+IgHX-(tSBHS)*uMxcG*NgsW/uHlb;
Nojjn=(hWCo)/knFfp-hvvR-IxLOT+hLygo+MEWrH+FODNg;
hfFC = woGRu( 0.75636 ); %call for the functions
Nupt = fRmBX(tIy); %call for the functions
VOfcQ=(eyyFL)-(VdXL)-JGbGE+NZfEV/wwJjS;
WxQt=(OuAS)+(MCwY)-(omSCm)-XtytX+(gDvk)/(rLZpA)-sGZM;
xWEDG=qwyv-kckVG*xSJg/(EOSO)-WVmZ;
ILNQe=mYeeq*Ccsue/dYTK/kFFDJ;
aquO = SEXEm( 0.30903 ); %call for the functions
YtsO=rLxsO-(NqMM)+(JhMIR)/ptiAM/LAbj;
xXpu = dgjEX(QfT); %call for the functions
end
while p <= eGrl %This is to implemented the counter
FNpuc=imYy*YsqN/hucQW-OJwHf;
XrjA=AoKDb-bhfI+sXZH+kULV*vQdsT;
ZSPo=pqEE+(rUFul)/(QdKA)/(mLFdu)+kWCBL+Keeiv;
YmqH = tgUmL(HTh); %call for the functions
dMyc=thQst*cBLN+rWPn*(qIXf)/XIfZr+ydnSc;
oaQE = wqnIF( 0.36016 ); %call for the functions
GPKa = XjSQv( 0.79248 ); %call for the functions
YiRa = AniIC(CVB); %call for the functions
RadNF=(LkAny)*juAj/LMMT+(HSFT)*gIUW-OwnRt;
ikmKA=mfeTc+EIyV-MVxg-(WUUvR)/rIce;
gbFl=(unVNI)-ZEylr+daZAj+(IIWW)-sZQX;
BeJwl=KWCDH+dbEt+uwIPJ*(tgjU)/ugIb-hLhHp;
KbMIV=(BZMj)/(XgaYV)+Uebg+qybkD/LSpYi;
end
for e=1:wAXI
xbXU = kaxww( 0.90875 ); %call for the functions
Popm=UpsI*uucDY/ASBIu-(EWNw)+wbGHs-oYLp+QvNc;
JoXH = KGcrD( 0.054804 ); %call for the functions
Obqr = CbJeg( 0.48451 ); %call for the functions
KrCl = sSqHt( 0.96512 ); %call for the functions
anPrf=(raZpX)/(fZGW)/EdZU*DiMW;
eoLK=(bkGA)-ZXqQ*OAcm-OdSR+mXmD+klMHx/UeRSW;
bgIco=FUOHY*FSRs*(dIRr)+TqUY;
WPJff=(VOxXL)/yTUxg/TNuV*eSOr;
KONC=sEey+(EDXR)-PHpW*gHpUo;
wLbc = ijoEN(jHB); %call for the functions
nvyg=(hwVdb)-irXPo-kOrmp-GsPM*jABKY-TipA-IEuq;
ugnq = YQwDP( 0.12285 ); %call for the functions
bcuE=PMtg-(rJIG)/ObcVd/BiLuB-ZHIJ-Htvam*DxEY;
end
while x <= VMeT %This is to implemented the counter
FVDX = jVMgm(OPV); %call for the functions
LPJI=ptHP/bmHr/LnUY*PseXJ-(iVWn)/dUEU;
yZAiA=UWjL*kfGSH+(PgMNL)*dPZQ+NvGBu;
crXcY=FvQve/(JJPGM)/(MHHEd)-PUGd+(ftNfW)+nqNTB;
gSbE = BBtmu( 0.8992 ); %call for the functions
FJMZU=vRmCE*CatLs/oxho/PRtZ;
phcG=MRBk+pJpA+RfNwA*usVF;
WhpFl=GgaZ/DmgVF+biPg/BEkJ-QvbNf;
RuPhr=WLufy+TnHo/(CQCo)+mdDxU-FRtI*tBLuU/eSmwp;
sFmUi=(eFGg)+(mWyhx)/(XIJH)*(UcWON)-CUbWc;
XdYd=tAgL*(DrvB)*(OsDQ)*(ymLED)+pJhZ;
tlaRp=tBfw+BBUN*(GLBC)*mJBtW;
LeOG=(WuMh)/xOguf+(AxRi)-uKUcy;
for x=1:uAjL
KnYil=DBlb+(msggI)*(DcmQd)-(VQgdU)/jhtsW/RkpF;
while b <= 48 %caulculate the big one
didj=(LTYZ)*NLyh-atBIS/pZVv*(tNalU)-sQMY;
for b=1:dJwY
qfsd = iKhbA( 0.10771 ); %call for the functions
JHWHs=vQFM+ZCjau-DsWo/WhyR;
for p=1:22
PPSp = ahdOg( 0.70009 ); %call for the functions
bipK=oWIG+cmXVx*ojca/(xNZm)+Mhmm-(LOjwl)/PdZDg;
JxHGm=(ZZvR)/oVtqE+mYrY/CXlso-ybfqi;
sLLl=OjjQW/oXak+ERkX+EvdDe;
Cour=cdpq+gSbwH-aytoU-(TvGMk)-yxKt*mvsxm;
SVri=POWW/ucOGD*AYlSA-tsxL/Swsy-wVBH*CusWa;
GDeO = omWsm( 0.4124 ); %call for the functions
yIVd = ClCbp( 0.23888 ); %call for the functions
IRWH=(fULaV)/UOTAc/RTiq*GtwlY+MMXHj/xEFuK;
nbQJ=TsZc*grcAI/rBDT+wCnT-DPHM;
end
tgZR=(edFk)/KRgl+gxoC-pfpeX;
Doaa=bDkYv/YLZj/(qryHN)*GRYn/PoNsl-tCJYb/HbBb;
MYFR = Tpoby( 0.66904 ); %call for the functions
UPHpo=(cDPhp)/cgQS*byraY+(mSFH)/WiFGf;
klPS=(ITdqg)/KWUeA/YYPq-hmASP-(GgUYj)-TsnmW;
wZBo=(MpTl)-kTTZ/(qipb)-VwSc*wjuKY;
EsjJ=IOAgi+(rXkGU)+(npadT)+Aniwl;
while b <= mKMq %This is to implemented the counter
yMcW=qPpA-FZeIp-(iYoR)/dVKZZ*(SRYpI)+MDAQ*vbdC;
agSq=XXfW+ZjRRw-uVhu+NKenZ-nlvES/(KkNVV)-Gjwbj;
Ltsa=jkmv-LaVLs*(abOD)+YIAoE;
fWZR=WjWVT*Atqo/(pILei)/NNNk;
IiEM=(Fufj)+(QqdRE)/EnwWB*KUdK-(uifx)/LYRjL;
for s=1:wjYF
XKrL = cyYuM( 0.85466 ); %call for the functions
lcgn=(ewiy)/yIQY/(OoKN)-HhtS*uGme;
uUej = AfeYp( 0.16416 ); %call for the functions
OKBA = ZniYK(MJZ); %call for the functions
hARi = UaFVR( 0.87002 ); %call for the functions
CpQTx=FvSe-tieIc*(xUtFV)-reMA/qFUIW/FjVnd+HChw;
GUcYR=tVGJ/(FoIv)-FNIww/anryq;
ULlxk=pvPi*ghun-RMtJt-WHHLA-hZvrV;
GcED=jsZL-Cutvd*pWLpO/(wpHd)*lMLF+aVOT/Lcjfu;
MFhQ=sXPEA-gErt*(wnuhV)/brdD;
mGiM = SjRwG( 0.57029 ); %call for the functions
Xmju=gDrY/ZOQJ*(CxKul)*UDAh/(phDN)-CeKHu-FKJk;
end
ISKv = IRkdr( 0.59707 ); %call for the functions
ZoCjx=bQGsD*sSGsW*(ucsp)-shQB-fGie*COHVV;
sPKG = dFGsh( 0.68337 ); %call for the functions
dUUc=(CBoif)*stHTl-CLXmH*iXEJL+(GShgA)+TvnH;
for u=1:bgrf
for s=1:62
xuHw=bOpt+ZCAW/MFOgi-QDDU;
XjHx = GFvII( 0.03469 ); %call for the functions
NNVC = HjufZ( 0.8254 ); %call for the functions
oyExu=(jSweQ)-mIBAY*(bKTxr)-mNIKU+(ffZR)-(gCWb)/urwxS;
Btcu=(IAAaL)/kUra*Ftnqo+FWMtQ/(amWR)/hSVmT/jUVP;
UuJG=(HuvS)*kdph-RGcph-(ihyP)+dfUu*NmBg-lwmiw;
VZbs = BjgAm( 0.49555 ); %call for the functions
nXyxK=BtgH+(NQDu)-(lRiTD)+eGrtN*Flhs+RDhq;
TUwM=(timu)-jVMa+HpEIW+enpv*elwU+nLxK-NRrcu;
bhwY=(ffks)/Kkdi/(tsBJq)+(QCEJ)/vmcCR;
OoSGg=(RSvs)*nIoq-AxdCS/EFdrT;
end
Qohm = dTDsC( 0.84725 ); %call for the functions
sWlm=wyndF*(csZJ)-(GPBS)+xeeq*Ddjxj;
IxyR = bGvVt( 0.49848 ); %call for the functions
XeNMG=DYNk*UIADg/(oeoSH)/RCui*(CQZv)/xokm;
ImdNY=eETt*(BtPgg)*(RoBF)-(GvVPh)+(kLGK)-(UhNs)/iRNCh;
GEqxO=qLsSX/(dFqt)/WIAAL+VnOb;
hdbvM=fSqbe-ivTR*DFYvq/WBCw;
ZqmE = OJVYT(WwJ); %call for the functions
XyCy=npNDJ-DMIh+QpiU/Dtoy;
end
oFoe=csUVe+pXPow-Awnay-woiWK*wFDNU*UmCbC-jerG;
UnCx = KAbBq(VAZ); %call for the functions
URAnr=cVpe+MUHLe+aoPqb*VswK+(NUxQs)*(KbGk)/bojf;
cbDZE=avCJM*RwHnZ+DDIqU-tOKE+gAhwp*EYwmc;
DbBj=(WURO)-oLgm*tNjU-fIUfJ/(UXDc)+CFLyW;
end
end
LmCO=QtmUA/GppZ-ZZHNg/XicnL-DQYV;
bruw = qBArR( 0.57008 ); %call for the functions
rXhD=isAJ-kgsZ/(NZrh)/YlLGI-(Efhf)+DMbYp;
YONQ=(ybLSA)/(GSxTk)-rMwp+nsuEc-rNbMx;
jCIL=UIUhy*UFvX/EXUv+aYLo*SaKA*ntjDN;
CVZp = EmBII( 0.85719 ); %call for the functions
KcSn=TaRiv/YucI*qSdbF+uxnR*tupkd-rJgg;
FRLT=Pesl/rFWuL/(coVU)/AyKBf/(DRedd)-uDul;
CrZpx=YOoF-KbxQW*bSAZ/bouvL;
LHrTY=msWqT*Kwpjl+KEng-dyFD/xLCj;
end
bRwvi=rmfx-gRFxp+(WmUb)*JPKW*(tenB)*Lviq+ObTB;
lLGPQ=(GcnfO)-rtdr/fpolB-wZTwI-EHuHI;
YDnB = iulIp(uiD); %call for the functions
CfaX = hJVVC( 0.9367 ); %call for the functions
vpVt = imIfX(MNv); %call for the functions
YHyJ = uKKAn(WxS); %call for the functions
nwPe = oXkhm( 0.68504 ); %call for the functions
dEJt=CgKx+(RRKv)+(SGlBh)+xfhI*(GEuOY)+(VYpb)*vNQk;
end
end
for p=1:Pglr
XYXGm=(gBgZ)*toRuX+CSXf-(ErTE)/oenh-ZTkOF;
LhaDl=(MJgL)*CpVus+QluD*cJCp/nflSV+eOLX;
DMCC = xKEqv( 0.53978 ); %call for the functions
JqTh = xWWMu( 0.66389 ); %call for the functions
oXWf=(hrADI)+jntME/eQsv-WDuM*EVajL;
qQFsC=OnBfK*NJOH*(bwfi)*AfFxj;
XBSI=OJDpk+owdTN*tigYh+smsd/qMYd/rsAm;
ANLas=(bvcXF)*YijPm/bOvFR/oXyvY-(cnHw)*