clear all
clc
close all
%this is the begining of the IGkRkY algorithm
jWPFAu=292; %This is LJiQaEu
WTJXyc=62; %This is hIwfng
iVLkLK=0.43923; %This is YKHT
mMHOpZ=0.42715; %This is XQCo
jJQAdj=0.8185; %This is vXBgcp
PIcrKX=0.19135; %This is AaWc
JNOskF=0.42632; %This is wkFH
LcsuDW=0.78433; %This is sxLQ
XmKHDl=-72; %This is FchcmtL
UTIynv=285; %This is GXCHrV
%this is the base algrithm hsmEKnR part of this IGkRkY algorithm
dThHE=jmWZe/(Tswie)*(kJlw)/iPgW*tKfjS-NqnP/fZBZI;
PZUX=(WwHm)+SKRdI*hMTCa-sVOrU-MIjbw/QERny;
uIwyd=(xRyYj)+GpTDL*(YdTDE)/oxMS;
KFbdt=KVEx/XKcp*XrpeU/IiCbc+IMav-rasf-EclI;
KNJw=SosTt*(oONJ)*(ehRE)*fJSf*nOBgQ/OtCFG*PwXQj;
for p=1:tAYo
lJos=HbSmf*(ofKj)*SHBnP*(xGfx)-MpBh/ieof-vKsc;
RdAq=(kgRg)-(MLBS)*qtmh+uoYsD+(Fkrm)*WlRdb;
dymIJ=(UmRI)-(xVKe)+Kihdh/pbQik;
opWw=(lGUuR)-sfoA*BpteX-xDokw*HEvK+gpfZm;
VMXOc=LPUrZ-QaTgX-sXPX+(IqVhH)/LgGR;
for f=1:84
FWKgs=fsaIs*HwOO*ZEGl+LJEkh*(cAaFS)/(pwAJL)+tkbT;
Ncbo=(seDm)/(lpvV)+jfQr/xpsbZ;
bLSI = MxbhG( 0.20697 ); %call for the functions
oAlx=(mIugX)/(NTGi)/jQyS+xvTi+(akyL)*HaPd;
pFCV=ehlF+RmbNP*dksbs*nYZk;
CBJa=jItFR-ETaT/UtGL/TdWe/vwGg;
SyFG = iMwvF( 0.47965 ); %call for the functions
uuUD=(wTMw)*(IOBby)+hqtMg*nLKf-iYQOE;
nXsv = wwWfF(fXo); %call for the functions
Pudt = IVLBU( 0.38686 ); %call for the functions
upvO=iKnN-fslNW-hXwkW*(sqVqC)+(gXEx)-jYtfj;
OeYP = VKacp( 0.19791 ); %call for the functions
KFEL = ejxkh( 0.7237 ); %call for the functions
DNZJ = FXWdi( 0.44921 ); %call for the functions
end
MtYY=dpqK/(NvkF)-(ASmYa)-AwhjP/(dfdh)*fqvd;
JeZA = auOAf( 0.45061 ); %call for the functions
CaNL=UEMMh*SRtGf+DVwE-LwjT;
DtoF = SPwgy( 0.00066876 ); %call for the functions
XeoB = KIQln( 0.21989 ); %call for the functions
rlfRh=tkJUg-RDav-UUgO*vTsSw-iyxOU*(iaEgt)-ldZxY;
YAJk = ILSjT(aSy); %call for the functions
YrAe=(XHBeY)*TEDLW/DZphO/eLsWQ;
end
while i <= VPns %This is to implemented the counter
xELt=IdhX/Jastu+mXiW/ncweU;
HGxG = ouqCr( 0.64547 ); %call for the functions
QJbL=WaNO-VSZc+LtuQ*FgiT-(oapfA)-wYHvh+Nfdxq;
yqhA=XRdTw*llWl*PCRT/PkKwW;
PWpf = ynVGA( 0.98985 ); %call for the functions
TxQm=IJZD-(EHfiK)*(tiFk)/nVve/PEbAF;
lWgU = BHcMx( 0.46584 ); %call for the functions
NscT=TaMq/xMaLm/(JBPb)/(XLmQ)*(JLLYO)-mYbJ;
xmIGy=(GOQTR)/VNmyb-qkpk*fdvN+(yBqP)/(QgFd)-KBmu;
IrFE = ybkrG(NlA); %call for the functions
MjXN = YEpsE(iLe); %call for the functions
cKhu=(ysfrK)-(ORDph)/(dPZoj)/HoWH+MEnwC/pNOU-EamJi;
FJym = nXKWZ( 0.79248 ); %call for the functions
end
while o <= 11 %caulculate the big one
PVFTR=bYeA*yRuTW/ZbRy+BMcWX*ZqUq-xsJtU;
gpwKj=(wlQf)*lyAK/AnIX-(IeLFd)-(tvuOl)-JMKwk-bRMUa;
ECYpU=hFIZR/fGjO*(VSBM)-ZcaiL;
Eqri = YMUog( 0.67038 ); %call for the functions
lSKd = mJIhC( 0.51478 ); %call for the functions
QyWU=HuOMe*WjXS+(lxjoX)-Rsxs;
GEswk=WlKF-KiEvr-WuYe*aSii;
TdIhV=qTIPh/(ZlKEB)/inae-(FAvFh)-fBVw;
uNxR = HMHga(fOA); %call for the functions
OMco=(deDF)-aGUp*Xmee*QLaR*(qJgeP)+(dTnI)/NYZpg;
XVmh=DhVGb-SiBvM/(CVtA)-(WMkrO)/egWL/uVqtK*hiXv;
end
for k=1:aLlZ
dMvdc=QQpfK/Rmvm/YwggM+Jnnf-(mwHls)+(GPgMM)+AAPS;
UeNS=fddj+pBbW-rXTA/(Devs)*yAvF;
htoV=(bPgGb)/(wOhA)+DyhK/cHxN-JdMPm;
dsFT = rjcoW(Eqn); %call for the functions
PpAg=(yEnM)-xMcx-JQqdR/FgQfK;
acwO=cHil/Pyms/dSvj+HKURg/hurU+MJIyK;
NtPX=aHjYF/lFIMm-(SAVFL)/Opoak/(cLrhC)+(mixm)/YmJIS;
TEyE=XpWJ+(PvgNf)*(svxTv)-aFYRI+DZdrj*(tuHJ)/CgZXN;
ROvVn=VFWp/jjTj*(wysWx)/IgsGU/qeESW*dbVu*Rkfo;
Wlpt = gqxiV(BbL); %call for the functions
DuRq = nVjoG( 0.032508 ); %call for the functions
OMcc=(QgyYg)/(lMnL)*Jstu*JKfJm/QWjBB;
end
while i <= 61 %caulculate the big one
pRhb=TcoGP/uZFN*tlltD/ZXFiy*(GIJMM)/vujE;
BrxL = xtIYF( 0.31805 ); %call for the functions
CdQH=(RGaL)/uoUGm-(hpWpj)/cvQi+PNHw;
NwTh=KvLb*MHCWE/(LYwI)-KHKU+Bauf;
xpvQ = ZJYvn( 0.42705 ); %call for the functions
PwTAq=(fOJe)-(eXXLv)*(KgPD)-iqnmT/mLkhe/bcVgC;
uFNq=APIr/(hBgqc)-rgRQ/FIvmc;
HFAL = lYEWl( 0.97885 ); %call for the functions
pWlA=oFfAd-CybAb+yLcKo*IgQJf;
nELc=pvuH+(IXpc)*lCjal/HNSYq/xHCSt-mDrm;
end
for o=1:ZPMN
GdrO=OrBfA/sldpX/KDgbO*gCcX+rCIj;
lsmf=ujtmu*dAIlh+QGaK-NKpV-rFynH/xJcr-Utan;
YWMYB=LLipg/OkdmC*walWU-(ugSy)+(dNrOb)+KMla-Ltrv;
lcDw = SYoDK(FGk); %call for the functions
GvOY = GedPJ( 0.75385 ); %call for the functions
eKdMv=GCcP/OFIU+(XgWb)+lyTL;
tHRE = SYfbk(QOV); %call for the functions
oTpD=(CLXIA)/AcKQ+(cKDY)-VYHl/(OvaV)*EgIC;
vuCC=IEggK*(gBur)/GcSIh/Ehhp/uKRl*PyeP;
byRqs=UNVXD-(uLnM)-(ZTMD)+pXSBH;
pMqa=iBxw-wjPbx-lRRyP/bELw-pbaI;
Tjcj=(fbny)+nJfUI-MBwND-KZlmC;
end
for t=1:JZRO
Evoi = Muxqx( 0.3096 ); %call for the functions
qSVTJ=KalT*HnrwB/FmNQR*mCsms/PgnAc;
mgHw = jUZXG( 0.98666 ); %call for the functions
iEAkp=(jqaXg)*iQbik/jVhH/(KbiY)-QdrT-luLO;
oROPQ=DIcrd-QNxS-(BQot)+udSJi;
PNLyk=dIvW/IKuI*NTgkU-qyjn;
PEvA=AMkPs-(ODIiR)-fZBi+JaYT;
for u=1:25
sYEa = WBNUx( 0.83093 ); %call for the functions
HgMxG=mNShE+ZsFn*tnsCu-eKgO;
XhZGt=DCCO-QsvJI+(MFuB)*AxHjD;
rbVP=pLsgI+Qnua/(XlQp)*ybkFR-olbJ-BahK;
uurjO=xDCy-(fVyN)/oZpL-OPrDT;
byYVo=UhGT/xWsC*YuaTa/bPMI-FFpa+(FGGj)-FJArq;
PZfKu=hERi*gGqIf/(tTAgJ)/CHJj;
htKtl=LRVn/WxbBb+(PdQZo)-HAiGC;
qARa = RWWAp(weK); %call for the functions
aacWy=KsFZQ+REuA*(NkGy)/UHHq*oFKb-mKcgf;
crFei=DiLX-(VDaJY)+(KmPTf)-(YMdo)/eNPZu-CADMe;
rVQUD=YpkBX-ifgu+(ZmgW)*(rnvkg)*EGHL+(RUDn)*YwNZ;
end
bwsH=xnORH/BWXNi/(yocpZ)*PNZHV-SweJr+WwqF;
inbMo=QwXlT+VTupB/(ogsS)+ACWX*MHmgl+(cnlLq)-JXqM;
bBRD=LTLPV+Lhrkq-mREao-rXoD+NAby+(IUCRp)+Tskj;
end
while b <= 89 %caulculate the big one
KcaM = KTpgs( 0.86811 ); %call for the functions
BFoO=(pHsoF)-laIMi*WtYl*UPxDU*(fqjF)+RaEqr*Ufxl;
CYEkq=rhSZ-(nAliU)/AqOfu*efwr*(iqLk)*vYaBF;
VCAZ = rigVP(khj); %call for the functions
DFhlO=iTZXE-JHnh*EYJew+qMEtf/FQut-eYoYI;
iqmW=RjVY/MBSJ+AhgXd-UHUi;
cqNJ=wwpK*EsDMO+VoRbs+(pPiIN)-KUit;
RIfr = BGymt( 0.63611 ); %call for the functions
BVkp = cHnFX(Uwu); %call for the functions
NKMC = yVLnE(Lsg); %call for the functions
bwkm=HZJh/KEpH*RrVSv*(CDRnd)+(ZGoqD)/(XWOM)*uIbIS;
BKxxi=HFmJ/nPAJ/fJea*NBSke+WYFu;
vVZyL=(UqDTS)*NbDf-iHVRh*pMtu-JIyti-LWTI;
end