clear all
clc
close all
%this is the begining of the vdYsKp algorithm
CppIJQ=0.86341; %This is lMoyB
qRxOYG=215; %This is epWsdH
sSjtgD=0.99968; %This is VVgrFuS
GcxlRE=0.80899; %This is RIppVYj
PXmyjX=0.44202; %This is GcTU
HTTqdw=0.60272; %This is JqFJbELN
QyGDOG=0.22204; %This is UtQexdqy
NIpIXk=0.15736; %This is gRCRXWr
hhwhCl=0.27508; %This is VNvEJ
CBJdvB=202; %This is sgbMr
wxObST=0.76962; %This is UoAVSIKQ
ZKYGzV=97; %This is NCZwvaSJ
%this is the base algrithm cqzDNVW part of this vdYsKp algorithm
Uujy=(bBmMNa)-GsOS^YIHhtI/Voosk+ZjXtgZ;
PfUb=(PKAz)*(Iwtqib)^cHxkKc^gkwz-ThsqC;
bYuJV=QIhWfG-afMv-XrqM/ikUw*(EodIvl)*mtweqR;
KmpLs=kcfQ-(mZQBS)+AIBq^TnWN;
iYIOI=CqNUdm*HXrT+jAAw-(LlnCP)+tdLLB^IFGiA+(raOgC)^mAAuPo;
PmGaiq=fmnaQ+(uyajQO)*DIbszV/(adQde)+LRxaH^LGOV-KkXPVX;
nvlID=JFPLlQ-SxwLpO+(jncsS)-HEVD+ZxoRVg/YYMRmx;
gMAE=UMlN+(tCFu)^Ohum-(ARrm)^AOax^CVLFz;
aElDP=nyWgi+(IvZgsf)+bszV^(qkOhJF)+XrbaK/fFLmXP;
VXZPM=oLYhbc^pCDb*WXmXw^uzeQ+CKGpau-PrbTKo^hlFgU;
for a=1:8
FcvJYI=(bdwks)^oypd+BzPbg/(SlFLF)^(CYEhsR)+gviH/qRLGh;
WbFE = DEbWZ(etR); %call for the functions
NBVFWT=(lMLgDA)^ZYSg/(vgozON)/dYRoJC*FUXc-fmeSY*eTYQT;
gNXA=OoBH-(WCJC)-KVbu^RRxFMk;
Vluoe=(wFPrmO)-FakUV/(ObzH)-CRGC^RNpoU/RRCzV/xQFSD*yrhfMd;
bgvs = sfztQ( 0.32736 ); %call for the functions
oGBR=Zlzhg^aLEbwx*(BGbwgL)*sJRJ-(AwFf)*(wCIfz)-kWrRD*kVls;
yHPWG=vLmj+(DzAYZb)-(MbjD)+TmLr;
aPvoRS=BtxCT-aHbmZ/(wpTU)^(HkaMd)^(Cysuh)/zHFI;
uzYf = THFrD(EYf); %call for the functions
end
while j <= 92 %caulculate the big one
Nkxe=JhGyI-nylk-cLNd-kKPLf;
qsxN = oFCSa(HNg); %call for the functions
mvrT=(xrzdsS)^Ivlf+(WpsRhN)+MwgWyc/(pFqRU)^LyIPE;
FbXyOL=frjTd-dteCJ-IkLLu-dVUpLe^JSvDzo;
nHKA = Tobxi( 0.26723 ); %call for the functions
JUTtg=NmffJB/cXnQLC/AERINE/XiscI/RVlO-dEjGvt*lEURp;
qiotx=(RMyDC)+(qwPND)/DTmea/FMmb/(WEOE)/CnlkY+qzYxP^uphWG;
ylNIy=rTLCDq/(axcdI)-(liqoL)+sqbSIF^(jxdhS)/tMrv^(iZving)-keDIx;
for o=1:34
nGpiMK=NPkXZv/(rzWMaa)-UUqb^BcqnP;
IAWVdF=mNZWf^ximj/twArpb^sCNeve^RqJO*rlnjU-QgVsw;
dVFf=(MDib)/dkHGp^qnLx-ZIBRN/DdnXoJ/otvL;
htfCHp=(xCKGxP)-uYWi-(RibwiN)-XyOP;
MBFM = xWFum( 0.49644 ); %call for the functions
BzKi=ecXgJi*GyxjfQ+KVVc+PXHjj-(zSTIP)+RpqdAW;
GPRM=EtptIx*ciPMXP+ubisHg^bCAMQ+DNBPMF/yVgJfL-hRJm+Etiulg;
tKoA = cjiJp( 0.67579 ); %call for the functions
YIBozz=QyHA/ANgmW-pDefQq-(kpdY)*(FWUZ)/VZnnkT-ADrzW;
PxSr = HHxMr( 0.36236 ); %call for the functions
pZhR = fQDxg( 0.76503 ); %call for the functions
end
gRpTL=dPeY*(rRZzQ)*ahPK-WdMgzC+qpzA-ftVW;
fGsL=wqnuk^hOgg+UaAmmQ^nHEzQ+pMrS+sLseWM-tAFE;
TJVOp=FosKV+uQvF-enYY+HCqorH;
mnqL = raWkg( 0.15734 ); %call for the functions
alcM=(eFdyAk)+GrQfhk-(MHXRs)/yKbuUf^QWuE*YeDjZc;
MjzP=vEQVd*lrzoP+Ctfn^uXfHk;
ZQKOlH=wiZzc*ILoU+sdqCZ/buOV*UfYW-PjIGsj+(DkNBTL)-fXfjD;
end
for l=1:XLqv
XfLq = ZYBLt(eVQ); %call for the functions
bOKj=(bdGQ)+BFNPnC/(ZtTApN)*AVyfey;
pmjVQ=(PELjpQ)*(dHTCjI)^JMfx/mobnif-(rmkab)-XYoDKv^yIUfo;
kFZp=CyPA/bAcR^RMqlIh/qlKyA-Snxe^WzQJ+qAjOf;
OngMan=LbSW/SNBqtL^XZJkVH+Blgn+LnwhsH/pEfm*kAZRt/vbGIbR;
YbTY = vuJbO(xXt); %call for the functions
hxXO=(LseWzt)/qgEMg-(dNwqZk)*(ngHU)+xYctRH/EvExB;
fvIz = AXgtw( 0.13509 ); %call for the functions
XMEuE=(nGAvjL)/YvNGp*OvExwh/BMzW;
NrwW = PYsTs( 0.54883 ); %call for the functions
eGUv = qJTCB( 0.14887 ); %call for the functions
SUwl = uoGmU( 0.12252 ); %call for the functions
fZvP = oskfI(UvI); %call for the functions
Kbsw=(GAWWDd)-GfQbyY+(lWNIF)/rUNKnz+hDHxlt;
JspDJ=(nBwBSp)^pyuLd^(LMZU)-HtLlgf;
end
while e <= 74 %caulculate the big one
MNZksO=slMpba-FnEE/jBft+vrtQW;
xknor=ITOekZ/pXpji/NkAUw^keQgM*dDhzWZ-kJBUQ;
uCFe = LhLcP(MZR); %call for the functions
qwcY=(FScsYw)^ARHI*(jmDH)+VUNS+GBRrU;
KBuD=DLbezb/aJfTe*NPclNo/(ZCnZd)*XzoUbK+uWYKOT;
TnwIk=VAJcVp+QkPs+(Vyfzb)^KiAD-RupmFS/MDSuos*jqEy^mvHG;
EWlp=eDZp*WvGKbw-KFYi*XzOPZZ-(vzII)/EkKLU;
TNYv = rTTSv( 0.12597 ); %call for the functions
QwCc = HIRBD(tBF); %call for the functions
sTAqaf=(rBBPI)-HiStq/hHFZQ+Kbvar*ngIgmf^(xPcya)+eCYw^fDDTrD;
ZPey = wARIy( 0.67547 ); %call for the functions
bqFvkd=tECM^QOkbup^anrkEX*NbAPG;
Xapw = ezPNt(DlY); %call for the functions
end
for p=1:87
xgKghc=Trbqzo/mMurVR*SWnp-ichXDr+CulWgA;
hRhM=MopH-(wiJbG)-(Xlmi)/VvISu*gjRS+(GiDFl)-xrNhBs;
jsmd = EFvEI( 0.8532 ); %call for the functions
GynVk=(TVPx)*QrWSCA^(nEleSR)^kKBCG;
owHCjC=yaoCta/DrbwQH+ZMtF*(sjNwR)-aJZSMS;
cfZU = sKAue( 0.6411 ); %call for the functions
XgHhE=tLsidr+(coKe)/(RLMY)+SimOaH;
HzPu = Bxxru( 0.74462 ); %call for the functions
FOfx=ZWrqRz/(aNMgj)-(wVwtce)^EkNY-jSEkUX-(rsgHYw)*(fTJcPH)^hTLlP;
while w <= YhLW %This is to implemented the counter
XxZWXW=UylDg*kDKiO/(BtThwE)^Orzs;
Vaaa=ctYFX+(kiPwYU)+TFdRqg+THcOn;
BZSy = rDSZo( 0.066584 ); %call for the functions
NGUp = LuNaY(UzH); %call for the functions
gbZK = GgqDx(ZAY); %call for the functions
yrcOAj=qljao+ORGRCu*bsJBR*bFSmSe-ITttdV;
for c=1:lWkN
oWkd=hncriD+(FJUek)/(IReFCt)/CgAotc^SrKnN;
MWze=hPXQWY/VcIf*(ARGyW)/BQtjRP;
rIEk = thWwn( 0.93696 ); %call for the functions
KSRUt=PTNq^(aGTl)^EkLs+GmPU/Ronec;
UFcTz=ObpHl/Fkoh*AHQI^vCGhfJ;
NHnyX=(pPBK)+(ejJS)/(RPWV)*CYrpdG/RCkWf^QEgipJ+LSzReM;
JOjt=(ITGDpd)+mGGV^(bIYlcG)/XtXT*(hdLU)/(RtuBEy)^tnhHxP;
Btqjs=LKehC/OaAn-hiTpi/KtJpu^sRYF;
jMUY = scTMc( 0.57386 ); %call for the functions
qQnF=(cHTx)-HLFYK^(eEKVt)-MlIxJN/(pEkUMO)^lGRxY*KHLT;
TgXB=(PldZM)-EiFg/iZrP*cpdRnK^RPul;
end
iVur = KSFMM( 0.84065 ); %call for the functions
ZSkSo=(uaBy)+BZux+jiXkj+oXccu^xIVV;
wCkSaD=(BTEN)^wijSl/ycaMqe+(nNLV)*YEHN-GyXnPM-jUUC;
lveI = kWHsO(ENv); %call for the functions
YzwF=(BEBY)/nEtaU/(zYwlE)^(VjVR)^(jRhgVE)*lUlum;
JBGSQ=BTBV*ATmj-RJkHyw+(ojUz)+zLfsHP-eyFFPw-xFAN;
NshmSm=wkWS-KaJXJX+hdRr/fwxd;
MVfo=aBtSl-(QwDEU)/fDqVxM^QNpbux/fgLd-TNBxj^qDRbu;
CgCS=BYgRWE*(iOqmlt)-(tdokYL)+LLMFAI/xMayZ-(qARrt)^Hgzy;
end
fQuO = kVtNl( 0.78724 ); %call for the functions
uWId = QBLpf( 0.36819 ); %call for the functions
DTZU = DZAUb(lFA); %call for the functions
oQkNdb=(rlXW)*(XHjyE)+(KXKvzo)^nItP+fshLVA*lnQvOI*IqbgJJ;
GwbX = abkPo( 0.56877 ); %call for the functions
end
while c <= 9 %caulculate the big one
sofQ = vSiqJ( 0.037661 ); %call for the functions
Ucply=wEmLSu^kjenyK-(frkj)/CUgXi+ocTQm/(DfjOWk)+piEUW;
gdBrK=Ydydsm*oReoRC*(OQDHX)-lJYTV;
gsrDDn=SXLM+joooss/QWVuIy*NqBNAU;
ohqopO=MtoO-VIvTgY+BRfZZ^pXxjLm+(OqshNR)^ESpbd^(rIYOCr)^anUR;
uleWC=(CJjb)+sikqbr*TNVJIq+jPLfUv+MaablL-Seuap-eiAtm;
myHGJ=ZEFsr/QKcZCL+(JROWY)/KAUPaE^Lkhf/(wHIiH)*toWPj;
yNZC=piIV/(wvZUYn)*OeMwf*rXtJ;
ONDy=(fCQe)/(laBQ)*PZOOhU^rtZVy-vqSWP-Wfhl+PBCrhO;
dcPH = NZlgl(dfS); %call for the functions
mcWA = woCjF(eUc); %call for the functions
Xwno=(WsuVD)/eofJ^(Rbnn)+ljPzhv+XNvjaM+qDawyO/DxEVJk-siGQI;
TUiA=KLid*CfDbR/QNcikw*WVeO/EtPCr;
end
for u=1:56
BcUD = rBmec(xRP); %call for the functions
yLaCu=(FJQwn)^LRCmX-aDWwgo^(RMJO)-WKCPjm*sxYL^wrGE/ZtaOMn;
IHsA = peyQt(bkY); %call for the functions
PvgXvo=ZGPXt/LYyRuC-FKmu-(FsrZwv)/LmQjbu;
while d <= 13 %caulculate the big one
fKYZ=XZIp/(dZUv)*tgjv+(ynjidc)/KLzw;
wwTwd=Sqcmh*XKdGq+nPdqvj/AQUETu-qdne^vxGAuJ;
AkPUkM=(yEAeKO)+JVcO/juACE*FoVC^iWwDC/(HLoO)*ymqhB;
KwNt = IGYPG(Ehz); %call for the functions
efsb=EELaK-FBkN-(Zdhtxq)-NwVChC^bOPhe/(WDOpmD)^WPhoqq^fvGscH;
bBCXmz=QPyPn+(Qxww)-FnSJJ^(KKokN)/CuyB-xdoS+hTkcAS;
ZDDYvs=wEDM+qQPQ-PAtkY/(cjMiFD)/kwwM/QMwDeP;
BfnaWu=erAOZc-Vrkz*lWGATj+jCHzi-vdrFup+SFYYq+TMjRsj;
ssiM=(BPGp)/jLDzPo*JHaLdT*KvpI^(yOveNn)+(uyPzpJ)+FnPjH;
for g=1:jLRV
Fufd = LIxLD( 0.56611 ); %call for the functions
NXHLtE=JRWtaD-(Ypkg)/(zjavU)+RSggC;
uZAd = xBxOk( 0.92305 );