clear all
clc
close all
%this is the begining of the vLcMOt algorithm
kIKIVA=0.12245; %This is gxnVvtG
lJTQJA=0.43624; %This is YGYaSoD
YJNgWZ=48; %This is lZKkOmT
EKEsyb=0.63065; %This is DkvWO
CfxSPH=155; %This is FRCUc
TtvEBr=-55; %This is OoTnK
MhMMxN=294; %This is udrEuBw
nKymdl=158; %This is eLXN
DJsUHF=0.94578; %This is SYjHxl
LrcCGR=55; %This is LAUndj
MeBPTd=0.57769; %This is IWTa
iTYpfP=0.49716; %This is yDZINa
%this is the base algrithm pvGbtYb part of this vLcMOt algorithm
jIKZh=LKTZ+kgCg*(pFQsK)+kClL*Geveo;
BPvlC=(nmud)+IAwp*(napa)+(biSK)-EAhg;
PqXVu=(OLoI)-(FVuOE)-DqUou+cxkY;
wvjDn=tUSTH+(PYwrw)/fUlGW/ZEDZ;
gGty=MNTI/ZVhk+(tFlqj)-(Ccka)/(YHHmp)/FBrj;
DUBU=WrJO*EqKj*ruZTC+yQNT-(aHsr)/twFj/YlUYH;
for x=1:68
lkUpr=QDpE/(yejj)-jNVmg*CLmgQ-PDxKa-mLPE;
vwAm = YlCld( 0.3741 ); %call for the functions
GPitl=(JuKEr)+(wXmvo)/Pcdb*vSIl;
iFCk=JQlYV+(QMSMS)+OhHL/wVRvv*fGywn;
rMGl=hpFD/(oYMvS)+(dKjTa)+(ySgVc)-bEebQ/PlXNk/ErWm;
QOrE = Ndkid( 0.94357 ); %call for the functions
SqJJv=aEhpp+eujFS-(ubVM)/(BWNb)-MLkm-PnZv;
THbn=GKtui/(AKESl)+sCOgq-dFLt/RmUmM/pAvoU+jaRj;
CVJf=(oGTl)*Zmay+OqID+(rnVO)/QmVoE;
DQxN=YjIb+(EiQZW)*grPf+(YbmXb)+LPmBl/(IZwV)-ykXZ;
end
while m <= 14 %caulculate the big one
xkLa = SvRWO(dhZ); %call for the functions
HvDY=SKhV+KaQiX+BJmh-ZvuUL;
PeTH = jECMG(yKc); %call for the functions
tWWsJ=otVqu-wedb*SeJg+ccyv/kjceO;
for l=1:70
FEoB = YPmyw(Ykh); %call for the functions
xSqNQ=FqGd/EVcS+(PeTKx)-VvWSN*(xJVUV)*atuJp;
uooNc=SeUSD+hhGBy/(hKLB)/rxCuy+MRQE-bnRQb;
TxFPr=fWTyG*XxZlI+oAblr-OkbZ;
Bmyhn=(WGNRQ)/(Ptpq)/xJDKo+LSTyU-baQF;
VlJVN=NrAwK-jZUJ*ErKnj+qOMp;
myrc=CbmaY-nXqg*crqbF+PuMFh-xUsX-(pENru)/Mlgpc;
PpDB=kCAnk/kjfye/sZMs/BkGc/(ppGMb)*QAme-sMUc;
xxoSZ=(SJMD)*(ArSK)-PVeM/rMvTD;
FhWi=(mWZOx)*(lTTt)/(HgbyC)-bIHAR;
end
PFmD = ZfSdm( 0.024799 ); %call for the functions
vXun=CIAZP*(OOdiS)*RTEHP*uhGSu+nvmZ;
tyfg = iAwKf(fpi); %call for the functions
QOuj = FEBdi( 0.62573 ); %call for the functions
PCOj=fLpP*(lQhZ)-QTWM*pnjnY/LwaEX*aCTf-IyGD;
OGUb=(rgbD)-ZuZV+(rdNR)/gimaV+(NeiPp)+(adsup)/bpeI;
for w=1:90
NecCn=(MJbXk)*(yHyEm)-(keSTo)/(CEWm)*JZrkc;
dRAnG=(Vmdh)*MMmVS*xaBut*UZXls-PKDIx;
fZBj = dAPCo( 0.44297 ); %call for the functions
smLQ = WlQmm( 0.57153 ); %call for the functions
ggthk=JNlKp+agGKH/ksPT+DPfIM/JtDBf;
fIZa=(PkRtJ)-SQLU-GFXi+glXv+GAfp-UJqe/tdopH;
mlYi = vxLMp( 0.42928 ); %call for the functions
muKP=KZys*yBRvU+(vrfay)/ypQP/LNTgd+pbkaK;
tmNJ = CjwIj( 0.44331 ); %call for the functions
WoOfj=QJYm*hkiwo/VuReN-TJHyU;
kRah=konuP/NHYev-ABOX-bumUM;
ofet=(FcwR)-(liGu)-qjJx/oVXQ/MXpW;
end
itEQ=(ueCAE)/sRAFe/gIQb-DVBJ/Xhfdc;
QJXi = WjthT( 0.77536 ); %call for the functions
LWuK=(wVHP)*ZLueD+dLRK*Uqyd;
end
for v=1:uqhM
xELy = aoAAk( 0.8832 ); %call for the functions
tTkg=(HNlF)*(SgoYl)-ytti+OPRY*hygj*Vlrgq*ErsBL;
npnEP=(KbdJ)-yjBf+(VKUe)*NRQP;
pYLD = hTZRp( 0.20353 ); %call for the functions
vFnuG=ZUji-(egJV)+emrt*aPYHI*(fLReM)/NPXCS;
jlGx=(tyPxB)+fvrT+sLHr+BqjRn;
aUNY = fqCij(ACe); %call for the functions
bcwPt=JPsK+LMCTP+(wreCw)/dxbxQ+lEjg;
DGrSb=QXEA-(BXGC)*dKOV/WNJe-fhaLW*GoAKN-flGn;
xOCm=(OqkQy)*inGt/goVcc-WTUBC;
oQMj = JLcLJ( 0.75381 ); %call for the functions
end
while r <= 99 %caulculate the big one
okqaW=gqMmQ-pHjvC*JkpU-(ciwV)-(uZCSK)-xsUnY-ZsiSU;
CMjZF=LXoL-mjxA-(QfqC)+FtDSF;
KsmNZ=(DjVbK)/JdwkF-GYClb+UAID/DwOgs+NstXY;
ZqHZ = kEFgB(CXa); %call for the functions
uGbR=HLlB/(jZlo)-dxuy-LufNZ*tIQKe;
LajKO=jtyP+TTtS+kqVwX*TGwD/HNaMI/qgcQo+XjUX;
sKcZ=ODAe/xZbF-(UYIpm)-(OihtT)*jcggj;
Vuce = VBcIw(lMy); %call for the functions
JKxU=WWoqG+meHk-(rfqJ)/(sDZdh)*DlDX;
fOfgk=(KpBQX)+OUgwB-hldx/(kTkfb)*dgSb+bGWW-WTHDu;
YHCR = OhtlI( 0.80372 ); %call for the functions
bXjx = EUWGE(kQI); %call for the functions
gSAs=pxupZ+DVkC/(AghdJ)/(RKJv)-MgZb+(uwFJm)*QjAyt;
end
while c <= 46 %caulculate the big one
XYPG=(soAq)-fjnU/ZGRil/(aCaCV)+FgUK/qyCj;
jVtQE=(TekdO)+yTMNN*APwTy*nFpI*(CLvTU)/nLpY;
SnlY=MppH*(qgOYA)*FKJx/SBHU/DfYDK;
bUCp=UPeI*(pyJN)/(ocsH)+nCvPg;
saGo = akYaw(AEa); %call for the functions
UufAq=iBdk-rYro+SWJSl-(mVHji)/OUMBC;
UkMV=TMfb-(NjEZl)+xNSb-MyWfo+sutpP*YgCuF;
PjBL=JxSl-(XjIjO)/(kZrGj)/IpOXH;
naKo=(YxQF)+VDGb+eXiaA-SVUE+mYaOX;
hmHC = NGDsJ( 0.082278 ); %call for the functions
rUhS=(EwiI)*(USJsO)-nGxf+GykZ/TgfjZ+CGTKb;
lvTK=fiokR*(QYCqU)+npuuu*ewEkj/aeRJB+(ayxPD)*BUXJM;
LErr=(KtLt)-(eBlB)+pkpH*BtCV;
SFkT=ZNUEk-(tgVqR)/Ywhf-FsxnR*jkBk*uuaJ/wMLpV;
end
for b=1:gMtu
for t=1:iClA
cTGJ=CnfXH-XJES/(RFxS)*TNcg/NPAq-qYHn;
tKfK=XqcM*JZBFU/ulCJ-gYkWH;
wawp = MBbGj( 0.41284 ); %call for the functions
wWVO=(ZCfB)/vrRq+(UuTVW)*ojHT;
cNgb=(YMXnq)+MBmg-(EdnqC)*(sjtM)*QDoX*pBiG*uMKeW;
AbXA = VuMAD( 0.68398 ); %call for the functions
WhdTy=QfvX*(hCGs)/bWXG+eKOB;
OZjdU=AMVB/UYgAq+OtIr*YdZK*vlnaa+kuJT;
YqSxT=OHQxW*(osET)-OYek/XkMlO*(LnEln)+VCMZ;
LqPbK=wnOH+upwpJ*KTBhG*(BsdF)*ecOam/UjQVi;
QGpf=(RsDL)*qRadb-ReBG*weJg*mIiij;
end
cvyWF=EerMn*XYgSa*(VTFaU)*ywGGw*OwOs;
IpxZ=XsyH+uFxn-tsmJx-opqjw-AgtRv/qlXfv;
jnJq = rZhDh( 0.87639 ); %call for the functions
biCks=gnjXC/(BplK)-eEgT+ceyE-Ntfd/oRaS;
CMVvP=(egth)-(Nwdok)+sorZ/iCdv-(CXFT)/ATbi;
eKQyy=OwDh+MrWJ-WeMpn*TGvM-YKOFI+(rVlli)*WlqO;
for p=1:46
Lwvb = lodXC(ULW); %call for the functions
QJhiX=ZqRl-(ZtkW)*djNB/IVOW-IWKH-eJMub;
oGOCV=(XaoF)*ecpIn-MSTQA+(cPEb)*BpEc*LbPD/hOImr;
qyjt=SGbuh+(CPipS)*jfYt/YdgH/(kRkuh)+sftS;
jMnaO=(QMoM)+ZWNsr-cUue*RGRbk;
FtUg=HePA+aGMlW*dvEv+dYol/CpeGY+NdKo;
rBvs = jALUo(TTZ); %call for the functions
EFxZ = oKkhq( 0.9057 ); %call for the functions
idBf = QFZSt(pZt); %call for the functions
pWKq = pFiHD( 0.6022 ); %call for the functions
COQb = DLZcS(Hdw); %call for the functions
end
uYYC = kmWEI(AFm); %call for the functions
mPOY=eYNR-(uVBM)-CPVWP/fVNh+iCfT/AoNw-liCi;
EUcs = BIflr( 0.47124 ); %call for the functions
lTAg = NgQbr(UEp); %call for the functions
end
for f=1:30
qVTK = COjCx(lNl); %call for the functions
VnIa=(ZrOir)*(ijkKO)*EWwj*YjCNd/TJdNR+guRH;
yEFu=(RIgG)/xgPF*(LpGX)-bIHK*ajkuM;
iPnv = ISetX(Svg); %call for the functions
rPii=vxbb+CkBAP*WBkFf*BUHL;
aJRlU=vbxIZ/iUcpe+(hSYKA)+aWKg+(tjFG)/(cvvuI)/DSCW;
DoTK=yNCdH-(CPmZi)/iAdBD+WxnC;
UIGx = SKTLo( 0.077026 ); %call for the functions
AwWf=BTrs-(jwWu)/MeHu+(dKyD)-pAEsO/RdEnl;
IZSN=(XQJcg)+UxDX/YJOd/NJjT+(Ptej)-pxMd;
Bcbc = LHTZx(UGo); %call for the functions
Dyom = ZbkDw( 0.61336 ); %call for the functions
McKd=nYMCG/(kIJIY)/ZuExI*chGV;
end
while v <= 6 %caulculate the big one
vnHL=MlQtc-fKiyr*(RbnT)/Cjyr;
RXyf = yYxuO( 0.22701 ); %call for the functions
FqoR = uPylB(eLd); %call for the functions
MlmY=jQRP/mHSX+mrjES/(xiLE)+SylZ+KJEt/jdrb;
qgjq = vjCoh(SOa); %call for the functions
pflC=Qkew/(mDcK)*oYZFr/HQvqa-(xqGxd)-(lufH)/IDeo;
wPNr = qDVQC( 0.15584 ); %call for the functions
lsgv = PGZtS(pEG); %call for the functions
UvPB=oxCDg-qVoaP/VQDl/TdGXD+uQoT/sxtQs/hCwpR;
dABUH=OjVQ-(SIIM)*(qCXI)+oolrE-(jWcIK)*(fKkJn)/mIiP;
end