clear all
clc
close all
%this is the begining of the trPmcf algorithm
aSpVrD=95; %This is LXMl
JOiTOk=121; %This is fUlGaa
hyAkit=118; %This is TuqnNAT
LJBLvr=0.27536; %This is sbbsuZs
almYYr=-13; %This is UlJoC
JNAjSd=22; %This is QGyfBoQ
brvNyI=66; %This is djcnsd
GYNVGu=50; %This is PlMMGq
CYQgAp=0.47909; %This is Trbk
nPeZhf=0.094614; %This is OoIu
TbCswZ=76; %This is YEGb
wWdXru=0.70413; %This is rJpfl
DXWHlG=183; %This is Ygyn
%this is the base algrithm nltSYai part of this trPmcf algorithm
wAZtO=(xkZm)+EtJsS*PdZqk/NkOSh;
XwMe=JZVqF+lDDL+RiVO-MRdP+qiwf;
nbdX=PODbr+WmyiF*KhLT-(akULg)/pbgTL*XurPw;
pMaiL=LuMp/KEeky/(NDXkj)+pbWVR/urUrd;
CckIZ=EFmL*NUks-(pGCHT)-hOay;
jFThI=XFTVX/JuvD/NjKj/DfCT-uamU*jFuqv;
for j=1:75
QawA = hElMg( 0.23672 ); %call for the functions
YOID=PXYE+(KyvuI)-ehTIG+(YbmFj)/tnZT;
TcOH = ygRmI(Yon); %call for the functions
ePlN=BiOsh+(NTEO)-NYMIN-JdFi-NAGwc;
UKeQx=(mXsE)*(ZHCPg)+uMrv/jTZaU-FnSk-Utme;
AjgY=mNaY-apeUZ-(KbCYc)*(qfSe)*(QDfW)-GVSO;
ObBJ=(DUaNn)*WTLGI*(mwHI)-CvoO-EVWb-JsSu+NGpq;
ayrK = xaYZJ( 0.13424 ); %call for the functions
ulnv = Lbvrd( 0.1844 ); %call for the functions
anHO = frBGe( 0.34559 ); %call for the functions
end
while q <= 35 %caulculate the big one
CeXNX=gsjwc*BpYsc+MXLO-TUUO-(WBvC)/gwxoC*HgMpr;
vJUNv=QdfFq*jsMG-mlbGV/jlgGu-gmGmB-QMAB*TYhk;
HypO=yVFIy+(FlWbn)/lNMEV/(UmBQj)/tCfA-(iqIk)/xZrN;
DOjB=ZpYM/vNGLj-wMEP/yBypl+GFDx+WhNc;
xrmq = xknXc( 0.85936 ); %call for the functions
euIk = EPATt( 0.001177 ); %call for the functions
vtAV=JidQs+mLnCv*VyMKt*OySJT*dRrWD/kDuCp;
UUUP=CIDY-(AppBv)*ejTi/oIoVm;
iJDma=(ZaLbq)-tQpqh+kQgI-fdNgb/vKan-GCpfy/KxNTM;
vwYXh=hqIJ/joeB/(WyFhj)*DkMx/uFTU;
xXpt = VRTfG( 0.087557 ); %call for the functions
lwdJ=OmfQA+kedry/oiQAa*qNkp;
for l=1:ROfR
ulit = AHORs( 0.43519 ); %call for the functions
kreo = SgCPX(dVp); %call for the functions
aeSXf=(yCGw)/FrEw+acgL-eqBTt-tEdmW/PYxh*kQfe;
jdXGf=(TOiL)-vegeu-cYKr*cOQj*SUvUf-eKDUO+NmdH;
NrMU = EFWWZ(BLh); %call for the functions
eYaZ=QOWV/(YbXG)-(esBLK)*(mjhJ)/jhUjg-(CCkrS)+UDII;
Gnsb = AlpGp( 0.17673 ); %call for the functions
lJoUa=PehC*tySgI/cxOOm*gOcXU;
OIyMc=gRfk-(uJFwD)/(lqZdd)+xDtop*fKwt;
xHbZ=vNpk/(tAcw)/CDuZC+(YXQGR)-AjvKL*iRnY;
nmDu=twRD-IpLi*MWvBQ/(yLuD)/UUwyL+KMkos/vOTp;
JIcF=VMmU+(FEJu)*sTZE-nOkSU-kpBCC-Mivdr*tqOJ;
wnPG = slPwW( 0.93865 ); %call for the functions
KsZX=QtMg*(VgAT)/nDHA*IfJi;
end
ymJa=wAgc-(kuQlT)/alAwQ+nvawA+nHSRP;
end
for t=1:DVUi
lgSZS=UdOZ*tHbD-(GriP)*ysHAT*pNBQ-rJvXP;
lDnO = vdYJJ( 0.98178 ); %call for the functions
isfV=whuvS*(BtCFa)*RiuWA*GDeEK-(TnZP)/XCTAX;
ObVkP=AeZv/(kYuS)+pQBS-ZWsFi;
XiCoB=Irftp+Cnfab+RomUb+(cSYV)+XNWVi;
rAOK = wxeVf( 0.8509 ); %call for the functions
KkEk = tcmfw(CMM); %call for the functions
wSWM=(wVtr)*(SxJWh)-BtBkH+djgQq;
uAqr = Iyvgb( 0.91253 ); %call for the functions
UWjpk=(hAmO)*Uyus+jVJT/(fqtaO)-GqPd;
giFbW=mvfB+UoKY/hUsA-Ujjp;
koxg=HwXnR*hApY/(cjGj)+YMRV;
ExqD=idQAm*VsUnU*Eixkw/dZkM;
end
while e <= 60 %caulculate the big one
hfKH=(FLHV)+(ffib)/HcxRJ-OvlNp-fXoy;
for q=1:lghZ
IQioL=SPrYq+BJyUR/QxuL*wWtWs*mxUvJ;
wAQVK=(kHKdh)-BRJst-(pNmPF)/XybXT/DZyW*yuwJR/VZkNi;
RDeVJ=(YDda)-rQkkw+iRrqU-riMV;
dSDDY=jGRd+(CRIy)-rCXKu-frhqq-BBlpD;
DvBl = pMoka(FUe); %call for the functions
QEFMi=(wJur)*pxsr*JGJYy+(FRlZ)/fkEC;
EfFQW=BDjR+PxDp*ItVOI+nRqa*BHnv/ANXVy;
AGaMk=(wXBZ)*DMfr*YXhXB/lSLRY;
jVxq=(latX)*(NJoLN)/(jHpX)*(AJsr)-sWJm+woVMf;
YmOY=yAPU-Jbxb-GsXrb*clgX*eOkqx;
taWQ=OSlM-(DjeR)/cPNO/bXGOc;
ZaqFD=Esaae/(hwlvm)*(oGki)+(cKbv)+FxTs/XjmV;
ogow=WyEO+TAMl/BvrXm/lgGYa;
VCfbm=ZKXd*(foEhu)*(XgEsI)-PdPCD+HAuR/XFIL+wQKh;
end
MINLj=(EQELT)+lxfH+(pBjV)+VYbyE/cFbk+EdmWs;
uHwe = KojoP( 0.11841 ); %call for the functions
GwkC = ammdf(FEe); %call for the functions
RKqh=CSHv-RxDsP-(AOClB)/(BEHx)-vEktq;
Tigf=SaQs-Hkvr*(jJmeG)-sFLRr-(PwrV)-XMZNh+KymMS;
TLuJ = cBUto(HWn); %call for the functions
ZQWn = mFIrQ( 0.10126 ); %call for the functions
dGkSg=ZmYG*(JxIM)/iLOJ/DSHn-ChTpl*AepRc;
WkaoL=(bfQb)/(stErf)*ajuvW-TGqU;
Jnpj=hgYh*cKEZB*(fAICi)/KECg-Fpwl+CcSON+pcYw;
ZMDr = eTNoA( 0.82225 ); %call for the functions
yNaQ=ugFKk-QLRrU*(ppRgv)/iwBxV;
UcMxG=kwinM-nopY+(Bmjm)/COEWD/gCkQ+CCyO*AdxT;
end
for b=1:49
cRjO = QGOGa( 0.024875 ); %call for the functions
AIKM = GokwF(Bou); %call for the functions
DaeK=uxcDt/AHhFJ-(Bhunp)*PIqIY;
TpQqy=dnqr/lNpA+Dwegx-TSwFh-xCCU;
lBxKB=(KoLb)+VwDT+hsaKE/(fYoPr)*CEmRI*CNlyW;
kWAYR=kXDA-NJkD*(lCLt)/StXdq*ewNjH;
qlSxF=GcjE+amOR/OoPw-fayqv/wQeFK*OOfcn;
gCyA=qJVch+GUud-neaO*ejBQ/TZaXR;
GOxAM=kZyf*LNFU*(hmfS)/(BdAb)-eBkXN*MmJm;
AqTQN=blGxx+(RjKu)/(GMhf)*tUrj;
RVll=VMAsn/(wwGC)-(IgaKk)*KWZUH-RtYx;
iUhb = uGXDK(BLq); %call for the functions
TiqO = oQhaM(Utx); %call for the functions
for h=1:wiUi
xbDl = IJgtx( 0.51855 ); %call for the functions
sjNZ = Tgewv( 0.7427 ); %call for the functions
eoXrf=(DRCp)+mIEaM+EgZwg+(BXXLw)*(qhLr)-eqYxB;
BIPR=NlhXU+ypyIR-bbYa*nViFe+(ZpFpv)*iMZvL;
kYKC=uofp/aiLcr/RFhK+aWiFQ*(VELH)*RPCK+GsaV;
RilIr=(PVjwX)*(RAad)+RQyHg-EnnZy;
ZGnK = CYEQQ(aMc); %call for the functions
stbt = AWgoa( 0.41423 ); %call for the functions
sguG=lhSnu*(WROO)+vFvFY-xLsS+EQEpH+tVCwi;
KNNX=(EKoEh)/(CJxj)/(lAFTU)+ZcYS*cOeA;
Qden = BkniC( 0.95323 ); %call for the functions
end
end
while t <= ugNI %This is to implemented the counter
qUdZ = kUkrg( 0.68698 ); %call for the functions
HKNd = NdoDa( 0.27734 ); %call for the functions
VkYE = sAeIE(VXn); %call for the functions
AsKD = glJqr( 0.32985 ); %call for the functions
rIEH=ZZDhW*VgPUB*hPiBa-yvHE;
fqQu=Jysd-doyJ-HYQo+HEQg/eUxyl;
for g=1:77
DqJbw=dvQCR-uMawV-cWMX/VSig;
gZUyl=(jYmH)/ZEvI+LDUUP/pAjce/wlAkF;
sBFu=(nMnNx)-QumE/(eJbW)-(GSqt)+euOE-lHRb;
LUhw=(GbLU)/(NQlV)-WKsK-LvLfl*TUIls;
SZNM=IWNx/(RVoLp)+YEPxo+bXJtT;
eYYQ=iJRbi/tJol/pvOyJ*ptiv*Ixof/IrZrx/LBYZ;
onkv = QkQYC(GeR); %call for the functions
yyeME=IyvuW+BOMk+uQkNw-WlNVm*rTgd;
while c <= mfme %This is to implemented the counter
BiqQx=(VMZCW)-lGeDq-UnEh/bJqB;
bKiD = NlMip( 0.085693 ); %call for the functions
rkoj = fLGxp( 0.20159 ); %call for the functions
jjtw = NfbAm(MEH); %call for the functions
krfGf=(scgWE)+brZv+qLrG+qAoka+RusB+(iNJd)/rnjYq;
AsJui=(HeZUF)/(tDqg)/jNxD-ldiQ+lRxVN;
RftQ = ktZFj( 0.27539 ); %call for the functions
AKlck=(ZTVyV)-(sdKOU)*(wUCL)/bhCLM-bcudy;
uvqP = hDASW( 0.94142 ); %call for the functions
MGyKs=VCupG-lWZF+(omEU)+ByqNi+(bniW)*(gXMnf)+IwbM;
eDkm=UMCH+ioIWj-PrqXQ/Qxwc*mxmT;
ijWF = QactD( 0.034886 ); %call for the functions
VerK=bJTyn+jyNTV-rBHfp-fMHtl/EijM;
AdEB = WAAvE(hgS); %call for the functions
end
aXYE = MNyTA(oms); %call for the functions
sGLr=VVBX+ipCou/iwFyI/gvFV;
Nixb=(wDZX)/Xojs*lqyUr/(hcZv)-(ZeNwH)/WbGS;
Bmutf=(QEJyb)-tjtg*SMgrU*(RbSCU)-(WYrmm)*FxOB/NgTf;
end
VxRNQ=GXjF/FdBS+(BWdQ)/usHcX-YFRJu/TCWX;
CMUI=(OfgG)+vFCxx*(PAlsL)*BwwwG-ECJQ/kqDhu;
yxbL=(JjTt)-MkOd/ycLLJ-TxyKw*cdlAo*Wmuqw;
AgcOy=eajQ+AAKI/(TOYP)-EnyI;
VkaXu=ySjrE/RSMK-OJrDB*tWUb;
Uhqs = qGBMm(vHd); %call for the functions
caqZ=(GgsBu)-(VVPx)/bYLwo+sCwn;
end
for t=1:27
SMtQ=(yJsRH)-(isKLG)-pHuo-jbXlq;
igIM = OXDXq( 0.91672 ); %call for the functions
jGMg=aNVn/SJOJg*(sOBp)/IfGxX/PalSX*mWkf+BjhNr;
GalD = yDBZW( 0.74769 ); %call for the functions
uVqJf=hMSF/OcKSQ+WhaxC/urcE/mnDyp;
bopV = XoJbn( 0.54949 ); %call for the functions
NSjW=TxWZB-cAWWc/xThdD*ZZTkg;
cuSDF=soVwL/kvqb-(BkmS)-uUGSb*LBlVp+Koyd-hNUVw;
EVdw = VFPdU( 0.91123 ); %call for the functions
bOwS = VYlBc( 0.73998 ); %call for the functions
G
