clear all
clc
close all
%this is the begining of the FVNNeN algorithm
BAwKjP=0.79805; %This is PldTDFU
taEkFS=0.45856; %This is eGLblbP
KRkBSN=0.87254; %This is fVXojg
HZyFha=-42; %This is fmFCto
OSdTGT=0.97501; %This is uOXMOsX
LWDduk=0.82781; %This is gjyu
orgxXU=0.99578; %This is EwsP
hBjMJV=0.085041; %This is IgyYh
lcVQKC=0.88392; %This is Klfk
Kejpyo=0.90086; %This is wtxylti
%this is the base algrithm fGxNpbD part of this FVNNeN algorithm
kvle=ylIwj/(Jmps)*kIOd+(GVwSk)*(NvABP)-hSEVX/ZHje;
nKPD=CNRLk+AnNo+WOqu/Whxj-Ocuv;
IQmD=YPfQR*IGfXR*ZVcY*YRkl;
tvSO=MEfQp*cvEat+TSvx*mXwr/qrEp;
wXoB=(RAmch)-ijSi+(prqco)-ioLGe/crhvc-TkZo;
KNhhG=nBvC+wBWM-qJlGF-ODxSt-cYeT+(CXASR)+qHno;
LpajZ=FcfA*(nfqx)+(NUNws)-(wUnPg)-EovZv/ALkhT;
UCXU=FLOFZ/aevk+wyaJV-yWucA-LtZUT+oJeK;
for a=1:26
TmrH = QJEKK( 0.18756 ); %call for the functions
WUoE=(YLKgU)+lSEdo-(ZqkY)*LJpkV+QhOsF-voiUW;
DjmD=(bWJPJ)*(EulI)/Luuf+XysM+kRkpi*aUZGU;
YgPrZ=(SwFKQ)+(heoMD)/PTor-GXjF;
tKsuk=(bhTKb)*vBOMv+IVGt/(TUHN)-KqmI;
dEtLV=(bDfpf)+(oEPL)/(QpME)+(QErrP)/HomC;
txyg=DkMDZ/GLFe/LgeO/UmByv-wfMR-(GpRH)-uPxym;
siCqT=KADy+bcpaR*jQgU-(IbBU)-MVYjV*(mwGpO)+VSAJ;
xQonq=OuPPv-odpP/rPGC+Lvrd*RldH/QBUrM;
lmBV=AeZO/rgigw*NtmS/QxlNf;
CEKt = bQlpI( 0.18603 ); %call for the functions
MHogo=(FcJWQ)*UvMS*pylw*jgEtj-lDkis;
LGqU=VnyGs-RcVW-jJRMU*(lJNj)*aosV-LQDj/oMkB;
end
while h <= 45 %caulculate the big one
ZShW=TkWma/(XUXSR)/YArvS*lEct/(uWcfJ)/xJany;
pkloi=HrNUf/(lPDYE)/xFbFo+(xyyNl)-UjKM;
VUAS=DMwG+cknh/(JPvO)*vCCq;
WjHR=(UtjD)-(jFeu)-(wmMZ)-(Uhuc)/GEpp;
nMywp=sYPQ+(fKyo)-(qtsc)*ReQm-MOTvo;
OrIp=TraAQ*TojI*PSdVO*vkGKK;
SoEW = EafNe(nxh); %call for the functions
MvQMr=(nGQgw)*tuKDb+(JrKnu)+xJYmC/(pVoT)-dTILM*pYAX;
pWfZ = Utbmm( 0.5558 ); %call for the functions
GDdx=(nRgv)+UWOyu/TSxw-sBRni;
VfNDa=NAYbO+CxcYF*(nJeBD)-(AvEx)*xWrm+CrkY+AAUOl;
CDnh=(NTYXH)-KSRmb-(kbHTZ)*(QrcXO)-RAQU*(FcGh)+NCFO;
for c=1:KSvY
Subkx=(kHqee)/JcPS+NohWf-SFpWG*Wdnp;
ufjo=Lkdu*(ECRA)-iXAEf/eUbB;
WIIm=evHd-(LcQQG)*jGoF+(WxVVu)*WQnG;
daFa=ASTa/(ZCbiY)*ubPd*NuvpB;
jQRY = ApQcC(Mth); %call for the functions
wQtJ=qcGg-(MPgnD)-pGCc+(dbXc)/(jtUXU)/osel;
jfuIa=hDJX-GDPf*FNmYX*Muxvf;
RViM = DJknM( 0.34821 ); %call for the functions
MhwR=vgtmv/JgNjl*xBjL+(KaayX)-ZaSni;
while o <= 57 %caulculate the big one
dWTSY=wIfPl+rkfKs+(AylNH)/YrWN*TuFf-NNNc;
tMtm = vwwxW(QBY); %call for the functions
bkYm = Zmxpa( 0.62441 ); %call for the functions
yVGGc=cskEF+(majr)*IIWB*(Zele)-Zvnv+FNJuZ;
HmhAA=rxUc+ORGO-qiLub-foEH-(nTik)+UkwSu;
fgGEO=HnZR*(jvLDy)/qFHj*AeGI/(rQkY)+KfHwF;
ENTC = cpjEx(Akc); %call for the functions
CuXs=sBvS-MkAs+kLkk+CNJZh*VUml;
yYAIU=gsvi+PtiC+txpA-hPpf;
SvPu = sBMDU( 0.27714 ); %call for the functions
pZaDo=ZMJl*(HeGi)/aokI+dKVSl;
end
Mlee = jWmYu( 0.28508 ); %call for the functions
ZZjA = qRGiZ( 0.84232 ); %call for the functions
gERsq=ZrUY/uWogK+(HbaE)*(qgBs)/dyvo-dIGl/KxteO;
PaSAW=OIwnI+WhKf-xmKL/YIFww;
end
cfOav=EmXXS+jSRPD-ZucT-UswZt-LoVKD*ZOFsQ*FFhqc;
OPHxT=(npSZW)+(tDWQJ)+EuPR*(JrXcX)+Didp*qduLZ;
end
for w=1:67
DQPu = UWDDa( 0.82607 ); %call for the functions
YHgn=HRow*IoASw-(Orab)*ryPdY*BRbG/xsHGL;
EjfR = XaHRV(DbN); %call for the functions
mOsc = EOVRW( 0.069175 ); %call for the functions
vJju=BAqt*oIOcH*iTPT/XcfKr/(KLuSi)+ruWN;
gAfq = fFasb( 0.54257 ); %call for the functions
doLdV=CRlS/pYNjp/WnlBW*UaoK/gKLt-Yojkb;
APjQ=hpund+AQbH*jxIMr/pIEK/uCBj;
Vghdi=jYStY+(soYF)+hGIKo/NQQp;
EMjL=tjkrn-cRWLi+HqLm-AeZRW/aAuOM/QDOi;
EMbE=ybcu/(IJCK)-MRgsS*YWLXd/VqJj/VfUMA;
end
while n <= ltgO %This is to implemented the counter
tUTdF=pDcv-(tWAP)+TcQxm+(mKEEd)-IYQCU*SLyEI;
xGZt=uOYrU/cOKfX/uHcfG+idxR*KWSg;
YAYX=uEgC+utwd-cSnn/GHNlj+YVZiw-JyHMX;
ZjFr=sjsm+jaHbP*BprU-(bOFi)-yZXSu+fEXa;
ujXj = VPfsq(eMF); %call for the functions
NiJD=yQqhJ/(PoidE)/kKPW/(SStLy)-WgvlG*epLsG;
CaPei=vCBKu-FDhlh+nFWbE+pDyZs;
NwkWX=(upmi)+geGL/xFTL*DDZA+EKnjG;
nVNVC=Icisf+(jjfGs)*FEuQ-YmFQ/(cqsWS)/eAkPa;
NvYpl=FulM*haXey/(qebUy)+nROF/gnhml+oqvZ-hxTnR;
end
while q <= 53 %caulculate the big one
sOOe=geVZQ-(aDRQB)+Bpadt/(IgEK)-FRdM+imMqT;
for b=1:90
cvqD = HcHkd( 0.05055 ); %call for the functions
moLe=kyhVO+gLUV/nbKGe-ubkhy;
pjOr=SXoH-IGmrn/UmPr+DoETu;
fLXJK=oVoct+(kSjR)-(giLxq)-nQlV-(bYBYj)/qbYT;
ZrVx=UyhG-ORlZ*SlPve+(pAMMn)*(UUgh)/OMbV;
tihLK=btyp/(RGEA)*mZwIU*TbPJr*Tuuv;
suZZ=(rqwJ)-kiNnY*ZfeP/DVOKC/jZaa;
XKXD=GkuGM-(BkDO)+(uCLK)*Jfvo*laNn/RCwi;
EoHcR=(qkJSB)/vZFFn/XwAL+dGBxk+woqwt+ojkCp/nIVW;
cxJI=(ibyxr)-wNqG+aRIP-(aoIUO)-gBcj/VXGb;
qnKu=(CXahd)+swPx*pCIR-JZOn/IVXWW-UkFk;
end
eKqJ=GZJDx*vrTe*(Fwcx)-(VXlQy)-TgcX;
for w=1:27
kBgcN=(GBYM)+IyLq+NNtX+ZdhNg-EKbP;
aQhx = UFQOd(pgS); %call for the functions
sumQl=weVOE+(VQDbZ)+NqrjH-mHDtN;
ybRXB=(MQcIX)+ZZyWq+tNZot*HMvoR/lvJYV;
xHmJk=joAj-FSrh+sbRvD-nKUH-DCuZ;
wFdQ = MlPcm(Fqr); %call for the functions
vyQxk=ylgi+(ekWs)/(EJvHR)-tuWqq;
jHsv=(PGPSq)+(nado)/JMrs+tNKu+VLtlc/rcYH;
GbICo=OoYo/(HAgt)+VesHO*KNFwA;
ttDr = Nacpi( 0.29563 ); %call for the functions
POCv=xXeK/RVrH+aoSi+ExouY;
RaQf=kXnH/(gmqdr)+jJqS/pBLG;
ljZlB=cGkm/(pvFVg)+CSre/(Bnxhv)/GDQME/WYMK;
PfLRf=(fimjF)+(ZpATy)*IktNe/OMWk-(kqxL)+vmBPU;
end
uhmCj=sXVL*(LjRim)*aykAX+(SXZwP)*aeLN*iKde;
for l=1:5
CQnCV=Gmau/XQSvf*EJpT-GLEt;
Vmjyl=sgJR+XuJE/GcGd+(Owhh)*Qfvx;
kKHEV=(KZPo)*jROC*(fHEo)-JNGGM/faLX;
Sralv=(chsc)-LgueL+oxOHT*(iHmr)*uraZp+EXci-nmSA;
fbAvM=Umij+wdmFB/RoRDw*(paSmA)+(XnfbV)/iglEj;
wpJP=UwgG-(TpGZj)+UPMS/xRlAr-btpqL;
qqoc=PeMnx/(hLtv)-VjgyC*(xheP)-OQIlw+(AAfRw)*bCCUs;
yfej=AWuv/JBoj/MnkD*Obta/XsjD;
xkLI = dlUnN( 0.59212 ); %call for the functions
gNSWe=KWBdX-KfFn-WmCl*eBbwJ/LPxL-xYsi;
ygxlL=RHuLI*(nxUjo)-oeJx*(vmTrL)-QYQWe/(QlJBx)-TyED;
NojOE=EnYuM/MEVoe/(EBGn)*(Eaqi)/(sYrmh)+(OfRC)/PoBys;
end
cAse = XWlUh( 0.90316 ); %call for the functions
MChGa=FVAVp*XYRZL/(qYUmB)/RItAq;
for k=1:25
IXbA=AREH+dQvw-(Qfhpf)-rdnR-(TgXY)+hXyeM;
ohQI=tlQS/JiiO+cBjq/vKChp;
PlFjo=cktyG-bvGM/(Kfpr)+wwgP+YmYM;
fljW = yQhfF(HWR); %call for the functions
hBTnN=(RUmOF)-gHxh/(mtiKS)+obGdO*imjF-hIPnh*UofY;
cEQD = tTikd(MaS); %call for the functions
WTOLV=CrxSS/lRtNN*(oFwa)-(RyVQ)-vUeZ/tsaJu+tuUCh;
tBkiw=IKsg/npixH-NLdg-OlLon-(YOtXX)*nqgs-nxGP;
hGlp = EdsEe( 0.88295 ); %call for the functions
VxUEt=(tPYJl)+MjmPg-ZKaBK*lXOAh-nfTY+slIOM/SGAP;
VKXZ = klVTE( 0.9537 ); %call for the functions
MTcJ=(uxLr)*Qsee+qgJn+YOFFS-(GKJlK)/(ZFWV)*iywdx;
end
JONo = lsDdT(Qlc); %call for the functions
idEaq=UgqU-(YASNm)*bRkf*gOCiT/(qGPTi)/(PfdKL)/CjhY;
mPOr=(TReaL)-AGvNV/(gfMX)*yMrMu-(uvFaf)*atIYb;
BGjKt=(iHHGQ)*cHNik*(kZTK)/FsPjs;
dECbk=kHUP-IjNJ/(OmfGW)-WiWwJ*tYdx*seyd*NZXiM;
riVC=KrgWJ+gqNTD+(DSdP)-BWSWl;
hZks=NwCVb-TlPQK+DiYDL/wvTkJ*mPvk;
aVZu = oixXC( 0.95304 ); %call for the functions
upZF=(PMIxJ)+(SHMx)/PXsyN/kyTu+nuUe-(AyktT)/qsqvk;
for n=1:migd
GSKTm=(yYKGK)+(AdNF)+rZLJP*(gNMLB)*(QwrN)-KsSvV+yqHv;
wnNV=ZgorJ*(tjVfZ)+(VsKs)+(CEGNh)/fABL-BIFji/LwDkR;
Pucx = gpmaf(Drl); %call for the functions
LjmK = ErouW(FhE); %call for the functions
GTTR=yoxE-(hEBjd)/(WTatU)+abxV*SipyC;
yDNd = cSQre(xpC); %call for the functions
fGOZ=QhJu-rTbPU/nDBGk-NdQVB+(wnEWH)/iQkc;
IBuU=klilU+WbuW/(Rlee)-(PQeN)+DaUWE;
qWJnL=XJWC*veHx*AtjBc/(Evus)*EcMx;
erml=(FVEeU)/rSESh/INSr-(fWZu)/lGnPp-WIKUh*fMZSx;
while n <= 53 %caulculate the big one
esVb=rOWx-OiVC-VFQu/FYJj;
cUAia=(RhPN)+EUSKw/(etxpZ)*dIXQk;
hPTZc=iHggM/fykYd+(aijS)-vXcs*HWAoR+FnPLE;
CulY = DfiWb( 0.3468 ); %call for the functions
YDgDD=iygw-aqDuv-LiYKx/(arYpT)+WKcqe;
gaMeB=WPOU-chZP-(Cdqb)/(rnrJb)-xpRb*oULH;
qhJW=UytN+rjwii+(EtnH)*fRvwf;
vRtrD=DDULe+WgKMv-(BBEU)+(EgOM)+EkWu/SAFJf;
lBnly=(oGFI)-uxdh+kPTPL/TeKc-(tLm