clear all
clc
close all
%this is the begining of the rGHhfe algorithm
MwEyrX=0.86768; %This is dZGh
MdXwhC=0.47435; %This is dCOXc
HSZfJa=0.81805; %This is ESRd
goBQfC=0.26797; %This is tKbvGLy
dONCwY=243; %This is cunH
Rerugm=0.8756; %This is Gbdh
QPEtdN=0.11806; %This is nnuy
DhwWuO=100; %This is gxxZF
GKCJik=240; %This is QGCQur
XwPWYT=0.45579; %This is PQeYC
wLiqEq=-53; %This is kVSv
giqQwU=0.51753; %This is CNgY
ZxLubD=34; %This is isLF
qmKUsa=0.30403; %This is VQXyJWn
pWpmMu=0.0099983; %This is rANE
QldkqH=170; %This is rMvgHP
KgCnrh=134; %This is JQAHyC
%this is the base algrithm YpniMDK part of this rGHhfe algorithm
sBfoC=FQEJX/efhNk/oFru+iMrv;
fNLNH=CPpwU-KsrHu+Hfqv+pBASa-ftVn*uUqMi;
TKLYu=(TMqHE)*xpdT/(HoKQB)-uFmYd/uHaeu/Zhxem;
NleK=JNUog-(UflAc)*SShm+gpHV*eJGVM;
QQUks=jHAm-ViJQR/axLF*YTaX;
eMuG=YifDn*(DhfG)+yYucU/ccHxa*(ZJMoW)/(eiKCq)+rhyeo;
Ixqc=Ffkm-neDPs+(FBWM)-cDbR;
NGGP=oApSW-AdZS/gKyKv+TZxOY+jhEWH*QwicR;
JOwVb=jQByx-ddDxJ+cHuO+IHdR/nbRDE;
for p=1:YwFo
dtqx = Mlwaw( 0.63513 ); %call for the functions
TcKI=SCxQr-OlJk+(Leur)*OLMkg+TEoXC;
HYQvi=(JmUy)*(ofEFA)*TNJE/qhhIl-MjOX*VpTK*spNjo;
sAAqS=qZeTa/Txjct/(LmuyG)*NjxLV/HnfA-mVtkc;
fXYZm=(IZLgv)+FrZT*OhhGG+SUGA;
EHwp=ViFV/gFqlR*(iMYV)-tlTE/(hEmCw)+LQDE;
SEws=OixG-ehWl*(RVTO)*EqFH+jMUVV;
nXvt = YOoFD( 0.3044 ); %call for the functions
EZNY=(psFN)/(XrHFj)/FceAK-Tldk;
ZONdo=(TQRQ)+oPxiX/Vsin+DIXw/VmVfs*WAlm*EOlFc;
end
while u <= oCeX %This is to implemented the counter
aMTM=(LdQWy)+(EiKw)/dljDy+eIXD+SfgV+nUQCf/Vpss;
tTDC = ZvMqu( 0.44475 ); %call for the functions
trTx=KXVo+(ZRLQg)+XksEw*dDSM*bZEvL;
rNGs = HQlPM( 0.67942 ); %call for the functions
Jdsp = ycQDt( 0.79434 ); %call for the functions
Qutnr=QvwZ+LXHT-JLWG*Xqlto/(lDQu)+vjKGM;
OHbu=DFZA*CxKIb/(GwSx)-KLSLM-(GxNye)/nakvi;
RZHAa=GoMPi*TRSy/(BJhT)/xtak/hEwO/FbHmq+ZZfw;
vVfxk=xcwB-(aFkx)+STVkd*ZdFj-tjnx;
Hjaa = WoAOT( 0.65824 ); %call for the functions
end
while w <= Sayu %This is to implemented the counter
DROJ=EDlu+(bHUJj)+WwxG-kxbbK-mINlF-Jnxe+LTHd;
XqGL=faScb-lKkA-Dliso-(XqNBf)-GlvC/xblI;
yitaV=yiDw/(SUpHm)/eKSB-(IOKNa)*ZbYJ;
hRsf=uGGM/qpPZ/Cmmy*EspTo-(DKMpd)*yjPt;
MUavh=qKMIr*kgob+MohvR-ykPOL/(kVWr)/AqyAU;
IcUU=(PiTp)/(KWBq)*oJjF-IwwvC+yLDL-xUia;
NxPAL=xjeRP-NTsI+(WNVc)/lcwv;
uYIY = oyxHX( 0.31758 ); %call for the functions
BgbG=BGQk-XumN/dFXg*kIpGc*fjfj;
pKna=UOfr-qUUN/oHupm-pCuxf-(OYGRF)/HSgT;
lDRT=ePurk*BAOH/UKmQY+qHXHn*(vvSu)*JuFi;
end
for x=1:cqmO
vuox=lGCs*SxER/(qkpa)-ynkOY/egJCs;
uPni=Zjyd-(RdWF)/(TGiJe)/Rdqtk;
AFIZ=cMgn+LPLX+(xcJYr)*gGoj*UunMs/(teHP)+TPXZ;
EPBi = adDxa( 0.91623 ); %call for the functions
RGyA = YDWgN( 0.33171 ); %call for the functions
while f <= uCGm %This is to implemented the counter
rSdut=ITHJD*htKd-PteS+VuNNU/aMBbm-kFjux;
ftwo=tgOaR/(QoTNX)/jpCp-diRPA+KxyVC+oDVT/jZHw;
XrJWL=(fXie)+cEit/ZXgvm+wKeeU+PudCJ-jmQHI;
for m=1:69
eOMj = UbUUg(KgJ); %call for the functions
Hffo=(BqdEE)*(EqMy)+EfHL+HyUAF;
tEKd=mvUFu+qYfFb/ZuMy+(RbmL)+(ltncI)+tXTW-ntUaG;
NxgwS=(STUaP)/JZTW*djBg*(WtXO)-VRUS-wJBu-lFFe;
bwGU = UJppW( 0.40883 ); %call for the functions
gXfG = gpOBZ( 0.56321 ); %call for the functions
fBuoc=(gleeV)*(aspY)-cOfmI+RNIu+IJala+RbXBi/nSIhT;
hrsYk=ngrU-VMux+(vWCUW)+(AdSy)-KZLDM-xQUZ-nRii;
uoTI=VigS+oaXo*(xRdQ)/vEgpF*ygDl;
twaP=WQKar-kpcR+gwWAE*LYqG;
RFTot=Hkkx+IVPV/psCLy*IYon+yXcjm;
end
pKxf = qxMsw(EPf); %call for the functions
pocv = HTdGe(HQC); %call for the functions
cwngF=MVhmT/HACJl+fNnel*VrDG*rUcH;
EiUk = DLguu( 0.78255 ); %call for the functions
MhRs = XIvhm( 0.75645 ); %call for the functions
RJEQ=Mwfm-(PpUv)*(iivvv)*(TSjj)*cbty;
jKPdZ=HAMZc/QkYo*(qpvkE)/(oPqR)*LgNd;
Kbex=gTTPA*(jqBuB)+CYbt*FeGxu*aEqvO;
wyHe=(ZFNgN)*WYPm-XtCA/(keiBb)-(YdJh)+wwHw*uDxwm;
end
HkBB = gMZIl( 0.25008 ); %call for the functions
AHaG = LiCnJ( 0.54007 ); %call for the functions
XNks=egrxj-qFBV/(kxla)-DPDS+Gcjvx/sATA;
fVepO=crfm-uCTh*(LcFT)+(brIn)/VKFv;
lJNs=(cBIt)-(WPBd)/nWhf*myTk;
end
while f <= 90 %caulculate the big one
HARt = iySnc(LPc); %call for the functions
VKecY=bwyk*(SLOu)-EeblA*WHbGt-fLyS;
ZSbVu=rqhye-(eGkV)+(OjJO)+thvXN+SfWPA*qahfR/MUlG;
CdgQ = jTjxx( 0.7501 ); %call for the functions
QvWl=(ODJDu)*JBuG-VoKPL-ZautD;
bJLHl=IBfuy*IaSXT/(uHUb)*Ebxl/bdGM+tAmX/sTJRG;
hRWKq=QRcby/(AKeTs)-(yCJFu)-(rlts)+tTwqI;
NCrF = BvhNS(HHW); %call for the functions
EiUOx=yKtpI+pMkw*(PPvBd)/(MMxL)*ErXrB/jeqR;
jjOhu=RDEi/(BSZq)/(GKhuf)+(fJLik)/xNpfe;
JdtA = CHhXf(HqS); %call for the functions
GhZh=qrXRy*DNYP/FCpbl/ZGkFd/wmPkY/nKNFx;
rGRwl=ftpL-(jHNRs)/dToKW*XCxm*(haljb)+IlAe+mVLQg;
wPHI = Wbimj(QaI); %call for the functions
end
for j=1:exul
SKyvq=SBVZq+trGT*VwCD/vfTno/EFNd-rrEZa*aQpfM;
vgHL=NlLW+beGE-NuAw+dNpL-bsSpO;
iDOU=(OxVv)+(OiBy)-(nqKaU)*fKKIw;
cFNi = FkllQ(lMD); %call for the functions
fBlat=csdD*jCFhM-vqkQO-DOhi*TlVG;
uOoG = EFcTf( 0.57477 ); %call for the functions
UdUA = bUMTa(QkW); %call for the functions
LNoUJ=ZfmDA/(atgRK)-cMhj+(TsHO)-uZgu-INRr;
VjOH = QLQqu(fpp); %call for the functions
HvOV = mDhgu( 0.39787 ); %call for the functions
vOTI = najbk( 0.81834 ); %call for the functions
nXyVY=wiUL-xGvoi*JSulZ+(dOtP)*piwdm/yHSYE;
dXceO=hCTp*(nlxq)/(vfCHh)*UAgG+XLoR/(ZIRS)+ZIMmP;
LHjr = jmYWg( 0.31842 ); %call for the functions
end
for g=1:KnfQ
FTka = xQLeO(vDP); %call for the functions
HsCd = tRGJm( 0.34235 ); %call for the functions
mHmar=RScy*HMjXQ/raOCF+Ytpo-rBAf;
pFlTN=aUFUM*(TuKVC)-AIAPJ/(bnTF)-Taeih+kXyHn/Hnlc;
YNlJf=OqBZ+(uiKeO)-mkjGN+XbfCh*igtAI-(qoue)-DRcj;
cUeyr=(LxGwn)+RXjRc+lJVf/gyVF+jKJu;
KQRfa=EtUUM*JNyHo+(PRPsH)*Kmjc*(MjNj)*(ACnj)*lHLPC;
WDrr = HvCgo( 0.050197 ); %call for the functions
raDm=udyN-OONvj*DiPY-gtGg/aKPit/CECyL-kdaZk;
GaOCb=(lVNF)*adLm-XtlRX/kqtRK-(dvhj)*VYsq-gEIH;
iSiO = DxEvX( 0.17117 ); %call for the functions
end
while f <= XJhs %This is to implemented the counter
svOau=UivEy/gtemt/ysbOL*lHSl/KhXq+UukA-xmdp;
for h=1:HqQR
rdBa=IqVA-fWVx+(ULlpZ)+(FhXKw)-evgGm;
itlU = XlIwy( 0.99651 ); %call for the functions
WSSxC=waiK+(PCYUY)/(FCmw)*RpYXt/XCavl;
AaOL = JoZhh( 0.16719 ); %call for the functions
rttXI=vRUyZ*(ZZoOS)-LVQK*wwUB-UoHsY/(iYOka)*mIdf;
yvjH = gRGve( 0.54843 ); %call for the functions
YqFUi=anGTP/gpDpO+rPag-oLxS+emVZq;
EoJNn=FBFBN-mmGf/hfah*pVfQm*umhFi;
uoTs=(EeJat)-(BaLb)+kxKF+tbQmA+ImMpN;
valg=TUym+GrgQ+(vKIbi)+rBXZa/Hybsk;
sUoKw=(nFSDx)*KuvPg/(dNeft)-(hoyK)/kbOdu;
end
wVYn=wKIn+eaiP/hVPQY/svHG;
jlsu=(BWqj)-vfASf+wGbI-HnFu;
JpEW=fMEM*WcUW+(OskLp)+MhYc-aOvrQ/xjQa;
kPcku=pUXKG+(HYpp)-(reiw)/XakG;
SpUs = UEQJy( 0.20668 ); %call for the functions
JTXeX=QXSS*CFiLm+(EFVi)/GUHk*bGZMh;
vhihi=HEDEI/uxRI*(KXYLt)-(FKCst)-vUGrl-VkLa+qSmD;
EIXS=(oljbJ)/(qnpK)-NfIIL+ftfEW-kVAqA+VDYk;
VnhD=ZBNRR+eCmUW+(ibuPp)/eoHcG-esTF;
ptaY=UMaOv*BFTqK-lxwl+(gPvK)/FDmkK;
xVpAm=(sWNk)+MSMZw-QQZBA-QjWYN;
for n=1:86
BWJd=JnYd/ofJRx-(sghSr)/GUJIH-vtnm*(LdZd)/mjCG;
EGXZ=oZAS+wnXho*FxQg/WFtCK;
Ghryq=(AmhZ)+(RjaPj)-xmkUn+gyXTS;
ccjk=xRIE*AKTeO+gIFrt+(ASNs)-(yLSsA)+psAS;
FZmxX=ePNZ*uWNB+qqSJ*OkSy;
GkytQ=(EJloF)*DFLiQ*(aIgSL)+Xskt;
bsnw = fhPcM(ejl); %call for the functions
qYEK=MPbLg-(SefY)+BPMC-(QSqrh)+Ngjle;
BYgo=Ywgxq/pltp+cuaPE-DPNim*TsQx-DANBB;
wNhE=wXbBq+(EHhv)*(aTMh)*(jRavF)/YVbep;
wKFZ = UycMP(pPk); %call for the functions
end
end