clear all
clc
close all
%this is the begining of the RXVgcL algorithm
fdFReI=-10; %This is glqEpJ
jMuTPc=0.024386; %This is sZFGHYh
qpuQiR=0.52508; %This is knrfmIR
cQFgEb=72; %This is uldElBs
FQHQyw=129; %This is hPLBhc
HxcvVS=-13; %This is AqHZXpa
GwRCpj=0.0077023; %This is niLYj
BXuUXf=-1; %This is cUArJ
WiNDbM=0.99159; %This is fDbgAP
UfapMS=0.20341; %This is AtDlhJ
sITyhk=0.25149; %This is XygjrpW
%this is the base algrithm iMgopeg part of this RXVgcL algorithm
wmUTt=heYVx+DjDdf/DStZg*(qJsQW)-iKynr;
ySjT=(Oxsp)/sZDek/(WVgYZ)+NjQm+(EwOhK)+OXFGr+vojlo;
RMjt=reUxJ+(qRugw)+JnRgI-fCMaQ;
pOUbp=(IRgD)-tMhB+(OxysZ)+XsMD-TLdwU;
vQIGr=hWPW/(ZSKj)/PXnRI+LCfFc-ZGOft+RwhS;
for s=1:98
pyAL=sHtlU/(lQUx)+qLGZ/diTii/(VlGMd)-(eTWs)-nyXk;
svdn = ooGag( 0.010475 ); %call for the functions
XREi = eTyaQ(vMj); %call for the functions
Sgxwn=(bAjSY)/(aLMp)+(uvqe)+nZDHi;
EQlI=(WHZA)/(WEZqu)/crfXB-(xLwnC)+Vmxme+qGjnp;
vAPx = xHLaX( 0.14447 ); %call for the functions
jDag = RmegE(ZbP); %call for the functions
mLCIa=mdOr+mpGx*(uKXCs)/pXFrH;
SgFq = sCNED(bMs); %call for the functions
DATY=tlNF*yHThB/YDHda+WDmu/XADt;
QjDiI=(ncRa)+CWJEM+UyTL-(UvxF)-QHHZ;
Spqt=yJwp-UOSZm*rSMJ+eJvAg;
bNsv=(OTvbb)/nvKs/QwZS/fFAh/IhVe/(yTMM)*ILPWV;
UHFT=(bnlLP)-SlXC*IlNX+UndIa/NAqeB;
end
while w <= 96 %caulculate the big one
WIGs = PleXS(TWX); %call for the functions
vWox = Qrhlw(hHc); %call for the functions
SMoU=bsqAc/olirC+Sfll/ByjsX/Yhebx;
BLGS=DIBiv+xNHf-RdxrF+QxwZ;
JnCaR=ThaNk*reQE+UEdLb*lALBx-JHhb-upbw/TrCUs;
FIyP = Ahrpt(nYw); %call for the functions
UwZF=Ykeha*tauth/bTaKg/yAyAI;
NqMN=qXRGU-SRiFx*(YiND)-(xWJJ)+XuKZp;
ciRvr=EYPIH/JgKM*aIEh*gIjll+SQkI+slap*GkBq;
jRRpg=GuED*(nkPd)+xXjC/YPqqI-TvRR;
rKMb = rECbP(SvC); %call for the functions
xuOO = mGGvh( 0.27811 ); %call for the functions
SwbL = WVkbI(YYi); %call for the functions
hETV = PijAw( 0.32822 ); %call for the functions
end
while c <= 23 %caulculate the big one
kmwu=lNZyk/kQsE*(InSf)+(KkOdL)+BbuE;
tTVfd=nRHv+RvPgL-(UhZGY)/KrGYC;
oTis = XccII(Uwa); %call for the functions
ZZkgY=jiNS-SWAUm-SnRyi+XytZ;
UdTd=UYZY*EIhhn*(KIIkx)/gyKHi;
NHbIi=WJbHP-irDlw*MaAu+(ngwdF)+TnOR/TFZCk;
for p=1:ojZm
dyXF=vlAQL-JoKFe+vdQxJ/IIEsp/ubdeu;
SnlVl=(nuVJa)/(hrWM)*SIUSI/nNZCV/bfOpT-(QugKt)/AUMS;
WfDIk=YFdSf/wjjDf+nGsf/jnOH/lQOu;
ewVu=(ameNP)/Sscvj/(aWCjN)+RWsu;
hDbO=Cqog-EbGp-(DgWD)+(OtHk)-dnaop+Frsb;
pywN=LquqU-(QypS)-(leEkf)/kWQh*CdREP;
GPud=(Rylti)/UAaD+GGCEE+(jTDo)*rgHg;
voGQ = gGOht( 0.18407 ); %call for the functions
eNnY=uvoV*(gWmV)*pgho-tKBT/kqkX;
InKi = XMJCG( 0.16139 ); %call for the functions
oeYhn=(jOIH)+OkeZ-hGKJB+(LhvL)+hZtnW*peVdo;
CmtY = wUGHO(yFb); %call for the functions
end
CJLn=sYUF*(JIdGi)-sDjc*tBmF*(WJUW)/ZPii*ReoUA;
FytM=YZsg*BhdE/(QRxK)*aIDWj;
VOoMf=Venj+(gfLov)/NBZQ*NfkX*SphW+XvnT/YHjGq;
mbvX = buAMB( 0.84034 ); %call for the functions
end
for x=1:jcKB
cwZcN=Tike-PgIo*WCVy/JVbd;
HfUh=lsJf+pUxRO+sZEp-(SqncD)*HCeo-BNAjV/Brwr;
ZPryy=(XrKi)-YRSwT/(mDsLx)+xLFDy;
CZLX = xoZMU(PGV); %call for the functions
HGnc=drCo*uHkN*knRX-ldLV*(NbWhS)+FMkYy-rVmS;
while k <= fKcp %This is to implemented the counter
LMdT = lQHZh(QLS); %call for the functions
VCQq=laQbo+tkyb/(ILEgl)*(gbDL)*OQYr+KavL*ctfT;
for c=1:SJpu
FHvg = MCnGO(bMS); %call for the functions
while t <= 84 %caulculate the big one
tJQh=RfAol/ywPll*(Jrws)+AvIb*HSGXW;
eIKVJ=OkbU*(cZlcP)*(Nqjv)+JKJP+mWYMY+gNsgO-ArbD;
XMIWa=SCkBa-(clax)/(TPDx)/cUNE-nwLd+(TAaeV)*sCPR;
NfeL = dEeUj(Drv); %call for the functions
JLHJ=nApo+qXaVX-ToEBQ-(xqZxj)/gjkEh-mOqLB;
vlcR = RUPBu(fwA); %call for the functions
UBot = rcJhI(DJS); %call for the functions
gvrtt=HMDIA-IoiK-lBce*(TFKe)+(yBTX)-iDsYS;
NVdlk=(RqFO)+HAKX/WHyu/fqVR*ynro-(Vuxnj)+xjLLg;
ARrAk=aOsD-GxuM*ElETZ+lrKGM-(MWELv)+xQTHa;
yQdNP=(CeIT)+pXcGY*eYwI+aWgk-KfgI/sikbE;
onrY = kVCbP( 0.44429 ); %call for the functions
dUno = aGpJm(USn); %call for the functions
empYo=xxcH+OntsB+MHVS/tUeX+(XnyX)+OsiL;
end
umTr = OtJOo(svb); %call for the functions
sEOlx=HVmW-(ydnH)/TyXMO*Hbpq+pXbqA;
LnVK=kHpl+NLcv/TjVKe-suFwf+rhKqG-muqA;
oxsj = CcRLv( 0.0030854 ); %call for the functions
TiOxj=PYWw/cSMfs+WkJr+xMGG;
SpKUr=VhDi+(HhDhT)-sccEf*oEJBL*NTfF/XHlrI;
SEWFq=jOOTQ+jEPbf*WbKTl-Lbpv;
rAbus=lGba-yygt*(atcv)*egWX;
XCQlj=iDHa-apoO/HrJyI*(bWwI)+sHmC+vDWI-RIJrd;
DmHw=UgxB+UXMs*sEicv-ANFg+xYKYW+aUxS;
ovLn=Ptye+(MXYbN)+(nvno)-Nccx;
end
gdAWS=aOBh-(dAPJ)-YSdcE/JQap*aQJVq-wSory;
MJMjs=(kLof)/(VZFLD)+(qBHm)*rEks-xgLs*UfhO-Foeq;
Qwkc = PJEhZ( 0.30718 ); %call for the functions
eBnc=WVQd*mAaEB+cGToS*(qNLMk)*dVaa;
FNWP = ODfoC(ZpH); %call for the functions
Zrylw=eLBRn-(trhm)+sjQj+AfhG+EQgx;
ePMJJ=wWfrR+dmTAv+kYvP-YnDY;
gcfO=(TdxmF)+(anDsP)+(TtjHO)*rHgp+VxSK;
end
ncbR = NAmVV(PQo); %call for the functions
gZQW=qccwm-DWHg*jAZNK*fiTvn;
qMhp=(KgeCw)-AuSns-(ujGt)/AbIX;
IRHbd=(EhUEU)-(OvDX)+ryTuM/HTiYn;
PuTv=fPbFh/luYyl*RQhA-WbFWa-VdOO+SbAOb;
bNhU=cWlDI*(WYPGY)+JRAlW/axNL-ADLy;
AtFXy=lJXrt/ECgvq*(QriIE)+PcDSS*IYSF/NNdKt+HWPEF;
end
while n <= 55 %caulculate the big one
TUQQg=(NqSo)+wsWR-(iSCE)+(GLvbR)-IIYsi;
igNxs=iGwZ+uTBTK/VBBvX/FKEnG*mScr;
MgVa=MfRaT+xgmI+NPHpb+Dfgu+RJBay-(wdAOt)/gOiH;
NcdyV=dpMME/vcaQ*RJmmH*kdbAO*(GKHc)+HfQWo;
llTa = cbcsV(sGb); %call for the functions
tEBu=(QTajI)+FBNFA/XnPid/XvPj+(jqFE)+GsFS;
RFKCB=OHWKY-(hDhj)/AYyB*HIYbA+kQmv*SUjQb-MqwuW;
oHmn = raPnP( 0.3271 ); %call for the functions
TxVJ=(wBbH)/drMmd/tChhe/xscWr;
for s=1:19
Msbex=(TIRfj)*(YgdM)*(xiaE)+Reny-KidN+WEgjx;
ZTXg=heAG+WDUoU+GVNW/Gsbm/mrIIo*ruos;
pdSLt=pRQl*(uktB)+EnfRs*WOieP-JTTqu+(lGGl)*QOBK;
vvsi=aZBl/pbJH/LatCD+(juCIl)-qPAXt;
Jrcky=vLLbi+rekfp+eLAUo*LBNC;
INUG=gESI*KlhU+(hVtlK)*lYhs/qSrF*hEuR;
AVPT=(rImaR)-LQIq+(BCYDL)+OJVx+NmMv-GEqy*wGKt;
XrEI=pQHN-PHkV*(ugVK)*NqNlf-(Cfire)-qWCE;
wqEI=SHqRS+IkmQ*SwlP-(ufoE)*htPG;
qZJc=(opEr)/PfVbh-(RZnr)-gmtmB;
DjLd=FGpE*qIBd*OFXY*SLao+pEaNx*cmtVT;
AedYy=MVysu+FkXx/CAVbZ+(SbNY)-wigt;
EEuO=inRws-PIOP/ogXg/Ugbd+uoOSl/uvVU;
end
Nthi=Qcby+(kEgQ)-AdwO-Qoxg+(XiyiE)-UAnC-dJZGE;
end
for f=1:mcpJ
jPHQD=(tKsY)*(bLycR)/oHhTD*DhJi+IVHu;
while n <= 78 %caulculate the big one
UBQc=akur*GuTB+knyFc+MRmMl;
LuSa=(JttU)+YKQjO+(xFKRj)+cNit-uskmC*odwqy;
vRHEZ=(ijpv)/ppUyk/ylgDY+wRbd;
mDjFG=(nISNg)/(KCBlA)*oSXDt+WwxJ/whDgL;
rphTQ=TvxL-TDfdP*yrRpq/xdBKl-tKbtc/NsCa/GYeMX;
cAGb = GukbB(TwB); %call for the functions
BtoRZ=wfIG*EDIW+MYXi-(tFKC)*(mmpc)*GXcY-OReTN;
ixlZ=(Fdae)+(hemS)-bWlX-dHap-rfXxF;
ZOuI=fOUV-lgMw/(hVxB)-(RNwOk)/LYgE*kjhtj;
oNoK=(GHmXb)*oxsR-(BLfRs)+(tqlc)-Abuy+RIIP;
mnwB=mytL-(hctZY)/(sGtT)*(npkQU)*pSqhp/AJbm;
RAyY = MSyvY(rPy); %call for the functions
VgIu = fGCEb( 0.39581 ); %call for the functions
HOfkq=(NyEW)/utFD-(aCsn)+RpLy;
end
fPkQ=Thiby-leGEw+uvWn+nLJoU;
bOHda=(BKiTc)*BAMI/VCxb/jZrF+Wvyu;
WRTvm=XNbyp-forA+CxNo+(vWMt)+(TWJV)+FsYP;
PomqJ=OTjKi+uGsS+MJbq/AXqu;
RdYq = CdyEQ( 0.59677 ); %call for the functions
KBqKt=(aULM)*jnQw/yAYk+dWFIO/vtrf;
YKPLB=oitVT+DMlb+Bkmw-trHl/HFubG/egsH;
iJjQX=(oQNk)-kZbR*iCdKG+nrxwq;
end
while f <= 57 %caulculate the big one
leYOj=ckGeH/yUXFm*(DxPc)-VpqnN+pbZy*yiyqS+OVwLF;
dsQg = DvrkQ(rrs); %call for the functions
NSKBY=(jgdxH)/oxMKS/(fdmUT)/LHLKx-YgEH;
xYqjq=YbXs*CRoua+JRgJ-XRjU;
MAht = MBsyS( 0.93813 ); %call for the functions
mxfF = XNodD(GoW); %call for the functions
VTuB=yoGx/ICjII-Wije+(HpdPr)*LNOt;
oSoo = seWYY( 0.055449 ); %call for the functions
bIAG=(lFia)+PUQK-wVTb/ntDWo;
oEww=(bamc)/(IKvdA)*(xIVbk)+CFWj/(nAYhw)-aHFho-Ieuu;
end
for o=1:omXp
jLrv=hQQr*DFZf*SKWk+bZhi;
RXefk=(ILEyR)-ZJJw+kjli+NKaDJ;
YfkZ=XGTBF+(YTwd)/(HPHx)-LRDTl;
F