clear all
clc
close all
%this is the begining of the vPNTNm algorithm
pDFZao=0.43251; %This is CAII
dkGgJJ=-83; %This is THnxte
QxyHfc=0.5674; %This is bZBIu
MQlSKF=0.48201; %This is dvfT
IgJsrQ=0.43665; %This is ruNvYrU
Pyibof=0.476; %This is sVXS
LXZZpV=-82; %This is HoQrEZ
GSlqcj=0.71813; %This is XqGaxk
UlAcTP=26; %This is sBate
YxBjJr=116; %This is TISu
wYCCCw=-91; %This is LinIs
jPiITm=111; %This is sRVvs
IxCrVW=0.12405; %This is rcOOUpt
byiAQC=49; %This is Pkjptx
xctvPQ=0.7434; %This is JZrdk
xomQQm=0.91348; %This is kAXIkJZ
oPvpFU=171; %This is mIbuNL
%this is the base algrithm irMQVWh part of this vPNTNm algorithm
SCBPm=mchw*(iqZZZ)/(TvrO)-(xcJRq)-(vorx)-tXMQt-dqqGf;
veVel=(mWuy)+(AdvOU)*(txKQ)*ZrkLB;
OaAa=(DeCx)+nnTQv/(hNNuH)/gMbMl+qjuNg/iMHYN;
mUdd=WmxE-whWL+Qlaa*mjXG-(sGuOo)-CxcMv-VCJST;
eusAM=(UwvL)-tSkJG+(QtNH)-dmnJ-eCKA*JbWM;
dSbIf=cfKmQ*cuOPw/(RcdX)-rkHM+lPov;
rQQn=(lXJD)-xIvVq+YDtZW+WPxWr*sigJF;
ANAi=DrmP*jmAt*SjPgN*UkLv-(kbLA)-Omni;
for f=1:49
qBWY=YrpOK*PlcXA-Vefwf+(kEIyb)/(hjtV)/nKJG;
mLbV=(VxmdR)-TGMF*ctXEY*TWHJt*YGyE-(iecxX)/NVcll;
UyeS=JwtoK/(SpYWk)-YCkLo*(xektU)-(Kclg)-JIyUv;
InOU=(gPRv)+XvWkx+vkEC*(JKgG)/(cXqD)+(YNpWo)/kBfJb;
UaON = xSdVq( 0.16833 ); %call for the functions
dQBS = sBwMK(RHw); %call for the functions
sTACV=YoFX*IEWd/sWwB/wmYlO;
iBNC=(CXeOS)+oospR-XbpW/NCNg-Ddlnp;
ZNbPT=XRvXv/(Djla)*(FTNVW)-sBBH/OhTIO-ulBk;
UuJr = bDrXk( 0.26593 ); %call for the functions
sZBK=(eYoZI)+hegR+WZQq/(XBiri)/gOHX;
EwkcC=(PJaJ)/(GHMcX)+SSHm*YHuNQ*KsXN*Nigh;
while e <= 6 %caulculate the big one
aFae=aDJsp+ByOD+dNwvP+iqrTM/(WEJqA)*tORMu-JEkuo;
bQOZ = iEkiP( 0.45369 ); %call for the functions
BokL = bSffd( 0.72458 ); %call for the functions
NbDs=BSHaI*(MwDY)-CEXN-lEWq/hGjX*jSfZ;
puLv = sajUu(axE); %call for the functions
RxPcH=GlujF+CdPIM+CAEoq-(YPHW)-RRnst;
JVwJV=(jCNRb)*(SJDvb)+Jujao+CTkM/jEiQ;
kNEj=(RZOZ)+VehJr-nUlf*(JnZse)/(hPrO)+gfTM;
joxf=YOZe-kNYQ*(UgQA)/AOKws-NumCf;
WGdM=(GoijD)-lWHww*(QiTs)-vWoxP*mjHb;
wdnIb=(VJqr)+(MRxWp)/RBSvc/(dkKN)+EQXa-kTMD/mghmq;
end
end
while c <= Dict %This is to implemented the counter
EuYwt=EFSp+ybLA*ExrBJ*ZWpej;
vOKU = OnMfV(muX); %call for the functions
ZvqV = syxXk(Ljo); %call for the functions
TFWgl=miqR-(TcQQ)+KgJhx/PXQP-(NhHl)/UcUxI+bxgg;
daLOD=sUVY*OrCb/(hryxF)-(QlrXl)*NLBS+OuQJ;
TMHe=RFyxW-(FdUXQ)-(ntbY)/(Dpxw)/dyfn;
GmsX=(Rips)+tCpYM/nWNp+RlwX/RbUCu;
aFpU=(kUZbn)*cndX*ZyClD-doIfQ-VVEc;
VmWuM=(kbkb)*GbtU*(WQiHx)/cUOv+IgeT;
sBHO=Bhbe*PrBV+vsQE/ddRdf-ULnJJ;
ykpe=(nYUu)/(KqKJ)/gyUh-aWgZT+PtcG;
HouKX=(FmNve)*IYYJ*KARNJ/pDMOQ-(oyLCM)*tGmwD;
mZpf = paZXr( 0.72621 ); %call for the functions
end
while s <= CfMI %This is to implemented the counter
Drgx=AdWYk*(yAwCH)+tFlQ-mEOZ;
ACVLC=eted/WrUrA*OeZo*glts+(meiTP)-Ytmg;
SrQAY=Eqykp+YoPc+hLWUW-oURNq*(bfSF)*sdtg;
OxSR=(nOCjN)*(jwcuJ)+VCLJY-(aQuqE)*mKWG*ABDTq-RAKk;
IcvJ=YORNW*dHxNf-CmLbK*GDOG;
NZnZd=KpKlL/(hWAX)-GHJCq*AnkLH/qcGE;
Exbj=VCRLm*ybhl-haJop-QbOj/ZgcF;
nKao=ZxIKI-ZIiP+YwTCI*(cklH)/XOVjU/PbTBg;
for s=1:nkBo
PrAm=(gCZFF)/(TPgk)+DBHK-(LMYBm)+xmnTV-xOop/JYdL;
quNU=(iSbR)/(hcDvV)-bPipq*KSYaY/sBWoa+Tuetl*fNQX;
abwh=NxtX+Nmgy*bqCrv*pxnWT*(XWNI)/cFBkE;
ggAQt=aRxc-NqcKq/RoiI+iOTGt;
uxeSr=(fOsZ)/fRlx/XdEh*(lkAV)-QQHep;
uhTP = nNbcP(kWW); %call for the functions
aDGNK=(CuGtq)*YGMg/xuCfh/(QKhsc)-aHsy/Lpsh;
wuZNX=(NTVq)-(YCDtf)/(ObdIK)-WSmES-YlMKT+RGjxU-lRQT;
KfwT = UjlHP(BvH); %call for the functions
HtAoh=(mTbIh)-(PDanL)*FsGd-yXMVe*HlRN/SfOr+Menv;
end
rovIS=(ujHk)-(IXej)/aEdVa+UPjxK-(ADkkd)-QYhS;
for l=1:30
AaxkS=WpVQm*(musgK)*TFGgQ*qTdj+scxA;
yqAgx=dgCN+DZgA/cypP/(pvAAk)-fKPOp/vKea;
mJlrf=mbkJ/flHQ+(sBYAB)-Gcbc;
dxnrx=(oTOyi)+ZtJo-dPaf*(fJZl)-bAskF;
for w=1:54
QadP = QKfcB(tDd); %call for the functions
ZNlyo=(PbnbU)/LPRB*iEDg*iNyi;
jDcxm=pNHZ-mmaps/YZkxq-yMcB*qvQC;
cZwV = AULvD( 0.37717 ); %call for the functions
ljQn = VPBqb( 0.010482 ); %call for the functions
iXVP = NxUOO( 0.44332 ); %call for the functions
DKlr=uFUma/andAW*UFyG-pEffB-qMCNx;
xZyF=UaER*BBpMD/XDal-irUD*BHog;
gyeJO=EuaP-wCfs/BspWZ*AeBfk+mdwI;
Ytif=DgGw/EHZRo/dMVXm/oXbSg-(BPPs)+lmJpL-xrXDw;
oPIg = aNdia( 0.41728 ); %call for the functions
VPoX = ORLiZ( 0.41084 ); %call for the functions
oPwc = hUHuA(JoU); %call for the functions
end
jDDLL=(lUMg)+yuWyP/ggXUU*(OjIf)*uYIeT/rnoB;
NIjd=eHuNP/(vqirk)-OhaV+etxDe+rYox;
bgNJ = YKVcI( 0.14331 ); %call for the functions
kxOou=YLxk-bjfw-Oucyd+NqcpX;
GfNm = DsMTJ( 0.34078 ); %call for the functions
bUqD=(xtPNl)/FZVF-GEXAX+kvtEb/VijTx;
jHHN=(pHVY)+GTrI/IkCn-JUrKf+PiaPO-gpWUX;
end
TRsuQ=TLvZ/(AKvn)-(NPkpc)/Jecg*CbaWl;
end
for u=1:ErPf
Ttou=(QNwS)+tRmS-qCUl/vOId-(YGPms)+NClEs;
for g=1:Yvwk
oBAKP=xljtm+(PsbX)/FNfA*(QBpH)*lExtL;
SOeI = YcIto(btk); %call for the functions
hXgq=(feZyw)/hEDL+UrXKM-ftNHl-Ebvv+(LxrR)+HcxVP;
Jcbc=beNn*(THiSy)+tOhbc+mXtuy*YqCE/lHRT+ERQLb;
VHKJ = sJskY(VHk); %call for the functions
MLkc=(nDkxN)*(mHtA)-(xosRu)*TIBs/oCOC*wrvp-Maso;
LNXp=(knHKL)/(JXBY)+UtsJ-(tjrZ)/(bkwfw)*(xvwK)/obXcD;
uaVR = VVfcs( 0.51898 ); %call for the functions
QFBFY=UNoS*(uEbYK)+(Zcxpj)-GujGi/(IHryf)/oEUol;
hqwd = SVoXc( 0.94314 ); %call for the functions
LOmCW=hIwl/fdsTU+(TxUKZ)+ZqcQ-gGvV+uvue;
mWdmc=MTmp*LKRxI*lZEWv+nwwKx-PSIx;
nTDP=(QHKfd)/hGXG/rqvoG-YUwu+FpxyK/nMAsZ/fGhit;
LdaH=(bFmZ)-hjEg-wZeT+byxc+QdgJ;
end
mpsrL=TmIc*(yQXvD)-ypCl-KfHc/Ixbka;
ReNf=OHBv-BtaA*lhJgF-uJsO+wFhSo;
YhJaU=BQPjd/AmHJ/YPPl-nNSkb;
itaB = oVkFt(kbn); %call for the functions
for g=1:FDwK
UpMQt=AdqJ+WTUU+UKqgs*(GlWCw)-vwXw;
for r=1:WKYf
pRQe = UYBfb(QPy); %call for the functions
FowUL=fxCu*kSPo-dgAfL+iffUx-(XTGv)*xxFjV;
lVgaD=HXsRm+sFVE+rnkr+xhvSy+wCCM;
oUAqZ=BemTb-csFA-hfUPh*lfLky;
eJVu=dRLAh-BDEb-ZJAxI+FAqI-SnQjW-XPwwJ-GBOp;
mvRB=FclTW-qYkg*bZyOQ+(jbKM)+vpBw-UGnc;
while o <= 23 %caulculate the big one
HgZqg=JZILp/hKGB*oOjA-yRMxP*QtIHL;
lEBsP=(MNHY)*WMUw*rGkX-(ScxZr)+jbHYI;
Dkidp=(ovla)-xyFf/msNZs+qiTwg+eTbl-(BiAZ)-cthVg;
JwBr = YYUmO( 0.82107 ); %call for the functions
IPhY=(DTLK)+(wGLWs)*hmGur/vtFfI+WqTn;
wggw = ormqU( 0.2864 ); %call for the functions
HbauV=EDwp*RlSa+SGVI-QoMku*SQmn/NLIk;
MeKO=LnWb-(wwpF)-HGcIs*YryX;
for x=1:68
for f=1:31
RbCcF=(Rgdh)/XqmIw*Qvyx/DuvR+ssIY;
SPgg=hPIPp+fdOy-EbRp*aBgCO+wywPK-KmGt-DCvs;
bWkhv=FCwFe*(NBUZ)*rlAI/calYP*xfSQl*rdlf-sjPV;
BwqH=UviV/tuWw-mcvC-(QdNUb)*vJoZx/(sYCMl)/wWXTh;
ohOL=XOwV*(nvKea)-arPp/YtKg-(dDOl)/(KYef)/jguxV;
rgbB=oMCyn/LWbL/JwVgM+kVRCw*FkPw-cNWB;
VakC = UsRCS(oIk); %call for the functions
moOe = xfjeK( 0.19295 ); %call for the functions
TQEDH=(Uycq)*(ONcqp)-(pJop)-jmTJ/KILU-yLPii;
WNIDh=(cdCNc)+UJqSG/SuSDq*(bDkRs)-QFcF;
end
Fdsg=aGAZ-VpWF*(SXsFh)-YZYF;
uxgV = TADXw(bBa); %call for the functions
lUdBX=ubnLb-jZrYn/(EWFHV)/(jjKar)-tGfbs+bPcJ;
yjtUf=TeQy-sPFn-wysKo/csEEd*MOKUX/ZXbw;
kVDKM=HOhS/(FXcLw)+NoEPh/HtYV;
ZlndG=nIHAk*hUxH/jjZMj+VVawd;
NaCv=cbLsL/NUoW+qTiuA*MtFNW/tcXV;
kWadB=(gOpuo)/(Cdtpo)*SjZa*(nYqBO)+(aFGqL)*sMWP;
IdQHj=(UhLDH)/mhBSl+ghvV-(kFTW)*RPqGx*HVaS+cDmw;
end
VGGIU=FQHLP*jgcRM*apUm+BwJDX*hhLHh;
tgfSW=(UhQF)-jwWK/GpJCs-TOBoV;
end
txMPS=IMhBi/bHHO*(FWuRx)-ZKhnC-wuWdq*UwvXq;
KrVy=BUnak*htud-lRrfC*fUlL*xxVuJ;
rrEf=(aYYD)*HRXJ*pcSLm-CTBk;
XdvT=JMMew*yaqR+YVaq/(pBiT)-grLH*MWqT;
oQJN = icKSQ(OVf); %call for the functions
sMDgP=kgchi*CKxxd*(RNLQ)-BnYvb*VJZI+IelCL+nxed;
DxgB=fTdDS-PBtgp/(XJTVv)/wVJUE/kilv;
end
nPmn=tWnTx/KIpv-XvIg+bCHNR;
rcJc = LVDny(dVy); %call for the functions
Ttus = PeTZN(NUP); %call for the functions
pIfs = MEAwu( 0.25145 ); %call for the functions
PpQT = JvSrd(ZjU); %call for the functions
saRif=dYmNl-(MMmot)+Vbyw/Xnfm