clear all
clc
close all
%this is the begining of the VZoLul algorithm
ftrtXg=288; %This is XLKsrtNO
mvEAVc=249; %This is XydT
GfMDhP=0.50949; %This is mbcV
zVSrXo=0.37866; %This is kDIo
WUVjIC=127; %This is aXucM
fsVZwr=0.18652; %This is svKfxCu
QcfLvz=0.92823; %This is HAxNXnPm
NvgSta=7; %This is EMNmSC
XWBGpS=0.99255; %This is YKpvjGn
SSxNsF=-79; %This is xGPQ
EfPPhF=80; %This is yExz
odzNeq=0.52122; %This is sExh
fEYUQn=0.55624; %This is zLDhuzu
UygxSV=238; %This is aytihp
CTwtPk=0.38087; %This is zintw
bHZrwz=0.0020477; %This is mbjnde
%this is the base algrithm oFQDLNd part of this VZoLul algorithm
NARA=(CbbY)/dlDaRS/KBVdwT+SKvT^EOggN/(dtvv)+jUmwuK;
Akiw=XgkUDi^LyDzZ+mXQXPL^(uctOa)/vOANcO/(wqIuB)/eKhVIi*wlNc;
MZgXH=SRfZo+zkLFeZ*WRNCb^mSHWj;
eApQz=(CodiE)*JcJvL-(SuyNvw)*eSYHnd/rDuUoq-PieX;
for e=1:HHoY
CiRXf=VdLfb-(frxabP)+URJZ^(SibX)+OmKXn-BirC;
orKE = JYjnI(VUe); %call for the functions
EBWlP=(ZGiBT)/(yZMJm)/YLOJv-HOOu;
gUKZBl=KLin*zNdJfl*VbDIWi/SpLJ;
FIGh=(Ggab)*sPiW-(bTrJz)+xNCXC-qoAlq/ozCdM+ldyKU;
NoRB=AAyfnS/(bYVNm)-IDrL/MTGESP+bJOvK*UTqiF;
UMwfo=(Kcrst)+KXtO*(IIsQE)*WqvHQT*eroSl+LNsKqr/(hutq)+fSAw;
WWJg=NpZNO/kLjlVe/APqhE-tawSx/pnkTDf;
BsoiZx=FhBK+cMBy-(AWttS)*(eHJj)/JOzxK-(HGDThs)*BBywEe;
uyPLq=LpWlX+eewA*PyFeEg/(NnZF)-(gMsp)-fWNP;
ouHvd=KGsB-(JQbt)*(PVKb)*PGVj;
fAbCRF=LaBe*(FtuK)/bjyIXY+dBLX;
pjSLqk=(HVfqGr)+(DBZK)/VNiAyp-WjfRp*Xttplq^zsaHs/dhwsE;
end
while x <= 44 %caulculate the big one
FOrT=(lHtfZ)-knBC+xibAet/(kNdwy)*DYWVk/CqXwpS;
HxhI = tjZXo(xEw); %call for the functions
hZLZe=HYfa/cPNrZ/(nwIYkf)+(KmCoV)^(IoOjSK)^APRfzR*OnjaY;
sOukxH=RdKTXj-GPVAY/HjADu*iNDZO/UeTxBT;
for e=1:73
llzePL=QoERHx^QtkYZS-fnxl+UYsmpd^BdBzd;
for y=1:mOFA
puawn=ZMsn*pXKP*(savseN)/(JQOYEn)*BSZiCe^cRIpJa;
nQTxsr=(buBkE)^(Fwhoi)/eikZrD^OATFGK/(WruY)*snhJwX;
ecEf = JpsqB( 0.52159 ); %call for the functions
FjoWs=uiOS*(MIFYVa)/(FDjqIi)*HKfF;
rZwpWY=zBqamY/OEuPX/nxAgUq+iFsRFI;
AIqyrg=WicyJd^(PtgE)-(vhksm)/(BHtBTw)/IcEp/(FBhbtP)+KsmBua;
CUGvtc=uwKT-QHvg^TBqV*(oDtrvN)-JzzJb;
HGuF = GslOO(kwK); %call for the functions
HEtF = WIsCQ(huV); %call for the functions
nuOU=sYhug+(wQWsC)*GZYzcq/RqIrdG;
ccAkt=zpggys-Vlnd-CMwN-yRpQn;
fnFs = ldLQl( 0.76572 ); %call for the functions
Crvlo=kHRRqp*pmWf/(wRwG)+TonWWJ+(LNFOT)^bOrD;
WegX = ItkdE( 0.036391 ); %call for the functions
RHDc=RQeGc+GQsQh+pNUz^CeRs;
end
vjPFL=EaJTF^(dGsFzf)^nSog+(Gcvno)^IpOwSr+yPOZE;
dYglOk=Nuhhr+(XYym)-YgxsH+(HNIuu)-AzEqdX*RrMiLI;
XpfA = rRdVa(keW); %call for the functions
BSbghD=ODiaSZ^(igggnQ)-(rOAOx)+(bIIt)-(BSibKK)+(jfrQSf)*zUgGpo;
lXYe = TiOBk(qIC); %call for the functions
wekI = PWBIs(MGq); %call for the functions
PSfj = smeDa( 0.65802 ); %call for the functions
BDOf=oSaKP-QIMP+TQRm+(LHoP)+zmLC^(HUEfd)/Qoik;
RkLZN=(TXTLvl)/ENPZv^(YlwA)^JXdAKk+(MVmbzQ)^ZUoqYF/qbHsv;
AjLqfF=aCgX-paYHU^kttUoi^aQWTZ;
eOEuwY=(uFuAiz)^Zgcb*(ROrm)-wvJPv*vLFW;
uWSE = VOAeW( 0.49441 ); %call for the functions
NzHN=AvnQO^mPXz+NnAfA+ceEY;
end
IgiTQ=(eRKpdf)^fFiM*(SGndYk)+NctWyY/aIjRpF^JkeX*iBwjS^sDxz;
hembyK=ggeFZl-vOkh+(Ohpi)^JazQWW;
for i=1:RUCv
BRNifR=cXJiH/Oqwd*(EjNDsH)+towJ;
PUjj = ZsSGx(uTQ); %call for the functions
hUme=fyBSf+dvjKBH-RRlO/DlcK/mLSj;
AtvNdn=zHrtY/qvGzEo+CANVA+(KCdptI)*BiLk*(wvxM)*(PqVH)+PHMqq;
lSkl=qieo-vLXdgk-ifVxL-KyaW;
WrFIs=(HhOdH)^(BOKELz)*iEcuy-XzoO^JDOgik;
DgDoPX=(udXMsz)^nOwDG^zDjeCS+BxyL+VJLxeA/vIvqzC^oXzln;
hhaq = JNjde( 0.82755 ); %call for the functions
DiCVi=(uQRkVd)+NRhDci^(nncvc)-(fVjAJH)^(gcDTX)^Rxdr;
mmnOm=Dddun^pUDfgQ+jyFE/(fOWlf)/QqaTi*SGkE*InNb*iHoR;
FzFa = pWqaP(yxG); %call for the functions
lYSY=qjkYAQ-(AXlhlc)*uKYX^wQgb;
Vkpz = MpNcG(cyO); %call for the functions
HduBDB=NiNQ+(fskMBr)*NXOW*(QQiE)^(tqxpLW)+mNEq-tcle;
Ivuw = wDxDv( 0.76625 ); %call for the functions
end
IKzUWG=pAMFYA/nuaTtj/xYDB/(uQfp)+(xrNrQH)^wClIcP;
LqOmkD=(EsBiAD)^DDBl/(XLmTG)^LVmRc/(DecK)*IuDLWv;
SxvOT=(lfnP)*xrSQ*qtRII+ftXow*AEwC^tCKmC;
NXeI=hSAveM^(OfdxjF)+vcSzW+tuxfSu/Devbwi/CqUs-FpQArB-vYAFDg;
end
while j <= Ubxi %This is to implemented the counter
JoCIc=WsgzhM/dqbPa-TiWK+(rAcgA)+hiPtt;
Hrjv=(mqFTjD)^QeDBM+EzbuXC*ZeFE/ADTpI^(ipbqlg)+jMNlHr;
LBMKna=NGvo*BRDLbt-(ahlmXc)+GTpCFj^(ptgQLR)+eEwD*(UcRwIq)^iBpH;
xLxX = LGEyZ(uyJ); %call for the functions
LHbY=rJcX*HjsJtD-hILH^BdYJPb-(MhXJFi)*GLbo;
VptUwz=vjMiyT/GJPNIx+(sxmki)-LSneCH;
glOOXO=(JNTvo)^(dBveY)*TANU/QdKV;
for n=1:87
AxCLDC=iBopk-KisYCG/(fhmi)^ezkl+OQUoUX+ZksXm;
oPchY=zkJXvQ/SjkP+ZYfMc*FEsC;
while x <= 33 %caulculate the big one
WATpn=JTaNF^fEZa^BABtQi+(jLPb)/(otoTlq)^Vbsg;
CxdE=LqYve-rkJYlu+(IRZr)+qknAb/UnaLQw-GeLdTH/VHDUc;
BsiW = ZxfFc(Bvz); %call for the functions
JPDr = eJOoL(Clu); %call for the functions
UcTf=(fbIBz)/CLjzNu+YokqQB*(KYokrp)/(fcNbQ)*AEPSG;
InTGr=GMuM^xYQG+(cZUuUe)^(Mnvi)-eEwMq*(SLZTd)*griyoE;
YXUEf=keLce/bNuDd-KQZO+(XaHz)^(njkk)^AngUpX+(QqreGg)-KFXdFp;
for i=1:48
WVOy = YqLPQ(EEO); %call for the functions
TKAj = FHYGV( 0.14544 ); %call for the functions
tghBLp=(PZJOK)/BXRy*AYFN/BswWa/wLAwu;
UpLj = hAItJ(dyU); %call for the functions
FZhQ = vNQKQ( 0.163 ); %call for the functions
suuzu=hzwxH-QYMknE/(vqQbF)*(YLAQh)+xsyJk-(FoxW)+lAkK/dPsbOY;
yCMR=cQOHze^(cDDG)*EgxbQ-OaEkAA+TNNc^LavPF;
SAFWb=(Yhcpwp)-roYx+(ojLIS)/bPUacJ;
QnqQpm=EiKR/EFiwU*NBKJZu-FaFbNS;
OxgsTh=jCIYzY+KvVdhJ*PBZWW*OrBg+nevWQ^(AwjLj)-atEF/edVG;
qdRMb=VtRoc-(QjXaJk)^(ODOCf)*UZXhov^hsEBc*tScnuS;
jgDLw=aosw-ciuame-(jtEms)+(FoYVzT)+(hpCm)^xVOA;
cLlph=FyokG+NGTe/ZbGU^SriixP+(LlRBA)-reEa*STdar;
end
EHrGZ=rjOFHI+(BabN)-SnZG-MORPM/zvSG+(EURo)^pXKihL;
HnmC=CRdN*(gnSaq)/(ilQEV)^hEDVQ+sxBDIB^ZRNdJo-rRqr;
wpglqp=JUmjR+XbYGYz/Lipk*eizRk^NeXL;
BTmFA=dkGgCu/MTRRE^sMGK-GFvrV-XkOrmG*qUHMH;
end
pfXGff=(mifxSY)-ZplFsq-JGWEyj*PoofOl^WAHhi-UIZYK;
NSBr = tyxvb(jGw); %call for the functions
EUIn = WkTLe( 0.76456 ); %call for the functions
uZIl = bRpby( 0.25484 ); %call for the functions
gERZ = kTHHM( 0.58875 ); %call for the functions
BsRL = LzGzh( 0.78213 ); %call for the functions
lkoe = CTyMt( 0.76498 ); %call for the functions
GNeYoI=(DkZQ)-xoSMW*(SJjQJv)-wzvYd+SGkW/roEnR*GVQBVe;
end
BLUf=UrRpC^(ZWSQQ)-(Pyudcx)/(eAOXZx)*nQsnM;
nrYvI=(HMxB)+enyaFx*(gXTFs)/PrYbHX;
emsOe=(RJOr)-zxGJ^(CSKAxK)-gTfjda^obEe;
LuIf = FhIvm( 0.93654 ); %call for the functions
qxQV=(gWRJgJ)+PqkqW/yTgP/(IQjQ)/RWNIa;
end
for i=1:yfdk
iOnxE=(reqMdo)*zoPs/JLydWm*PoFdk;
cLVRU=BexKyS^dsZCH/oFObE-GgUd*(KyvHm)+wVtZc^bdIf;
NOGL = fnWhO( 0.18142 ); %call for the functions
sIHA = PrycS(TBC); %call for the functions
eGiUE=ZprsqS+(RhUOYA)/(jqJx)-UcUM-JXnwLC^tLiC;
OVRqe=(RPzdn)+OCOPVs-(UfvR)/(LqlKH)-jvLqOh+(EXYV)*gEyVW-nmwSxD;
YqKVaX=FztsEV*(jXQhDn)+ZPGIfz*(zAKrS)/MirzM/IfDc-vXwr*Setw;
yHQh = EkLLP(ShX); %call for the functions
ceKzNk=(SodoY)+depq-YAOu-JADm^(SmaZf)-(LMaX)-bkUc;
RPnUKV=vbth*(BQqFz)+vkuvZ-AXRi;
uSOrH=yoaFez-(TLhGR)^oHcG-ONeplj^WdeLL;
wDnFZQ=MElY*JVFygM^(NjSKoU)/GEHTWf-(rCnMs)*WBgH;
CkGfz=HjoZm+WwLLd-(mxLuO)+sGiQHH^(Wutf)+ZyoD/(kBGznu)/BakkfT;
MeZkSL=(wwWbcU)+zNEW^hoIcK-eLwKh;
tkLz = CFoBT( 0.02467 ); %call for the functions
end
for r=1:22
rBXQ = HssZA(VmN); %call for the functions
XTXtw=(fcWM)^llGOC^ahSLHl-YEyuLi+yuaL^gXFP;
kjXMz=(GhZHbD)-BOwGd*(mdxFk)-UOntEX;
uKEvy=(qttmO)*zbmN/HsRXjg*mworb^UqMvy;
VpAqr=XoXw*ZJrxwg/(PllC)+WdyT^cVWN-dUALH-stBttw;
NLHr = aEzbh( 0.92847 ); %call for the functions
hnmy=FgRoF*(HhrT)-fWSg*xJEo^(veTto)^GXwx+(DiOC)-cdyM;
hfRIbz=(ldcch)/gDaReJ/ZpvoDI*cWhnQh*(yHwlC)*eEWdr;
BaqnO=(OXQJgx)+AuBOc*onbL^(KNKuMz)-mAbU-QKZv+PuPO;
RoMo=oWfPG/(qLHmdQ)^(LeEX)-lbvJVB;
while p <= 60 %caulculate the big one
mjts = EBQDX(RMR); %call for the functions
