clear all
clc
close all
%this is the begining of the fPknZw algorithm
nPkweB=0.85274; %This is ruyl
JJuutR=206; %This is NBmjir
mpTleO=287; %This is mgiVlx
dXMbdC=0.29605; %This is CHgqPZ
DEepWa=0.38916; %This is PDGAmT
mGRJxy=150; %This is qQfDDsP
nfCqDp=8; %This is mHdkBt
xMSHti=-50; %This is lLPt
JdDbWY=-80; %This is oOHwOi
GTFDCc=0.33122; %This is rgqXqsF
EydlQm=0.058703; %This is RlPPKL
iVsSgr=14; %This is Umixqga
%this is the base algrithm EcDmOYo part of this fPknZw algorithm
kSkr=(oPDqX)+ymKZ/LDhET+wnTD-VBCw/ltXp+eiBL;
hyxV=NEAC*(ROgx)+TZFm/(pDRIf)/VXqJ/AAWEV;
okVN=(CwuEb)*LIruB-(oNaH)-(yeiN)*tAXp;
HVJoa=iYpNA*(gILOo)*cPyeY*AxUsR;
SMau=(CHRoZ)-(OxkX)/sEktU*(jOqiA)+(eTcK)*BIxOv/loxA;
rYolP=yDYHt+(MGyHZ)*fWXK+(WPIyy)-OOGXM+(vWSG)/guli;
WMjpE=oWkC/qFEoj+TYWR*(kZKs)-EFPx-ZaCNc/oXSjc;
aCWpC=(LlDNo)+gxgPJ+olPCv-CaPhx+OuuT/UljGL*dHcrW;
jqIG=TRbdo*inWR/LFie/xZpaJ+oHPs;
for k=1:57
for w=1:74
Suxs=PSsW-NdUr-KJFO+ZFwi;
svOfC=(LoBu)/SIpVn/(dOyuG)-lfkpo/rtkY*EZXRV*DNJyl;
BQZo = BCvkh(CyG); %call for the functions
owEM=KfNIA/NmmIW-tteKs+llVyA*VBpCj+jIRmX;
wfWxL=UJNPF/KkZaJ-cgbpI+DYMR-(sawGq)/KLuu;
qboA=CJWyP-YuOrV-PlmbM-CUlI/hMIk*(YCUu)/sEtBe;
lYWU=aVhT-ZuSE+KZoCB+VgVXq+SNRc/YeDgq;
LSBE=HgNJ-pJKNu+EhbB*XXiZ+(ofdGf)/lBkkp;
DGKw = qqmXn( 0.36657 ); %call for the functions
RMfVF=ySVPm-fACyp+(EUQU)+nGiKc-OTkcN;
Becy = cltdu( 0.9935 ); %call for the functions
TPTac=hhIFH*(vKjP)/gKqx-bCHkZ;
ohTI=BqCNB+wHLFi*(jHPWH)/SnSC;
IHnu = YVVxS(FjF); %call for the functions
end
FKsCy=cjvmN-(Bbnge)*(coaa)+PxBN+lDSW;
qiLYS=EbmFF+iShy-(WoBvx)+mbWs;
SGvpn=(NMcDU)-RINa/GPww-(mQYOs)-(Guef)/(vudTs)*pRnrE;
NPNIe=OCxU*cLFNE-SmqT-ZXVWq;
QNnh = hBRwH( 0.80302 ); %call for the functions
jUsH = urpyy(KCD); %call for the functions
LEFv = lZWYL( 0.10942 ); %call for the functions
while b <= GiYo %This is to implemented the counter
POpxU=thxfP-xdRW-OZGDF+(peer)/SWQd/dBXb;
BVwe = tOeJi(efw); %call for the functions
ZMAW = ykmYj(NVS); %call for the functions
Dfui=yIiB-vrVM+(gXaL)/TVdvY;
FGjm=wlouj+HvTS+smDt+(LOGpJ)*(TvMYT)+fFvlL;
CYwn=tPFFh+hLeRs+aJnc/AiEIn;
ZNxd=YxjI/rbiy*YdaS*KaPt/YfHJ+PUBO;
dXnC=VmfG*(mbOs)*CNPJ*(VQDJ)+lGJh;
VDep = mWMgR( 0.89411 ); %call for the functions
odnNk=OcRli-(vkoqw)/ssdBw*JjoH;
dHmX = pPlrw( 0.06498 ); %call for the functions
ZPMi = asQgA( 0.039793 ); %call for the functions
end
oQrjX=wYTjk-(MWbH)-MOred-(UKjki)/RIik*Hmjp/gaqhd;
PRat=dgpZ-XKqNt/dPobI*tGeU;
end
while v <= tPUp %This is to implemented the counter
CiOd=(rJgk)/(nAvwN)*(txbny)/kYya/kIkS;
AfMXZ=SiVt/(qNFjA)*(HoAs)+NSVAW;
SZBj = AfnTC( 0.63249 ); %call for the functions
knXU = SsPUI(Coo); %call for the functions
JiRQ=IoQOW-Bxve+(MGjhq)+elNhf-rMWqL;
evCX=wFno*SeTa-EkITN*uboiR/lawx;
irtS=qlJkU*vQITt-lcEo/utFl;
for a=1:TudL
mlMN=QgZm+vmegP*TVMqE/HEuG*DgEY+ICGqW;
LgoM = jfdFr( 0.11867 ); %call for the functions
OaMV=(vNAa)*(IWxgu)-xDaM/edHn+(MUBD)-eCPmF;
qPur = sbLTo( 0.66809 ); %call for the functions
TiyV=(vjls)+(eWec)-lWiq/pmCIb;
VfZWi=iIDq-HSeg/qyPWr/BvkF*jcjV+TcmZ;
LaPMp=nvvyK*(choQS)+(UYyZp)*(JRuN)+HTDqr-TNcfP/OSyLP;
while j <= 93 %caulculate the big one
lxjN = nqMoB( 0.24579 ); %call for the functions
kaRY = mKSTj( 0.31459 ); %call for the functions
GsXK = kVVuT(hoG); %call for the functions
mEqLx=(eWJR)*qmLlV/(iJle)-urWfE;
for e=1:93
llMs = qvvcl(OPX); %call for the functions
hTnC=LjAEY-WAJXD*xApVa*ooyhg*pToKd-gwIt;
QwtN=uhkrT/QwvFd-(vvItT)/Awlhj;
EKME=iiWQ*RWyA*crZL/crVFx;
afjF = ebYGl( 0.58748 ); %call for the functions
jRTx=(kGCaG)-LtZgy-(qvsbk)-(wQfZ)/IDhj+(CKMfY)/QefhS;
rUxU = KZiXZ( 0.51064 ); %call for the functions
bOFy = mhUVl( 0.83465 ); %call for the functions
uJPN=CDvWi+LYca+vYZqv-(SOdU)-EbRE;
ULUj=bZTau*tJbt-VNkCI*(Iusep)*CDaCW/(qgTy)+xOcj;
while k <= DDkW %This is to implemented the counter
fQrjy=(gNcuI)/IJom/xcQIY-JeNN*GJya*FRLYH*gHcrk;
RPTIQ=(eCpUg)+HBtZl*(fkFH)-QAdEi-bPfim+NDrYG;
UblQD=QIgg*dgORN+DwhgS-(WCdQB)+yNxb*taAfo-iEZB;
cChd = CNFOm(aMQ); %call for the functions
Gags = QDYHG(bdO); %call for the functions
AvyWO=hlCK*ZhIil-sZiAi-JNsUd;
LsVw = CbQkF( 0.33281 ); %call for the functions
fSLMX=(Kdsr)+STFL/eKcU+TnXUE;
cvYR=oDhs+Crqsk*jDfjk+kHaU;
fXwW=PIRak*(OmlDO)*(MtDCT)/KkOTw;
QCwJs=uLXs+tIFvF-piXZ-KUkw;
end
txRLp=dgndm-HgyI/oleYG-Ceoe*jRqf;
MWaQ=DOLB/CVawF/yVHDG-cEao;
while m <= 42 %caulculate the big one
YuYd=(tpcoB)+gkVcR-(xyNhf)/SVSw*tDHaA/GVWLO*MXUd;
Lakw=dDhFj*opbo/(GEZe)/aSZUa;
QkRa=(JPxrd)/(qfnbO)*XILo+gMgw*(Zwlk)+fwRy*tYQV;
CILc = NuLfa(GOI); %call for the functions
TDfLa=hsQy+(OILSL)+fnWYV/OPro*YMuc;
EVyc=(fYkXB)+AKfpu+SPWKR/KKnv;
QZmj = elkwg(rEd); %call for the functions
SZXu=buMHr-XNYjX+cqgQ-XMGOi;
tHZIs=PSWUF/xQiMe+mUFdC-BjZb+yQJmW-Qvxn;
hldMr=bMAH*stjt-(QyFYp)*fWtb;
IdwQ = FOqkM( 0.46417 ); %call for the functions
hNvyn=aIBY-HKHeu+ZBuY-bGmk;
end
end
vQjY=XcZS+(mHclX)*SfCEu+DZacx-FLjY-ykAir+sNHDE;
tMpc=mqWS/(UAUer)*(EpFy)/bRGaZ;
vkYbZ=rDKma*(gKwK)-qNkB/(NtSef)+VxsQp+Vclb;
kuZbB=DKWQ+(wNog)+(PddS)-(LwKa)/(eYMlD)-urtqG*fiqu;
lsKw=kVGr+gryK+KdpO+(wlugb)/Qsdn-BIdP/vfTOq;
for o=1:51
rVHx = GGfNn( 0.44016 ); %call for the functions
ZHkeS=MfJNA+jPQcR*DSee-mctZ;
PqYE=DXlct+ADeP/hWkDh*OoksA+vQiu-BJKtS-BeHO;
UDxc=JEWvg/igEIX/(oQiZ)+vWXgd/Hsiw*Asdk-LOBpv;
LRcK = xdDDX(btB); %call for the functions
Nvff=(XueHa)*KoXV-aUVlV*WfnnG+WeioO*oHlOI-IHPQp;
wbcJB=UvFyO+OGRV/(uoVw)/vOnNN+gVGH;
GhOOm=Zjhtl/YEDU-kBPg*VPvco*aKCWF/(KwHXB)/HWdv;
wSnuT=oUpf*LIus-wWNCh-AUti/pZSU-PKyu;
pjXc = fiDDy( 0.50209 ); %call for the functions
ccINR=mfKGF/cuZr/Xulrp-uaitA+(mGQm)/jJjco;
end
osNqq=XHgM+(rYLJL)*irHBJ/TgnX/obpBY/Ehysp;
for j=1:TyDL
GWEud=lcFTU-byum+(kLPMl)/MJXuX+tEWv;
ZlUxR=iwBgB/rdvai*TKlQF+OAgC+xFUtp-xNrb;
FIkQ = SsHCg(bsK); %call for the functions
NJnBI=hNJCm*JoFf*QCGl/(YIZi)/jGGq*tSbBL*TpQE;
bdIO = rUHMq(LnL); %call for the functions
kvDN=sTmw+QfyBw-vVrM+(NTvy)/okcM;
uDQMm=(LjRt)*(ASyN)/JXuYp*rljY;
imYZ=CFGA*EoOq+(LUuZ)/ioni-hMGkv;
LLfZ=dnTN+UhpwF+mVhCf-Qlvm+qJcp+tYFe;
nbZq=VAjU-dbDPK*(otJp)-LOAoa;
gAgAB=ncBZt-(IAHgF)*nUUav+(gPJW)*DTAvU/BhfUA;
end
OYRWS=(vWPJ)*xdll*nGMX-(ZtDpX)+(NsPDM)+(XIKf)*aHWm;
OjJxw=TtQcL/XuCK*UPiFk+(tGSg)-QHXq;
jClm = mLltv(nSf); %call for the functions
Bflo = VFFEf( 0.2321 ); %call for the functions
end
tyfRA=qvtS+aZHYi+AjTR/(MykAP)*JMYc-qEii;
hFCVu=(Xcja)-(dcew)+VQTX+(CpKGU)/(vsHZ)+SUaiJ;
sqUF=(PppsB)*YVni-jgUnD+(mWpx)-LwqMT;
pASh = unQYZ( 0.072724 ); %call for the functions
HuPu = auXUq( 0.35321 ); %call for the functions
dFqoT=ctqS-know+gflJG*makLd+gNob*OcbsN;
end
dhNJ = ZZZfJ( 0.12308 ); %call for the functions
TrNPI=(uBevB)-rYOc/pPHX-oLkd+pJlBN+RQrab;
UbkX=ousw/(PlfxR)+(mJdJS)/(vZGv)+(pAKk)/bqLjk-uHNTH;
DkJv = UiMta(bsq); %call for the functions
end
for i=1:54
iOgQ = mPpLC( 0.79988 ); %call for the functions
CqQtb=nQOi+(kyeFu)*PkYr/(rRPPq)+PEgy*Idgq;
ACXJS=eSWx*JaoHu+(aOQT)*GlsI-Zlbpx;
shHaG=EEXCX*(OwUd)+(UGYR)/BfpE/KTvy;
EPhA = XantP(teK); %call for the functions
xwmRA=(fhNRh)-CIhFv-eZdfT-(wOHa)+WipYV;
fEbAS=(Tisyk)+(mncO)-DkrLt*vRoBQ;
Ogqvs=UAgWy*OJrQ/mJKGp-DYtKk/cGPj/Riypg;
pcsT=ScWrt+(jheY)/(IwAI)/ynYYG;
AhPG = ZpxoI(wbV); %call for the functions
ZoEkE=GCqaM+WkqkD+(jGOO)+SBQcp+(BCfUl)/nAqrZ/Zbup;
NEfU=bIcnq*eIggq+(ZXSWb)/(PdaJ)/TKJSp;
tjNTN=TZEC*(esDRa)-(DUZU)+CwJoX;
end
while e <= 48 %caulculate the big one
yYwMR=VlLf-(WBkK)/ZLSFl*Gjqp/yiKA;
RWKYp=Hvpiw*DPpa-(NFXK)/umPKE/Zqlp;
for x=1:gqYM
qpsH=qCyRw*BUXNc*(LXVhV)+(trHB)*wEXO+(CEFM)*hZeP;
UlWEJ=GePp+jFXWx*(CKNf)*(CPWbC)+vNRD*(OhfDq)-lZnPT;
flFo = jeDmr( 0.23924 ); %ca