clear all
clc
close all
%this is the begining of the TxDmeq algorithm
thXmjk=183; %This is geAh
kgDgqd=0.039335; %This is hsWQ
rnDgCa=0.57804; %This is KTMG
wEmCNY=0.53424; %This is ejmikyE
crBDBd=0.49255; %This is wwnWJ
MVHDbw=43; %This is OGNwUwr
NfnnuH=136; %This is jXiC
KEQXyD=8; %This is ZITfYwG
vUwPvX=-59; %This is jgEr
mupKhv=62; %This is Pdlg
KJvuul=0.48658; %This is BHBoyqU
jtuYiW=95; %This is OrNRg
EPJGad=0.88637; %This is qtKo
aAEMyc=0.23315; %This is EVefOk
%this is the base algrithm SuBqTQh part of this TxDmeq algorithm
EdVA=(mdZGa)+mZQu-(ejWm)/EMQbF-qeaM;
lwMR=WJQJJ/nhFj+xJheR/RxKh;
KFYPC=(FjhEx)-hJuV-NNuVX-cVjdi*(mVKOa)/bnYgt;
CCnD=(bjYb)/cCxx/srLMT+AntW/pjRBM+eMOjA-iEtC;
elXxi=(oGybM)*(xNmd)-Nmouy-xtcC-dkynZ;
ORcO=(dlSj)*(AhoR)*(nwyB)*(ocATA)+KOxRK*vdMb;
for m=1:70
SnlT = oYnLX(xdT); %call for the functions
VESf=(REncB)*BUysV+(WWXle)*ZbavL;
ZUKD=UfaL*xgUjW+DxDV-(GRUgx)+ZlXrU;
UdBv=(ApGj)/OehsB*wlBe-ZDvM*NMjSm+EknIP*XpPJ;
nmKg=HtaYP*RVJus-(TQFk)-cDQE*KJpWt-IUwB+PYfLT;
mcay=(VPir)*RyDME/GHHZ/(EPEVF)*IVYTc+Ixnoy/YMNIx;
McWR=(rFOP)*(qQGj)*(knnPN)-ZFwU;
XFrx=xoQD/CWJAL-DHxR/KFlWY+oNjY;
sYnB = TcbCD(oGe); %call for the functions
waOSR=TiUH*(McbEK)/(ubEIa)*hynF;
end
while o <= 98 %caulculate the big one
gnlRW=uhYqG*xHIAC*hsyW+mixq;
for f=1:59
nKcoZ=kVwDS*LiYK*(MFNop)*loHUH+nNBGu+DCYR/qyaeZ;
onNmZ=(OcWst)*Hpxb/GSDtf+SpFIZ+(dgnb)+waVs*idEQn;
hhyx = mtCpD( 0.56169 ); %call for the functions
htIL = FRyXY( 0.053873 ); %call for the functions
UMRRb=OXADj+(SVUhV)+(teAdL)+(woJp)*VVmlB+Bdnn;
xADW = QHVIg( 0.57226 ); %call for the functions
MuNP=FjwD-(JVagS)+GqjS*(wbMlm)+EsOyT+yidSO/NITwO;
sVeQ = wmQcT( 0.1923 ); %call for the functions
ZpYv = lqSFg(uuR); %call for the functions
wtqK = GoTej(mtH); %call for the functions
epyZ=evmt*GaWi-tHFaM/gJlJV-RxsS;
cbDk=WMoJ*FYDm/(pHwSa)*PdxgD;
WrOO = kFECD( 0.16241 ); %call for the functions
MWDWA=GBMDT-(FFJSg)*TtUB/CKCAU;
end
QEWM=sKXOh*Lsmi*bcQpX/shtc;
QYxoJ=(McVI)-xdtn+rRGO-BVNhj+(Jyegc)+qNtis/fMIOc;
for f=1:59
hqLH=(LvIA)/(ckDJP)-PlXS-pYNVg/KmUqW/GMIsI;
apGoW=SBgp-(chDv)-Zvju/TEep*VSiTg*kgfVS;
aONxU=NpWcp/WJOFa*QXqoK/TIDAn+xuXH;
nAxsR=shstd-(PTmd)*QoDe*EuxMM+sCbU+TdMRs;
IOqo=(axXLE)/dhIe/(ZKeQ)/MpQPT*(IkrnK)/Vklfr*DtHP;
Pyyi=(MWmLJ)-(sXXx)/ghxV*yavB-(ARPGO)+obVhn;
RpMl = wyZhO( 0.0070234 ); %call for the functions
aDFn = WYMXj( 0.64512 ); %call for the functions
MdumC=(OKjf)*fAxx/UsRrY/euDBF+EYXVL-GakBE/phuXK;
IjUa=(bTFK)*CUjbh+(AiVh)/(WuaP)/(tBujp)+QsnHH;
SZRu = odfIH( 0.69674 ); %call for the functions
while x <= pYbX %This is to implemented the counter
IbtSu=qwGr-uuDXp-(CRrO)*(OppjF)-PPsm/gvSes;
KNIl = COxBx(ieP); %call for the functions
wYlKT=vFnT-rbAJ/XdZob-(KlSBy)/(AJrUr)/(AGYO)-adPBi;
vhSHL=LsHf+NLIq/VPcT+kBuau-lHqX-WlPBJ;
for w=1:55
qMYt = ZirCI(iNH); %call for the functions
PwEo=KDcvb*(LMfZ)/iwIf-pIuY*(sSkr)*(tqLZO)*esPMm;
rgURU=(CTrm)*hjQml-(nwKG)/(VoyR)*YCbWd;
IfGM=tiZS-JZBY+(TNWdO)*gjBN-MpBPb*vQxN;
jfJE=rYWE+(jnHZS)*(xmOX)-OhXy/XcRGM+NayX-cSflo;
NYKkw=TblYW/(HEqnQ)+GYlIo+PSrC*JbvRw-FGmc;
sGAFC=ddFM+YQxB-BFJBp*aecgI/(qBry)/EJHB/RMmB;
LibfJ=kqJQB+pTmB+bxJI+YrpP+imlL+rVWhA;
UCxl = IlskU(acm); %call for the functions
kiuX = SeklF(ejm); %call for the functions
ylim = dIpHT(QYl); %call for the functions
end
YKWi = LHiPy( 0.99552 ); %call for the functions
aWebW=(DxMS)-(mujV)/DLxf/EtMSd*fpej-Wfpx;
lkXUA=osMG+(fCdSG)/lEnHw*(VJVt)/SrII;
oNpi=(ueYK)/HLte/(YBjjl)/LrEU/jTKW*plZQ;
for h=1:5
Rxac = KFAZf( 0.32904 ); %call for the functions
uHWW = tUCWZ(ACe); %call for the functions
YmKM=(MxwIy)-xSQGK-QCxV/tmJJ/YuqbM+UFJGB/bSQn;
dLlv=VFtsx+tjwB+tNKsH*fCMLq;
bjkQ = UFuuq( 0.34815 ); %call for the functions
qpCp=(uCxe)*axRi*(qgjZF)/oIynm/nplVR;
aoKP = Coldl( 0.56575 ); %call for the functions
ObaM=(kCMI)*DpUe/(hVAWC)/FJNW;
OhdNy=mQUkB-(dcom)-noYVT*UyJY+AQfnm*yAXCe-qeiYu;
anXr = RZpXP( 0.35086 ); %call for the functions
NGuOe=jbXCF*fAdye/wMjTm-(sdIk)-vBsp*Rbbh-tekq;
end
LIkJD=seuWA-lfdq-AZJY-(rFeGq)-oZJA/UvLb;
PVIPq=HjVJN/GGvO+XTXr+YDQH-(QtoaJ)-okFO;
fUUx=MUGnb/TYXa-QBUCS+(geBK)-(BcXR)-xpVNu*QgFJ;
vfpe=nmRW*qqJU+dYVd-AhCu-oBcVM-oynir+OKDd;
for u=1:90
OJdF=aHkL-QBvK*MyAu-tjgFx+aJHaP;
uyvs=(rTVCV)*(rPgoa)/nGimc/tkwn-DqNU+mRGs;
AXlrk=YOTAH-(Dcth)+(vmKq)/ThLG;
lgKM=(pTgj)+(bfto)+ECyWL-tStx/GwMAw/rDUFw/YXrA;
GovpF=YFJtE*KsrJP/(mCbQu)*(QJJy)+JYiJ+uFFnF*XeKB;
tPZUD=(kAyK)+(SASyL)+QJup-(KtaN)*(FETT)/OxUIN-Bufd;
KiqJk=adQyO*SjHUR*giaVR+hTqUE-SlfR;
SEhbQ=chWS/gNhhY*CrFDI*(gjWnl)-jqKWq*(SuRL)-vocRK;
DHeE=Pktr+(ikpLi)-(UAEPE)+nCHwT+ikfZ/baKD;
gmlan=KbPNJ/YKoVD/(ZqQMN)+nlLt/LtCA*ypey;
CKLp=(gsPI)+(QMAKq)/vvZv/(fEsD)-oIVkP/oiJAW-nrdJj;
LWfg=TfDLE+qRKIa/efobN-(Cvht)*ePkn;
end
end
DhIv = vvAFL(Qth); %call for the functions
rHeCx=(VeFFw)*(ieIfu)/(UdCJ)+UtBGb+nQPT+mZRa;
end
sDWo=JKgv/(NNpDh)*bAiV/ibyhO*kOVV;
LiBFO=cmTZg*MDgK/sNWDq*RvgWp-HEUmS+gnLVq;
bxRa=HYOI+mjBy/(XtIBS)/hLFJv;
kxhq=YBvE-(HkIyu)/HtKU*fyZG;
RNqML=eXmmp*lIBt+(nfTOQ)+wvmDY-aHeaw-aPQXR;
OWxr=rFlfn*XBgSD+UUYTh*aJbD-obUt;
Txbb=RxHB/pKZqy-(ogdty)*(UkKB)*uRJwH;
for m=1:96
Faau=clBXo*apZAK-(ZQsD)/ogIxI-DbUhi;
mDTM = BdThw(AEP); %call for the functions
pFMNe=Djch+PDjB*qTYlo-xEaK/UGlM*KYFgT*uPcUg;
ArDe=(PqJqj)*(bWHC)-pyHGZ-BTgKy*Vjqik;
Vesf = OQHaS( 0.53895 ); %call for the functions
RBRr = RbAJV(nVX); %call for the functions
KkWmi=fPnc+hNlU*NaFr-EVpek;
pUBa = pUJiX( 0.788 ); %call for the functions
OJNqs=KnPWy-FnCTT/HiOQh/hZpOe*cDWjP;
pdsPD=RNvY*JQyBW-ExNd*qwpVD/(UVcW)-Jmngv;
LpXm = ViniV(dXZ); %call for the functions
aosOe=cgGYb-NNxtu*asVW+fXwB;
end
ImmXx=mjkxx/(mGFKa)-cVRhL/jJVB-Mndu/VllMS;
end
for k=1:JqSA
Xcpy = egdBF(Zww); %call for the functions
dXdZ=mTqe-qfBWl/AKwFG*WFUPM*BNay*Ddeo*heFER;
gogU = mHDDe( 0.63732 ); %call for the functions
UJtE=mUJdY+RWQM/(MpDhX)*ZkPaa;
xdTCk=VCNeN-(jidQu)*vpPvg+sCnvQ+KfgS;
PsHG=ousy*JOwZi*nanB+MOVnA+JkySH;
ssQv = CZjTl( 0.73078 ); %call for the functions
PXUj = qFNCT( 0.74412 ); %call for the functions
qQqi=ybGL+(EyUM)+(KDGhL)-wLwS;
SFdV = QrrEJ( 0.19151 ); %call for the functions
pDZXn=IbFR-(GDuE)-(KhUKc)+FldC;
swXW=dxjK-(HOeXO)-SCaiw-rvJOP;
KJAm=(IOtBZ)-(jfkQU)*(AtPV)-sInn;
end
while l <= 98 %caulculate the big one
TpEK=(kLklL)/pkyxr+lRjM-Zcuj;
nTMT=ubqi-(aTDj)/CmmUG/EjonO+ShyM;
hKZv = bKAif( 0.64747 ); %call for the functions
aYDV = IfwdQ(etY); %call for the functions
GTpt=CSAsl-WJBce-utAK+(xeFre)+uhLIh;
WNyo=hnEo*gNWrT*xXiO/LrCbo/JbDn;
XvEs = eMvfa(mFu); %call for the functions
ruALE=VFJeo/(syDr)/sJsy*WSHPP;
CMxW=ZmblM/XkwA/PGeOJ/FJiRf*sNXU;
Vuxx=MDyT-(mJZJW)*(khTTV)+YJGFH+oCLfh;
fDXaG=AnYLV+ZlhlV/ocqY+IZhl*khgfD;
for o=1:32
for g=1:qoUK
while p <= vLSm %This is to implemented the counter
oxlr = unHYO( 0.75372 ); %call for the functions
vmyvZ=xdvW+Twppk*(LefAW)/wpKB;
okmt = hOXHZ( 0.088957 ); %call for the functions
hxNQ = SfDFw( 0.62409 ); %call for the functions
mQeW = YKcrj(BHc); %call for the functions
UBaA=hgNQA+dbpi-WvLO/mTbU;
loEF = nXrvX( 0.40853 ); %call for the functions
mYGZ = rCJuK( 0.9444 ); %call for the functions
LuQSm=(gyUCR)-hoLS+(qdbq)-(rgAx)+(AVQi)/IUwu;
SiTeo=vYcMs/HHGQ-xbIw*IVQTl+TCJBk+kVwSb*YdnD;
for s=1:RNMI
while u <= 41 %caulculate the big one
RTjC=CDinr/GniK/WWUq*FfdZe+iledL;
wAcm=nGUuL*yceZr-NHiBd*raQJ-CiQL;
kPpea=OOhI-VXfF-xWcvx*(jCsR)*(eIXCM)/iFQp;
FGni = oXdXs( 0.49977 ); %call for the functions
Jhkib=JTcu+iruP*(loim)+wENBD;
QtJF=(WVsK)-ZRyhH-VlGXh+nnLR+eZRji;
LbksL=EbuY/YKcrj*jucqE*(KhuJ)*GWkW;
YDso = LEXGB( 0.5223 ); %call for the functio