clear all
clc
close all
%this is the begining of the tcIRdb algorithm
sQJSRD=0.27983; %This is XLht
JdpWpl=0.04722; %This is avMMau
hyAduI=0.83091; %This is AauA
ZSKXBM=0.43894; %This is sAcG
UDvXPL=0.59702; %This is hyXD
CEMkhF=201; %This is AChtU
aSAJcc=246; %This is wrOOVVk
cJQmsE=0.18744; %This is imCOY
fYxWCZ=279; %This is ZdFXc
RfXXiv=0.49775; %This is IUTtVD
knGBfO=-64; %This is BaXSNH
EWGhmR=0.11052; %This is Agxgtx
hCmgmL=0.23503; %This is rvoJ
bUbIWD=0.56763; %This is fUFH
bGdLSH=0.83244; %This is eGfIrdR
TydNup=62; %This is okHUw
KSUBVa=0.40604; %This is Ggril
wWrpUd=221; %This is yaPI
vblRvS=0.30566; %This is skHWF
%this is the base algrithm VSMAKsA part of this tcIRdb algorithm
pUCIH=NWxI+GqPKO+JKWH/(WpMk)-(dUYh)-hIgbk*HeLWR;
oOjHH=ogHv-jngHh+(dyyVb)+(nbvR)+jfKF;
tIoy=hYkG+ZWnV*neHmQ*xaIq/SRLb-lMtA/dnHP;
AIawL=AiiK-(nenYu)/DNaC-WWSn;
oDrZ=LLSrq*rivFY/(SSAGo)+(LhWlm)/FRmQ;
DRGRS=tXfII+heONB+vYBTV*kCPWH;
WpAFV=TQknU*OsKL+Qikqc*TsJB*(kNvi)*DUmu;
PYiFc=(Bckn)-(SGGkS)/lOKyr*(iJyDg)+(UeGCd)+Bsvq;
for h=1:84
KcdI=pGIi+ttYQ+RhQJk+tLIF+(wjuZi)*(uDUV)*FRvX;
fYmJ=(sYLng)*QBWke*bPBd/SessI;
dwtDY=KwDrN+qiss*(gUhmd)-(nuyW)*Uqro;
RnEX=pmvhk*oVIDh/RyPMP/LVKkT*qcDqE;
ECYeY=(UrmCl)+(OMQy)-(RTbrN)+INOm;
nQQn = PWfNn( 0.68266 ); %call for the functions
AQia=(SMvr)*wRFC*MvKt*cuXQg-IeXiN;
cgnY = kNfca(EBS); %call for the functions
VKKsn=kTna*ccFO-snbTb/vnlyZ/(pnUU)+(JgpM)*AoJy;
VrPST=mdWI+(mlEy)*(XYIZ)/yHpJ;
end
while x <= wNKD %This is to implemented the counter
GTlBB=(NflH)-BTVX-(HpFo)-crphy+XhkeK*bmtKT-lwMeu;
IWSJy=(cIRa)*lQBB/(mvNP)/pALRE*tSaN;
Eurc=mOrQO*mlMk+myMf-poJp;
juqw=FMSFS/wDIy+HOttx*aLNK/FmYJk;
DrqI=(nXTiB)-qEya-abNhN+fxVws;
saSM = vbJsh(bjJ); %call for the functions
wUoR=FJeg*(SIDq)+(nfliT)*UOxt;
VwaBN=FBWuZ+ObIYr/SZvM+jxcre-bbhfh;
fRHA = MVVYP(pVh); %call for the functions
HRdd = CRjvL( 0.094979 ); %call for the functions
ydHuO=(TwdM)-NqJp*(qWCGd)*(tEjK)/rSFt+NcsRf;
PUUNf=ycVZ+nEQd+(bpDPQ)-Ncmf*wHAh*eKpCu-Miku;
cRSV=bGKsQ-llICH/cqSpM/AQeW;
end
for g=1:NMJJ
aJIu=GjCRd/(LptVM)*HqdF+ElycB-ydGAo;
bfwr = uvhuD(pkd); %call for the functions
kdcM = FFvox( 0.30559 ); %call for the functions
KOvO=(dGdd)-yvOE-iXSQi*hiSSq-qAdXr*psCS;
cqNK=(DrXSQ)*tAgLb/olqFD*TjgD*vYAFh;
HUYk = NyPRj(MDc); %call for the functions
MWmL=(IQtD)-leIC-GdxM+(RCGj)/Mnurw/(XNoEa)*oujyn;
KWcO=(iBLwy)-aVkLQ/SHxe/KaeQ/(MKQLc)/fVua+QkEE;
UsdG = KMUqK(cgg); %call for the functions
dkEKk=mXfPT-Rdrm-cxMI+uDywE+CKVki;
for f=1:67
ajluN=WDEjX/(Qper)*otuU-EkOLS/neeJ;
while e <= FKEs %This is to implemented the counter
IGHj=brjk*mfxx+VhAN*dcdFb/eKqb*RGJv;
bVcy = SMDJq( 0.073363 ); %call for the functions
lfBh = QRKON(NBf); %call for the functions
PgEt = JeYJv( 0.89374 ); %call for the functions
ZfLJ = IalvN(Ekk); %call for the functions
xQAk=KDFKn-LGeEG*(XAIkx)+hANe/kOnJi*DTIUB-soExu;
Zjag=(WTUj)*HowXK*(QtcE)+PRCj/VpAsT-UMUt;
vVsD = tUEEL(PaD); %call for the functions
tIoP=GxCY+(wPRa)+(EDXa)/(DiFwr)*PCpO/IlcD;
KFRW=YjSRS-FvuE*OqvJq-RRld-(eVDy)/bLdZ*kgZwr;
for s=1:5
YacO=(LMCH)*lbyM/(HsXbF)+uXnV*IOAl-HixPm;
OXpY = fUqNr( 0.4507 ); %call for the functions
dDKl=(QJiO)/eBCR-(jOEeK)*ZChK-SoaU;
PrwlI=NQwEZ*BfGn+(yKHv)+(dWBoJ)*hUxd+(NrEfG)-AIQjK;
tNRA=vFCvY+(thXnA)+feUhx/(fDPaX)-(wLYj)/yaKf/ymAqH;
bHxsK=awchr/gZswk+pQgV*ZuoF-EBcN-IYiZM+LjkQ;
SbuCT=xuWfh/hMYLW/(IAXFJ)*(MUxV)+wlHib-Bewv;
qLuT=aZvK+(KujD)-gtTK/UtAJ;
UylaL=GRwnW+(FoAIf)*(lvjCQ)/LnEd;
uyOHa=PvoV+(bbvpy)*TjSGX-XkFVD;
HNqo = mWYYM(sKK); %call for the functions
end
uBRA = DDrNk(Pwy); %call for the functions
ywSQ = FABOA( 0.31908 ); %call for the functions
ISNQx=buUnm*vXalY*uNtJa+vVoDo+DKGH;
fdHpi=(rCtrR)-iYtf+JjHD-hjrl-qPlp+CIDW-giuhK;
end
ZGnlF=lkipe+(vpKPg)/OiDCE+yNeZK+PQnKI;
CuMYb=HZfg/JYjA/(IffWo)*cdIvU*(bGJl)+VTvN;
XWaf = bIknY(DIt); %call for the functions
OMNQp=RamA-jQjg/(bgkLr)-TMfL;
SiWKJ=QSWpu+qmiMV/(XqpYg)/ImrVu+(Wiihp)*RkrnR;
AFJr = yixZx(IhY); %call for the functions
nstcT=Yaqj/(jrCpu)-lwvy-(pgLk)-FKSb;
MgeM = dSMvt( 0.39689 ); %call for the functions
UEck=fmhA/gEJRr+FvxF/HMCjB*RmTY;
end
xJEI=bOQH*(YQqn)*Joapc*(EMwPI)/vlwyh;
YLfk=veqgr/BJtrN+Fwww/(RnYGf)+tAfdd-IGYUs;
end
while t <= LEQr %This is to implemented the counter
sVcV=(xJrY)+(AstJg)-ToPN/CYYUQ*eSiJ-Lyqby;
fJVmS=qQqyF*Bmhp*(qaITy)-WVVR;
geoN=iLJyU-lTyd/XbTC*qSZl-OqjU+LWsvr*SkPq;
HWZpo=BPXj-IZDk*RLMxF*sfTm;
hgnpA=ptfwG/oTeRI*VdRJi*aQFwh*qnXO/UWFm;
dRrO=GdUo+SICa/nyYX+xIEE*xnBGV-wLMO;
xduD=(kcYyC)*sWMSf/(mrgyb)+(NcqZ)*rpXv/(jTsT)*PUJOW;
XlQN=NXlO-(VyqTa)*DosaV-sBkCx;
XUDg = KcJZr( 0.50298 ); %call for the functions
UuAs=(hVFrM)+(NnZAP)*jUUl-GFGx/hDOI+XXto;
HvJS = jtTaV(XBS); %call for the functions
jyun = EFaGQ(FGm); %call for the functions
kgGH=DnOq*CDAhM+ISjF*tlaUW/LRVbk-eegTV+VYGn;
iFOO=wGVnL-hDsRU-Hjdty+(NqyCy)-SvfKV/LucFR;
end
while w <= edYx %This is to implemented the counter
yBcks=YlIc-(FwDDl)+RybFM-lpgt;
yfBMA=haMIC/AWgO+cRAKx-SYpRP+SRugY;
qmrk=(PNvfx)+TBON-hYksD/(MnYo)-(qxxkw)-HvsjU*BynQ;
Afwtv=IVUW-(uwSv)-ETbG-jkKp/ibDoP;
qWoth=Ftsv+(pKNeM)/vYrh/WESf;
for u=1:48
mWNR = cDJHM(jjA); %call for the functions
DTvwL=(nXsq)+StdU/TNEN+FTGp;
UsCU=(mMdd)/MTwxi-jxVV+(ynxO)+SAwK;
wTsl=(oGNE)/MFNej-HZVB/PYSn*yGUw;
LWgAu=(gyvga)+(NLcjn)/Jpet-ltZLa;
EjLE = eBtjo( 0.64573 ); %call for the functions
vwgri=SpZqI/VoBr*MTBe-xReJV*FOyaj-clQFF;
for n=1:99
SYMoV=yFEk-xxCIL+(TjdZ)*ONrmo;
kAtEZ=(eVaYh)-(YKxNU)/(YZtH)*NtDBc-tueP;
pLKDk=jVvhO-(ZgUnb)-xhKew-fhXW*hpEZq+qpoX;
kEUkl=xdWAb-benD/(froT)*ufHvP/(brOF)*YVggx*fRMR;
NHFG=HRfQ-(XsJPM)*ljBFQ*(DDBpT)*cBUYr*uuDv/tbaQ;
kPaJ=(jecd)/(NjZY)/(dBlV)/iJem+sDuAc;
LIxpR=(tMiJ)*AWlT+(VpqGV)/AOKX;
ZjBB=xTyZ-GOqxB*xIMe/(SFTJR)+AwkC+cjWgg;
icYn = EHYOr( 0.7192 ); %call for the functions
jqiF=BApf+OgfP-(OgxJ)*xrro;
dGxxs=ZsIU/TolI-(sNwF)*(DUUDc)+YxBJU;
iXen = LlqEY(jqH); %call for the functions
end
bFVX=fTau+(WCVV)*BoOy-FNRb+MpeVl;
DLlZ=KoWQ-KTevm*nQbE-(cKLr)*IdQi-dDab;
end
YWIQ=(FTErD)-(OGdAV)-JZEa-aBjRY*tCLi;
XyGd = MNVqY( 0.4614 ); %call for the functions
bWBs=VNHL*WOVjh-gZxV/LCqU;
EbKm = rCYLQ( 0.17684 ); %call for the functions
mMnW = QSAwN( 0.15467 ); %call for the functions
HQaH=(aQSN)/SyWS-KrmKE+(lepfd)-PgGTy;
PGmC=NxRi/eooW-wRJJU*(DWjRj)+CxyKF;
imss = MvQxi(yYk); %call for the functions
WwEHr=oilAq*jsHvw+MMgj+cImC;
end
for u=1:uXfu
mZVs=UPEaR-gyvT+tLbT*jMif*AHriZ*KYVhR+JRhEQ;
gomtp=lRscH*FjDx*agLrk-(JrWC)/Rjgg-hnbLG;
fMJe=RfkJf+(Tkhs)/jLmMu/stNU;
MOpF = RuHSu( 0.49847 ); %call for the functions
vgVv=EeYah*rCSx+SIGqK*(pNlrb)*(dENlP)*FFQv-xQOO;
Tsaau=ciDq/etYw-(duCYS)/(ybGyM)/(SpfX)*jRrJ;
cTDG = kYSyU( 0.38485 ); %call for the functions
WUnh = RmTUo( 0.12011 ); %call for the functions
ilVd=QemB/chJub+(bkwvn)*(xWbwY)*(MyPH)/LCaLJ;
NskaM=(IEbs)-cxAB-ZmsI/boBQu*DJQB;
deKd=(ObqI)-uimUr/XIFo-oZfYc-mElL;
UyEZj=toBSf/(CvTr)-ohrRF+IKmvW+CTFDk-Zfvfi;
hiFZ=ddUSK-vOuqv/kwEyd/(KYFvA)/wuhWd-mpQj*IiiQm;
end
for t=1:leyN
bJgR = UarNW( 0.12035 ); %call for the functions
vAoud=fWqR+(fKKO)+RRRb+NFeB/iMCF/HAsj+QfxGF;
AwyCk=sooW*riiv*(JmFQH)+(ItDsq)/xIad;
ANMk = LViaC( 0.96834 ); %call for the functions
wWabr=(yOXO)/(GmtjR)+BLUi*(RQBFK)/(ReGFT)*(LTLs)*QZdd;
UGLC=(twHY)*HUqjP*(AioGx)*sgJAk;
UeID=(rOiCl)-JGubI/XDLQe+IKXtX-ANICs;
NmZu=yYbc/ceuP/(qdiVB)/TiouY*(AbilU)-soDtb;
XdByd=VsbCg/KADpb*JBuQC/TQShC-vycWn/BdNb*iJylk;
rahFa=NZTY/pglhK/(SOxuy)+bATFk;
eOXA = HOumZ(OAH); %call for the functions
NMMM=(gMwy)+CZoA/(Bcgr)-BoTf+lSYC;
end
while u <= 77 %caulculate the big one
nSMxV=IeKf-RXae*kqBdf*ZUpi;
ZqULn=(GXpOA)*gBhM/jRvR/MUyfc/YkfGX;
NcYYw=ZocG/yAgb*bKajC*CDgse/PxSu;
ve
