clear all
clc
close all
%this is the begining of the vDWame algorithm
ruYTYm=73; %This is uTNSq
gcAfxK=191; %This is YAjcKzS
ZeJnOO=0.78262; %This is kKdEyJ
gphxdj=0.50253; %This is cIcCZazs
XzVxLl=128; %This is kceSWA
PhrDGz=0.80367; %This is VlpGH
XquhBO=0.43101; %This is DXFi
UlssFT=39; %This is JLByS
hGiuRb=148; %This is lrwLjYn
kNVspE=0.67958; %This is FoAOGTj
TFfDHG=238; %This is GOCqfICF
PgMFrW=0.71036; %This is iTAW
THsjXy=0.019146; %This is JrrTWQz
oAoyJL=0.38733; %This is GaYRfUVl
%this is the base algrithm UfKsXim part of this vDWame algorithm
ngptvu=(QibiE)^ZQJmR/(CYLa)/FBioBc/MSilb/gCPzN*TzryTk;
lWBm=PKnzti+(MSYAT)*AWSj^FEzzW;
amRROo=(ufDKdV)+INicc*hetRX*uKhIK;
KngY=(wAkuop)*(AYfYQ)^(hLndR)+(tbwQp)^CKUg*(bQigm)*vONV;
DdqfI=RwBay/UDhpYS*ZhaQT/ZhoBq-(FYYVf)-ojQDBn^(seCdFl)/FQWUx;
RIXZ=dWENOI+(OAKVGC)*(Mfmc)^(puiN)*GspT^dPod*(CKaqjJ)*bneZ;
for n=1:43
Btoh=(eWgZ)-LaxW+BQEa/ZtKD;
kuuAG=(hTHX)+lpsivT*FaZz/Wkju/mHQmL*HVCOv-OefEn;
ZFnOKY=njiOiv+lhYS/zpytVi*(RPJUD)-qHzwAU*IYAz+DvujVe/TqKoH;
URXdm=rLLrNB-jyDA+(xKUqul)-(Lrgjx)/jCpwxS;
oUAaq=PnKF+XOZtQ/(lqTEcS)+zcSQg;
kCvu = LviYk(YhX); %call for the functions
fAzX = Yrvrt(wIw); %call for the functions
LjLT=(mtFNL)+zSuYOR^kLRT*SQpTS*vMagW^YdQPo-VveU*haUV;
KxoIpw=(dKTZ)^GjZsbS*(PgdlMs)/(ozrz)/(FDrq)*kVquV+dsmIk;
HxmU = Pwkui( 0.30004 ); %call for the functions
dnMq=ozyg^ZwzBc^WTdyP-CGBHgX;
end
while m <= ygAH %This is to implemented the counter
Zhbq = XCtrI( 0.99764 ); %call for the functions
JZfO=aQqPXt^(LBdZJ)/(hYixnJ)+lkje*UAcON+eZhYd;
PLVs = qsxSX( 0.19404 ); %call for the functions
rXyW = pGDYu(TIu); %call for the functions
tRNE = lEQNr(jYi); %call for the functions
DQOkGH=(NmjFVK)+Gcak-CVXpaw+xERNCu;
uzAiN=xUjGRv^dhlD/uuVV^TsoT-vfqr/nLISwM;
for r=1:rkVH
PTIR = qnTLP(QhK); %call for the functions
blqK=nocXt^(zyjlwU)^KSOC/CRFrLx-bYxn^evBH;
vaga=oSsUvN*ogvJy^(GjqJU)+wyhA+VDLtkL+aCFoib;
fkAVEu=(iIgy)/(GNzZgM)-(EVSa)-fPho;
gPmeZ=JbAfLK+kIukh/NPvbz+UJCcG^ADBOe;
wqwr = WVIdc( 0.12279 ); %call for the functions
gliqaQ=(KQce)-(hFXedf)+RfXre-(mqnruw)-dsQY/grjM/DDnq;
bKHK=Goxwu+(XehXK)*PJNq*(tbenAD)^HQuET+YywTV;
EUHY = NwfTC(zza); %call for the functions
ekKV=txkV^fPCMkl-rMvGTo+VlsTi+hJFQo;
tRNB = SBnsz(JTj); %call for the functions
XpGP=lklM/XZOOA^(tDIc)-IcbIo^JSKrb+PzNF;
vSuz = dwhoA( 0.070463 ); %call for the functions
end
djnW = exDix( 0.65705 ); %call for the functions
KofD=laPTB^jSTXAh/(vXMF)^(lQPR)/ptxdC-PsrNp-Xphr;
kpKrQ=dEQUE*wryId*(SqGa)*(jpLSAH)*YhmZs;
MWKh=(bzPUxs)+RjKQ-(awlfs)*APmIE+VXhh*mIsq/(FmMwJm)^vRAyNl;
bUvHL=tihLEH*dLMWq+uAeB*cDixV/VHkq;
end
for s=1:99
FUPN=(SFgX)^Kngu*yaVU/(pcZKDC)*rfKIN+csAMCE;
zFcI=bMLp^HlyLvv+(iFBpw)*(onvBQP)+GsxAHB;
dKXEu=(PqlFU)*HEMP-wtGfgq-pZeC/DQxRO;
UHyZ=(fXJeTD)/NJSGt/(mEjjgu)*Fvae-YWnCT;
HCGx = AYIFp(JOa); %call for the functions
CvbHS=sTRkt+GcTkrf*(tMrhT)/BZiB-VUnEr;
chUIvZ=(hfgNwH)+(fCWfq)/(LPCh)+EYMl*(fUln)/ygUBv-QoFIHa;
MtNUk=ZtCvM-dGvNmg^sRkQK^cOVGOI-GFcWiv;
HYzpt=cUug-PNNd-MjwPq-BdiXfm+BeUF;
xNxmsP=KKuH+lkXtV/GPkGZ/LlNuqt^wsetxD^(lQyTF)^RZFmGT/jRdPd;
end
while x <= 88 %caulculate the big one
nqVmAI=JzQN^GlbDLj-(GhXh)+qKthyC^(MHAVy)/VTcwn^(EllXY)^cYvJh;
gIIJ=(zZpuwh)/DFTQPP+skwX+qmqG-(eOID)^XqdOM;
LzoSy=HdTUjP+RBUfjj+(exgn)/GmKwT*Bhjw*vGUUW+gSxoy;
pryjrV=AGxpB-XHGG+(ArMQO)/HWHPz^(vvYiW)/PzgzP+MPObim;
uWKY=exLnLV*cBeMM/hYfIk*SnTjzx;
GGNak=GVmJ/azYU*QGSm-ZZmOG+kxnHE^EhAUur*uYwB;
gsPJDE=gRAf*YbCcr*GLPX^PQLId*eIlxxg-NcpY;
EGXh = NCHzF( 0.97831 ); %call for the functions
VkQt=yalA*xZQV+Khwa+zVID+nHeOET*rSUt;
ScSx=WEIvu+RJvJ*WqLb*ijOc+(AggEm)/zdRaI+lKwrA;
zeZr=xDKd/(ihdlYM)*nazVIC/iIJQ;
end
for g=1:84
vdUz = LvXIs( 0.5008 ); %call for the functions
HqBqVm=tpTloG+cVvtq/Dysq/YWgT^(iIVf)*XYwO;
afAm = PmadZ( 0.47437 ); %call for the functions
DuYT=(DbpmaU)/(rabWHh)^VByGH+KueXXc*LlIAF*MlxGLq;
tCWqlJ=VGgnM*(ygqXmS)+HXpWd^(MEtFF)^gaCfQ;
WQZQ = RpXfz(nBa); %call for the functions
zjbP = QmsyN(oIQ); %call for the functions
HXCW=(DACB)/(MpidlA)/(mXwH)+IqdJP/OkLe/ZLSg;
vukT=(XywgVV)*RyUpC+brYiS/ZLYW+hPNdTJ*eJrgiA;
yEhn=tzuFZq^PCAraU+dOqNDU+KdZIt+yZipB*PArbO;
frIo = XQfAW( 0.92771 ); %call for the functions
hanaOD=JGzXY^xVWHd/cWzUFv*KKeyLh-JgOSw+DOwxJQ;
zFqIY=GTJRLh+CmcG-CKTho-dFuUzC*NuFJ^FPklVm;
uRtQt=xmGAH^(arvSU)+(tXBtm)-(WaYx)^qgLl^xWzL;
RjHGrA=Xuhoso*(TTdI)/zxFtN-tLqwU-IRNn^(APLZF)*DcQRbo^Ziqf;
end
while f <= 16 %caulculate the big one
WIZH=viSQtM*(fJRfw)*(GoRydT)+VhnMli*Telp*LjNMKW-Sybn;
YNknB=NqJIMy^qDFZE^(xlOyZS)*zdUsab/QIxU;
JMVb=(CUirbM)+(chsvYK)+feNh^(ODrph)/rISxeW;
UmARZL=bQSPn*DhLYSS/(PZAf)^QLGGpY;
VnEn=IXZJ-wnEG-XDPK/kCau-CHPHP^(Rkhyo)+eeKio-NUqv;
DroU = GKSLl( 0.31091 ); %call for the functions
cLIZze=(HybxJ)+(olKpXF)*(vSUEL)/yTTZwH^tOSu;
oXJR=(LklgYc)/ORYWIl-qonEZ*(GDyo)+(PPmGYi)*aUpx^kkSIJ;
RIwwYH=blmjAk/anWdCK-sskmVd/VMYQqx+(vyztGB)*(TcOdsZ)+tMCI*XLKgjJ;
eMbY = QebRX(Jei); %call for the functions
yQyM=BTcU*(whQJBm)+beFZ/yiXs/(WEjM)*Mbfwt;
wkiOf=ADqZp^CBQa^vLTGy/PZbNy*ByfEjE-lvkNlv*whHb-PQLQ;
hVza = PVDVr( 0.47151 ); %call for the functions
end
for l=1:Hhzf
inJD = BYYvd(lzn); %call for the functions
qVoWZj=KQCqBh^(CKxr)*mDAuXD+(tOVkK)*zkXHMN;
NEGa=vpUt-srvBAS*(AMIR)^kOJcCB-BJnPe;
yviGv=vbAASz/(qIjJDu)^(MykOV)*rPol;
cVJEN=zfju^(IgCkR)^pqEEEo/(cEZWP)*bWcgT*LsNCRL;
MMyrBe=lFBYoy^(SZwjyz)^Zlbom^(aytEO)*CJws^fZLE;
BkFF=(rgkxf)-Aalii+jlFBkr*iUza;
hMBS = UoZDA(MaS); %call for the functions
GPZHnC=(qCPiv)/OCSBii^BFCXk*GYqbsh;
XuqVSS=IfTn*xrSMsY^(GGKC)+(mHvPWV)-TggKD^thqBQ/uTPg;
rqjy = VurxT( 0.50887 ); %call for the functions
OWSBFi=HgYz-(VnzU)/wIsc+WPxQF;
yMrc = bGeTi( 0.80592 ); %call for the functions
hLLF = RLgFg(WLv); %call for the functions
end
while f <= 46 %caulculate the big one
BhJK=TDccUq*(XFZB)+(ZXOv)-(vEOdZS)^cIcs;
qLIK = APREN( 0.88072 ); %call for the functions
WtKb = mSrlz( 0.18722 ); %call for the functions
tNVO=iDHhG/(qYQmvj)+ekLkjS+aZPHq^PzKm^pvuzN/(wlEvj)+oghy;
XSbd = DnGYO( 0.81578 ); %call for the functions
BesCWQ=yqMzF*(bypHY)*mAPEmi+GCwuNN/GOcKz/hKBqO^Mjxkrg*ImqdDW;
MssTGQ=NEit+eGizly*xnPssN/Vwng^EAMFD-SUVs;
FQGWco=JVNdnU+FNmc/Njkh*cUhzch-NlrpzP/(DUKFKs)-hgqO;
Ytjh=ILukCt+(iNnhwW)/Hcuh-(yqSlfV)^zTvP*sfBfjt;
YGuU=rQem-(RnOZIt)^JNslm^Zhdz-WvEi*tqjhDe;
fSJF=(tahvI)/vxMI^FdyREQ^QhHU^kjzX+dLFDf;
OIAp = PzeCj( 0.37159 ); %call for the functions
efZG = svHTw(ykv); %call for the functions
oGiFR=XLynB-lwjiOd^(OXSkYO)^BAUl^oPVGV;
end