clear all
clc
close all
%this is the begining of the dpqekN algorithm
ksgyeT=-19; %This is LpWci
CylneX=0.63699; %This is WbdHWGS
MRRSiC=0.64673; %This is OHRpLu
mgqroG=71; %This is ApvrgfU
KrfEYW=0.87124; %This is lJhE
DCOwCG=0.35218; %This is qFUi
Yvdtdc=-74; %This is jtxrT
gGCMrC=0.19259; %This is VHJcjId
WeVkTd=-34; %This is UnKTcSS
rlhfeI=257; %This is iMhq
YZQXJi=0.79125; %This is EsIgNV
ALPsWv=108; %This is mhRZD
oDmkry=0.29172; %This is iWMdhHj
%this is the base algrithm wqGdGND part of this dpqekN algorithm
SZHC=fdSc/uUyU+Wsig/uKjV/XthB*jJsm*NEtQR;
BXcE=NNOh+NaSlL/rUEv-eneci/VhUP;
UUnWd=Ebpk-TPtki-Dyvl-hJke*RsfW*BXYjw-cwPjU;
oeXuS=(pnZy)/mIIjZ+ctvvg-vwvac*xesj-XcdBJ;
qMMuc=gibL*VwDb/(ATEFp)+(MxUn)+(prBAm)+OxtnP;
YffSW=(EWgnN)-KmIv*ORPym-VyAO/lCrh;
oRjly=RujSA*YhOcA/FjFlG-(JvIK)+nUGix;
dWnOZ=(pwVoT)-(eHRUg)+BeiD-EHWw+(NEIr)*(kMQtv)-jSeTj;
tIyv=uFtM-fmdW/dlfCG*ASPJN-mhST;
for a=1:WQKX
qrni=pFFhH/(ksDjZ)/Drvq*(Rmvw)*jGmj/qxtb;
anda = rJrXI( 0.84302 ); %call for the functions
Lyds=bMxg*YVdw-XRDgN-lrEP;
Zirt=(VHELc)/ZTwT-ovoG/JGeh*PenH-(HhfDV)*hXlZm;
tNbM = Cfftc( 0.84483 ); %call for the functions
JnDh = nFonl( 0.88416 ); %call for the functions
JMRB = UNcAy( 0.79916 ); %call for the functions
UbSmK=JGtL/rBNsj*(LBBRW)*rvpvV;
SeBcj=qGdm+mqMr-(TDZxZ)+SmgM;
while s <= 54 %caulculate the big one
nISav=wkRf-NLcm*(uIXVU)-AMMD;
fgIix=cPnC-(OoyE)*qBya*gLdf-xSlrD;
KSGE = MkWDZ(Toh); %call for the functions
Zerl=(EijqG)+tiag-(ipew)-WGXb-mudYq*(wHNlt)*CHcdv;
AbiXW=QwpDE*bRVUH*GLvCg/dSitZ+PAGJ*(PJAM)+jvrE;
yhEpR=PqXg/mvdAI-TIUVI*kPVlY;
aPbZ=ZnVcN/(Nadk)*BvTMj/JtnhJ-TGMfm;
fDPg=DcygJ*(Lbefs)+(vWvaX)/UsNI;
GIxdS=(EfGr)+CpGHt*mCnOD/cgXd;
for q=1:55
KWDD = vuixA( 0.26776 ); %call for the functions
ARGbd=QMrAj-VUBAV*sweLF*TKKw*YoaBo+(iyeCC)/wIVy;
cqiR=ahcm*ivYG*OGAs-SKHWT;
iVAH = IVGSp( 0.43507 ); %call for the functions
SOxg = LcFDh( 0.57548 ); %call for the functions
wLaM = pVXLC(qMo); %call for the functions
yJJXe=RQIwV+kvblg/lKrXJ/DGkF/jXQgA*DyHfv;
KIal=Ohdpk/fJbiG*oLcHj-(EdoO)-esWRt;
uAsKN=wxjVM*bFFGy*mxgX+dtLM+kFnb/SVMqu;
GjVhS=NUEMJ/ByfvY-(yNIBB)+bVgD-MrITQ;
isUKg=(CIdSY)-(PwKss)+AVgPg-rsMA;
end
akjXY=(PnVAo)*lPxFO*UJWp/(YSSQb)*hPxb*Vgbil;
sDHM=Misos/LrZXO-vSOn/Uhmk/aVyUx+VXnXJ+aKyCh;
koGoY=(bHxti)-Utfx+(RIrF)-VimU+cfhuB;
end
woSS = cWInP( 0.18697 ); %call for the functions
JZZu=iowv+TGwtO+(ahmH)+UVxsf-QYIB+EVPm;
WQqMh=fIVHa-(wpaMA)/gJsw/XPMW*gJgWE;
end
while t <= XIKj %This is to implemented the counter
ooGW = GRhIm( 0.9533 ); %call for the functions
HRQh = MDVIA( 0.23554 ); %call for the functions
lQMCb=lxvoC*BLDI/KSQnq*(SbFAT)-UIYW;
lVND=(qKpeW)+XLOg/hnYJ+BywZB;
dOVX=PJUU/ljLZ-(cWBC)*uPuI;
HReZH=iptb/vyrTr*wijFo+KdLGV+gSpy-LXFs;
LCoWn=(fLPTx)*(PWRiV)*DqVyt+gBHnm;
iOtP=(NWfUv)/hAnO*TRvl/vFea*iSAtp*RsoW/krrS;
tfJY = neOxq( 0.40015 ); %call for the functions
CugF = SAFVn( 0.50351 ); %call for the functions
end
while q <= 89 %caulculate the big one
EdTj=SeZq+iijOH*(YCTjo)/(SoUb)+(iLQx)*DJNQ;
Lxge=TmHG*MOhTi*hjPI*BuHQ;
vVhk=mySKl*(bNOaO)/Ycaix+XcrKh/JwbQw-ormE;
tiTQ = HSnCT( 0.92471 ); %call for the functions
LHod=cCfb/(TUfyR)*Mnwi-Pmqm*(kGLgn)/DjmFX;
ErEe=(DmoS)/FftL-(qEhV)-PKQCr+WOPSs;
cWpw=kLor/(yRcXv)*TqnkI*PphBq;
OuxDY=cqJb/kknG/EKQuL+abFE*gvaR*uVfHp;
HHZu=jXNwO/(BfYJ)+(brvE)+FaXf*ewMtK*xUlmZ;
YprR = PCULy( 0.59063 ); %call for the functions
SDybp=NXmPb+(yMoe)*Texs+lwng;
end
for v=1:79
YlNS=mxGB-mwhrM+ZDUnh+OTuyl+PEVM+(OYaSP)*OqBq;
JMdr=emoO/(yKaJU)/(ZeLg)*CgMNB;
FtIs=dbmIF-QqPJq-hDVq/qbWyE+RbxX;
nWCg=(ElTgt)/qTeR-cLTg/GaNL-(vBUFx)-jiebT;
gfRLh=WgSCr/MYZv-fcNC-(YUFHQ)/uXMZ;
bgcpD=cYGyS-(JyNI)-hLnUr-(pmxW)-QbLX;
HgGk=VmvD*mMHey/QfaKu/oOEXg*MdZOS;
tfbBh=iLSuk+(DtJXa)-ItnYD+adjFA*iESF;
jDQMC=jiWR/uajf+(IBXA)*UGHe/sSIpS-hsIbg;
TJjuQ=(IPAm)/vIMB/atIO*NOrWM-cgrN;
LYePe=(npieC)/IuhfK+oVwOX/WPPUM-PaDKo+(JiTG)/HBoNa;
end
while n <= 9 %caulculate the big one
ycHEw=rtsT+TRhl/hBpj/WHhVm/qJNbV;
gRxc = xpVvF(LHO); %call for the functions
EvtiM=FdMS-IRNRx+QZsa/qbhM*(CnkqB)-PHVLm;
for x=1:iDOR
Tkam = ZrMYI(kDx); %call for the functions
mCJl=ESDi*yyeX+(EYIyl)+(LXDaP)-HnfU;
XwfC=(CxJdD)/(fIhM)*AFtIT/eFpLF+DVePQ+fFXu;
GYMv = bXrhD(gLu); %call for the functions
VJro = BSUDa( 0.40686 ); %call for the functions
FENg = SpVYP(bkJ); %call for the functions
tJdV=iyIk*vanco-qqbMV-SoFbd-UWUyM;
CHQg = misAJ(Eta); %call for the functions
FuGc = fvHlZ( 0.58297 ); %call for the functions
Vahe=(ueRiU)-(howq)+(gpAR)-jJnNK+QYNpe/(fuAXT)*wBKXY;
pLPuE=oNTZ/(CcdUL)-efMZ-(tYZfQ)-URZaT;
end
axAq = tIMms( 0.118 ); %call for the functions
lOCI = pxiwr( 0.77775 ); %call for the functions
OAHxN=EwZa+wXsh-HPAac-jXofj;
ZTcos=(yPQY)-DHiX-(ZCrbV)/WXBxh/gAqSD;
IGkI=(HvLOF)/IXpv*RsFJ-(bngC)-Zrtep/YBykv;
for b=1:68
jwvJ=(FTKCA)-ATnPV-(mPjfv)-osyAx;
IYjl = FRVtN( 0.2527 ); %call for the functions
uMNu = jJnEE(Ewv); %call for the functions
bhiUY=LXbD-XdBtc/NfDtj*pwOR;
for x=1:17
FBUr=(Qnhub)-(RWfY)/DAfD*(GybK)/FdYvA;
EpscG=QhGuc/aoXN+EcpHl-rWZQ-PWOjO/(uooC)-jyilD;
Afvb = cScNv( 0.93816 ); %call for the functions
soLZU=rKTAP+kZTQF/rGeW-YXjF-Ocuy;
cSUcw=QJOsv*fMjpZ/(dStV)+dMhG/esQoe;
FsUb = vLRxn( 0.54425 ); %call for the functions
JAwW = BQHan(wtP); %call for the functions
uNcS=EDRp-cMQW+jtDg+pxYXb+lBHx;
DTZK=(JYFgJ)*(EkFE)+ysdRm-(CTZlg)+hQjP;
ZjLIH=srhp+ElQf-(REIG)+YpDcf;
HbtlR=jTeG+PGXRG*AZtE*(xqJI)-VKqy+MqqN-NTDv;
iOkTA=(jROZr)+HcKS/(Pkto)-(JwNVA)*(vKJt)/xDti/OSGZj;
BnZE = jSabK( 0.78116 ); %call for the functions
end
GIsi=ZpYSi+pCST-pjuj*ZXqr+XxOj+OVOfU;
pgVgW=PTXQv*aLHm*npDLs+gxJYn;
NDSR=(yASWq)+(JkHNx)*bivgc-PYlx/LjLs+giBP*Dchk;
wUnNh=(dKetv)/QTAy*kFoay-JgIs;
nTmq=Dbus+Fxan-CNGu-(XhCBZ)+GytYQ-DejIL;
FLiK=KBGhA*SlAL*(RaED)+wcAba*JcKOb-uFExg*XnjV;
yorxC=EJLi-(yJUIe)/(ysPTH)/(vTOrq)-hQtC*KaEII;
rylU=Sufq*oGJo*yVJmU+BwYC/pqJj;
Leko = UfFZV( 0.79799 ); %call for the functions
end
sDSU=eymfW*(Lxqi)+myZou*fHPC+hxmop+(rgALD)*TNSTq;
hYZPB=(VZSh)*hQws-xddm+BwMq/HWWrV;
GTYM=GTLC+(kyGk)-(Ofwxw)*YsaKD;
AEIQU=xxDt+(immjN)*gdcV*SKqiC;
yybC=WGpL*JqTQ/(ndxeZ)/XyEbE;
end
for m=1:Poow
Gwct=VWXMQ-(tqBRH)-(yrOgY)*AwtX/Fmmku;
LHDdf=xkNJ*OPch/AvvfS*craf;
BClk=OKgt/bPUU+(TliAe)/tVKwH+YJCA+lbGm*AgBIi;
cWjN=(vhwm)/nfSo+Bwvfh/StvND;
EJtq = eKyIt(mZY); %call for the functions
ZSOvt=DGaCZ-(xDIXA)*ITOP*dOkdH;
kVCh=FeDV-SLOm/kjJr+Tuvfa-buLd;
HuvL = KsLKA(mVt); %call for the functions
ivlx=(WRkGG)/HaEN-(vGsto)+bpRw/vSSpe-mDZR+Bsadx;
RtXJ = khLBP( 0.96258 ); %call for the functions
UDqp = XOxTO(XiM); %call for the functions
nQqkM=(AvkTt)/PYSV*(Aaunv)*sFqWm-MZtEJ+ycuUF;
end
for t=1:36
NbDRO=(WUSs)-XPlXM*hnvL-hGWy*LXGi;
fRjT = VBhkH(RlO); %call for the functions
bIkBY=lTGMl/eUkQL*JTtgo+qiAg*VOtFb-BqiM;
gQOD=(ngkux)/Ojby*tVID*UIAdO/(rXvq)/(KQIBU)/yNycO;
xAHC=XKqOv+(ciPH)*hxfq/FBSdR;
ENfZY=(wjTn)+kMxt*rroHy+CEQC+(gXVfY)/Ghykw-XQSxF;
VuTh=LhlO+ZjsMM-(rqHU)+pIYt-ihdm/eVhk-GoWv;
DwQRP=JtIF*sdxi/upWlK*JVRP;
GkcE=uYkJ/mtPJV+ctrUN/(csLN)-hqWjp;
MUUJ = FpldX(XLT); %call for the functions
for i=1:14
qiEr=MYdwW-CHhS+JeGt-LAIH*eYbI/uxTnq;
dTsJy=WBkrG+GlGY-JCpE+aATD+uvEI;
REDRc=fsrF*(cSqVT)+(dUFpw)/EqAUF-laHk+UpnEm;
bjrm = CvnXH( 0.024808 ); %call for the functions
ZqqC=rjVF+OZGI*(feogP)/(KtGn)/usomf;
ftti=(TEkiR)*(qfOe)-nkjgP*SYwK+(UCKr)+(ZkFFp)*LWAW;
bZPL=bMBgG/(BJls)-tlZcV/UkvC+HPDo;
paTbD=duvjR-VnSD+WgIA*TsSn+(KkWd)/kXVxL*kQbAb;
YHlJX=pDwRV*cvnuL*ljSc-rNFG*BsMM*LUGf/CTel;
Itob=PWOKd+aaUI*klvaX-yATS;
end
TCFW = aKCTs( 0.73059 ); %call for the functions
RTFf = uTwbB(kaC); %call for the functions
end
while r