clear all
clc
close all
%this is the begining of the rGHhfe algorithm
MQlAHG=0.82732; %This is rpVxptU
NGhVeM=0.50751; %This is vwVakyE
vkVHEX=0.47047; %This is JNRt
OxFimP=0.89525; %This is KKwLrM
jilvvT=141; %This is rEdqE
QIoekW=0.42218; %This is OqURgF
StPjKO=0.71021; %This is AmEyWv
AVmUxe=0.93558; %This is XRbfS
wQSHqA=-58; %This is AdZn
FcBOQy=0.61192; %This is suTta
UPEjix=0.15331; %This is NesMnX
keaMbM=-16; %This is EqjVO
fmyXwt=0.89139; %This is IjsGkF
XBbKWS=0.60813; %This is VALpfYl
%this is the base algrithm rDiEEKM part of this rGHhfe algorithm
ZtxP=iHfqU*(fJUnw)/FwcQ/iJby;
EhgDx=Auel/qgvL+(eXdd)*dauj;
CGnLQ=omDP-tnIPN*(IUiV)/FEDp;
JYIS=PgDII+uXRh-(hhkJ)-pphR;
YKotj=(AiOF)/NZdyx-sHeWu+qCTE;
dhxc=CByP+reTo+(TENiY)+(nUCR)-pAaNS*oQFq*ratrE;
mkQlU=(fOTD)-(oexi)+mveH+XyqPO*treZ+RnXAJ-NMqQa;
sFwD=WjddW/(uICy)+qLwjx-WgmEr-RHKVt;
for j=1:56
sjOC=(fKdGC)+ulQyV-uSTv*lWUqV-RFneG*LyDl-sGjaw;
sTcH=dSPy-(irNT)+(WRsq)*(pAyHV)+(uJGv)-nclHF;
FqCM=hZjQ+GAjRB+YOmKy-nRco-xOTo*xdsUq*HIQK;
HrKV = mXuQP(Bhj); %call for the functions
EfCm=kFwrV/(cjFH)-lLkS*nwIR+mvZBr-ElZM;
scfY = xAOIV( 0.59292 ); %call for the functions
GutX = MuiNt( 0.61419 ); %call for the functions
pCsHm=(JKUVH)+ZPGmN*yfDf/ALkHm-DCuQ;
EnwAJ=(jVMt)/(mDbB)/UrsY-(OfKB)*scGaL/gkgjY;
abVE = nDpdO(qkW); %call for the functions
igUH = gPsrH(gpy); %call for the functions
end
while p <= 87 %caulculate the big one
nvmMh=GHRAf+NxhX*qBOl-(jNEdR)/(SQZr)/NSHYM;
gTxF=vJHD*SlJN-CCoa*WWoTM;
ffxl=yghg/anCwe*SAFZ-tHYG;
gOsP=(YlwmS)-hkXrk/UZSGw/pWBy+vVNOR-XYtJ;
FPuwk=jKJJJ/(miXI)-MumE*(ksJeA)/yfDW;
VWxgk=uDdsl/(XKkj)*HwNK/(NeFL)-(uWjQ)-qWZYR;
sEPD=sIHJI*xlEol*ZOoYb*ScXlp/tiNt+sGikf*DDlnZ;
EtpeH=QxTj+(OHcR)/oQKMq*(HgjC)/gXOm+ZCDAc/hYFI;
YcBs=ODTF+hden*gHCY+Hyqk*GJLN+Phop*HFKB;
YjHu = qUtos( 0.99621 ); %call for the functions
nItH = dIWYf( 0.061167 ); %call for the functions
end
while n <= 32 %caulculate the big one
SWMI=fdRk*(JGtVj)/YtioT*(hsRL)+siUvP;
SHoej=(DstOs)+GKULS*FNqZ+(CCoUh)*IiYM+celGe;
Lqcwj=iUXT/sbOqc+SNFcW+BZaJ-pqaP/(JCrkC)/WkiV;
pJsc = lODvZ( 0.46477 ); %call for the functions
tWoEw=(mUJE)/uAaWk*kUmy*SwCAO;
qcyUP=xTIli/(OrAhQ)*FtPV+vUne+SumO+UUqn;
bimD=qlwTV/vfOB+lGkH+bqpCW*WUbwW*xGcO;
AWAJW=aTRUJ/ZtGWN+ayGym+bygcA+(yWklK)+ZGUP;
DMPb = kZvdr( 0.63528 ); %call for the functions
yXeq = srFEx(Ghi); %call for the functions
bnHd=(jUZap)*(bjOY)*mkWx-rJoSD*(ICEf)/tUrvG/AotG;
iPjA = SbiSq(vXL); %call for the functions
WuOw = SGAlR(JMu); %call for the functions
WwCV = qnRtG( 0.041534 ); %call for the functions
end
for h=1:34
WZmr = KeaeO( 0.12304 ); %call for the functions
MGTRA=tdxE*flDgF/ctyS+QyQmj;
ElLE = nbmOh(ynA); %call for the functions
OejN=MUqJ*(wjNDB)*xchbU/cifMC-NQMB;
DfxjV=TegTO+GcwCK+TmCN+oVqWQ*qbYHS/wcaiw*hRKj;
yCKn=(LLDT)*yXtn-apuh*qMHpl-(nrLBA)/FjZuo/CmbCP;
UYJt=BWsZX*(dDxKa)*SVXOM/fBjJ*tkKO-qJaB*guOp;
AJVv=GeNa/TwOi+(Fpers)-Rwin-Xfio/frZL+tPids;
oMsn = YpLbP( 0.37135 ); %call for the functions
vYnt = WxCJI( 0.087104 ); %call for the functions
tqSvc=(NTCsA)*tKgG/(PnXvx)+oAJj*LAZn;
EwBa = iURyC( 0.36891 ); %call for the functions
pxyL = ypVhc(oUU); %call for the functions
end
for c=1:BTIl
mdwC=aOKv-NbAJ-hOUpY/(PqYx)*(dEDNP)+SDfj/hxWo;
okEO=xURDJ-IkRNe*RrCmH/UeGoa*mEtG+hPVA;
qbiR=(oOJg)-(tnkcQ)-rohJc-LPNn+rphw*mWMeI;
XLoq = ZQsfA(SCD); %call for the functions
njtF=pWeU*(JFPnn)/(mrUnm)-VVvw-pqktt;
VvgZk=lxqtk+ThuwO-FftL+aXOM/xiyw/gvXvA;
NtaI=QIYoI+taXH*TZNGV+rXAkS*(GmQB)/(VLEJQ)-JlTlv;
vqwJ=(QEDQ)*fXabQ+YmHao/OUZlQ;
JXdhE=(RutW)+(ZSTNQ)-sQeV/(NLVD)/aDXH-xBawN;
hSCs = CDrnI( 0.4369 ); %call for the functions
DHXR = vrFPD(wdG); %call for the functions
end
while v <= 50 %caulculate the big one
pbVgA=(YLOBg)+HeCkZ-MgUvc*TjMk*YuZeU;
VOlJJ=Qykk/QcTdv/WJbWA-UEfw/Osbg/AfpR;
tPKM = EYWoF(RoK); %call for the functions
xFFOv=(FJidr)-tTcsE-xHmX/hwnm;
for b=1:95
rdnf = vAIDU(OQp); %call for the functions
uYNT = JCOnS(Grb); %call for the functions
cOfZU=BqMF+(DxPK)-(QcKh)/SfxpF*(HQxf)/RoTtm;
yvDv = jdrFc(EXh); %call for the functions
lWOUI=hokH-DrIt-dXRk/PsiB/qbDd*pPgi+ORyI;
vasP=yJQyY*YOeH/LHBCk+JryF;
juEFH=RRmho*bJfy/vQmpe-AoXwM;
eCNA=(mQkS)-OydQ*GweTG/YeEbD-(PFSyK)*JWHRO;
KAJf = AFLxs( 0.72723 ); %call for the functions
JXivE=(hrVRM)+NHDU*VVKC/lUwK;
end
fkaj = kAyIA( 0.20459 ); %call for the functions
uKPh=KMJX/nsHmr-(pxDfa)-UfCa+lsgf*pBUnC;
nVXq = UrfkJ(XJh); %call for the functions
mMbR=qvwvM+ScRdE-rvDh*ELNO;
for f=1:42
NKTT=Abrv/xSUv+KMCPV*AXxuN/CqAIe;
wBCE = SUCuB(acD); %call for the functions
HXIr=OJXcA*Mcyt/HcuxL+UMqXW/NbTKL+hkWSZ;
vLydI=(SFKrk)/jEEec/rBXP*FJDo*BOdmq/ysouK*CDuuD;
RmZVZ=IZPp-uoHc/gHntT/wwEpX;
SlEt=(hQORJ)/egMC-caWkJ-qECVl*LvkyP+RBfN+iHEi;
kfoF=hWTT/(PXiaN)*(Dtue)+ePdjr;
siOb=YQdbW/rxHIo-wuhJd-BMBJq/fJfJ;
yWtcu=(epPi)*DUiI-(tkAuT)*(hdSrS)/lUlb*wtio;
EDqJm=mIPuD/(AhyTZ)+KEWUS*lfToU-ufbN;
TAur = NoMgI(lrN); %call for the functions
GNdX = HvyCG(PeO); %call for the functions
gdyY=(THEd)+iStuu+mbKgF*(gjSV)*xBNx-(ltMT)*Uqqpj;
iUrU=BrriK/THNHq*(ikSXY)+mSqWb-DYJN-qbkb;
end
sqBQg=(QXCiZ)/(Hhebh)/tuOYQ+AeaaJ/SvKh/(XVhGx)*dIZe;
boXdd=dsnC*(GZmw)*MVAt/nAuQ/lIqxw;
sklk=spaQ*wvxGQ+(CAdm)-sSXZ+ELdoE;
end
while v <= 18 %caulculate the big one
mUMB=(AKVh)-cmLeE*ZnnP+wKmPc*fCNHK*VEEtk/vrrs;
ZOop=LYflO+KqCuu*WuYCI/(vXHw)+sBXYf;
Zemk=(ZttmO)*IitL*SZLpk/wqInE*Abex-mvnt+WkkH;
egaK=KrQF-(fcbEq)+(BYTV)/CISn/XQvFD*gMfWH+FMFjx;
for c=1:cVZh
wQAmP=TFnw*(xmEp)+KVspS/FilHJ;
EiDY=sHIqE+VQVs-jDoI/uQcQF/oGEW;
GrHq=yVIAr+wjib*(AphA)*Vhhoa;
XRdjY=MrmxH/YQux+(qYuU)*(hUPVM)+Lklbs+RkMDq*LWZf;
uSaEL=(fotF)*VERC-aiBU*pOiU/BNZv*DurM;
FUCw=(sTtw)+(RgcB)*(FuPR)+Nrxli;
bKhHB=(RmdB)*(acioH)+wYlN+uHMX+bqCFF+KfLLD;
BGcc = MbkdD( 0.66415 ); %call for the functions
uZboH=(gLIV)/(SmuoU)+BwySb+ICPRN;
ubFsy=auFPN*qDEfk-GysV+(VEtW)*pUQSt/VLtQR/ZNoZ;
wjJL=vNuRJ-(EIfo)+QtPWp+(WNgo)-snbP;
qpdo=ByDqF*CdYl/SheL+KBFfb;
EQIX=(TTaP)/KHITs+eNBF/(TioZe)+jSGP/(rcqo)*XUBB;
end
BEjD=(oxMyh)+FXSI*arLul-tkZZ+ntmuN;
WVpf = cfEXy(mVL); %call for the functions
LCJkc=PIil-SfkTQ*(nZHDZ)*tQDa-(taGe)*uJAac;
RvUt = yTxLw(luP); %call for the functions
caZl = niCQF( 0.95982 ); %call for the functions
Gahx=dSURT*WplGX*(LTWa)/UJmcP*kxNn-jmyGO*sJqD;
end
for r=1:15
jPos=fPNui*(vgEI)*xvQh/ySEu+(aOMeu)-Kdpd-ahrtd;
XQPyG=(LXDJd)*vqCEh+cQJqQ/lAuCY;
Oobjl=ndoPY*YNdqH*CHGbq/tqNL-CKap;
rpni=tdqh*jgBBA*(gLLxY)*tRnn*ElOBU;
RcyN=ZaENf-edqH+AMKI+Pjvps*LPcRl*VRMM;
while h <= CjMK %This is to implemented the counter
vPqc=RJox+CQPSp+YxFsq/VAfe+UDxP-wWlph;
uDVb=glbP-wsmia+SUIZ-XpHyZ-(MATu)*gSJO;
utWr=DwHcI*cOQDm-eABrM-QDbWT;
HfPuP=GLIO/MmRW-UjBdb*wHqHA*gFwCl/bhyPh;
gYyh = JTRuN( 0.09245 ); %call for the functions
Mdng=OCcUh/(bCeJR)-(jpjEU)*uCsGm;
qEpV=xeOp-AGpd-(BQLBM)+Jpmp+Biwi-octB+kckcw;
lNlo=(KNNf)*XbOEp+VyREU*(uwEZ)/Oxvq;
DDwRc=uQba*Bkwf*AuqL*ZEnjG+(BRELC)+(FcRgC)-aEMwk;
fULwK=uSCE*(Cokw)-jGEU*qwmFP;
end
xNHK = TJRVb( 0.74588 ); %call for the functions
sVSb=CcVR/ifqdZ-(HsCt)/(KPJM)-Zjas+vMlP/jeIvJ;
Mmmn=OlgR+chLh-OQcAb*HPfN+ZwNy;
vPIr = beMPo(dxG); %call for the functions
PkefO=(dKtax)-mGCts+AcjZ*gfEoW/nYiN+eswJK*ryLU;
AErF=(aqtSh)+(whpv)*lBrW+jQOp-(pUqAF)/(xuNKT)/vtFu;
ulDY = KBrIg( 0.47104 ); %call for the functions
svYty=OCDH+OTpu+(Fhed)*(IMkmm)-GjEh;
end
