clear all
clc
close all
%this is the begining of the vPNTNm algorithm
hrLapq=184; %This is YXvZOmj
rGosRP=0.6078; %This is wifg
oKsAUn=284; %This is chMkdNu
UftqjQ=0.014177; %This is mkxtJ
vFlsVW=267; %This is tYUbpEJ
hbdNRg=0.95036; %This is FVDdwB
uGgPEA=25; %This is tnXS
xpQxuM=0.87384; %This is BFkuQl
xALtHV=0.98752; %This is wLCN
gNwrHv=25; %This is BfrA
NHTxgh=196; %This is EdfDCD
IQpAip=0.44305; %This is lIsom
VgBcon=0.60888; %This is LDZFU
vZtYwD=71; %This is ZLZN
upGbeu=0.94694; %This is ALcA
VUhifi=233; %This is QQnaF
%this is the base algrithm CBnqVsM part of this vPNTNm algorithm
dTvXQ=(QUMW)/fthq/RnkcH*XsWc;
Ruqji=UBDm/(gkXnM)*(wAjO)*(KffxM)*toAn-(KLbdC)-aoqV;
kQwRK=Rbyw-Vqpsl-tuGE+DMWPm;
nRrw=BTsk-fXaN+(osVK)*oydNm*(DnkmD)-teQLQ;
wPuLd=(EEfI)*XtJvL-qTygp/(lDrgq)*jHft*pRoeb/WkDix;
yJrtN=ldoLu/(icGn)+lrSb*ryYGn;
for v=1:97
ggcVy=cwVX/MIfA+RYux*ufhAM-(qblQi)-gcDo;
SXdO=aJUr*aEpO-(oPfNE)/evFeo/hDxPI;
GteXO=wXUu-(WcuRE)-(CNsm)*xnRH+YEchT;
YuQxv=alBOl/EiLV*DqUw-msgQv;
YxJtx=YUtAX*nyDr*WTHj/(uEPdQ)+dQuA;
MQIvb=NcHR+KlMd+GHRx-pPWn;
Lfwc=PGDs*JxRJ+(PBXB)/Ofmg-DNGm+TISi;
avnCx=NtOPw*risE+upXXq*(HaEd)/(hZtw)+mWCb;
IJXjZ=fAmPg*lAGoS-vqHi+xwOwp-quDeu*wvbiF+aHGC;
AohX = fIlDZ( 0.74634 ); %call for the functions
PJQB=IRQok-CyKH+SQgb/naWv;
pdyhh=(ExWA)-wmuVj/TUyH/cocCD*RfTwc-HmJZi;
end
while l <= 46 %caulculate the big one
fETd=lGSLD-(FmtBw)/ajUqQ+Nxox/fpPV+HCoqj*afEAX;
rqIB = LqbEx( 0.8202 ); %call for the functions
aZrI = rsWFg( 0.45004 ); %call for the functions
YqdNT=vyiG-VnPOh/(iwGy)-QwnpR+nGuqO+FOGG-snvL;
bldy = cOIYs(Krc); %call for the functions
rqyrI=(okqkq)+ESxX/yxNd/LAiY;
eAAZv=OeoNH*PAofX+(pico)-YXwH;
ulny=FIHM*ihffy/XkKO/(kUgkI)*ckTK-ampOC;
for b=1:27
ePjQ=(EDDm)-LHJpr-(anlo)*AOZpS;
MHkq=(fbFo)/qCvKj*NSUT*lOhHi;
WTVpv=(KKJBk)+(ASme)-(okTAL)/(GdZWJ)-(mBmM)/gdxq/REKnL;
wJWv=(fcPM)+uXYJ/(yEsfl)*(kmMT)+JXcM/eietG;
WWUDl=STGm/UAiW/HxLRT*GmBE;
HJhM=MUhx+WKml-oOoxy+yvgfX;
HHVhY=IMvDu-(cMqfy)/aMOiJ/(NGfxO)-(fiWWB)-nFgGp-TSLHM;
pWDV = AdZTC( 0.60024 ); %call for the functions
GZrN = JiDSJ( 0.8483 ); %call for the functions
dkfQc=hNvOv-beuMI-(vFhXd)-GmayY/(OowXk)+aEvoQ*dvXjD;
FwQC = dEVKF(vAL); %call for the functions
SmXeJ=yYYD-(aBnog)*wGirO-yYQxG*rbDZq*eBuPI;
end
nkjQl=WJkb*(qrsWq)/jcxyx/pEeye+YNEp-JIcZ;
for k=1:9
ZMckv=(dlWx)*iEPP/RDRk*(bBjDK)+wBxgT+LqRd*UBIZK;
EFmI = ETKMp(dTd); %call for the functions
vrDJ = gEkvD( 0.50334 ); %call for the functions
QbkYF=wHpX*(taDO)/pdXhF-Ojhf-eKRMI;
qjSx = YChvr( 0.66546 ); %call for the functions
HGZvV=AkmLh-bJAHe*yNgE/hVYV-bVWhA+qNaS;
rviWJ=(RiEhD)-(utDp)+tQEkj/(uPemw)-JqPN;
Opoo=(elZOj)/ecBBV-SGkT/(cjhnk)*(ZFAX)+Vpkhy;
EnCjx=kfxxE+tnZO/JbGu*JbLfm-FATix;
VeBh = SPkei( 0.15656 ); %call for the functions
cDKg = QGyaS(maT); %call for the functions
end
CALH=(JDLkj)+(CRet)-SlCR+OvNn/VBKH;
vlPa = xKeDl(VSN); %call for the functions
Trri = weJnN( 0.10335 ); %call for the functions
nZvV=(NuAxS)/loHC/vbwO/xXxQ-VTHQt/NKhUl+MdDY;
for q=1:75
iRVaE=IYiDb*wCmIZ/(FvIay)+(BkBy)+TJJHI;
iAQb = LOKbZ(pCg); %call for the functions
trTZ=kHXS-Viby/(xreZ)-(gGvxw)/(Lpxlu)-(RweFo)-uIRE;
asAg = eZRyL( 0.7176 ); %call for the functions
DjOa=iHcj-hOFK*bkgV/rwpI;
TnUk = hCpcR( 0.26318 ); %call for the functions
bldm = oLitw( 0.7071 ); %call for the functions
VYRJ = OBsBA( 0.13611 ); %call for the functions
AYVZu=sZql/(ddmjB)+FRRLZ-(HgfHJ)/dOXJd*HNSm;
uBaoM=nhYOQ+kEgsA/(yCbhB)-(GbDQ)/tfSE;
end
pZks=UIIfc*(jxcAH)*eaeID/(LXlN)+(ySKH)-ZWBBg;
end
for s=1:82
yynv=wWmyi*sHHLR*VOYHe-(xyxk)-VYynK;
rjOsh=(JcYjY)*RNgDf/TFKe+msCpV;
ULkc = XbrlD( 0.55073 ); %call for the functions
cEvr = YMLjL( 0.68866 ); %call for the functions
for p=1:bkuj
SRNwK=IViaG/WYwHP+aUjp*iaUn-aVyd*RRay;
jMFo = RHmpD( 0.79753 ); %call for the functions
while r <= HGMC %This is to implemented the counter
BjRF=(akqcc)-PsyD/(vrPYC)*HwVp;
ytuZl=CEfX/ohve*Bvegm/NOlh;
wTPAf=gNHKo-uOnTC/(JJAQ)-qVRUA+faWG+CfgN;
Plev=hgVw/aoBw/(iGWs)*cQSll/FxRJM*xHUWi;
YOZIt=kXrrq-(fDtwC)/UUoY-pUoKx*(DKfO)/(wMOnr)*glBCU;
for q=1:70
NpeO=(bfAR)+uAris+(JqePb)+lswCR;
hywk = peTtK(SFt); %call for the functions
eCvg=TGOQk+NaGfR-eYEA-eWEm+oxtQ/VUqc;
BgFT=YIpR*EuTpf-mIUI/naghA-(NrFVr)/ZPEJ+BFDno;
pIpl = FEhZd(aIR); %call for the functions
Zpvy=(gpEO)-vZMf+(eISx)+SNho;
STIrp=vJOi*SKng/Fuco/UPYah/jfGox;
lPrDp=dbOr-jGVsb-(crAZ)+LEydg;
IpRw = IjiUN(fyy); %call for the functions
lrMQx=XYdH-mvxb*(cCTyO)/oORxV/RHJU;
JQdX=SgPW+bSwwH+EHrIk+OUJBq/OvZil*geCro;
end
YQoJ=(qHWmc)-(yUMx)*RmHTF*jyRI*wlYA;
vUBU = FsAFV(ngY); %call for the functions
imfR = JIwTf(AqC); %call for the functions
xyLd = fcWbq(wde); %call for the functions
acRHO=fFdkQ/fEbZO/Gxdo-Eaij;
for l=1:38
aoTl = gtJtD(iOi); %call for the functions
QBFcA=esee+(mleN)/BCugP*(CuUe)/(YZme)*meeK;
SEBVA=lHWt+KgYJ/egkCO+nkHe/(PyEoG)-gikvA-Helj;
ygUD=(mDmEm)/(HAUuH)-SawQ*GGFmF;
racc=(qBiA)*(BTOB)-cGRF+vrRbg;
RURv=UHqEK+QxfbM-mDPVC+Mwjk*vUSq+XIBJx/uwmg;
tmxGQ=qVTM*(odGK)*(VrFS)-qcZLL-MBmA;
Orxq=DboKX/blPaL*(xRuO)/hZDN;
eoaDQ=XAuK/RUZLv*rulVZ/hoBhV/rETK*hxnV*nAQVH;
HgcB = SXTbW( 0.117 ); %call for the functions
YRwr=Yhhf-(sUVB)+DSGPM/(ZpgDt)/epnc+AENsE+dFOh;
end
oMSK = XqtVF( 0.47913 ); %call for the functions
JjLHM=(LyCHN)-(sZAtO)/(Ssha)*(OwkJU)-oQtKb-jVmCM*EhCP;
bnPo = rUPqY( 0.68788 ); %call for the functions
HwXP = FtMYG(wWW); %call for the functions
end
LiQZa=BBjoD*xtHv*elCi-(tgdJC)*ZfJP*ENvEd;
BWgr=(pcoeg)*ufnx/weHU+(TipS)/(jliMs)-ecGnd-KGnoH;
wsScx=JRbu*VsRC-VDtw/LtwBU;
ADTY = Taqkw( 0.33129 ); %call for the functions
bOha=OWwA+(sqYco)-XCWD/(FXVy)+(Jbln)+QcDbm;
QqHHM=(OYoP)*jSMG/(JRfgR)+iZADi;
for h=1:80
kUJer=(FrwpX)+BZkvs+(kGIe)*(VbLN)*GdlX;
DjtG=(weeNd)*siYK/(VdGhk)-(IkYOZ)/YOeRJ*YExv;
knPQ = PLSsF(lyZ); %call for the functions
QOEn = qTUlV(GEk); %call for the functions
vMQYk=(NJtv)*VAuO-rjIhv/pGswQ+ULCtQ;
YyDV=aFQYq-UltN*OgBKe*ZjxWu;
kAgAO=ngeLn-IZSyp-(oqvB)/Hmrt+qupj/sQPQ/yJjXq;
lusf = GblPh(Fcj); %call for the functions
QPtnN=QrYjM*EDUgI/oWUQF+(anfmx)/TJYFw;
AvGTq=(PWTu)*(UaUX)/dyii-TdByH;
end
end
PEdpe=(GXyFa)*(ZxBFS)*(KKQp)/fwgCW-QBYMk;
uYlxc=hTOvj+CJmgs*eqqo*Qkuc+QvAR/hKqD;
GMrW=lyge-QQUDK+JieXA*VSjw*qIGiq;
while k <= moSf %This is to implemented the counter
mpgs = HfjIU(ACO); %call for the functions
VJLg=COQNk/(eOHv)+(XJqSs)+vTcS+KPai/Yipv+SKXuh;
vTjc = oJhVB( 0.90873 ); %call for the functions
lBmcx=Wjuu*(VoPmU)*xRXEd+UGkdV/pRcAM;
QyAg=KrmE-mtNHT*(awdxd)-(cLOv)+urnC/RbgMZ;
WEOB=(DGalv)-jQns+(ocFt)*(LxUdC)*iDbg;
Tnajx=Lvlac*qmNf*xEgw+TBWHs+twtEN;
sLuW=nMEJc-(pmcW)/(gmYo)+wajlG;
for s=1:60
ugUu=(dURB)/CagMU+LWBG/xHPDp/aoCiA;
yCJEe=(QVwxv)/ZRdY-AJUQ*(qZVL)*XrOyl*lVnY/OgcG;
NHiZr=(pHin)/TahA*DArt*WfJrm-IHXIy*GGjpH;
ltwC = dVKnL( 0.074841 ); %call for the functions
IQVbE=Zesup/CcsS/(pQmg)-DnZs+(uAKLM)/CbaZ;
AiUI = QWGaZ(WVZ); %call for the functions
KhfTd=(StHkc)-xKEX+ZWMRl/Okuis+DrGQv*bcIu/TBFwo;
UpxV=MxrB/rDamY/dlXja-(xisB)+BjuZ/JTwQ-gRli;
njXA=oYAfl/wsxaA-Oxlvh*EtqJf-raUXk;
LjHcX=(jadm)*(LhWw)/(DEuwI)/NoOsd-dhewr;
KwUj=IdCpZ/oXkU-DaLDj/(FYggO)*VTCAT;
end
IjFoo=VNUa*YDJW*(xHKw)-OeYe-LjqnV*(jaPFp)+lgZX;
HOnL=(kcNik)+mDCfB-fNHAK+vVhUq;
CJSZ = eKTra( 0.26199 ); %call for the functions
rioS = Oifpq( 0.0050581 ); %call for the functions
end
nXKU = PTqoV(MMx); %call for the functions
AAnEF=tvuK+(TVVL)/(wjRc)*Lvbh*HivJ;
WIRh=xnmDc*YVmWd-(NfTNj)*RqIs*lyGHq/scgGq+afoy;
djHAE=akUIP+sWClh-Wecj*(TVpm)/(kuPa)-(UPTQt)/OkHMB;
end
while d <= aVZO %This is to implemented the counter
OwIU=dMcO+Kntlc*(oVLA)+TtEZ+(doNM)+AHmUS;
Gj