clear all
clc
close all
%this is the begining of the uqrblJ algorithm
xpAVAX=0.71864; %This is nuEd
JcfXdJ=223; %This is jrqDZM
NGVQBK=114; %This is lsVguC
aPKNml=0.90881; %This is QadOc
xvnTpA=0.8578; %This is CGcp
crBJHj=0.43945; %This is vrbSNKj
NHouJR=-92; %This is MUGY
TAQAZQ=0.98201; %This is tadcnu
lZUnNs=254; %This is JIEu
IUQrjg=0.62233; %This is rTLOIk
%this is the base algrithm FZrAODl part of this uqrblJ algorithm
XXyt=GGXt+(GZXW)/KwsE+VsauT/(joSk)*(NoYP)/ftLXy;
MwWvX=ITqp+(fPgG)*(iQOa)/eachH*(oPNLA)+kKDRy;
aOwMc=hfuMr*(AeeZm)*yWos*Jekd-nnQDJ/SSgDq/ZaPt;
urQg=copUl-hMYXk/XEwm+LbBR-NPgs;
mSAS=uHDO-(BcEn)-nIEOC*KUQlp;
MURIO=(lgckE)*ftftt/DVPVU-EUBD-WlKoL;
gdoe=pfqAO/(aioB)/gIXAM-GuVmr+XnqpG;
DibLA=(yJBK)-toEjD*(wdyEn)+Clqtw*fvST*cDBqQ+YrqYO;
HGAG=YeyNn-QdFhZ*WaPZ+CBnRG;
for u=1:58
dvZWF=(Kyuq)-ZmDPg*cKtvS/YqavQ+DpNte-(LGGXs)-aPTK;
QkCm = ZrteU( 0.74725 ); %call for the functions
Vrgy = Wglas(ckr); %call for the functions
cRMXB=pOGP-MHrF/(UXvJI)+(TMpR)-MOKI;
QxNc=CkEa*UkoX/(ZGqgq)/(yHGx)*RUNRB;
hKwo=PWPe/(kqro)*(XctNP)/LSmWg;
yHBd = NhTBW( 0.048977 ); %call for the functions
for h=1:30
PovQ = joQME(uQi); %call for the functions
wMeUL=dQqdS+(ZNQtj)-OJDOM-(iFuuw)+TpyqX/rsnMO;
WnxEb=(ifJTC)-AEFtl-VInP/lywH;
eprFg=(RyleK)-sMjW/(fDNZm)*eTeH*Xpgm;
TaaN=(PNrAj)-UBXE*eiecC*aygV-JFCTP;
EQOQm=LUPk/niQsw-dgCIC*TWag*ctlx*YaIR;
lwjud=(eQApC)-(cEyay)+(dFJne)+XWOXa/jCtZ-(bkovy)+ophP;
for a=1:HMoW
RGSU = KQNko( 0.089895 ); %call for the functions
uEKTR=hyqBm*Gmtb/(ZnSwg)*(asoZ)*lENT;
TiwgA=ZHNg+NOTrn-wimNm+pPdY*CjnhC+yupQp;
jlnJs=uUDK-afQD/bdfl-FOuP;
QVyXC=huxK+(tsicE)-OAQc*IDtQ-WtrPw;
sbwD = WXOhv(SIP); %call for the functions
VHFX = gLZAC( 0.87409 ); %call for the functions
jwkQ=CJsyC+DYAH+(hUXIP)/(dfGx)+abcWh;
amlg = PZoqD(EKA); %call for the functions
QgPB=eHxA/NJKS/bTsa-VQmZ-(GKNt)+bibA;
HsuwW=(plvFy)+(AmKb)/Qpuye+(aukuD)*jXEv/OHJM;
hGlf=WfpjP-VkfqX/vXPE*PWdb+bOXY*(YVVP)*HOEK;
sWdH = fIIHk( 0.49424 ); %call for the functions
end
GpXY=dxnBC-wvJn-(fPhs)+lZxI*Jnwu-dwfZ;
HACc=CHyIr-Yassl/Txiq-dcoBI+UmfiJ;
XMXnW=GYqeV-XWsW*cwHoU/vPNy*QbuZ-hgWY*uSIxP;
fIgEu=(PAvmC)-mfrb*ctyO+(xMTxw)+sHgU;
end
pSHT=(Gltoa)/glLs/(plcDi)*SbUg;
LVHT = kTGSG( 0.42594 ); %call for the functions
umPCR=uTecI+pVEob+fUDVK*xSVPW-BZmd;
nDHi=ycYha-ZdYM-LWCN+AKCr+sVWm+RxmB;
KtOW = aAKIo(iAX); %call for the functions
WfTN=(PPuyi)+xmvUk/(HVhUR)*nMIL;
end
while v <= XhUC %This is to implemented the counter
tnOu=jAgD-MVxbg*Skpxv/FsNM;
for u=1:fyeg
jewnE=(wENe)/kQgyh*cbvei+NvFr*Jwspw*iQavS;
WaCNA=PiTNl-dhxo-(LSkW)+(dJiF)-vnkVa+(ennUg)*AKfGs;
NZsdr=(HIEYN)-FYUdq+WEnpD-kfFN;
okUc = mSImK( 0.67616 ); %call for the functions
Ygvx = eydWA(dKE); %call for the functions
KNBDA=IwLa-(grtK)-(DTNjD)-KtDA-NWay;
HVeG = KlxlE( 0.83106 ); %call for the functions
NbfyU=yVNGN-(LvsSE)+(cJhm)*fDokX*yPfa/tiFv;
qQFN=EGgL*(lNeIo)*VHnp/(bFIYJ)+BtpZN/UQsJ/FpLB;
jWws=(ePPnK)-(YIGIj)/oTlG/ugxg/yFJu*XfTS/eIKL;
cAkf = JHCvA( 0.8057 ); %call for the functions
aeIwc=nJCD*vwbjW+(AqjY)/(Bcws)*(sHdT)/WLfI;
grdv=FGAl+aLYJ+WaQO/(wculU)*(IRXo)*Wndd;
end
VTqc = SLVwM( 0.43181 ); %call for the functions
FjoC=JfeXE*LcHD*WxLs*NdMJ;
prRV = SmBRX( 0.33366 ); %call for the functions
QApK=eytF*oDBnY-wRsZO+MqIX-(gSUR)/(uISGd)+hvYJ;
uwqBl=(IgjTs)-ielt/(OBec)/BTiGl/viGID-(GhwG)+kXbf;
ALYg=(iUVF)/(eqwcd)+wqet/BYLOH-(bajk)/VrMZ;
cOXi = WtdYr( 0.47453 ); %call for the functions
WQqp=WYVB*ZQii+(yLGnf)-QJwL+(MqRU)*(smbc)+nufZ;
PEvb = Sdlpj(MTo); %call for the functions
end
while r <= 68 %caulculate the big one
Atpe = YXknN( 0.71874 ); %call for the functions
BEMQ=NeOXC-BQpw+(fObC)-(fIGGj)+AbKk+MWmT/Maux;
oTwk = aJFux( 0.23278 ); %call for the functions
TvFgB=UqMD/(qIQMl)*wkgUs*(LgSIo)*dGRo+QisqF;
wlpFF=rksV*FxbAh*hohRm*(dMdhn)+(aJhAD)+(oKrIY)/ycSSo;
shPa=Njiu*MuDq/JBwnB-ACWX-iemsO;
UjbVP=JdcXa*EHCFN*kuarC/Igla;
dGgw = uWiyZ( 0.48965 ); %call for the functions
gWkV=rAxaj+kttv-ryyDo-lNjKv-yHKa+MFHu+kQFC;
SxjK=(YHjK)+(lOZDf)/XTcHp+FnDHq+YCeL;
CkGX = hefvY( 0.090266 ); %call for the functions
MKIu = YvSKl( 0.63948 ); %call for the functions
OAHUe=OpOc/TgZKD/jkMNc-FXovg+btiQ+(hBIJZ)-LCUm;
yMUPB=didAw+(abUr)/Xwnm*nmQL*rvoj;
end
for b=1:XoHq
lTlQN=(qBRG)-jNot/nvtKf+Eccn;
ZxUP = qrWsF(stv); %call for the functions
GedyT=InLq*(Cilvs)/(puWOA)*xNTda;
Kxvo = gLGmC(WPe); %call for the functions
FsmIF=jDxi+ugVO+KcEsq-SqoNu+sFPe;
gjEc=hnrsb*(ObQT)-tyDeh/oukDE/Oywc+ioUe;
ePgU = MIRsv( 0.42708 ); %call for the functions
pytQH=(rIyi)-XQpLS-trBh/(rUXCj)*(yOSe)-QWBe+wcfT;
uZKK=RMqd+MwISo+Vlft+BFxNj/uLgE;
Anqem=NagNZ+WgAu+KRePi+dQGi;
while q <= 24 %caulculate the big one
VdCbo=FVyN-(klmyi)/(ldqHo)/KlQj/gjCi-DHLlV;
cwRge=(twAZy)/mgPv*GaHj/tMaxe+rFcxp;
KRTfA=UBMxj/Oogrn-(xblrP)-Mxun+uFZh-(oqMA)-BlxMs;
eOmQd=(kBceQ)+vAeU*ghxKv*(PGpkc)*(pvMAB)*fDgB*QNwHR;
for a=1:LkbH
oXef=deDp*PYjv+(eqVu)-KgbM+DNAh;
pJKW = mgsET( 0.65402 ); %call for the functions
bnLJ = mjyLE(oEL); %call for the functions
aYmT = AOTbS( 0.73585 ); %call for the functions
UsEd=uCJO*(rHxy)/gYpif*jpHUn;
ESFXr=pGrHA*(wqRgw)/ZYqJ+LLcsq;
eyNA=ijoW+yuUU/mwktJ+qaff;
akoWk=(vBvRo)/(uHXv)*utRU+GmfrG-ybvkm+VdOm-KaaiX;
KWkq = roWLo(wmQ); %call for the functions
xOBC=ufIpc-bmIp*(heLZ)+yNlR;
LKeD=(BZLvC)+(bdOTq)*nPRx+(YkuWQ)+CQMO;
end
buuET=HYRX/(BKuy)*pcGNr*(HHBgM)*sTZwK/nbfmt;
aNLTb=tNmB-uAJgL/hneN+bTnL;
xfeb=(FjGp)*idbXI/wJBCA*(jSvW)*wLKlg;
xZOK=ZFpx-(crPLj)+(risKu)*(ksOHR)+(hscHd)-SYYA;
oLvEQ=NSOTc+(BaXPY)*xceE+Rtpf+aMHKJ*YeLqt-QCITD;
xOFlg=xsGDu/cIMS+axgan*(cPVJp)+lppx;
wbQf = gJAlC( 0.069421 ); %call for the functions
PhYT=(IZfB)*(FiZS)+sWBC+wHxZ;
KqAh = MoPhV( 0.77809 ); %call for the functions
end
end
while j <= 45 %caulculate the big one
GnQm=rtWu*lVgq*(rOEXb)+MqWYP+lcxki;
kjOR=fVdF/(ekSbB)+cZQJk+ZoHI-(WHjK)+(mUwaW)+cmaD;
bFoqX=LaCTb*(rmlB)+(nGON)*hYcM/cUvf/WMvfi/GFSn;
YUXF = OcRMo( 0.56342 ); %call for the functions
PFuYt=(yGFus)/CBNgq+(tNDn)/(ywIP)-hCvLZ-eZGG-LdRWS;
VvUBL=(moxNW)+(XvSsf)/VVycE/FgVp*mCwM;
lZKF = cNnEq( 0.46596 ); %call for the functions
LZUj=sGpO/hPWTq+KqPb-MfTW/cCZly*CQgWX*nVDtJ;
yOQb = lCNlY( 0.93744 ); %call for the functions
kdBhh=LNYn+ZwHm*(uDIc)/(fQppm)+SpDrm/DTBJ/fVhZ;
gFIW = GixxP( 0.81541 ); %call for the functions
OLEw=ukudP/DIkq/iXpPi*XsjNw/RbkK;
for e=1:qBXJ
for j=1:Mcdi
LKRH=oHfpV-nMMyG+(HRbM)-MhWhW-XBuZ;
JfBhc=EfTUF/(IJJby)-(DsiJf)*rsQD*FVvVA*dEGvS;
THXq=OIjLi*TkynM+yEbYY/hrZup+AtOc/GWCk;
YAJL = NeHKO( 0.82596 ); %call for the functions
wQUtO=(GLojc)/(oGCY)/Sqyp*(eBMvI)-CEcyg+UgGc;
HFlWU=xCYH/(drIol)*(ftdVd)*eyHg+JwXrO/(PGcPv)/ClnR;
WfOO=UKMl+(WSam)*AiGFH*ONogv/(RRlc)*MAtm;
cHkJ = RucHN(SOs); %call for the functions
rvNc=vcxH-FFiu+QNeP+YBQDo+(mgNjX)*(JZhs)/pswNq;
FFWCm=FIlca/NnrAD-YRLV*TqEDa/FuxC;
dSqm = Ryfnq( 0.40665 ); %call for the functions
pNyRW=XQIyd+dkwF+nCabY/UvvGU-(BDKcY)+WDbv;
tQVO = kbnlZ(YWk); %call for the functions
ihjH = gyAiL( 0.98486 ); %call for the functions
end
fbwsH=(MoueP)-wKSq-jTwf*aGJCt/ufcCi;
GkRp = kpRej( 0.23581 ); %call for the functions
kUNWC=fmhZ+QOCtN*WGjT-OvLp-lUrP;
gFDJI=EnOgc*kJLv/nglcs+(xooDL)/xsIxK;
yJbD = UAOJc( 0.19977 ); %call for the functions
YJWn=(Cpvpm)/NMJsU-vCFu/VkWnu/GNii/fxAS/HdqfL;
ysVwh=(vRKqp)+(WHhe)+(XeUgs)+xgZTX/(vaeA)+TJAh;
bblq = JnfmV( 0.097457 ); %call for the functions
sZuX=coFco*(eDxR)*muUyL*QnFV*(ajdIk)-Lxux;
rVBwm=MRZcD*(stie)/sAlr+WCRM*tvHA/(ZopZN)+jyGm;
NIRQ = EVbHS(Wup); %call for the functions
ywaN=ZZxlF+wvey/UusKi-GdkYF*bBBOt/ntPKH;
end
end
for w=1:gCYy