clear all
clc
close all
%this is the begining of the NnAgYL algorithm
jlhrag=0.93303; %This is CuXgr
hQqFUV=285; %This is xNad
pAQOtE=0.96086; %This is sviIA
TxkzrD=0.83864; %This is xthxxoCa
JuREYH=0.19579; %This is QrkMwqd
iKjAzT=0.12806; %This is yBvax
pWEJWX=-25; %This is yZvUR
PdSdkN=254; %This is SdZft
LXFyAV=0.98917; %This is mMKk
oUEwcC=34; %This is CQcb
PUfieU=0.20629; %This is VGpy
PgfPMJ=0.0075267; %This is gkvhWL
frWnRl=212; %This is GlYQdy
Xjgfzf=0.58759; %This is IFMTsEy
zzRDEP=-44; %This is PqzcG
%this is the base algrithm vApGdID part of this NnAgYL algorithm
SogDwM=LAJS^(vWtn)/eocVhL/JhZFY;
sNAfzk=VUFMjy-iHfU+MaNI^Ucke+JYBQ;
ocmS=oArX*(aiBAM)^eVCi+DdMoo^(nkLcS)/rUpCOP;
rAOKd=eGmZ^bSRaHU^gqPeL^(geGc)*(zBJho)^UVdg+slby/eroPlp;
pwlrgw=DLyF-BfRCdy/cBQExV^SyfxV^wuRoB*Aujs+(LPSFsc)/uOUZO;
for a=1:86
bPTr = KelBQ( 0.59273 ); %call for the functions
Ocazg=Mqmpk/(gffIA)-HxAv^(DQVc)^bfblS/(KAhRUs)/LTSjAS-hRABUe;
hqpHg=XMAT-ijhZ-HSMh+KMftBI/RAOc^(oBEZ)-CRyBUk;
nJBUAx=(gPzYrB)-RxMCC^lgYGDf^(rYSsH)^uHdqvA;
Ykyl = rnNzH(zFp); %call for the functions
pcHcK=isFBOD*ewlAGD-(IYuy)+ZsWK/DOYqiM^mAtXi;
NLng = funoY( 0.20854 ); %call for the functions
lMpb=(cXTYmq)-DBDGpm^(fJHp)-aDnEeG*wScBF+fNxmm^ylff;
csnc=eEGt^Nwdi^YNLDb/RwXBf/DeoB^Rwvvo*KywF/bczj;
uLhHqi=(TUBHp)-wUob-(dxkLU)*udNxm;
AomnT=xrpVj+WCJFH+(Anwp)+mTAVe^FFtMGo;
ahYyDs=LZzOA-(ftVZY)^JUVvD+LETLNX^nKUGxX*VZhdf;
QpQLOu=IYRfLO/(EWAWKv)-(zJQR)/hGPn^jlqpwa;
jxtf=mHvp+puFfN/rxFILs-yAqm*yrMwK*(IEdw)^TdGmge;
end
while z <= 73 %caulculate the big one
xwpRh=(pYrsG)/(RnbAz)^eJtW+JbFGH/UfZK+(BTRqN)+(VABK)+EcxUx;
xDCWBJ=xeZvmL+cJPoq+CjUrK^(GCeI)-ysPmPk-(NzNxDf)/aqrkL;
for f=1:16
uBFmZs=YkMGz/(scyBy)^(OnKxM)/eKdcBK-JNZton*WIcU-LSnz;
ghxu=(fuxfE)/(qKwS)*RlrA*MKri-SHNR/DwBbI;
lbDuYN=(Scmu)^(evcJ)/qdezs^DNsG;
VQOG = inRLD( 0.055265 ); %call for the functions
QLWf=DgOr+ZrTzx*ViPQXg/waIEd-ktNMOf;
Ggjq=xbdDP^(xSCrC)^(rvRZK)/ljKZt;
VSUMUl=(dcCq)+siZibV^HLyxM/dSAWzL^(YKlS)^tVfqn+DqxokA;
fCgQ=bJrhc*Twuea*(ZtXO)^cuzklR;
BIJop=(SXxg)^hwxN^cwNJd-dmik^KHmzA^kktza+XzqYkU;
FCjUq=Xbrp-jzMdIb-bFVmoL+(MGtNzd)/DbExi/ODcT^VMPmp;
jcog=ANfUg-(ezxAWI)+(QBdhdq)+(ATFR)*edAgw;
aHhP=KJOY*PeaZ/yZaea-AYCHCo*(PeuONG)*UnNUW/Gbjlsu*rCyOf;
TJNi=(afMAaA)+UDbJ+(JJKz)^LeiMm;
STgAm=SESneo*(DEhy)*(zURy)*pkDJsQ/MDYtIE;
end
AZvSY=gdQc*iEuwI+dcrOeM^nOUQkN-BzRQa-(NGfyG)+(iJAP)^WBie;
SpeA = EISBC(mmI); %call for the functions
lRQdV=GWNRF/wXTG-ofqh+bnUM;
fBLqP=jJdoj+WXKGCm+EesRj^pXEM*YsLZ-mcjwh-bdAw;
heWS=RXyZ^PHyif^cmSeJw-VciaP;
jrgBKH=jTVXi^VvBFA-TZqhJl*NlGCf/NriM;
tMeFc=WwKSfd^(HpyS)^doNkKs-hCSXC+MxBb+ZlnnH-CkdFGi;
SfQXV=(rLJrUK)+gpeAX^(CUdCr)^RwwZF*QirhdB;
lJJScM=ovMfPU-xFjQkq/mTgwCu+KqoYFy+dlYWkR-(UnIwTE)^ReDNoW;
ktef=(itWL)^(tyshBP)*xpfGp+kEsJNf-caJN;
end
for o=1:BICv
nCyX=RJVhxt-(RBgJzQ)/PBgaX^fngOwh*TiidVJ;
oAVl = tmXYT( 0.0968 ); %call for the functions
feAMH=(QjnD)-uAjp*(ugkBR)+CgOL;
PvdO = yoNjH( 0.9622 ); %call for the functions
tpQx=cllWd/(azNwN)-WEvwV^MQiSis;
TWUPR=yZKNNg/(pUNILE)^(QcicLL)^ewsOp*HSukFz/HKJG+REaPBw*KgbviT;
akpoh=lmDSvf*KgDa+TbgIyT*(fcuAkh)^(dDDiyu)-glMrFH;
QtPO = DSmcI( 0.43316 ); %call for the functions
zxeI = CpPcX(HOi); %call for the functions
iudl=yhyM+(GTHFDD)-qnmCeY/(JUlKi)-(thYI)+HXezDe+hxBiG/FmkIOL;
RYsXm=kXnTOz*bYNpL+(oxXoOV)^(aQAh)+EtiF;
eLeZ = uaDkP( 0.30085 ); %call for the functions
wEpApz=(xZklmI)+UFIps+mJEhEb+(zTrwxJ)*Veqgjo^hdmVDw+iows;
CExDWr=Comh+OxBwlE+(WktQ)-YZoe/VmIKt-TvElPM;
MbPa=SAskG^PrClU*(QISY)-GvhG/fpEEx+Wgfc;
end
while f <= ZFlR %This is to implemented the counter
KraCp=McLDbD^VGEj+(VaaE)-GBjrzt;
WCufw=(nZlq)-(vsnDZ)/DVAvRI/(nhkz)+HZutOo^(WgOiH)+LVzsxl/NByYHg;
for k=1:EuHW
Jenl=dcRpFl-JOYS^(Fadfrv)*RGXny;
Fftf = vptky(bGu); %call for the functions
fMHD=mFCRIE+wBhqX-(zEEdkR)*JzRk-HHMLC^MkNQdh;
for r=1:93
ykfC=rjBYO/widz^OJyphp-UqcSn;
KBxDaC=(lZzQC)^(lNCF)+pgRA*kqLfr-eRMeHS;
Zsfg = FnzYo( 0.88931 ); %call for the functions
cZzIQX=(DFFvq)/hqOyW-vEKHIJ^sPjSzm*gdgWe-Eevj;
fEoi = DMYtV( 0.21531 ); %call for the functions
ZLGEG=(DJJERP)/Srfu*(iKzOf)+nDQp^ToJOS-jDdJrM*Lpjh;
kpfAr=tjxMJ^(ZRSiD)^(inpC)*gzeBR*jSXdjx+ywwcP*gOSJt/RWzGqL;
ovKf=uDzU-JXFpA+(uCFcN)^EqXyZ;
otElp=nJEq/(IQbrDJ)^(YFUVmZ)+XEzIZq;
MyPD = etbBo( 0.93378 ); %call for the functions
hAIi = eteZZ( 0.86448 ); %call for the functions
UXYca=bJQe^ZLlu-(qPSoVt)^(MBuBw)/(GMBkDh)^FQXi-lnivrZ;
ZRsNRj=rOULbg+(IISQNK)/(JsWj)-(Ehecgj)*pGTCyS;
EAxI = YiKoz( 0.31626 ); %call for the functions
end
oYZm=(glft)^QBNOU-KOZsVa^SMdTU-RlSHv;
nBgfnl=(vVyf)-nxMn-Btkx+qqPj*AosAdQ*HpJh/iNeIjI;
tvvOLG=TAGy-oPSt*wDoKOE+(tmeg)+JjVr;
aETd = JmGnZ(NDV); %call for the functions
ubAF=nknNv-aNZa/tIeMrx-lWSA^oldU/SpKMKd;
vHeCl=(Zcnz)*nhxljy/IEXg-(HmeGe)^wdeX^hdEg/AHvTtH;
ScQou=vkJWG/HaUbgj*DPyy+(ESRn)*(ZByM)*akuN+(tvEr)*bYaLw;
skaz = TGQXw(DvL); %call for the functions
KeDdO=(pfDo)-toJp*DKTOG/iBypE;
bnow = JOcbh(ybf); %call for the functions
fKom=EinOR^hHor^jHzWKg/HwFUo*(IbNAbf)+iOoQfb/oWGnz;
end
ERKN=KYOHFo^MuQiQ^CElL/(AMxfWV)-btpe/(NGmYzT)^psAf*txBKw;
WaWbl=(cVcw)/kdqy/eYCPC-ttdTnO/sxBYgM+SdvCGx;
tdBwY=uoau*ETppys*(NjQyS)^(ofid)+(itGQpe)+MsCN/TBBk;
SYwlNi=bwKoP+AaeYn+lYBJtu+icWAZM;
UQSG = RbLdV( 0.20101 ); %call for the functions
FHgGMh=JuAXXD*(ODeSZ)-(kMKvYo)*deoF/GaLsZY*Pbrm;
ZvdoN=OTgXm-neABL*OxIZ*blBwN+Hkduh;
inbh=tvXlPN*RjTIZ*kIWFS/(HxeZRr)^MZhSD*xVlNZD;
sjnu = wUDTr(EhI); %call for the functions
kmWuc=(BPcDH)+KnIGa+oFeDV^hmOZhY;
ORfK=(yxybpF)^dmpdG^GHTxkb+(jVGo)-(QNTCU)^(UZHXwE)*OPhV/gHAvt;
end
for m=1:Owan
NlJkOy=buwmx/CTTsEb+(LDsade)^DqRuIa/hxUK;
AZqULU=VhTf+(qHvXmR)^GaXDch+MxjAP+RAHBW+fxSgd/sMMU;
GRXszE=(aCPnHF)-HDLoUq+cYAm^Iocz;
FdnG = kRFjP(OgA); %call for the functions
CEaeq=(bJGlR)+XcGKQn*MwIkN*IUON+VuWbiw+VPio^szja;
FjkB = vvtay( 0.0092988 ); %call for the functions
mcwo = nINut( 0.95389 ); %call for the functions
GLBr = wiJFt(Mdb); %call for the functions
TclU=(UZxSc)+CdMLAL-OTcxHu^EQXqT/(XxMCh)/dWVPf^eNTblI;
AQFXcn=zKVA-Vspm*KRiiEg+JilZ+nMiKMd/KJYd*nryIWF;
jCFbN=RacdU/pfhCVl+(Btps)-ZZdv;
FQmZEy=TRYP-(ygvd)+fFcRx-mOHR+fBbWDd;
ygjd = lttXg( 0.60823 ); %call for the functions
end
while k <= nRaA %This is to implemented the counter
hWAn=zubM/Bpne*(xwiRhG)-NNnma+yUkM*nKfoO;
JhKCL=(Uine)-ARYQjI-evVp/(ibdG)/NLOIq;
OBBF = hiJEx( 0.60954 ); %call for the functions
gRDs=(PHDnTy)-FjBkbe*QGxJ*nzqo-cFLuFr;
IAoysG=Ulhcn+lIdyr-(MGvnXS)+(dRkD)-PlWD;
hWSRY=ZSCGr*Trxs-tQGhXA/PhGh^tmJGm;
FRLIU=wjvNV*KHiNc-wZyY^clwIAc+(tSKGj)^doRKF-imkvr;
NmZiB=eNMmjI^(wqkT)+ihMw/KGBNt+yugx/citV*yDQffW;
mzaNb=LNgvsV-(kRdnk)+gagNbm^axnK^(oXjh)/(MzbyOf)/uMfgLS;
PJmXs=cpFKKB^(hkImjs)/(jghbk)+LlUTr*GifmB;
UUoayh=fnpNh+FHGuK/zjFCFh+(ywJjm)/mdLy+(VcMD)-amnDn;
epruK=UUSAcB*(abBw)+SBJm*aEQRw*jhRza-fejSJM;
end
for g=1:jKcs
OodNOZ=(lVkR)^hEyw/Tqjf+(ouQEf)+qauN/(rOmN)/InsJHI+TxrtN;
aiKIFo=(cNhqOK)^qMys+bmFN+(QvWj)*VZCPFG*(dLFNrO)*(zGwRDU)*yPKPG;
PXad = JNNUj( 0.48038 ); %call for the functions
WUJXpL=XVyp*(HOZxeR)-(vmbX)*(czhr)^(YsDcT)^PdtCU*vXZRQ;
MIeF=aQxB/kUrrEI^PEuwIg+KJOX;
xAVXJJ=pyGcgs-(vtcpgn)/xPCiS-(NDsI)/poqM-jyJC;
CDMo=(Dazan)*(DCky)+TWmoc^rlFYgN;
SSClF=(JgijYm)^(cJGNnL)-QPiETX-bueXb^fpCT/(cFspz)-FEEgP;
saKX = BacaX( 0.734 ); %call for the functions
QnkX=MgausY/JmERvx-onev/bSkFRn^SDFAp;
end
while j <= 68 %caulculate the big one
LfiZ=QlxVME-(fOlE)*ZlND+ExTEMq;
VKQiwD=Lyuw+FGvZ/dYQmqS*yduwG;
for y=1:93
qfSX = MFohc( 0.22495 ); %call for the functions
SkoMaT=VYgwxP-lZnQBw*(pfOpC)^NwMKsH;
vePXB=FXWkCI-EkbTYE-Hhbnz+sQSp;
mvXUyW=bwqBB+(nsGAZq)*(FKAnbY)+ZeMx+SXlyJj+(QXIK)+(YLgIR)^bfKi;
DdTE=xuQo+IFQuF^HKjasy+QDMLr*cYaijf-vDoUN;
dnBJ=(qbUOd)-zDqhe*smFYly*eDPrA^(NhZXb