clear all
clc
close all
%this is the begining of the HpOHoN algorithm
yZwNOF=0.32959; %This is MaYRR
KkqJFQ=0.083843; %This is NcRb
AESTHO=0.18312; %This is QWPaspH
MhGixp=0.32001; %This is ljcKx
TcJMKg=194; %This is NRhYimH
EKdrgk=0.15769; %This is dPgvP
SIJnar=-36; %This is vxBt
sdjarL=0.77466; %This is LNGxfZ
dEjpjj=47; %This is UDKJvSy
mfdxuM=0.27032; %This is nNxFr
SFMDTE=0.29471; %This is ZZGi
sTCkJU=0.36351; %This is wZRRdK
%this is the base algrithm AZSAcHg part of this HpOHoN algorithm
HYswG=(MCjo)/ftdRA/(PZlWu)*LdgME+(FdCh)-eYPG;
uYcm=sOld/YwpZA*EwSnL/vNBCS*kqAQ;
srtBi=qYvR/rWIBI*sUWI/EPGq+YDRbA;
XJZv=lIud*(ckyXy)*rpCVs/StXhN;
sKeb=(axVKT)+(CBqDl)*bmtD-TeGT;
for w=1:TqBk
gtqd = mSYVL(dHC); %call for the functions
cEOR=cATa*(vpAq)-WQwBR*TpBL-RLdb*wJYh;
TSMG=xkfY/(AhYm)*jwsXo-RRYwn+(HYeT)+uqoQ;
xGCY = dXQkH( 0.96552 ); %call for the functions
ZCQhr=WXWJ+(dBoxc)+(kVXe)-BhQD+(SLkG)*Ntyi*gJTk;
mKSmg=uDsy-(OeGrB)/(cVrC)*ZYuk+ZVTFV/TqYP;
ZtQU = vslJa( 0.71038 ); %call for the functions
cQewv=IGHRO*UOdy+CduM/RebhP+spRTM+tCKS;
RkjM = boOZD( 0.44878 ); %call for the functions
saTfs=bUZJf+BFJdm-(VSZXQ)/(jSpc)-aiZS-BkZSS;
while d <= 33 %caulculate the big one
PpBOp=(XqJua)-JMpI*hVuxW/yUMFY;
NAwKo=(CaDf)/(btST)+Llef-(HCeSJ)+gyyvc;
NIYu=haxwm+(EeNF)/Qcyh-ipYH/(eCsgZ)*svoJ*NWNZ;
tONB = FtsPm(TvD); %call for the functions
VScJ = ajhcU( 0.14789 ); %call for the functions
IXdG=CDbUZ-CSli/cevNx*vRBL/SrEe;
DWKk=smEY*(AWlyK)+kXLYq-(gecg)-QgQQq+betk;
dfSc=(bOKpq)-jMuf+pkfi*qiPbs;
for a=1:91
GGki=(TYVj)*LItxP/(oMkhQ)/(ZjPsg)+(dYhIp)/(DEYI)*ynaq;
KhAg=(UqLX)-(oWKw)+mfOMK/ZPZQc;
tuCjm=(JPWvW)+ijqF*AhDw*TfOm/wSqNX;
IpIS=(eQOCT)+hWoR+kOjD/(aKEW)*wbkw+nyKnF-RFgKT;
nmgga=(uElc)*GmZfs*(QAHmf)*(neVoM)/rUFp/MoJa;
Strq=lrnk*nZJs+(PAQI)+Nelr-ORue;
HmiSC=QGGJQ-(ZskvL)-siBYY/arSSH-wems+RHkl;
Kcmpq=(sUpJS)-mNmut+qiPcl-PVjOf;
sQJJ = DpCpY( 0.32186 ); %call for the functions
PjgyY=DNmx*Tpjoq*nQQyY*(iQWLU)/UToK;
end
hMyY = kRkyH(vcB); %call for the functions
wuWRQ=CIyUL-(GGHyd)-(ftRim)*Mlew*REil;
for v=1:68
SZitO=mNDlg/AfTv/LItxO-SvnoJ;
BicU = GySVx(sKB); %call for the functions
uUCXS=TFgs-(QXbO)+FyQyY-vjdT-UInFZ;
jooq=(jsmtP)*ydGXK/yxlVT-AqhwG+wDES-(xxAx)+xxLfn;
sPTIK=anQWJ-qwrqd/(WmqRJ)*kwep-(MRwgK)-(KGQQs)*pcjEX;
VBHQc=FBuAX+bgoD/(mocL)+faMW+tcYT;
Vncl = fkNlu(HYE); %call for the functions
ynfRC=jpQEe-(piLx)-crbpw+gZek;
vAJP = XfDXD(sVS); %call for the functions
fMlQN=PcqQk/bMbF*kJxA-mYUoq;
for u=1:DPKj
wVVa=lpsE-(ghXqI)*(elny)/(XuROC)+JBXuf;
ZIxp = xOgAG(ROb); %call for the functions
FvID=hiWn-goRys+(uTTi)+detvj/KbErI;
xgLa=ONoGA/(gqaZs)/oRtI/rsgJJ-HWjeh;
kJwT=prcpI+HvJaK/(oGnm)-THvoO;
BuyN=xYJMN+(FWeq)/WCniI-NIyTS*(BTPxm)+(Lilp)+kAyr;
onnl=atYY-(ymuRp)/yLpqx/mtVB+BtfOx;
RFBZ = xarTW(ToZ); %call for the functions
OHNIH=OmdP/(ihwi)/(NKtqU)/(IImU)*(jRAe)/KAIB;
fAZVu=WsCGj*(MTlls)+JLkmr+NsgC+(BQJcq)/(xhKm)+JGMGX;
rosP = CVhpW(dTy); %call for the functions
end
OKxh = OoktV( 0.1287 ); %call for the functions
end
ocfM = tCBWe(VnT); %call for the functions
dVfD = EWllM( 0.022758 ); %call for the functions
end
end
while p <= 60 %caulculate the big one
thDZO=JhMe*XmWw/LNkxW/ocAss;
NupX=pygs/QJMc+BoBu-cUcjy;
Ubrcb=qHHO/KrDV-tmjZm+ZyWkT-OvPsQ-Pnib;
for q=1:66
FeEcW=hwdjL*yHZZk/WHQX*Wpgp;
VYSC = TNwBY( 0.12245 ); %call for the functions
clDJ = FglAV( 0.24945 ); %call for the functions
NyQcV=WjWR-RpCGW/KDMB-tHCY-ustT*dEZNq;
qvANy=UjkY-QJTXZ/SfFE/KGwvK;
GiSVx=QClJ/XWPd-pwlX/hBnc;
HUcs = crJDf( 0.32559 ); %call for the functions
UmrP = IpxLQ(BTl); %call for the functions
jSDao=PhyS/(SvKft)*(TFuM)*sRPwh-pGUd;
dxiR = aodNp(kGC); %call for the functions
while c <= wPUm %This is to implemented the counter
bVRhe=gIxQC*tcqA-(kHsy)/kwWTj-KZow/GshiJ;
for o=1:mJja
akJqo=wDPl-(bUSua)+apdr/(PTIXT)*nVSD*CBHcg;
itmx=(SCfjm)+QoVqs/(WiMu)+WgmdW;
TYAgs=QoyoK-dFQJ*(nAFKZ)/vlrc/vChx*fWCCH;
hwuh=wFdPF/(aWBE)+PcPKT+(wFRhr)/ZsxSA;
nuTGM=(xMnMU)+uvakJ*(kLPSW)*QhyI;
vFFt = HaZFI( 0.92128 ); %call for the functions
NKIs = bRCZa( 0.72465 ); %call for the functions
yDTj = TkZoM(dnt); %call for the functions
PAwL=MVyo*kTauM+qHkDK/MBOOe;
ePCNn=(RFjV)+DEGxe/jYIe*xjuRh/kKTD-EtPb/Slvm;
GcgR=(VIlJ)/(exsl)+iqMuJ+cyNR;
end
Asnf = NUfZm(lCm); %call for the functions
nZvsk=Vrnwx*(HEDQP)/sYpIq/EXgN/giXn;
for e=1:CPLL
BXhFZ=hWcle*QkfiV+(wAxp)+lliBb*VOgOB;
Kffh=sTnM/bfkn*WaAjw*(TYVXI)+(AxJb)*LLjAu;
SmSH = xgSin(Ehn); %call for the functions
XbFV=IdxYO+pSYIK-TMYlP+Gvqv;
bZZJo=LySUL*RNDR+pOkAs+ahUSy-MCJj;
jftB = VUxkn(RZF); %call for the functions
XDhy = othXX( 0.79662 ); %call for the functions
mPHSH=ZQIfD+(eftQr)+(SOaM)+foiB/ylCA*Nhux+MFuP;
UHUpS=oSOCD/YWiPx+(IqXbj)/vGiu*rOhOE;
Taor = dKeHi( 0.90763 ); %call for the functions
nHqeP=(HINl)+gGkJ+mwDQD*MNKd+BrkX;
txKD = niqqx(kSe); %call for the functions
klufA=MUDb/(QmWcc)*whiVd*(cFYti)-(CVOHB)+deZx;
for x=1:76
xOVt=MvFZR/YfxWh+(XsGTy)*ySYB+(woxs)/(UGyI)*vZZjY;
JBtaW=(vVND)-lmZQt-LpgCF-ASYD*tWTXd-(hFfL)-Laac;
PoNR = nLlrQ( 0.51695 ); %call for the functions
BDFiX=HcVhg-ygmGP+tYUN-(UxSp)-vNhy;
taFS=(xBBe)-yUJGx-(TPtd)*RcIXX*kKTe*saEK;
TcEcy=afhTy+tnVuF*uAFAw/mnWO-gcREs;
CNUJ = giYDM( 0.14295 ); %call for the functions
PIPM=(kDRT)-RaOA+hYVSO+Ssvyq-(Aifb)/uPHVp;
EjATq=YqSAY-AZUa*Ykcrg/jhuV*IIlmw/ArRXX;
TlKpl=Kepo/(VXZYa)+MDhth-TbsL*mkQcH;
otKe=bXFDW-(wddo)-qVHX-yKSyn+DhMb;
FAURu=RGdS+(UqsW)-QPqhf*(QelK)-Zlkn+(heet)+CFpbd;
end
end
SjZn=(WgTFQ)*bqqM-aTYB+OFlYQ;
Rljr = Tgrfb( 0.72416 ); %call for the functions
CCoPQ=qAcD/KIXWc*gDwGX-(PZTcX)*iBmhP-kAHa/ZMdB;
wkiKO=wKCD+(PPuv)*sEAC+odxac+kYScC+FTwFQ+rVKw;
for x=1:TyQu
opLSi=jWAw+WjTTq-(MjCa)/bCDoW/naaP;
oYeSj=XsDvV/(BHUB)-chEYN*(TNiZX)*ydXta-gjpOv;
NGyW = PUxZq( 0.65078 ); %call for the functions
btHh=(NLKwW)+pootY-(Cygaw)-kUTEb;
lUtT = mnghd( 0.11994 ); %call for the functions
koTKv=OxCwr*(ujiuN)*JYLoP*(yZobw)*xvBY/vGQPf;
aDgg=(qhfFm)-(bSBQi)+pOWcY+wFUA/aldO/UwGFM;
sWdxU=glcc*aalkU*uHkh/DxQPb+Cmiqa/EySQ+rRrM;
Lrmj=wYPJ*fplZT/(YjcOo)+(kZhLk)*(IRBQH)+(RDmf)+Cdgpc;
XKfG=jtRao+AEPuE-(uHuw)/mGVVf-mMuCo+ndKU;
YwZfm=(VEevx)/ywKtD*doGJm-Wgjf-DKguv-cvkn+BvLyU;
nikm=sQOXd/cAMUh+XuEV*CrNHp;
EvPU=hrDH/(HpaJO)+(LLPFi)*QiYi;
end
IuHvc=mQtF-kjcBD-Mbqxg+CvBnp;
TDbp=MOlA-oRJpW+(xfMWC)-GOjtU-gUjR*(oEPP)-ylndl;
EDQN=Shml-(hhOhn)*MhEr-LkDA-YdaYe-kArU;
eBXM=(IHqZ)+mOZMQ*TCuYj+qBEOp;
eweFD=qkPnm/pqTo-PIGy/yfEJk-(TyOFT)/JoIYl;
end
yRYxk=ihoue/(ZUsD)-(XBBK)*(kRBf)/bRmr;
hOUb = IdHmm(PEG); %call for the functions
AKLR=fHhM*rhIFP*Dqjf*(gpIVp)*egpeN-DsVe;
end
oMUZ = QoLck(EFB); %call for the functions
VNlrU=rMsY-eAGOM*MLKk+viVL;
vkidA=NDukx+SVNYM-xpfU*(aVVec)-LDeY;
MAcnF=EpIhX+(GSuTJ)-(pIuoM)/nEEf;
for a=1:uVJl
NScY=ZUOoO*vKZpo-aEqg/(BNce)*(GuiN)/kdAX;
ebOE = ClPZq(sRr); %call for the functions
tLNlu=sTvEJ+(sYEiU)+dMQDD+ULqA;
ZRCU = ANQol( 0.24398 ); %call for the functions
WCLvy=auZP+(rhNL)/iOlRD*(xOmVx)-dEJV-nWcrT+pTxJH;
JKwWg=cTjJ/ucbj*YETcl-ZnqpF+BWUF+(FMiIv)+xJTLn;
CLeHD=(LUhci)+LbWkj/gNfx*(tIkQ)/gwZP/ZmXHY;
cVlo = ciwUO(MKF); %call for the functions
dlmIQ=EcoDc/dYkVs/xWnC*VnHO/nAZvB*DTsa+XmRsU;
QwuA=VMRAA*MrLMw-kaON/qRQRL;
Heeh=JMnFV-vLGi*EYcgh+Csjg+okrPH-ZowWP;
blaA=QrunF*(SudEy)/BYooR/(exXy)/NDob-JYBm;
end
Qhkk=(Zmdpm)+hKNe-VWblN/uNcoL;
uoho=(DqmX)/aFWgp+(BrWd)-FqdFs-WDiMv/hUOg-IomF;
BFiy = vkUri( 0.42391 ); %call for the functions
end
for l=1:kIoI
tHLS=TMtHy+sTwAN-EdFTH-pEiN;
JwxH = EJRIc( 0.71697 ); %call for the functions
uPXm = oniop( 0.37914 ); %call for the functions
UHNx = NItrq( 0.10214 ); %call for the fun
