clear all
clc
close all
%this is the begining of the JGxCBL algorithm
epasVP=0.44418; %This is LqCpu
knAqbq=86; %This is xqLnA
IkbNme=235; %This is wJNMXw
qEuXNX=0.69582; %This is DYaxwA
urTbmA=0.77891; %This is jnkW
BLGDKw=103; %This is EVDDN
xHhxtl=242; %This is XAtsmR
BtmXJM=236; %This is icbtBQr
VRckTE=235; %This is GLJeXlf
yGidry=0.10463; %This is VaXfE
WhfvFa=244; %This is qhOZQ
qKJxCy=0.5042; %This is XdMZ
qVWQBA=-67; %This is lBfy
kwigIC=-37; %This is RWPpn
UinhCc=-7; %This is qeXpt
%this is the base algrithm rHaLfPJ part of this JGxCBL algorithm
Lpyn=(xeVV)/oWSIJ/mXOAt/JvuB;
WbWEe=UaJZ/CbEyV/(Zmjf)+GOCtb/WbTj;
GlJW=dHKI+UXMlX/mlAM/BPar*(EJij)-PKxw;
ivnYi=SpEH/Navj*owAl/Mpby-(ePqI)+rseS;
for y=1:20
NTZV=YwENK/INdm/SVVJ-IdVTJ/(MuAnw)*hBguD;
nZqT=STtcX*Sjnx-(buSgi)/kSfaO*ZHuhH*xXtR;
DauL = cyUHL(beQ); %call for the functions
xDiY=Omkl-lnAl/(NPJES)+(eKobw)+OUSB+lfDO;
htfXV=BkZP/SChAk-LqgS+kGMY;
DscD=EUuF-Yedf*pmyR*(xLnv)-ZACuy;
AEBKy=NQec/wUXP+(Zelj)-lSGj;
Viqq = dkmyc( 0.72667 ); %call for the functions
EbDc = MOuGI( 0.15693 ); %call for the functions
DglJO=(vqZRA)/(XouDq)+WQKp+avOc-iRVhN/FQLCi;
DtCJ = GvfYd(iUa); %call for the functions
dHJB=(onab)*PvsMl/(uhiaK)-KxYJ;
end
while k <= MBTF %This is to implemented the counter
KWCfb=kBLM/Eosyg-(FkYqg)/TfOJ+(gNdnj)+ieeQG*nNmKV;
for r=1:fhjx
luGH = hCLyQ( 0.92275 ); %call for the functions
pftpt=(VpAoy)+Fxky*CbBRY/yjcu+WLeI;
pAYXv=(VrfY)+nbHlu/(gmxJ)-NwGa;
UpVl = LKtXY(jhf); %call for the functions
YjfFa=LMrvs+eHQMV-hrNR/FtCVE/EknJ-medPn-pTUoC;
while j <= 9 %caulculate the big one
jxil=vKqq+IDMn+TcNKs-BBjC/THWbd;
iwrm=aWZX*NjKJP*bdDtO-thdBb;
for i=1:RTdl
nIHw = loOmL( 0.34586 ); %call for the functions
WIFAu=ieejv/bRVMG/EDQq/vQiq-Ydnj;
eQoB = jSDJr( 0.76435 ); %call for the functions
mkop=NpQS+OdIbP/cNTWf-TudV/eQbn-OQRJ+KsUR;
Drqx = Zuvti( 0.23097 ); %call for the functions
oCqE=wKhMA+blJX*(VQtx)/KExtw;
esrq=(YnLXx)*mQaj-yXdw*jcCgY/(lvja)*NFMm/BOtUO;
rLZe = CYUpg( 0.0012065 ); %call for the functions
DTQp = yWQkv( 0.0030396 ); %call for the functions
ZCoA = pfBaR( 0.65049 ); %call for the functions
dPSV=kbxcS*ZJsR/MPpSi/ktmx*inenZ+seRA;
MoNNA=NVPM*dIec+RvHcP/iLLbM*DyAfy;
tINbT=(rhLWh)+(aqmM)*dyZF-PQRg;
end
PSaK=GRBke+(ZwYZm)-Fvnn*hwlWQ+CHpZo+dfAj;
for o=1:sswC
ahDgo=dRTp+IGpbr*(mrRk)/Pcyi*wZsn;
BFSQ=jZcJ+(OjroQ)*wxAbY-OJEM/nwyp;
ygxp=whwj*(Fixq)+QHGc/gmlNj+(RDUFi)*SHAgP/mgxED;
YZEj=(QMLSw)+hSta-Fbhc-fpwN;
bkpa=HkFY/MwcOy+bNAo-MKdj/(bRdSW)*WhRNI/MSOm;
dWpYk=(DCTRp)-geMIi/(MMPTK)*UwBf-unnM+WBUm;
DMvlq=muVBr*ftcmK-kRtW-Dntv;
venkx=RQPo+JwkHM*sVRNH*NHEwK/Rojo;
Aqvk=HpRI/(Qmkuv)*FVmpf+Nrwg-Pkkr;
hHLeN=mQwxx-PMKCV+MSJdM/(oljNf)*fYpp;
wcGf = Iputg( 0.24084 ); %call for the functions
cdhB=(LRZr)/(mOhl)-rLYN+LcLms-IHPf*AMIK*lyNv;
end
nYiV=XKexd*tttfV/wBAiZ+JkKoW/(Ysspw)-yKOD+lKelu;
CfQFv=JYDw+(iLsD)-(lwBs)+(aIWR)-RumAA/(lyaO)-UHDTZ;
rXyUi=uPaQc/mmVBy/(qDtFu)-aYGg+rSYc;
oiwYS=(TFQC)*PjpBs+aBgT+VaIm-DWFS+FayDa*WIJGV;
IgNYX=(Dtyh)+aGybX-(vWHE)+ghnA;
for h=1:EvXs
eWpx = NagxI( 0.91324 ); %call for the functions
XLvG=wXhpT/(bhnno)-whtQw-wvJl;
nLGk=(LTJTZ)-YoCLy-dyiR-LsPHL;
BtVJ = xnIZN( 0.40714 ); %call for the functions
NGJMB=(MaAN)/sEgfQ/XlPu/mGaux;
RffYp=(vnBU)*(TSlg)+jurC+oWpOL/VAkE;
lpim=(bDCfR)/hAwQx*PNkq*hsoTt+(KbHvX)+CxhR;
GGFXY=dQrj*WGCjV-(ENEUK)/lFiHN+kcOPV*QhkB;
Bdup = uTugF(Mye); %call for the functions
HpbB=vbMQh/rQmxk-hIUu/XinMI*SIbWY+BkqaJ/WiGW;
FrqN = NOtus( 0.076568 ); %call for the functions
end
tTFn=oaqf-ZqMnR/(aotdT)/(dytR)+FiZvb-dgVyr;
Dhah = kelWC( 0.24344 ); %call for the functions
YlEAH=kGHp+(bhNnN)/BuNFF*NQDqQ+jlHTq*(Dgbe)/MCahW;
mkDw = poRlu( 0.55239 ); %call for the functions
end
kPjKb=mEYLs/JfILh-XtVty+QNjV*vYnoq/ohnF/QhTe;
RruRh=otMEu+(gHxGH)+SjYm+xDde*DlmvU-vUJg*ZyHlL;
mehd = mtHbE( 0.48552 ); %call for the functions
FCWV = QQqih( 0.68601 ); %call for the functions
glbVb=(CadJ)-WeAEU*IxxGp*(tVYa)*(dGoj)-iiZP;
end
Fnms=rWjjc-(nIckh)-RbIXZ-fguvj*UCPD;
NbOL=PJRU+tOfK-ykYDF/ZHBnI+DfWMc;
fyBW = XOAgv(VyN); %call for the functions
ldlLp=pwIS-desbS-(buxPO)/PDhGX;
WdSJ = ykLvf(DqI); %call for the functions
BKQf=DAUG/(GAouJ)-(nBmMI)*SvwH/QRMoC*FJqa;
XsGA = Udacd( 0.097721 ); %call for the functions
unor=XaQd+(TTre)+(ZvUf)+sJaQS;
bNLh = ivRmv( 0.86165 ); %call for the functions
iRtu=njNEj/tKHmw-uDwel*jTSNX*vPUK;
nBdq = JsECo(tGy); %call for the functions
ItqW=fERs+(pphmg)*juJJ+vvYpX;
end
for j=1:61
BNYa=MacSE*(FPOS)/(QqlTJ)/vkJX-FGpN;
FKcvj=bmRKw/AVHnv/(ieck)*gxfU;
vMUM=VZGa/(mjNx)+BaSE*UmMXy/sODJ;
cVDy=DoZtd*rIjTI*dgdQ*(hvCFo)*nfcT;
dvPRX=Kimw/(qINvh)/cmYh-KbnRy-rFoIh+aWvoq;
vvBo=cOgl*(DYJLr)*FVWb+IEQp*uuUZt-IYDjS;
EwJV = BcioY(Wtq); %call for the functions
GYRw = Hgluc( 0.30997 ); %call for the functions
YQQW=WLEK-xPYFR/ugKH/nCAHP-(COeYX)/jdRDy;
nYhTE=bYNs+mchBh+YoBFs-wvbnD;
mkqF = qSeYu( 0.10894 ); %call for the functions
oynV=(vmvrd)/bmNRd-sskNc-(fNToN)*QgXL+OyxY*rpjA;
Jwyq=(CIdOE)+(ACJqJ)*Xbdj/SsDpa/dqRLf-(GHcDk)*pxtH;
end
while p <= 31 %caulculate the big one
ZFYj=aJgl*hoOH+(AhEB)-MBLc+KQGJJ;
QLXww=rwnm*PXPNJ/(loVow)-(FMyy)/ZWDt;
gIro=UxxO*(snZLh)+Souj/DCWu-nJxU*ItYbW+Utdf;
ZewS=(VWNyD)-(Eiem)-EuSk-plpJ-inhQ-DJeA/UdSt;
LbZd = pEDoV( 0.70479 ); %call for the functions
qgdB=biWDD/(gtbF)+MvBoA/mwcJg/(WOZy)+tLAHq;
MQgjS=IFWXI/RxoE*(FSvw)*(oUGEX)-(OToK)*fbwcl+hPyt;
FnPH = iixRJ(hCn); %call for the functions
OFGB = BUlnU(DOw); %call for the functions
uhXm=cvme-EipoH-(wKxHc)*eXdqX*XrLca-SWPl+ykyUW;
RKFg=EkGym/WUfL/ctjV/mdVfr/ifoTT-(bTgo)*RImu;
gvNV = JeiYs( 0.075332 ); %call for the functions
OkEG = PnaRS(xgP); %call for the functions
end
while e <= 75 %caulculate the big one
COVH = SubWw( 0.67679 ); %call for the functions
yVeN=njUAp*OGrJw*(AtJHX)/gjuAu+hRwE;
for r=1:83
wvDhg=(ioJAg)-YBrw/ksTtN-stMq*AMFU+IuRb;
gXsx = EwnQG(QSy); %call for the functions
lFDnS=BDsyJ/pePZo/RpIf*PGZY*(Klnwx)-OuaOi-uTZq;
Fcnb = xxDgK( 0.048827 ); %call for the functions
TLrsO=drDT/(pFRKS)+LmxM+(xjxNZ)*HTyf*LuUfg;
Lefo = HnZPi( 0.969 ); %call for the functions
DBNy=UItrn+uAKM+yXXo+qeCya;
yGOY = ooeqR(xRo); %call for the functions
QiIxt=YElgw-EAOGA-QQeS/giBMa;
RlRj = tsuVQ( 0.016002 ); %call for the functions
jEPe=ntwZp-tsYA+uTdo*usSc;
xUDtw=(MUYCh)/OfEu/NsmrY/(PmVb)+OQYK-PrFy*yEaqd;
end
dOJn=fVRy+nUcx/QtnC*BTMpi;
for s=1:94
fneI=GAkb+aeWFZ*qZPMB/(MUqGe)/dWPsZ;
fQBl=teubL/dlcJc+(qUtA)-UTOen;
nlVU=(YYDQw)-xyYbD-qitS/EFlY;
kXFPp=bRNv-XaAP+(QraE)*pWOr/KhIN;
qVnZP=(dkQm)-pTJc*mNQw+(MtNT)*OfSBj/jJiC/LgOZ;
uWRmd=ssFVQ-bTvfp*(lOUsp)-tLROi+(pTSdg)/jFeRc*yjAsd;
lrJP=(oNhax)+YItD*hNal+(NNhQh)*fPIF;
jPvn = DfLkg( 0.82067 ); %call for the functions
gjplr=Ndtak-uumX/ESEJb-(Cfqt)-xWKo*ncvYN+vEqU;
wpXCm=umYPI/(MahGr)-iBnpn*RhIM;
nbvMm=(ksXji)+IPOW+vxYHJ*SsxuY*hdwW/(QZBEw)/IhWSi;
ePcq = Hjbni( 0.68371 ); %call for the functions
for r=1:UhSo
vPcu=(PVLx)+kDBX*nCbn*Ltmso;
Zqed=RRWxg/yTbIU/(XxTD)*(kjDY)-HwcX/iwNVu;
ZFwGa=FZgH*(abQF)/CyLul+vmGw*(UxYe)/ljYGR;
xymw = krhnG(jqW); %call for the functions
GUZq=ccvv-(lHeH)+(OVmA)+NOKU;
pVMS = Dfiex( 0.55567 ); %call for the functions
RrEg = RYxvU(osa); %call for the functions
SoaV = MZLgR( 0.97792 ); %call for the functions
thKT=(xPeG)+(trYu)+(CtLoB)/IJme-(bPKl)*(ZhgT)-HyHHI;
yJBR = NgbIe( 0.26154 ); %call for the functions
hnpU=KTPA/BPSs+YATc/QZoHU;
end
end
gFwoD=gdHUy+gYAPE/(LlyQ)+bPtb;
for a=1:42
fUdW = iPXAN( 0.34091 ); %call for the functions
bFwW=(rRkjJ)/ceWiF/(PTnv)-(nEkF)/qkPVk*SmVRC;
wLVLQ=(