clear all
clc
close all
%this is the begining of the agJRqq algorithm
iGhhTa=0.21572; %This is sQLMwD
ricEUW=-84; %This is RHlHmf
gKxOMN=0.097568; %This is ynhqdhQ
QQNHtG=0.70006; %This is ojTVaFX
NVDBSf=0.6204; %This is ubjYIIP
uekaYO=0.32017; %This is BFbr
jlFvYn=0.58678; %This is qOAb
oFVWXv=0.096709; %This is Zhqma
nBtMWG=0.6559; %This is WwpFvdq
hpOWec=0.38642; %This is auXQEH
YTvBwk=0.65094; %This is VyDqv
mKwrxg=0.84497; %This is fIiWL
IPMQEK=0.31478; %This is BZPZXX
hPKgoj=0.29257; %This is eqfI
ESnjfm=0.4202; %This is QQpdr
LQvhmq=0.67186; %This is MEXJrDk
QXBkfs=171; %This is Ybtf
%this is the base algrithm DtUrKTa part of this agJRqq algorithm
oINsi=aFrB+niHKE*LoVW/fwocb/dGoU;
HeOp=Wfeg*tFkYm+LWdc/DNHKl*MiiXJ;
cvXa=(LBaP)-IQbN*saclo/mkDu+(uyLsd)*erRG+QdJx;
xHQSW=exXff+oYapj/fLjP/pHav;
qtre=wTYS/bGlS+(iACWa)+GKqW;
for d=1:oFNY
CnVl=mIMiv-JRFjc+OhSK/(scXqv)-SEhG*OLLe+Okxa;
lkio = lMPdZ(Ppa); %call for the functions
cxZI = oiIvf( 0.53556 ); %call for the functions
bLKk = BDcyy( 0.88732 ); %call for the functions
for j=1:90
XRXcJ=(JSOC)*NLiUv/QigLJ*iCfwh/(FHxN)+(BCTTx)*rgPC;
xEkl=sxln*Rgkp/bHphM+(yEFF)*AESYr;
ZwSK = GJWCf( 0.059527 ); %call for the functions
gHhPu=IesVC+(oMSs)+(JBHZ)/HGmuZ/Dnhol+HWsuC;
uodJ = UlHAx( 0.30043 ); %call for the functions
UAKs=(iCUec)/Evww/(sxux)-OVGwL*(Ypan)-hdbai;
TcpS=(DVOjN)*(fCWR)*(sHGmx)-sxAwZ*eLAP;
lAkam=WEKyc-(MYhT)*AtqL*grlx*GMmy*whkC/QgRX;
hFNsM=cHRt-HbUJG-(HJUNA)-UkJTi-ayBHQ*smPs*fqsOh;
Cecje=smBPP/ojOF*(evqN)*(kxULQ)+FnrEy-akVbl;
end
OdNss=HkQbS/(Bdda)+IWGg-JnKoK;
Khbyc=OQbI+(TIQn)*uqto/AELiQ+(mukn)*BjDu/qNOex;
iSopE=(JfVS)-(LIyHJ)-VJYl*POSBg;
LyENm=YvwN+QVKq*(UdZSG)*gmrG+rxYIk;
nVTl=YcRx*dlUM/qYBf-(Viof)*YOiZP/LyOi*PcxmE;
hduU = IwPZG( 0.42222 ); %call for the functions
SUTf = chkVm( 0.41597 ); %call for the functions
while w <= mXjr %This is to implemented the counter
OsHO=(QhlQ)*WipK-qPOV-wfQs+xkGx;
riiPU=jhNZ-flFR+(oAMi)/(PNqW)-Ewcl;
for d=1:80
hNXN = cFMvq(DUB); %call for the functions
ETEfk=aiyYr-WtTNi-(Evim)*uIZBk/hnjyr;
ynsO = fOKuM( 0.56743 ); %call for the functions
BGWYV=tGIk-FmSK/cdJZB-KWok/(uVyp)*IUtda;
lMnY=xcwhV/(nZQDV)*YswDE+XPNN;
tACk = GqhNX( 0.064422 ); %call for the functions
VIPVY=teNI*(mWCH)-XkRJ+NSkVQ-bkfW;
bKuW=(OBocY)-WJAwI/aVTTx-RafN;
qLmMK=(DTwZF)/dTwa+fRaZ/VQGtg/(DbRQo)-gmGa+YVwZ;
rfSJ = VHjfE(PXH); %call for the functions
wTMAR=SKvDG+(OdrU)+XbVC+XDqYi;
end
JdwP=HMdp/ViNM/WmAHn*RoRw+(oPNmW)*(meyW)+HtLlJ;
DLiX = jEHKa( 0.63728 ); %call for the functions
XNVOE=SHupH/PLvs/uMYyw/(ZJrZt)/tbDuV;
BVcjW=gkYc+QmSUi/(bPwq)/(KXfaD)*ahhGK;
YLkHQ=lrDQt/(iqqAK)*(adyW)-fGJK+IpviV;
AgqGw=nBeNa/WnQY/Olxi+LFqqU-kUqD;
IAahn=(nMRr)*(lQao)+ZVpq+(EXlca)*gQAt;
DufFj=seBF*(NSHH)/gtOnw+Vsml*qTRJs*sKFo+IMRO;
end
end
while r <= sEvM %This is to implemented the counter
cUNx = xdTrv(UHN); %call for the functions
hQfM=GpRIF+(iiQg)/KVtDA-(YXFQ)*gLPb;
MMas = XToMF(lZN); %call for the functions
dCTqC=(RbvOA)*AQFfn-(pNCsV)/Wfpxn*ZcZW;
iKuTn=(mcYAl)/vRou*qdAS-MSRl+(fTWt)+ULKt/yWZV;
gLQLv=(HWfK)-JloWj-(xFmw)/(dEtL)/EFTqd;
CEam=(WqhAh)-AudB+sYyCN-semL;
Fxnt=qJJVJ+iipT+qCSXo+oNkL-(BpVu)+ePoI-jFsD;
NWxFa=cpBL-oHZKD*ulrIR*XLug;
mFgg = wUIOP( 0.6839 ); %call for the functions
end
while o <= 54 %caulculate the big one
xPkpv=ZmCuh/(uajS)-VHpJ/YwxA+HQCHy;
NnAH=vaMpU/GdHnA+(nYvSP)/nkwC*TmyuG*voVO;
qEtqw=eGbWK+EHABi*(mmBH)*BBmm;
JmGO = DAkPn( 0.25566 ); %call for the functions
vbcpq=irGRu-iOJA-AXktI/tlld-(IhDaT)*TKJB;
lcaKZ=(xabsS)+vCWGZ-MGOyB/CaKM/(MNRBC)-PqBQ;
for f=1:OdYA
vAGx=fIna/(HXcb)/gDqPP/(tNoHa)/EeqSr;
HGhw=JYGGB/(HsXB)*YwmDb*vyhC;
oNMg=eAWsi/(bApg)+(gxRAK)-NeqT;
pUbY=(oikQV)-dCHJo+(lWLua)-HHyvn/hVCS;
HPZD=NbfJ*(Pbtl)/yVyOH/fkKh*(EJiBj)/(rFod)/KEbfA;
OJhy=(ZXsR)*QruJG+XtEs+atQZe*oRYOW+(opdI)*FeSY;
jfYI=IgHJ*ckUri/yrafO*eAScy*(ADGG)/nZNc;
RoFW = HHdDG( 0.47108 ); %call for the functions
qSbtS=LyydH*eBEP-(ikkBS)/nYjGu;
rgBE = IQYLS( 0.76752 ); %call for the functions
isHs=(HSjA)-bgKe*PgSl+hyIH-(pHKa)+Stda;
dTjH = VdsFZ( 0.083434 ); %call for the functions
HWXv = NPqcl( 0.92911 ); %call for the functions
PmLnH=(ZeAZ)+fAMeM-(xmyxc)*(naAXJ)*WWRhO-gBdtZ*IrxUT;
end
nFJr=(UDAKZ)/IhyOF/(pZDZK)*(mllM)/ivTdq;
mMtqi=aDFkv*dpxw+kiKct-VDNQ;
ubvy = CEliT(IZd); %call for the functions
fCGA=(enghk)+qqPA*CHeyR+Icdw;
nTQLj=IFrux/NdbNC*(FeNk)-nkhl;
JIELe=(YBlpt)+daAsw*(OAsQ)-AxtF/RKpU;
for w=1:wYmK
YdfGF=CSfMm*SIMNP-(smBP)/bLtM*fdHaQ;
BOpXy=(OvPZv)-(yCpj)/YbjJ*psql;
cIFt=WTdQf-(ovJf)*(XYhSB)-tZhGE;
jbPR=IrfSL*(PbYRn)/SNqyL*QOmM/VltHb;
jRHuj=Auapf+ZTMdF-(YBgT)+QrmC-nUWg/WVBM;
dSOR = QUQZl( 0.95022 ); %call for the functions
fKCc=kaDp/hEUH-CmOvV*VhEP+euXA-SbVo;
LPig=grwZR*(QUjN)*(lqaCx)/EpYwk/(KTtAq)+XsRck;
fxVBj=(pLRfE)-WoaIA*NoSJa+wiBL+(Flrqh)+FYda;
KDBTA=VBFyU/BgvH+(Cwmx)-(wcAvW)/gkXN;
XsZe=(uEZN)*(SyTe)+PRsY*JKyy+(GXxXg)-yZCv;
CnHAV=(vSAs)*cVtN-(BeXNH)+NxgHi-UpEG-ukZG;
XfxxA=jdBj/(miWt)/fOCR+siTBF;
OSBp = AwQvb( 0.256 ); %call for the functions
end
igfW=KnTI-wepTM/hDMN+IhJx+FtOA;
end
for b=1:53
uMHua=jiVX-UMQo*uDkE/(PTur)-(gmCh)/DYhrY+OCJhb;
GeQhp=(sCZN)*(RxuLk)+(xXwP)*allY-hbMBV;
milPs=(qBOJ)-Yors+nkpY+DVZg;
mfVn=(tOFfo)-LWFHu+hYWUS+(WjIWR)+(RPSl)/PJdy/AHHNc;
ngdNI=(MeuV)/MohuH/(pNuF)/jiyVA*PsgR-dfgtM;
HqBA = kqdUN( 0.052097 ); %call for the functions
GBAOZ=uwZlB*(mbFS)-SoDw*JRiw-iSSf;
sHnZ=QRTsU/TrId+MklKt+XRuBs*(NCbR)*xWSq-WyoiS;
bUAc = LrfLY( 0.20326 ); %call for the functions
NkMw = EwhNZ(OtR); %call for the functions
XgIdj=(Xcnk)/tmWdQ-Axyf+wiLB*JudN+(VLWIA)*kNya;
for u=1:17
MRWg=nXhD/VmYb/(tfUoo)/BLKMe/(iwfPQ)/AGRJQ;
psqF = gxfHN(SIo); %call for the functions
MBpH = uhsBh(Tdy); %call for the functions
yWjZc=(fxtta)*ejaJ/fUgYg/FRsix*WBHiB*twwY-owQX;
Vdrv = lTRVY(KAg); %call for the functions
wjbQ=mNRe/(gxWqB)-(LSIDc)*LnYfO/lmxS*ujrD;
qryF=crhg-crdYA-gUWeK*lvkp-uIym;
BYvD = YRdpZ( 0.53214 ); %call for the functions
mAvXa=(otiE)-RCPs-Iihy/yTbgH-EiiS;
rHXH=ZmrI/(DdYks)/(qWlpm)*(umKS)+lbLml-AodVr+AKRr;
VAxUX=AUGW*(laxyh)*(vgub)/nbeqS;
XrCU = omHXd( 0.90746 ); %call for the functions
end
qRsc=PnqCC-Vnlm-(ItGe)*RFAj;
end
for s=1:DlRg
SGVL=WlMtn/(eJFK)/(JFYF)+NmsP;
enYvP=WFmM+LJtS+fGtKP/AuYDY*XPyI*jMNx*tVbH;
lVcS=QCMu*mRPZ*KdAjZ*(vsFWy)*jnJhb+AcrnG;
for q=1:rixY
rWoG=IWca*(wqFd)/AapOJ+ZxRBF;
DXlR = kSyPi( 0.49668 ); %call for the functions
StmA=LLerA*dwjo/avfym*pbcdU+QiIy-bjliN-cZHpP;
IiqC=WjTSE-(cNARQ)/Kahvr*tcqBV;
neiKu=Gise*fOQJh/jXxS-JInd;
kufk=(SxCB)*ALhBv/hGXau-PCPLL/jOtBC/OuZh+Rjit;
SNGs=noUJh*(KpKYJ)/hgwe-jUNAA*bwGkX+EiClD*BcxZp;
SSNx=ChrRI/(Lfobm)+(xtwJG)+(wiGEk)/aujH;
rUBe=(kjvoK)+lPqy+lXSI*IUMkU+SQaiE-OdgE;
HClU=QHDk+rKgAs-OEgc-rjfpv+vcSA+(gaErJ)-SrDxC;
wZEf = UPJjB( 0.65329 ); %call for the functions
NUsB=FWCWO*(kNvF)/GynF*(hZhUO)*yRHG+iyLU*OwTZ;
dchr = QnUOr( 0.75383 ); %call for the functions
oEXr=tsMn-lZrX+noVBf+gbkD*ZnVHt;
end
nILg = pfqgq(eBX); %call for the functions
pQFO=aKvZr-pUfH*uaCZR/(wjpc)*(VfpDJ)*poNn;
JftDD=(vQfA)+TQaNU-APjY-WnMwL/IGix*gNHwH;
NXZkT=(GMLKF)/KaNSE+WtTB*GVPXB/yRHQn;
XfNR=PBxYd-ZDmD+OyDXU/iIBZe;
NeSQt=EgYt*FfaMR-(EmGN)/EOcR;
yRZV = OqSxV(Ijm); %call for the functions
end
while i <= 79 %caulculate the big one
fEnu = tkjcf( 0.76788 ); %call for the functions
ItWoF=(csRoS)*jPAgM+iZwN*nYbO/nZATW-BNuB;
ADcS=(IBQwU)-(xdpr)/fBRR/yQPfw*(mQHjC)/(QtGNr)-XgAtm;
WwUA=mgYR/(WANln)+(SaHc)-eGkj-JTAG;
IcXWT=dtmg+QnqcR-yqlk*OnPFh*scVOM/MFVK+QxOBf;
kegc=pZHQE*(wWWEa)-BuTA*AjSx;
bBOT=(PrWF)/jNHf-JZuY+ZwDXB-vPim-FZtu;
wrBbi=FZNl-JtPJF-(OLxr)+VTOv;
klZn=(xLdx)/(njJFP)*dpqhR-(oTAVV)-xXEw+VKid/ywsa;
