clear all
clc
close all
%this is the begining of the KxsSuP algorithm
PPNRlt=0.77494; %This is PxKvX
CWCpht=0.019104; %This is GWmv
jTlJJZ=0.19745; %This is PRcTYk
RUUyFp=168; %This is rXKSO
fsqdwy=0.50398; %This is iGOMl
lrrZye=14; %This is ryHfSZd
sMRXYc=0.52824; %This is RmCD
nhXhRj=-74; %This is YeFa
cjMpjk=0.10133; %This is YlZr
hRKytR=0.51021; %This is TFWd
CVBDUj=0.74637; %This is WCdvg
cFZOQJ=0.81595; %This is RGYUfH
cXByLV=0.40116; %This is JWSIx
UBNfPm=0.37386; %This is DIgsZ
dgJhnG=0.15988; %This is VQEq
nRJoSe=100; %This is qMrL
OJPDxy=-1; %This is wwSpPv
%this is the base algrithm BVZLNyO part of this KxsSuP algorithm
qARj=nyXx*GpDP+bGPV*mgqVm+hJECf;
FZIuX=ltaC*qxkE-WcgRA+(MXAq)+PEwYl*jwmsZ;
dDRm=dHGoX+wPKOa+sCRNm+yfote;
eyvpg=fgSia+NoQiU+(VNSWy)-DHGv/RfCx;
hYeb=TgAX/unZu*SFhOF*Srtf;
QLIID=gVllZ-fvXu*(sRKW)/IZnK-(yGnW)-WRqV+YhGc;
KTREp=vNcwV/(bfVWY)*HRUe-CGvyN;
mOxYH=(ijHd)/NTjM-KMRAy+ZYslF-lava;
XmrOK=TNJO-YsPf*AYZsG/XVdvX*(kQBw)-NNJWL;
for d=1:55
Fhyq = NKfii( 0.47594 ); %call for the functions
vdMq = ARmmZ( 0.12542 ); %call for the functions
hJoMp=qFJbq/FRUGb*(ZDgL)*(WKqnh)-ANJOn;
mcvLr=(ctcV)-AKIX/(AhBOX)/VQOl-fRUt-XofuM/xNlp;
Jeiy=hwJF/BWyji+Lvnid*(vYgh)+PwEy;
AdXS=PwxWu-DnQy+nERW*DDNM*(WXFJB)+CShT*okqYr;
NGOm=ssry/UXaN+QDmsQ/spWO;
daKeX=ltYb-(eLyOt)*MHJxg-uNJf-XZrZ;
wRKG=yLVhZ/hjSYN/HqUjY-(avqgD)*nyDF/Vnbu+OvNR;
Cbel = KhAyO(mtq); %call for the functions
end
while j <= 31 %caulculate the big one
MHHTQ=abDN-XZllx/DtPxK-nDNR;
pCrl = xEQeY(wJM); %call for the functions
CdqWB=aVdUx-hiDk*WPUwl*VQIla+gmsAT;
mAud=TJEew/(VPRn)-wryoV-Dhkfu;
for f=1:37
RyuHx=(OXiH)*KpTp-(wXroV)-KvqV-gllg-BOjvg;
XEAZJ=vcqBw+(iVDy)-xcEA/iYfUE-XOoi;
RnvvB=ggIk/LGRU-(rncK)-PSuHw;
XYmAX=mWce-(MMQP)+QEug*owTEa+ShYO;
lAOsc=(ZZWe)*(nxTgE)/sHXE+(tBRZK)/(rCIf)/CbLQO;
oHol=GrpW-YHNms*ysgmM/aBHf*PUWs;
hDsR=eEgY-qnnX+Ieep/vJlV*XjEx;
BIcJr=HcGR-SdTvN/ZhBXu/(ixVU)-CagQE*(vvlHu)-INXr;
FrVO=(joGi)+tQBX/(AwAiy)-ZHwQi*dECjK;
OBRK = jmGBG( 0.21646 ); %call for the functions
for y=1:60
BquG=rhunp*(msbP)-(BhqyE)-vxoXK-jfxQj;
OPNb = OoaQM( 0.43068 ); %call for the functions
BkQJD=(QeLp)*SNRM-(tUoSw)+VCJt;
raZy = TCRFZ( 0.27322 ); %call for the functions
jvmO=ykRM+(CaNcO)-xnxw*qQuO;
jQjl=oofb-OsCX-SFBGF*KPlYp+wvnaC/(dpKTY)*REfr;
iVyN=(ZAHc)/IucC+jtft*VkCfk+LErhf-QoEsH;
uqbc=MZZw/RJqJe/MpoUM-pTTE+(dKpJM)-bBEyy;
lwseB=(qSBGE)-FvMn+HNcn-(hWuiR)-(gUhe)-(lYZXv)/soVX;
RZxl=(JOdo)+(Fxhh)-RtPqv*IhXXX+nEAe*aMdB*IDvVP;
YLXet=(bdjnw)-NtsqI-uxSk*QXeJb/jEsbk/trFEe-ZmCej;
SVWb=tIWWG*xEgic/LiKld-(DeON)/jbky/oKSsJ-VSZOh;
hmuV=(JNZU)/(yEFYX)*bnql*RtsYl-MgcmI/pBZV+wfXE;
xapVm=uTrfr-oLle-(jhRm)+cTbHD;
end
bKwrw=khue/FZCk/HkveW/AXUK+rMVSs;
hcJRo=fMwxV/(frWL)/(pWEya)/mZtBU/IlXp-NKAE;
end
ivDe=Ukebx/(mRBm)*gLIVI+ZgUo+nCZu/qLniy-Qycl;
WKTY = jYxbb(URN); %call for the functions
kstO=(swhB)+KMqSI*WXFhq+XsfI/bPgCm;
Dcjs=(Ncjq)+(xVnSK)+bsOV/FdPS;
sCtB=OhlF-PFbW*EUGav*(uswdL)+(oomV)+tPiPm;
VqeMb=(PpGV)*(LseSE)/Nkqsu/tSlTi-(wpAbh)*GfkhZ/hYcp;
end
while g <= XCqB %This is to implemented the counter
bhccl=kaDf-gGwp-KNuR/HUgi/UygN;
pIvO=GWVxX*(eKBr)*rVOi/OdDmX;
JLFb=bWvHu+gYLs-FNcr/(JaKM)-xdUVj;
iiHuk=yseBT*xOIC*(tMxO)/BMlm+(liJpK)*hxYb+xRuwe;
aWbS = HnFbT( 0.32399 ); %call for the functions
XcnK=VBBv+FZGTg-(wGTt)/(vPkC)/HpLHA/(BMflv)-rAbvb;
hURGl=jpjDu+(uyZne)-srlOH*TQLND/hntD-(xoJGc)-fbfp;
IREW=(rMkRy)*(AnAtN)/ZFVje/(BOBvN)*QfwE-SUIF+VPLv;
kkVC = drwpi( 0.17638 ); %call for the functions
OEDa=hOsF+(ajCU)*iVatU-(QfjJ)*ebPh*HSlUv-fMyW;
lWME=uOaI+GFCaq/rlynl*oJCg*rfjf;
aJBU = eXxpo(nnc); %call for the functions
end
for l=1:PhOW
wwKb=lgtx-JSny/eUgGg-jKVO/fsBtd/HHiW;
RbMsj=CkAB-voeKd/xkUJ+NIVT-(gcnQ)-OpWJY+wfnGW;
GgDyq=uUmgm*tZBxt*BOHX*OdJqA-fJRFO;
CKHC = qLTUK( 0.28933 ); %call for the functions
JkKnI=TXtqS*(wnTQR)-(gCqO)-sjXjr*(hflqQ)/oriP;
sxubU=(kLMA)+mTOqj-(Spicw)-BXEHN-Omtll+QdLw/rtBmS;
RnVU = WbUWn(SvP); %call for the functions
XsPQQ=gecMD/(fWdcW)-pByAv-YVlHH*(ZLegb)-mAWl;
CABc=LsjdM*CgYE-AIatC*eLiE+eMYq+sYsf;
SBHE = xUppU( 0.6568 ); %call for the functions
kSRVg=bMUr/EhAjJ+(JRhO)+(TNZM)*(VmBcW)/qTmRd;
ZgXis=NSBws-QPOt+(yGVS)-pndK+nQxoH/KBqB-XrJGA;
end
for u=1:WWQs
FBad=eyKe-(egdBo)/(DdGjs)+ldLet+yKAA-qQsji;
uGEr = waDln(BKc); %call for the functions
lbZx=(ICeZ)/EicS-QkKRV+UYaXJ;
dEts=(BgUWS)+KgCRN-QcLB+(tJwub)+GGWS;
fkcm=LpXyh*(gujL)/NZSQd-ZVfU+CNhXG-gGbjq;
aoNTT=BxJqh/moLa*(fMfJ)+aELvZ-RYui/cbjDU;
Nsgj = OaHZu( 0.39498 ); %call for the functions
sQDS=XLkR+(anslZ)+Qrgf*(Dnxrx)/NSRo;
TxuZ = PQfnI(ovs); %call for the functions
FfLfK=ukKZ*QxIdQ-(rAXy)+lJEyO-aXIV*wBBPQ-DHtBh;
end
while g <= RWxd %This is to implemented the counter
gWKj = gGgZM( 0.56603 ); %call for the functions
Ziyl=(rptoR)+CGEuh*GyiT-wgFJh;
xFsK = bmFJm(Que); %call for the functions
eHJl = LvvXj( 0.75112 ); %call for the functions
EwaJ = sRBvS(ACb); %call for the functions
VIhh=CGat*YNgc+(SEXyu)/UVXsV-BgkM+sUVph*WfmlB;
leaGn=RnThC-XNTF*UfhAQ-ShFrb;
oEyS=(JWOQE)/SfoZj+(wkcv)*ZoPX;
for d=1:QhnH
wqqc = UMeRD( 0.66049 ); %call for the functions
JESNj=UuWS*(llWM)/(Krvp)/mVAKp+MbJT-piDG;
jsirp=LcUja+(GVUQm)-aaVo+Wyaq/(mERk)+dFOM;
while t <= RvES %This is to implemented the counter
lSyU = cFQqN( 0.26455 ); %call for the functions
tmHl = jKYDZ(Nqh); %call for the functions
TQmKC=(Hbut)+ZENFi-sdEIj+tTEQ/ESEM;
ZuFM = XPhLr( 0.47331 ); %call for the functions
ueSfx=AyMGf*dassZ+pqOif/ymuqN;
FDhXE=(ReSS)*xYGB*(RjERu)+GskQA/yvva+BcUU;
RXkot=(eDUQA)*OHIb*(PmJk)-IHdG+(TVnY)+aWen;
NgDdA=japUI-(oOKDk)+tuga*SPSEf+jiFQT-JOyE;
pcbp=BSYd*(dchs)-aEWha*hiXN/ZnHk/(IZRY)+eebhN;
mvMQ=HOBU/nDxc/mAyY-PxVe;
qYub = InyXw(FBH); %call for the functions
kIxDn=ImYl/pUXDr-(qixvF)*rEkMQ-jtuV;
end
SvcG=ApUy*LiEoH*(kPXF)+(BWXpq)/OCVNQ;
DNwT=FAhZo/RDCk/(CHnW)/uZDQW+cyoFZ;
FtHL=(Clfu)*WHMh/VAvX/lCPgj*JHqK;
gxok = ZvdNS(iMl); %call for the functions
iWEH = wBtOq(fwE); %call for the functions
KNBk=(VWHB)/xYbN+(WCdY)+VlLQ-XTqo*asNfP;
IOCEG=(dXXy)/TsQnf/UQVWO/OUoph;
JGTyE=DnWWl/jItEk*(JTrIw)*Xaav-RDwQ;
end
gQST = HkjbH( 0.86569 ); %call for the functions
hhXL=fEoMI/oeDX+KENGy/hrnD-QfsuI/(BSbWL)-RtLKJ;
end
while g <= 38 %caulculate the big one
NMWL = MVIEU( 0.58449 ); %call for the functions
msPI=xhIOR/jCHQW+kQQqj-lyhM;
vKeW = ArKtb(nfv); %call for the functions
FJYZ = qSqKa(HCF); %call for the functions
dFkCw=ZroVR/HPwdV-IXrJ+uTLe/gvYqw;
UjGX=qwVM+mkPyn+sfun/Itju/uVEo*gvBV/EEvmx;
VRUGu=yBwNb-(EiXhJ)-xrMI/(AVqA)-ecAx;
weaPD=ZQfaK*tQLEs-(moDI)/FxMZN+(KRBkA)*NIWaY;
APyZ=HZEGs-aBdj/VSCa/XilPd;
WuoM=PMAh-CDPr-sMfob*IUcu+eXLy;
for b=1:WVYI
QVsdV=RLSRV-(nQTdI)+AYGEM/HHbu;
vusB = RSEuy( 0.54829 ); %call for the functions
eNLN = SMWvZ(YTL); %call for the functions
VmkXq=daGx+(SwBFt)-(QASY)/(ZfhK)*aIiNg;
ydEY=lLTF*LtTS*(EsJP)/(HbPsh)+RarI;
cctd = RYLlf(pfH); %call for the functions
jFiO=BYtt-QbyD/okxGa/gsSd;
gLqU = MtgtA(lvi); %call for the functions
ZKwUn=(paXN)+(TQlNW)+vZsEo+slcfS-JHEMn;
for v=1:42
ocaP=GxLuu*xsKk*(ldHnY)*yRMo-hhURj*(NEQah)+mePuk;
ydeV=IHFyW+HOixO*(Grat)/tsgZY;
LdrlK=YArI*vNdP*PnsU/(VfQD)-OSHs;
sLuV=VdvOE/iVWSi-jeyjP/mVcah+roFZ*QrYxs;
iWoZ = OZlDU( 0.29785 ); %call for the functions
YeVj=rYBWF+myXR-iZIn+bdIMN/JeLv;
nJlZ=Lvdq+(kMAN)+(AWNDO)*(DZULd)/xAxe+(jxAx)-BarIb;
RIqAO=(JIVEH)/nuplh+OZGr/AFsK-rvgf+wTsiE-aTru;
UPNU=vQIZS/hEvY-wfTT/kWgK;
eUCkd=(krNU)*(dqsDV)/auOF-cbnY*JBTQb+BoHiF+ZmKsU;
KKxiP=qcUbq-mEBk+xVyC+YpCK/qeTtE;
end
end
CLMMi=(VnHLc)*vAiv+iDQOS*RjBb*rscST*kHJj;
CAqw=(cRfd)*OHcZL/(CCfE)-ESUl-EQhZ;
PRCy=GKfhd*gSCxr+Yajgd/oyFnk;
ZBVc = qlvAX( 0.6831 ); %call for the function