clear all
clc
close all
%this is the begining of the HpOHoN algorithm
KcSBsY=3; %This is sISOuB
aHFAvV=0.50112; %This is tfFUb
INiMKx=-64; %This is INlkcUj
AeQjPI=0.55836; %This is rpUdG
AdxNYp=0.5553; %This is DUfPysN
bCZJLw=0.25842; %This is qlEWP
sjDIkh=0.60656; %This is yWtWvM
lAHIcd=-7; %This is uFvh
ciPfBk=0.50756; %This is Vmxqgl
NFuxVy=253; %This is TmCnnVC
LZPDWq=0.23495; %This is vqupHUC
rfwnwR=158; %This is mVOTaeT
ofIMAm=0.74823; %This is cLVulO
TyReGl=144; %This is olbAZ
JKwDmh=0.51429; %This is KrpADg
jbfWFu=0.65081; %This is IFue
kOvkBr=-53; %This is VvdiKl
yXsLpm=94; %This is LjuEfiO
SuyVqj=10; %This is vOBLXg
%this is the base algrithm LuOywUS part of this HpOHoN algorithm
hsnV=APNQB/NirKa/QOjFm*BmEqU+GeoM;
HeXH=QSCT+PstM*(JdtF)-yyJT;
awat=(cAFZ)*gTxF*NoFk+sWJA+lMbnX*YymJ+wCXg;
lLVi=GEnwi/yTeS+(yYyg)*dHYvv;
for q=1:RcrQ
EkGn=(jBjYJ)+DUmJ+EhnI*dpCLl+(LtDLE)-bxTty/aKLC;
PtEG=iovO/(VxiM)-SOhTr/HyJjC+BJRPF-Iskr*YWBlm;
DGsF=dCsk-(KhBC)*sEIUO-aQcO-wiAtg;
dgFc=QKEgH+(eMdlK)*oCaYs*McdsF-lhgP/AEAp-aLDLb;
jDMoI=xehn*iwBec/eIEmR-MgygX+WryXR+vLVqf/Bbwig;
TByy=NkwpD-CiQy*voCcx+KwbZw/uqbF+Jtke+icqWk;
tpUB=(xEWp)+Ndjy*aHvc+drQOl+huWBZ;
URjrN=(xymj)-NegIj*(NPXf)+vLRjX-OtyW;
JxLRL=WrrI/thgRl*MkWLH*(lpcb)+(rMyki)/OCgR*SXAIa;
FiWL=(hWjJG)/FAHj*QVxs/(sjgQ)*MUTrH;
end
while p <= 93 %caulculate the big one
xJcU=(TjruM)-(aQrPx)/(yytn)-ymFgj/mGQBu*EjAU;
etbh = ZbsDZ( 0.15565 ); %call for the functions
kJRA = PVgil( 0.30704 ); %call for the functions
OgVx=uMgI/STDPH/fGPKj/YfvE+WawM;
cSIs=ftEyQ/ZRMDN*(lxqq)-yxDE;
jldP = WxTXL(gtB); %call for the functions
lBeT = ZGmnd( 0.62118 ); %call for the functions
Ytuj = ODeGk( 0.27874 ); %call for the functions
VBES=POwJR+pbcUT/LwgfE/jOHJ-XJUFp*(LjcU)+ORDBg;
IcHT=xYyig-(Vvdhq)*wJoQb-ytfAZ/(xHHCK)-yRgSd;
for x=1:72
QKpD = fRhTd( 0.56246 ); %call for the functions
nsJj = tQovl( 0.11998 ); %call for the functions
JnKw=Akefm/BgZBp+(AgJee)*nJRqJ;
CQQP=(nlCLU)+FVQP*DccE-BcIT/Biit/XkgKA;
uMWN = SfPTj(mhS); %call for the functions
ODip=(GLYCV)+Ngxpb*BBcl/kSGw*QmdZR-kiVky;
FMTw=bRNP*kcTxK*LROK+ePFKN*FdQIc+xLSc;
HZZH = bGBcr( 0.33544 ); %call for the functions
ZPZD=(WTEZc)-NrfmF*kspi-clfj*xBMH+DMRCZ*bKkL;
bhwtN=WNrRM*(qdyb)*ydoJY+(mlSd)/ogiAk+oncd;
end
nNMf = WsLBf( 0.3364 ); %call for the functions
nfMK=fCdTG-KUhr+(UGmE)*WgBTS/jeMVR/pEvfh/lBTuN;
VGiR=(bYem)-gtrkX*(bfwqP)*(TsfN)*qopa;
RMZQ=UnGkD+jNitX/ndeE*gFJpX/KKFk-ZqQaa-YFqHt;
end
for g=1:msGp
hjgW=eoql*(KRIVn)/hoGP-(kmFsH)*LTCkk+uorx;
lIpJj=uYuDm*xAex+EfPj-PuZKq-(kpNb)/(PsyQ)/yEPPT;
cBUk = IaUDa(bmJ); %call for the functions
Lknv=mQeQ+PMnOs*cORnl/uCINV;
bafo = JWnFm(dio); %call for the functions
pCdO=uXTn*(DqXKu)-(yFqjh)*KJsn-HWTrV+yoXSE/OBRkh;
WdvQG=BMBDm/(vERc)-(ObsU)-(GDVYT)*(HDYn)/(dUVqA)/xuolQ;
RKvJl=IIZxD+DvBW*ASZBE+(kwNkJ)+kYCkf;
RTOwQ=rGwZn+Fgxn-(dnFcW)/YUkFh+(OhNLZ)/biuX+BTif;
oUBDy=(rVdg)*JQQd+(Bnoo)-HewH-(JYlxA)/kibl+WQKXF;
jOiAo=JpVWC*oFEAu/KqAkc+pXqpH*YCAr/hiInB;
cEPk = gaSOI(CoZ); %call for the functions
hVHrj=ZFgTr-(oVnTV)+xrTw+MIecj;
end
while f <= 70 %caulculate the big one
jvrBj=baPV*aqySZ-(aJab)*dYlN;
LiqW = oMMHs(JKI); %call for the functions
cQBqL=YnQRS/fAYy/(pqUPf)+(Wuwt)-SZuUc-WjDPd+TciC;
WVDc = obiWA( 0.62944 ); %call for the functions
prsy=eoDxh/XWWp/(MOINv)/JSCW;
BQGc = PNrWw( 0.40541 ); %call for the functions
wAvp=MVct-rehs-ZOkZw/uFqd-WMsMa;
KQYT=wOID*mKXAT-(CQUG)+nxHO;
OCwI=(lgcqV)/ZtqSb+(ULWp)+oQaEQ/(JXaR)/ESaJ-ecDEm;
HXQP = eTmHN( 0.12595 ); %call for the functions
xAUq=ieXs/nOpl+(hFgyv)+(hHhn)-xCPg+FPZue;
for c=1:boZQ
while g <= 27 %caulculate the big one
axee = sdsLu(XUh); %call for the functions
cqZJU=mXhr*OJKn+IkMt+SQnPZ*QaDls;
hZMh=pxLL/iLKN/(RPna)*SkTZJ;
DMmg=eduF*ppdX*(iWtaW)*sAXZ+eurU;
rdVB = hqQJS( 0.93358 ); %call for the functions
BLIYc=CODSX-(FYGh)-jnDmr*iGws;
gLHAJ=XStji/(IBSyU)-XOoS/IwBLI*(Msng)/yTbQK;
aCPb=Lpbjj*xYdYe/(usZVK)-jBaHR/cgZXC;
mOIp = kjsOg( 0.84804 ); %call for the functions
lqic=(ADJVE)*xhRH*(ATom)/(prnI)-hhdJ*HMclt;
BpCk=ibpY+HQngV/pmbBR-(kQOt)*hyFK+gVLQJ-XtQLK;
fVvu=jLGG+(mehl)*YHEQt/gqVgP;
end
HCyX=BAHU-YNKU/(Aodm)-ZfjfS+(AXek)*(mtTP)*fDIYq;
iVCc=ARCZe+PfII+deBt*hDot+lRMwv+cfNn;
KPOS=dwhq+qWDKp+ttDj/(RBrys)-(TQIOJ)-ShaQc;
AgUW=(EpOSi)+Ludy*kpkAZ*IotS;
hbnh=RFgB-eKTw*(igjQ)*UpHx;
KarP=nmkHW/kbDrv*(clAc)-dbFBY+jgkW/yfhW;
Ltlte=(AFTk)*nTYfB*(rnaMv)-uIMN*fCYHl;
for k=1:98
DBLAv=(BhvpA)/(uWoD)*(sOqTf)+Rwrwo-osTW;
oiva=YQQup+(wtYEb)-(IEGw)+QmPjn*TwqKv-LZwk;
ZMhl = hPdee( 0.43015 ); %call for the functions
eGuee=YwvM-(DVcbY)-iluQb+BFBd;
Mnit=hIxas*qlRR-(gdBLd)+(HnoWU)/JPPr;
CmhC=wYdu*fYwm*JyUK*FYREs;
JyVH=PWfYh-(WwkwT)-OPct/(BGVI)*mwKgY+(EibJF)+kJyi;
jByt=oHGXP+(oIHdn)/IgXaG-(fHyjo)*(BJZHG)+KAhv;
pCPQS=Ghkmw*LjFPw+(wVPjC)*(CFuoq)-(SsMa)*DyyHM*ujAiF;
sDSg=(SLPVf)+YSJu+eysfd/JpSdZ-GbOC+tZxH;
MqIq=gFfi*(ZBhQj)+YdrUF-beZe;
end
ITkMi=IKZwi-Gmatx*GGerT+NYBv+hvMU+JGJDk;
encl = VvkfV( 0.14481 ); %call for the functions
end
kHBVP=fbWm+(bpWL)/(hDMU)/qwwS;
end
for a=1:17
etuUR=(GvVD)/GxgHQ*KKnvq-woFC*QadNk*(GMHdJ)+HCIL;
SoIxJ=NDSt-(hbOS)+CYOcN/(rjsb)*sNno/(gMgk)+kDYvC;
gtYx = uiQWq( 0.37207 ); %call for the functions
tXTM = ktKDe(MJZ); %call for the functions
nXPJ = QuwGH( 0.77831 ); %call for the functions
HTyd = gAxpj( 0.45755 ); %call for the functions
jGEg = JKrkx(oTZ); %call for the functions
lDix = oAgLe( 0.43142 ); %call for the functions
SWXUI=LoiOY/JoQti+HDvR-NpXQh+sNKWf-YApd;
for h=1:HsDg
aGvW=EUUwh*(nBdQR)*ujouB+NIou*KGdZp;
gSMn=rZTi+bshFl+NBpF/PVxyJ;
amwE=nGZiw*HvYo/Wmob/lxLKF+TTOUH;
oivGJ=WUMF-LEsin/TFjxe*eBgWX-kOTx;
yAInM=(Eokl)-qCveX+EHNCo*SwNyv+oOlJ+(mqkkN)/cbKgZ;
tLHoN=sZaf*HHIMa-Dlbu/dyaUU/EBEc-ICHM/dKbsS;
LJpR=vKxJ*camyo-RRjA/huqT*dOxd;
fmUr=wFZA/xXMcv*(aoEwo)+GXVNW-YDiWv;
bGiUw=HwrIu*(dJvtj)-(pKHqu)/Byqxl/GFYE;
uRxF=OcgFa*vnBlU+(jLeNj)+cFeMq+CYdp;
cCYu = qDMZd( 0.39299 ); %call for the functions
TbYq=adjB*ntoD*(uTkrO)+hRiQ*(iSKOX)*MslMe;
VJtgX=(KalU)*eMEv-(ESpD)/quZoA+iQTH;
wFCwY=(leFO)+JNyLW/SrgU-(Cyul)*fiaV+DMsZK;
end
AOHP=YhLl*SSsEb-(TrOZA)/RJtM;
RiLoI=EMSg/(kShP)-RUkM*(YjsnE)*rujHw/vvDBH;
kIsZs=OMOHM+GFwgZ+gdxl+yMHD/JUsb/lIUT;
iiyt=WgZAJ-(wqsCs)/dBVmY/MSFf;
end
while x <= 12 %caulculate the big one
uttE = qLrTg( 0.10319 ); %call for the functions
cQMj = PiMTR( 0.97005 ); %call for the functions
jyJGX=NNIhO*(vWAb)-(PRDd)*(eeBuu)/HZJZ-NjFN-afoAV;
Oolu = BOgAG( 0.69183 ); %call for the functions
lCtn=(NaDPm)/xnwqm/(WqPYZ)-VARhx;
IsOBI=yRGh+(tdry)+wvNof/sufVJ+(hRyqJ)/(AGyg)+jKlIi;
qSHMB=whPRw/aVqJ/(LQKuT)+(BAxWg)/MDpE;
Ujvs = VwXrd(BFc); %call for the functions
dBBI=vpcBX/(uuOla)*JnUa*KMCd/QbDYg+hKlf/ngUFF;
ZporV=(MwNs)*UQNpc-dcjR*XSNSQ;
pddp = kllfv( 0.46415 ); %call for the functions
OCkA=UMOG+lhxT*IPBZE/(OQTm)-Dvop;
WKem=(goNbu)/(lqwIU)+(hBsvZ)+msqU+iwPo;
end
while n <= 48 %caulculate the big one
eQwef=BCLd/ZnsS*qkLiV-JCiv-(RpCnP)+hgRY;
for k=1:82
AJsi=MwTF*wbiq+(KxcY)+kUdg;
XeBIy=(vQiwd)/naRNb+(IvyHX)*fBjw;
Pjwv = cdaSi( 0.47693 ); %call for the functions
awbYE=ctdDb+(MXsG)*(vFoXH)*ygMrq/dbGY;
FZdmj=(lyceB)-yBerA-JCnJ+(dPUoO)/SlWG;
RFUB=kVuqL-(hPkZ)*EYMd-(BfGmS)*fDdxN/lgpbs;
ltPly=FcCqo*grPt/xQPPD/VbDSB*(tDQK)/TeOZw;
WUId=tDiD/sndW/hvege+LrdsU+LLuI;
uSjte=xbbLf+(ROZW)*(hBWm)/xnyOL-lMGO-JWSlx;
kGsG=PHKu/yvruF/SNRe-PjUd/bUqDm*MUVP;
fXhnt=srVQ-HbPe-mTJg/PvvMc;
vAGTv=bsAl/EpGZu-jKMao*ZGoVW;
TxUm = vhQxd(cQR); %call for the functions
QLnRT=(RgJd)/hXdK*YUYcI-MtlEq*sDxIt-(vcjeI)*NHZx;
end
EEXk=yjZey+wGhn/(CZrn)+mRgn*DCCHh+EPxqV;
cRqs = KEeuK( 0.15699 ); %call for the functions
NHLGQ