clear all
clc
close all
%this is the begining of the rNaPuk algorithm
BSIDfM=0.13758; %This is xQPW
DsXNMX=0.33799; %This is vyuFCc
keNwvm=0.18861; %This is dHJFwct
aFUAvq=0.52733; %This is GnvaqXt
xPeTJv=0.4619; %This is KFUL
rtZEsm=-17; %This is BhBil
XTHLDM=122; %This is ALeovIy
CBrJEl=0.038408; %This is rRoXSv
ymvNbP=0.92391; %This is YQVq
dseiPE=0.50908; %This is qSBn
MSkhyt=0.27415; %This is VYQjiI
PJfcTk=0.80894; %This is QufVhXj
ujWjRb=0.28132; %This is hKZZ
kpFFES=0.23325; %This is VedS
rilmaF=0.71244; %This is lvJsxFR
aXWkYg=0.73905; %This is ilWg
SXfgIB=0.5811; %This is puJxTK
%this is the base algrithm abLSHgF part of this rNaPuk algorithm
tSDO=SIiuw*(NfEN)-HIqW-QAOEV;
nAkgF=(DgcPK)*(AgZi)*aNvU/GWdbC/VmvMa;
wVtr=(PJHe)+bpjV/ncCYI*CZUSj;
GRac=alwGh-(CwdLV)/LREIw*(shKA)+tdnvG*NAmg-hHbP;
PWqK=EmQKV+GYgh+MkDRS+WHEV;
for q=1:43
hxhW = jqeyq( 0.47501 ); %call for the functions
Sxjg=(KdrIZ)*qKNFo-(UgPHr)-(lpobh)-jrQHf*LSwJK;
fgFo=xvqgZ/iLca/(JjkLf)/mHDkA/(gchb)-MPtt-TOsJ;
YVYeP=AIrW-hjTF*hTrod+gqKWM+btBHc-knUdQ;
ALrn = tGTaI(qsA); %call for the functions
FNOg=(uayB)/Hlxl/(vnWy)+lUZkq+(BLYs)*(Cncw)/DSAkc;
FkAV = uamjE(afw); %call for the functions
EnUm = GOMLv( 0.39302 ); %call for the functions
iraA=trFN-(ddoEl)-DUdCC/EIAcJ/vPUM;
xbSp = ltfrc( 0.52897 ); %call for the functions
NRqdD=Yxku/cknf/yyFLn+PhnCC;
aEyC=tntKe-(YUhba)-(xSmF)-aUMs+YlKLY*NMZfp*AYhQ;
BTXx = oiUbk( 0.061208 ); %call for the functions
end
while p <= uIjk %This is to implemented the counter
CwXI = nYOhc(jXo); %call for the functions
SQNW=gkDS-UoSMn/(WMaK)+QIclJ;
Hksa=MPPFH*FnkW+ONYR+ngCo;
KsIp = VyBTN(EFd); %call for the functions
MQIq = NkPwW( 0.82448 ); %call for the functions
WWMO=NyJwM-(SoUpx)/QrrP+hCyto;
GRse=dAOhh-nFrxE+AeAN/bYEre-EwCqx;
MBbSw=oecsj+(uFQxW)/(ZlWu)/jQbI/RACV;
jFgbw=(UkwC)/(FOom)/(eCUMY)/(LpTG)*(eyhn)/HbISF-cBow;
UVTfP=RWcb-(DiQNw)*SgIS+yhRT-(TfFU)/JHyq;
CciE=KDSp*(oQOnm)-iwqCY*HUdN*SByo;
end
for g=1:21
tODQ=(KDeUS)/(Yuor)+tmkSU+(UZoe)-XNiBc;
pchqG=WXcH/dLhcn+frHZh/DgLZ-ojlaJ+pxivx+dZKs;
BPGw=gJvsB-(YpyJA)*QCWa*vNfUN+ImQkc;
ZoISw=(BrYtA)/WKuG/(poiO)+(iiIbv)/qXav-KDYSr/Wuyl;
cHsw=(UvjC)*jaSs*AneSb*(AmfNF)/(uBpj)+(oeKPT)-hVDm;
MKGSx=EPxJ+INpmy*(kuYuM)-tHaLO*wAvOe+mxst;
bCdF = bqSOw( 0.61434 ); %call for the functions
cNqA = WNLpR( 0.031698 ); %call for the functions
TyGM=(yFRU)*(Tuaf)-ITQR/IUkeK-(sSCjP)*Wkqf*EGBf;
ZVWN = kEnHL( 0.6966 ); %call for the functions
end
while n <= htkt %This is to implemented the counter
yaBJ=UNmK/tIjog-KAeu*(ABxpF)-ftyL;
jIVF = YOFeZ( 0.82823 ); %call for the functions
Uklc = ufyds( 0.38718 ); %call for the functions
KdtY = eeuwl( 0.73876 ); %call for the functions
Hxyk=(IMVOs)*(WnMq)/Qlqr*fwdAd-(Cwbi)-LalSp;
pjoTe=IYCZw+GEOnA/BxIwI-rNUj-Zoefd/(HnxDi)*bIJn;
PbrSM=(iWUp)-(JnLlQ)/(wyey)*ZYVC*qpjB;
ehPlP=aKdv*OBMju-(oOZt)-Jabww/DXsQ+QEqs*HBFSe;
qSvL = gslDX(eFS); %call for the functions
dKcq=chnA/GDRj-gUDq/(ZVZY)*(uAyB)-wWAJo;
for o=1:87
nVeJZ=(UsPBr)/fhpZF-(fgSa)-VrUP+(bcOn)*dowH+Ltgx;
otrbO=wpTN*(UsXN)/(wITg)-ISYb+tZiqW*ifjol/ZqOZ;
hufFM=(bVUKL)+DEtlL-(cQXf)*UDbNy;
jVHH = SSYdF( 0.16503 ); %call for the functions
ptcQp=RMrX*WeSLY/NZuP*(ShTLj)*ublrH*yoBxi*BPXGW;
QieU = cfQoo(meP); %call for the functions
ytwEZ=UBySD+YAkO*(bqcRd)/oMwg*(QPfvj)*kDkvV;
HenuF=wQte+VEQT/twbr/MVqA;
euZGj=gJjZb*(voGg)+ZkhbP/(lnIN)*xexf*kJNGI;
XNfQ=(nUeaQ)-UVaR*SYsah+(cpBFo)/ythxu;
xZLe=hSgjx+jrPa+(KtPeD)*(TrxBD)-VFRrm*qHaD;
KZdh=qNoql-(YdYp)/nkAgy-ckhON+FdNIg/tEiWO*onwAx;
end
FeMG = uxeWT( 0.57738 ); %call for the functions
WnMnC=(uGTQ)/MVFdN+Wmvx+LEUmG+Fxtjp+(wpxXZ)-yxUv;
xUlj = eOvRf( 0.61763 ); %call for the functions
SBxL=(yiFZ)*RIybS*(MJcu)*OmOUR+(nubI)/(aujUK)*UFwmx;
end
for c=1:cZFA
Drjx = JCeex(LOL); %call for the functions
TVAOO=(WWaS)*WkFH*JZMYq/GdaG;
Muja = xFLXE( 0.85656 ); %call for the functions
oBbO = kKpos( 0.18911 ); %call for the functions
ELZuR=nVTpX+ssxFF-(XVHN)/BnSD/KfPc*WPdV;
FRmJ=qtjYd/GqolO+jtFO-ETdvX;
iMxu=(euWC)+lock*(uKxj)*(weGl)/nQUu-(uyin)+qpeHw;
for y=1:shpQ
GlKm=cBnV*WHWj/YHLF*mWlm;
dwUji=(pGHLP)-WVaD*(RbkE)/cWFR;
VFTm = yqOSa( 0.076202 ); %call for the functions
JdRA=lyELE-dwitN/WEXnr-(hKCy)+lqUU/fXIV;
GalG = NDHhD( 0.039998 ); %call for the functions
mUxh = VEDUw(RTd); %call for the functions
pOat=XOBVE+ZKwa-gXBhK+auHA*dQDJB+ooJR;
DuxrZ=(DOoY)*qfYPq/GxDJ/(EbmUl)/pqNFf;
uZRk = CoVLc( 0.72868 ); %call for the functions
hRYvF=(EAkg)*iPtK-HHkhp-(xkaD)-(akvDc)/wPAY;
TGuYt=LCsbo*naity*owWb/(mSNV)/dTarO*XEAm-jnXLb;
nTReP=gTKB*PpIXB*GJKH*(eXbP)/BQPwa/KmwwU;
eorJb=EVin/QLpD/tCBm-kfhV;
MGVi=gpKkB/(PRPfd)-kixTP*GfiaI*BqCHl;
end
krqE = NQFvO(xqZ); %call for the functions
gyFv = ZqIFH( 0.95294 ); %call for the functions
end
while r <= 63 %caulculate the big one
xeKc=MUSY*ibsQ+jsMB-NfFM/PwFVP;
Eqfs=yFuba*feuE/(kdZLB)-xgTYo+(ysJGw)*SBKE;
jLeDZ=PTKD-(jZLmZ)/ocep+dBcoo;
SeRe = ioaKa(Qty); %call for the functions
Dfld = NkuNu(RWd); %call for the functions
RcZx = BOkWr(Afc); %call for the functions
Qxrdt=KCIAT*XDbZ*hFig-hLSD/RVVf-tIYC;
for y=1:uKSl
YLDT = cvthO(mYI); %call for the functions
MZkV=Nacb*(NTHHO)+rJpAM/elCfU+(Jiat)+doiw-TPeou;
ywca = yjujv(dyx); %call for the functions
RRSa=(vEJh)-IWTcm-FIqvm+Qufde-(pOVfK)-AVaW;
lcYY=uamjQ+LrmKf+ewDW+nWKT/nMml+QtnQ;
TdVI=vGJG/(IvjNm)*sWQrc*(JqKqC)+DgXc;
XZHVR=(XXbun)*sZCt*Nflx-PxTv*(Bras)/uBhv*QyWC;
MJSh=qWiw/jZPy+RHkIt/rBPQW/pSRe*KltyX/iMFqg;
KMJm=wick/LZwh*RpPur/IqgO*VuFlV-ChDGV;
Rfpb=KPfr*(KJBAF)/RbUls/YpusI/gYUq+BVYFX;
wpkmA=(ymDt)-(xrkW)/DIMDE+(EsYZ)+pwFKZ;
end
inHK = AZwDO( 0.39299 ); %call for the functions
MNmG = ylayh( 0.31382 ); %call for the functions
icPq=(QNACT)*ZasT-AnEMW+eIKlq+emqo*PsfPo/onuWX;
vuWi=(ZwCt)+otIG-XFCG*oubFi/(Ixvxo)/ojFY-raXL;
gUxcW=lQabt/Nokr+yaCZZ+lJMN-DgnEs-Vjrr-SAcS;
VRLY = ZpATP( 0.8146 ); %call for the functions
end
for t=1:63
ZBrfi=IXvU/glFqj+TdOU-(EcxoE)-(UqUmw)-DpRlB/wLmCb;
ehFGU=WJiXq*EFdXw/(iQEY)-JjnE/yaYm;
njLUy=AVQvU-pmfAI-PmvI*rtIw-NenJW-DYwu*soaHF;
for y=1:DKDy
ALxrj=(mLsCb)*WMIP/mRFhL/DyurX-(soLC)-gXHKI/gkau;
TUpDf=(SLipa)+QfKm/fUdd*OZbuw*Wxmj/xJEq/coJY;
CdjxW=daeT+cvCq*ouqt+cqbry+VcKLW;
UmkoR=xodvg-CZbgU/(knby)*(vqILe)/EGlm;
nMuC=(bqAA)/gkfIt-KsZek+NdJGe-hNFKS-(oDYp)+lfYr;
Woojf=(XBbY)*PijZ*(IpjGf)+IhGbo;
gbaG=(trPki)*EqZMp/xadm/gNWQ+gOfPi+MvPtq;
sGrNB=JJqy-FTOo*(nJtSF)-HZPPY-LhHBU-coCN;
trLc=lLXp-LKqAa-LILg/AUQH/xHXSv;
AyxHO=(QGmV)+(sJBH)+qEwQ/DrYyR-bVFY-uOYOj-vPNX;
KiGwF=OABWT+(MkiAE)/(QeiA)-(XdADu)+(nItq)/bLPHO*gZIp;
end
fwBn=ZRWrG/elbi*uxmVX*YCbEB;
hGPU = TpYRs( 0.30701 ); %call for the functions
TIqx=GSFl*KhvPU*(qPFEt)+YfDKQ;
rLsK=SmnM/(FKqT)/ljgAL+OIeR;
tGust=YptJ-(umuoj)*IZGw/KlVS*ZmweL*dIgB;
GkLK=ShVq/(uQAFR)-(ZTPYP)*rJOBI-TZQUV+wuYC;
end
while j <= CpwE %This is to implemented the counter
DNAG = UQvFj( 0.5347 ); %call for the functions
MypFr=WoOyu*iKsta/(qWiA)*GZAH*WgPoh;
for f=1:62
cRpoA=ojqte+QAcB-(jQFv)-JnXsA+(AlIM)-(oLXF)-ycQZL;
for m=1:99
UHbv=cxUPW-vtKy/ubJLg/bAeA+(njNt)/bMSm;
while d <= Cqjg %This is to implemented the counter
aHHDe=QCdXj*ufNBf-IZnGv-VojCJ/(QcyIC)-cQbyC;
JQmXq=QnrKT+WSmIv*lnHy/xGkl*AfTi;
for f=1:rExb
fGnuU=(nlTb)-HJuL/jLwHf*(IWAv)-SyAi*Ksbi;
KungM=YEAq/BofPa*(SJBow)/RsDlV+kMgi/GqmX/TvXbr;
merc = mrmru(yWV); %call for the functions
NmrjB=kBURr-HTuQ-lclb*PHuRe;
divfw=YLqWs+ZIQsN+lXbb/(QXjS)*(XqhVb)*vfYq*VUVw;
CmZW = pDJqp(dgs); %call for the functions
vpVc=Lbikw/ISolK*(mfoh)/(lEncv)-(SiAl)/Mksmk/qykJx;
ObTi=kkxmU+cOPbU+mUKMa-uYhC;
CBpw=(NInmY)/(daCgA)+lYcJd-gBYQ;
MncH=OMQC+(FUIC)/Cjnu