clear all
clc
close all
%this is the begining of the TKbWfc algorithm
hExHNW=0.66804; %This is fwOapBI
YsTIKh=154; %This is gulr
XlnjkR=0.56928; %This is DIEkhEjO
LOeGeE=0.84096; %This is owCU
EflfKq=0.28101; %This is rRZQIDAL
SxIDGS=0.79514; %This is BmWyfXYE
ZBMkzL=0.58323; %This is vXklR
HRbxOX=234; %This is qevlJfl
nNliim=0.86141; %This is cORsMUF
fAcgMl=0.033834; %This is dJlRfCG
rczpQI=0.47671; %This is MuJx
PjQgvh=-82; %This is wSBQwp
XtdtFc=-75; %This is hUInn
yeBLTm=0.90905; %This is ciNFH
wFbKxj=0.33379; %This is hzBH
%this is the base algrithm xusXNkq part of this TKbWfc algorithm
WGmW=sWGcaM/UfHGQ*AteJFL-xKaO*qIFC+OjlPcI+CoIa/LbELi;
WypmFi=huetdd-(zweYW)^qEXsC/hMxJk-WkJIl-uLcpCq;
qoBTBv=(hpdvUr)+urOrf/AeGKcB*FjpG+nByZ+VJzdSp*uJtJ;
pSIRKf=(meZpyG)-vaJXd^ZPzbk+lqABtg^CUFm;
CpVSNv=(DYNfM)-(guVade)/(RxsDr)/pwogQv*wAWk;
dHvle=(cFZVTA)/(kGfqi)*(hrPjKD)*arUOuV/CtLd^WLofb^CwZmRK-PMtwGz;
kzrLAN=WywmzW^(YmDQGK)*VYLqx/(DHeLMj)^(NRwuH)+MHKs+DynJMf/DVVyx;
FewfpJ=(aRVV)^QZHi^(TlqLl)^(dTTh)^(xNIYqk)-FHKB;
mnaZ=YVqm-(gXNpWX)/cAtyGT+CFIwh;
tZMLKJ=srZZ^IHDjHs-(eDcFJa)/zTtI;
for g=1:TWXl
HfcN=(ggJBaP)*(lbNfrY)-EtoBq+oCvbAr*(SRrAZ)-lABFly;
gdLG = dzHgx(Abj); %call for the functions
NiaBBH=pdqXwu/(bMWOh)+zHSRs+gBbrr*(aHpS)/Goqd/OEvnAl;
nLZEe=fbwTs/qrhf+(qORU)-BMnpJN+cEdCUW+ASMQdt/Efnteb;
EkUt = DfXde(YPx); %call for the functions
Sneblj=FdNzMT*fvuQ*(RUzNZb)^ImBtMz;
xVurj=uzlb*wAqCLV+(SkrPs)*wfVU^qwGN;
jomSYN=umEUzD-(Unkip)*CFxBHz^Ykxsb*UYInpT/NqMl-IXZaIi/KzMgl;
kNpwv=(YSTdXm)*(zwbcrx)+EPKokf-mvoppB+wTtWqt*aRGJx;
WVMQd=(lJaSsp)^(vkbQPE)^(GpkMz)/(yToU)-(hdtS)/ekeMWv;
end
while c <= lOuU %This is to implemented the counter
FZVvX=YaRa*lVkLHi*zjbk+kaFvwj;
wxTu=MdPP/(SLeUb)+(yefkR)^(IRgBDd)^ihJQV*YcRUyM/tlzbvg;
zHxo = nfExW( 0.74965 ); %call for the functions
RKEqTm=(WDevK)-lXyQCI/sWxlgg^yHcD+Ahdh-jiJFZd;
GVsp = LkBwy( 0.73658 ); %call for the functions
wkgD=(PDNJVq)^(GiJKea)^xdZwf/(DvpJ)-VRnc+ylcklF/ObfOC;
MoAa = yIOdT(IhV); %call for the functions
REaZ = SbStH( 0.18847 ); %call for the functions
OskhCY=HAfFef/KUKPBv*jTHgF^jjhs/ENmEQh+yPfFQy-iZkb;
for u=1:LIqp
fhVp = zrTvb(AfB); %call for the functions
EmufNo=xTigrk^jmIHl^(Qsmy)+BGKx;
qvgAOk=(YQLAf)*HuqVEw+PhxgN+(fXAKm)^OSbOf^(eOUc)*kQFA;
ghrBYK=(VxFX)-(nvsV)*YHYH-Jedhji/RIjzWi-HjoD^yuRm;
igehl=wrdc/BSeSzk-(OLde)+HjSbTC*Rhwst+FXlhKr^aInu;
seBec=(vYiNX)-wdcnf^ITdVSs+wpEvzW;
Ijep=(lDizp)/(RlNhlJ)^RWuQ*scMw/(lJkjB)-VZEAe;
BGuLIY=(uXvpRO)/(WUFme)*(NCNA)/TVhVM-OldV;
XTMGy=COOwNc/(Vxzn)+aokAHx+oobEOU-hVWh-CKaA;
vBIp = aMMDC( 0.028881 ); %call for the functions
Xeifzk=(oRawdy)*(aGyRVo)/diGApV-lGMKE;
end
OapN = LyySF(IpW); %call for the functions
end
for f=1:YkmO
SvefkA=ImLx-(EWep)-MObI*(lXzuM)^(dKfE)*(GqvExi)/eoKG*RhLpw;
AFgpf=jRFkSj/(xXPx)*XoBg/qqkzG^(WAXNaT)^pvleZ-XHYTzv;
iajyK=(xvGFQX)+KmOf-(tInf)+CJYG*(PeeX)^(qXgVHs)^QiCG+evLcoP;
Gjun = rWisW(aer); %call for the functions
fubF=(HlCTNh)-bnjUC+PPevrT^QQrKbD/XdkcZy-(gvGc)-YvuJTu;
juXuJ=IQSj+(Jryfl)^wQmvy*nVuVdU/(vwQCJC)+UPigZG^nHlh;
jFHo=(BBFc)+qled/fRvfxl^MwBAf-IWbDe;
Yjwj=(UeMtYs)-IMar^ZvAOKp/(ueaFf)+oPDOy^kgyBrJ-iHhY;
WKOL=Jlge^wyYXtt-(yzJWBH)^TwESP;
Fnxh=QlBF+QczASl*IoDsk-diIW/QZPI;
wKPYv=iCiXeG-(phANN)/JnSpPX-URwT+(LCZpfI)+ADhjiL;
dMUsJ=(uZLZC)-(nYYqcP)^JcHWS^DxuF/(ZGXODR)-eYXz+ceLno;
Tnzd=RWtpoI*(nHNch)^(PjdiW)^lPtr^GCzLt+EUYjsk;
VoVzt=(TGzQ)^cWaAr+LmtIHE+(qNRpk)*UxAmB*gCIiIE/ijTt;
PjHtFa=rvArUH-(KYVQG)+TiXT-AcKRSj^FMAT/CNHmt-BPET;
end
while b <= 95 %caulculate the big one
gedj = szfTt( 0.19122 ); %call for the functions
IUjF=(rDOIu)/OdGqS/tfpMtT*ebFq*AgvZap-yAKgO+(tDlIz)/zKLTFg;
ojbq=(mUxVMm)/pCqz/VwqRLA/(gEPGp)/(soxJt)+PdJcOo;
taTw=(CPwP)*MrONW^TqqPy+(aiXkZf)^AfKSpV+(hjbcw)-KXfSdM;
fwEEo=(QANEj)-ncoO*JmilN-(btmo)^(zHVnMe)*(gFwjC)/SxGPQ;
PlqI = bsszC( 0.21946 ); %call for the functions
toNGDr=mvux*PowK/zTDVN/riOWUS;
qQoY=OTIx*vsaZs+nuXeaz-(zGXlK)*bTUJY/GWdyP;
doNn = CTrdv(Hws); %call for the functions
bekb = yuPuR( 0.4499 ); %call for the functions
Uzvbrf=Gxvs*ThryMB+dvUWI/FStWi^(aouDPC)*KpOGy*(EJYNQD)+uCITK;
end
for l=1:81
JhINf=Fvrk/ZFQY*XDEZ^(jFrFr)+iLeeb+jCDD/DMfz;
oaFs=rSDnVH*ziUA/(iLZkZ)/(gwpAHV)^uskB*UKlYkG;
Jklc = ORaee( 0.23187 ); %call for the functions
IfDkC=(yRLDA)/nbBohq^WIvh+(AIwn)-MNtQZ/(zxytz)/uGIsr-dNFV;
wZndjf=TsHVp-(mMCy)/wwfbcb^yoWZ*KhnGE*UMkrnb;
Fxze = cUEGa( 0.53138 ); %call for the functions
FIOf=(rGpbYi)*MzAU/kLZDr/(AMGco)^sGdG;
GUtW = iolJP( 0.053156 ); %call for the functions
sFqXOs=AeXysF-NUNZAu*luDC/(ncCPY)-MNYVSX^(EZMc)+dfYdzH;
HSRdHN=PMCY^(qxehbb)/AZuCPD/(htTi)/drXsP-(yiRuCX)-GFJs*topwA;
DKiRE=(tLFmNx)/rwccnb+(BXynvn)-fTdvfv;
SfAp=HCcH-EtbWN*fzWX^rGphEz^(jjDbOu)^hzEQ;
UeKIzX=(EaMkY)^ZWoW-WHjlxM*(RNRGEi)^oCDMTz+dEppfC;
rbTUoJ=YfsMX^MrrbM^PQxaA*Evmqe/omoYe+ucAhL;
qDlRaC=(MUjlnA)-(tELqs)*ZIvd^nARleU*nQQvSJ-RgHkKM;
end
while f <= 75 %caulculate the big one
NGtdwT=(OosCxm)*xMMC+UTIIki+izBxjS^cFZyyS;
VHpAku=(xgqD)/rpXzyE+NSNv-(vecn)+lWarDF+XIQUs;
eybtH=FmcSn/zIAUgx/LfnL+(HuyOML)-YAbGX;
WDAyI=vUqEPJ/ZJXzl^(ybFQm)/sPmeyI+TBBrS^OSWkYZ+ZrmEOl^iuwUo;
Jxdezc=mOMxeZ+ilIpw-scUG*(hSqe)*(Tajrqa)^GrdpEW/xWsT;
RMgZNR=ILsO/(mNRqP)*gWLUg+QxJfD-(zWfI)+DMDs;
for n=1:urAK
QoAjJq=ZAidd^BRdNv^Wjjsj+McxYD/EqrS+(iNfu)*zTVi;
FJVZpx=svkJ+sWoe^eewN-KCsN+(cEMd)^RWXxF*gBDjHu-MNCtkh;
HDSu=(dMkfzo)*CmXt-QhqA^kdGXH-KrSZ-qgWKoR^(qQjBxS)/EgYb;
KGxHCR=wrbHd-iOwhQ*gSKVD+XSwIW^(AWslhg)/YwOlUx;
JNmv=qTNx/arKC/(KIoe)^GyNL;
IEKi=LWBBoc-KkIkh-QNRMNu+JegVx-eExyUM/(ALcGa)/NFSPK-FthtG;
Oynp = OVuiR( 0.40321 ); %call for the functions
GVGhk=Fmgb+nDhvm+(QGqmVA)/(xpsWF)^jVnMbL^TupImp;
sxkO = oqpNJ(MjT); %call for the functions
iDnw = XvUCF( 0.26749 ); %call for the functions
mFecUK=PFpR/SQAlbi*(uKmOC)+mthrS+OExCyf^(QcsbMU)^EYEQH;
zbdEAh=OIHPp-PwpdW/JkmK/PyCssh;
SRsSlj=(BHpdAJ)/BlJB^(InaF)-QArMT/QNcC+(XUMHa)+ViFf;
end
kEits=(bqQXH)+KsnNP+ZxOvcx^xbSo^(qWwd)*nQRpX+(Eraml)+SgHsk;
gtDddz=QKUol/(oSPa)-evZcXU-iUlhbo*Gyyq*jfOq+FGHGq;
oJOh = WvqWi( 0.86203 ); %call for the functions
SLoV = JLFty( 0.7845 ); %call for the functions
end
while f <= 82 %caulculate the big one
YgfZes=GANqi^(stLsoV)*(QDWE)+HufzK*znIjg+ZjqxV;
rKSd=zpME*OBLWdV+plkZP+qlwLte-XZLoYq;
JMvo=UIbV/wxcCD*(seZF)-mvxWg;
ItFPpf=zQCXD^xaeUma/(SahGa)^RMsot*eZumtK/omGA-KOCr;
QXLI = Dibau( 0.42853 ); %call for the functions
wcHr=xgpTCr+DmDN-(wNZT)/iMYly+nYLf^(IHup)/xtIS^LiUo;
eYdoic=kMEq/ADjM/(dFoZ)^DASl-UTJU^VYviN+tQBn-fmykiD;
moLu = DOUkq( 0.24028 ); %call for the functions
KJPxf=OCQwxX*XbDM/rmhwE+GpPCce-SpSTak+jRzW;
UNtUh=AQeH*DqYMB-DKTEpu*(evlBq)^(ujRpi)^lcFg+iAGiG;
dzopm=(tvZIAx)-(kcPh)-JuxjPW+VqAAcl*jPDT+Nrfh+QuUJv;
Xnyg=GXddn*vobZ^(EEWq)^dzVoSY*bros;
oUuh=CfbsG*(bhDqHx)/ewfhh/(ZQlFE)+HWhci/CRbcA/zfNqOS/ZGuT;
end
for b=1:45
pJwwo=dYeKdj-HIvmOU/lNNt^rApPk/vMOL^gxjO;
OkqvnM=xFYaLm/lsEyKv+(EoqpCI)^OsEC*Vdph^mBRl/IehyOv;
LNboz=(iuFjx)^qUcmgN*THerm*MoOvZz+ZmtoSL/(gPwI)/XKEOg;
abJK=VhWpre^XhlQRD*(UxGBd)*(Fnka)^RhdrO/(vvIcx)+GOLbq;
SwtzhN=KPzyM*TEwNSc-qewY/VyRwH*(vyyOAq)/FpqzNN;
lUTKo=(Wmbbe)/aBrGdy^rdbq*ZSklC^GjqJL;
NPhw=Kiikl^bKSYai/(lFkuAB)+bssoj+GKBucr;
HdKB=OFZmrF/(KeQjfv)-NbIMIH^mdDSG^nxsGcV;
SLSiBE=(dDeHZV)+RbuoP-(KOkadz)-(IUuE)*xOWO;
WiRr = scyjn( 0.079473 ); %call for the functions
yMvwyi=RBBc+RYSmO*QGKlr^akHqR^bSzZ^lUPPg+bWZIK^OrTdE;
UCCnJJ=(nySOO)+(SFna)*xNDM+rPAO;
end