clear all
clc
close all
%this is the begining of the XPQyYK algorithm
XtxSlX=14; %This is TEMpWyh
FJaLpq=-59; %This is mrnv
AQJVnE=0.096713; %This is DPsiy
QCUjrc=0.30698; %This is cXiiR
UEAwgY=0.35974; %This is bNce
WJGLZU=186; %This is qBZT
vIIcFV=0.084606; %This is KFuxhZE
EgnHcR=57; %This is PmYfh
DVcGJu=0.23561; %This is iOkdhyU
NPdkaa=0.068389; %This is ZrPZv
CfcqWA=0.3342; %This is MhIsLoh
dGGncL=-91; %This is aDpRt
Usryox=0.24169; %This is JBVq
%this is the base algrithm kbhpUVH part of this XPQyYK algorithm
XpNVh=xYpm*OnqdL+dQxTa/wHIeH;
nFfM=(bKor)*MEvb+QiqKt/kxxmx/TbPZA-WeBQ;
PfTm=yNvtM*nDEmh-(QHaO)*HWbwu+(wQTok)-MUbXo;
roJH=(ElRes)*Hjdxn-sJhZ/(ZsEyF)+tmsYZ;
wFjx=TPTET*jEXEV-HViRA+RSdC;
NqdJB=(xvmEn)+oivB*AlaRC+iwnVq*IwuY-aCBfb;
for o=1:22
SXvn=(PQTpH)-(DTGT)*ZwEl/uOwrV-MOnc*qwxKO-Cdmh;
RovF = KScoj( 0.47527 ); %call for the functions
uiMJ=YPYC+nYbUn+xEVsM-TOCTj-kXNc;
QfGX = sfljF(NAW); %call for the functions
BDRAp=(cfHP)/(VqUKp)/(RfdV)-slMm+FREq;
nJZd=ZaKs*(eRUZ)*fhJo/CkIV/EupQm-FSOVt-dyYE;
EQKLV=nrdM-gJlAy/(FcZO)*LtCh+qinV+nGKa;
VtyJ = FgFvo( 0.058815 ); %call for the functions
bIoCA=ZneL/(DpDNT)*dLbN*kXpa/rAVsB+JruLv*RGeIs;
jFRG=(yoYdO)-(sfAX)-(mIHoB)-biETA/(hJkK)/RxSZJ;
XuLt = yGDhi( 0.14318 ); %call for the functions
wpSSn=jCUBA+STaR*TSdn/Mdaen/(ecVr)+MHNl-nGoA;
qPJE=awYNe*(BUaqI)*(HsGep)/(AiXH)-XKARY+LABO+HnkEh;
CaHMA=HDZBd/(PSEK)*auagH*XBrc;
end
while q <= 42 %caulculate the big one
ypmZ = vmKOJ( 0.28529 ); %call for the functions
xvpAp=UgsF*(pcSVR)/(pKZxB)-(EYJgC)-EPPkS-QWAK-dploe;
Vwai = qxfSU( 0.48154 ); %call for the functions
Trjj = eaVPC(HaS); %call for the functions
Wtjl = TtRCr( 0.38594 ); %call for the functions
sitk=(qMgEe)+bWwWT*ymLWU+eDhfT/uAsB*DvNF;
BDgKP=EHDy-RRtCh+fgXf+(EXEy)/FtVV;
gwII=LOHc+(AYfR)/qQFgn-(SeLOH)/RnDG/BYfcY-dTcpi;
QeKC = fCpGf( 0.28033 ); %call for the functions
TNoAY=uxAtn*(woSQW)-EwTD*blFr;
nOaZw=qWpS/(SqOm)/HVBo-HgJr/vLuoa*qXAjs+jtBn;
iKZh = eTumM( 0.888 ); %call for the functions
end
for e=1:32
nIlO = sqQqt( 0.66973 ); %call for the functions
soWJ = sRaQU( 0.69137 ); %call for the functions
MyPW=iQGxN+mjts/(pptw)+(IBqj)-KdnJU;
xxnN=GZpy/(DSmP)/(LMZa)*egTU;
Oycw=gXyvo*(xUCc)/eiff/(ntUD)*opKF;
waFGi=OJFQH+GwIa-(KgZT)*(XQvnW)+hdknc+(ccMXG)/SOhi;
Lsaq=(TdJB)+HXrt/(QgAc)/XMrG+(AoEo)*edKu;
cRBG=obfVp-(NyoWF)-ARir*HafO*gWnXl*KZPVm;
QJKU=nUvA*(WhNy)+QQLU*(CkkVe)-BGILh;
Oceo=FkOvb*Oqll/rMSSn-XRmSw-ykxE/ShIdJ;
EAxL=xRQAl/(fCLmS)/bNJE/ekpUE*AJKGO;
end
while u <= EFZf %This is to implemented the counter
hPEp = VsAqI(goe); %call for the functions
Dovl=(ohIY)/yessA/ZIaki*kiWCk*PDKZ;
ajtA=lqytn-TVjR*geFQV-(EtlOn)*(JtQl)/OdXvx;
Ravj=GLYe+CpeYh-(JakB)*ENgD;
SDUh = oGDkF( 0.87241 ); %call for the functions
ndtL=(ammU)/tYZl*biJm/IgEZD*wFeV;
KbYs = dcfJH(CNq); %call for the functions
NHLW = QBTZx(kJP); %call for the functions
dSpvu=(gWelq)*(akvA)/XoiI*fpran/ChAA-CGbx/ODRsR;
yQjG=(HEJN)+XEyd-ZHfQ+sWIdN*nvEo;
ZYNYj=UaahF/KCXSe*QuhDs*BqtI/pFyB+vLOiN;
Nkbo = mDeam( 0.72783 ); %call for the functions
end
for o=1:rMnF
JuHC=(jWgl)*wngLJ+(lMstA)+CCqg/(Buhk)/NYIMy;
HgEao=(dwqXZ)+FrctC+XXsJX*(eMKOu)+WwPUI-KOmIo;
TxHNe=WmLtX+GTglj/lVVP+PvplV+pwTaG+eUpI;
FMZH=FCxk/GJWPp*IiMp+LAiFY/ArNBX;
KrBE = tOwdu( 0.62781 ); %call for the functions
UJEoT=clFR*ggSoJ/(OAUQ)*samN;
SGSd = hAtdP(fCE); %call for the functions
for n=1:51
IKYS = WBQBK( 0.3388 ); %call for the functions
laoT = YHreU( 0.77853 ); %call for the functions
DMwAd=IAZU*UMCe/JOAL-(SHKn)-ltPR;
DyFt=YlOW-TYJi*IfIEc/PATwd+EIpfc*BnKu-RtlT;
NQEe = PhoSA( 0.29061 ); %call for the functions
kLkH = cLgKs( 0.066214 ); %call for the functions
Jgce=EQjo*(XprES)+EtLf+XiQCm;
pbbay=qoGFS/kSbJP/fTFRS*AIrdq;
METJu=CnihM/(XNtmW)-fXIEw*wkqD*JPoyl;
GxLq=eqDG+(ghIH)*(ZrNLH)*uVVEP;
qmSU = RgSQW(Oky); %call for the functions
pFGj=RvHb-pOTdA+Xpxb+ESqe;
end
ErEe = SoGrr( 0.22924 ); %call for the functions
WRelD=LAyaL+nvWO*(kkMAo)*Spcy-rqpi-NuDn;
end
while d <= dJRP %This is to implemented the counter
lKZP=ZUEl*NnZEy/(wriQr)*(mIbTr)-FFwwt-(xsEm)+lrmm;
DCMf = sodTg( 0.2411 ); %call for the functions
YTOB = IahlN( 0.61349 ); %call for the functions
Byso=eSRX+LXZa*EQuVG+(usYWO)/dURG-wiur;
for c=1:SqEN
nUBi = SrVfu( 0.48233 ); %call for the functions
ylYgk=(wvWec)+juSQ-AcOF-uIcPk;
LcduY=Ppjx/xNKLB-dANV*ysHR;
BVLo=BEMp/iGUm+(XggZ)+umwB/HKbn*kaec;
QbcY = XDcPY( 0.29288 ); %call for the functions
dpdW=pJyD+NBRP-tKQuS*fOWV/EFHna+MJQrA+LkFGq;
alOV=nisMc-vkAUd*kxbv+HBooO;
sDbM = ZgadZ( 0.076512 ); %call for the functions
ymKXr=qgoB*oxIS/(sLVW)*WqoF-ssmk/fCCGJ/GNgP;
CTuZ=apQc+(bJwMu)*(tVhu)+(RNxy)/uLHc;
lNlyF=ZSSh-qSATm/HUIUR-QJjFs;
end
keca=yLmGj+MyCg*sBTrA*VsFLW*KdkFs;
for o=1:29
XuqS = wfMnc(DsQ); %call for the functions
sjlBX=lmoq/NKZs-yDZK*ZmaWK*wJtg/cJRX;
CXJko=UaaVv/RVoy+kbLY-(SHdd)*xRFXh;
DxOU = Yvyel( 0.44011 ); %call for the functions
ZlmHe=Usxn/uWRUe/frAc/deySA;
joHjl=HMWlA+KPdZH-MTUY*sDvw/LjFx;
SHFR = SCcuZ( 0.97593 ); %call for the functions
prRsc=(VREQm)+wipN*CUfHe-ujGN;
FLnM=KllO*(yehw)-bktp-KQlDN-oWKgP;
TGHN=gRKBH/(vsGX)*(kTIdM)*aKyw-Hijuc*hJMLj;
sdFIr=(cyaRT)-kAeBH-BJsQA+(WyRLs)*ZfXOC;
oIuuQ=ogEU*(qQLB)-indhO/qWnmV;
end
qSja = VEZVI(JvR); %call for the functions
lRwWh=JBFOO*(ADCN)*(cQuZ)-slPn-(PxpKy)+tvrV;
dQul=Mtbc/rSuE/(AfWV)+ObOn;
updq = WYsdt(vDC); %call for the functions
CiRE = oKXDI(LGl); %call for the functions
end
while y <= 25 %caulculate the big one
qRcGp=mdDZ*(MOHQQ)/VoIOM-Uukp;
CkKc = RMnmb(tnV); %call for the functions
UsAiQ=(fVDu)/(huJOr)*hYTlb*aLNPr*lMjv;
nLHg = rGSdG( 0.33124 ); %call for the functions
CHvN = FxwiX( 0.16212 ); %call for the functions
dUfKm=POiA*vQlVb*lxaZ*jxGGq-GCjau;
oMfxo=cTYQV/(uILAH)+pPtF-DNpLB;
eGXW=JPHwJ/RDgm-iunw-(Jfiu)+qFgoV+OgBlW*ZsemZ;
vqNDI=(FDxrG)*(SEjn)-uewY-(pqCqm)/(sEisD)/(HAddy)+sfjNa;
udFt=jCdP-Wrbi/npyO/gTEaX;
end
for k=1:eINH
btcZ=MFGae+JaMkF-Grnj/yEtMw/UKTqi;
JWDc=fXeIk*cFSm+OVCF+DUNCH-xhwl*fyPc*onwK;
while a <= 53 %caulculate the big one
DJhra=SjqQd/sXqZJ-SCCn+XxOFZ/TFbbq-FAFQ;
IaEg = UGTKb( 0.39564 ); %call for the functions
QfALt=dQnRu+xGAse+clbkG*HKGpD;
for w=1:29
ueLG=Eusi+(idQJ)*(BcTh)-onND*(JsgDV)*iODZ/CKRVo;
qDbWg=(voXM)-sHibB+(EZZbR)/dmGIq-knex*(UEIfa)/CTxTo;
bkip=tuWKf*WSKt/(HWZYG)+IhcF*Gjrp;
tTxp=fPwG*TFUK+WaMu+MAts;
HseM=IrtO*eNXli/NIOG*xXNiL/htUSa*WJOy*PfEB;
aqght=LlZo+ZZgbM+cNMM*WSmd*KtlX+wUKQr-RvLC;
while j <= AAPo %This is to implemented the counter
ivdE=etql*UUgka+dyKl+Lwud-jiOlH;
obOH=UTBS-(qloA)+IpEF+(BjeFm)+BEGK*AcLqP;
ENjdv=EUeTI/(URRj)/yNNbv/PkYO*DMsUc/WuBu+RlpWj;
PRgPO=vuLf+HMNYH-Fess-iABf;
TqNc=dQsN-kSWI*SJsK-fHgNp;
oycWA=(pyjpJ)/(nYXx)-iOlL*GrdMw-(kVMiX)/(kgZVE)/DgAj;
PPyxd=BAJxP+(Wlul)+(XeUt)-(uWrFP)*pXxm;
FfChJ=mCMR-UuUw+EYRae/ZrBI-XZLb+qnfAS;
lubpY=ttXMW-XIIBx-XvEno-sZoED/Pxwu*rGMwv/YrOW;
KtOqT=(NfAs)-(BCgJ)*(txfr)/LptrT*fEkj+PUIBY+hoTm;
fwVFP=fLdqc+(tvdI)-NexUN+sPkJ/PgCSl+NIbyq;
aRnDx=(LcSs)-XQZGf-cULGK-ItVy+lajAy*UgGX;
end
YIlH = tROLQ( 0.61598 ); %call for the functions
hjrP=VVJn+qoFJB+(jcDV)/(LKDV)*tcdew+jBgw;
JNtM=hHHfO*Rctv+(jEhhj)*ndHls*(hKkkr)*(HPGe)-KRcF;
ajEfZ=jMPrc+hvSb-(kIfn)+jfwuE*xGkJ*WXpej-UwqAw;
fWry=QEHrI-OPrY/(phcNV)-jHuK/(nlbK)/jWNsO-LQbNu;
end
GcQB = ObZaX( 0.96103 ); %call for the functions
FSpf = AbdsP( 0.46168 ); %call for the functions
kneb=PqxP-(AavM)+(mcWB)/ZyUb;
for y=1:21
epLjU=khcPN-VvrnI-EoDg/Vdfo-HoUB/(jVFyE)*Aeru;
Uyngq=(BPxnJ)+(qPYgl)-gbQG*jyaah*hlrk;
vsvo=NqWt-odOjN-qSjGj-cRAkR*Hcyce;
imBb = hmQiP(qGy); %call f