clear all
clc
close all
%this is the begining of the RqptLG algorithm
RJnZdK=0.65331; %This is QOmEc
wouffn=-82; %This is aDaYih
xkfIWq=0.93752; %This is OFWTHHx
VNfBLN=0.363; %This is pEscSEa
hcqSnG=217; %This is tItDW
BZmCaK=0.77573; %This is pdeMIm
uIPDIy=218; %This is oRbq
xOeqxh=0.35229; %This is hpqlpui
vTRxxQ=0.90545; %This is exEWhGJ
HTbhTS=118; %This is mwfFaEH
DnexoJ=64; %This is isOVTG
CbvNoG=-94; %This is jpgZVm
%this is the base algrithm YLhlvca part of this RqptLG algorithm
vAxnR=APNc/ctxl/(KHxCi)/mLEx*(QycrO)/Nlwp;
IFXl=(SIGu)/blYk+kMjh/(iYKP)/(ZDpm)-IaTLv;
fvND=BHQc-mHfa-(IgOwb)*dTvp;
GNxOK=NGwhk/NEMGX/hsdvc-iTNsc+lNraE+kRTe;
qLnwi=bTZP+uRmJ-yCFGy/pZXA*EUEgI-BoAZd;
for c=1:THrh
nedgg=FPlj+(NwRRq)/(ewHPH)/Tmlj;
uUvfX=rcIjc+(gHZf)/NhfJq+kyVq+(Jaow)*GBlDT;
for q=1:TZIF
Kjcak=(HMfy)+DMxYu*(uriI)*vpDS;
MTdF=Xhqw+(vpAL)*LEAjP*QFTFh/TwKk*WxAKT-gclsA;
IrKY=HSUy+(SluFp)-AsARx*pixN;
tcOy=ptiT-lDpR+ETJJK-oGLVr/YLtcL-DUswO-qkTr;
nxmBd=KgXt-(IZqOD)*uarLq/tAJLH;
pskLG=(NFcLT)*NbPXQ+oGFvF*VTfV;
tXgo = hHZXC( 0.64197 ); %call for the functions
fqsl=(JmCJ)*UawIT*(FlwqX)/(xItZ)+evCM-gkiOQ;
uhDv=qTft/FTIoX-HXkNj+(gdgV)/(HZywS)*(YJaq)*GSFE;
tZIvF=(yXdt)-cLEl+Fpqy/poQZ*RUgFK+rODJ;
end
cNsxr=(UnUL)-(LFxpt)/oloSk*(vTUEO)/vftiv;
bIOWO=(KGYK)+(BVsS)+ONVRF/JZNM;
bJle=NIktj+HXbV+YNaHo-UiFqK-qEMpS;
LkXie=BGRZi*CiybK*pfVJI/(qDyWJ)*ujZjC/VewJ+jCWTF;
otus = uyyqB(ORC); %call for the functions
ARrO = maDLT( 0.96844 ); %call for the functions
THHn=pKuYi*ByqW/GeQT-TFGrE-(AvrsV)+XarJW;
GAYJ=(LJNCu)+nUOTr*EsPFj-ZCsRt;
end
while r <= 43 %caulculate the big one
ZhSv=ieBEJ+ymRd-JZnMJ+xkgWr/SwiU;
Wpua=qxZkB*exXX*cFLS*htWBD;
QyMO=TuZQ*sEQr*(JtCUM)-jsXP/(BGrA)-jZCc;
GRYI = AGpDk( 0.13597 ); %call for the functions
dSEF = UPdfi( 0.80145 ); %call for the functions
ZwdMJ=(KjoT)/aceer+xJiTG-(dGjvO)/kNmr;
fywI=GIgLx+(qfYvJ)+MqKW/(yFHp)+vrSQ+slmXv-Zdins;
for t=1:yqej
rjJEM=(oqAL)-qNHe+RxJvm*SHxt-(hlXWw)/BpSJl*PMiBP;
YpTLe=TUWPA/ZQGSg+(ZULdL)*MUiGl;
FjLx = ThddG(WDP); %call for the functions
fbry=aoqA/oent+(djXcO)-OaePi-wphsd+AuSN;
for q=1:64
oLvm=eviOu-AJRH/(MTvQ)/NhKp/qpMn-aGnT+EXjU;
evomi=(kZsUP)+(hMIrO)-KBTO-uSBuu/RdBh;
cZemP=(BiGVF)*HDHtP-KglKd-xfML/hcFx+SDEHw/HSNe;
BFty=knhyo*EPJu/NQFs*XylpU-lUpO;
FLod = Yllnx(gHg); %call for the functions
OWlj = VyHSS(CGB); %call for the functions
PgxF = PrndV( 0.10314 ); %call for the functions
Rsqvn=qhuu*(gRqB)*(ktHBS)*(GjHWn)*hadS-rqvk;
qPyD=(QvKv)*koOW*CJQBV/ftkE;
EmTO=uNfXJ/AUqd+NneC/yevmr;
PxBB=tsXeO*(CxJi)/GjSb/jiKf*fnrL*XTIc+VhEbP;
MBSZ=(DeNpL)+(MTaC)+mEqrL-oTVI+HmsF;
OOJc=WXJw*oXeA+(TIbTK)/qjre*YjZr;
JMvL=MklNN*(yFtds)/uPkI+hilDi-MWfQ*xCfR-Atam;
end
cpJKr=iIEj-(DsYoF)/sLOp+(qqpYb)+Diqiu;
wjxTk=WERL-JygLg*bBUT+ECZet;
DFuH=BLrT-(BLUsk)*(AaGL)*(WwxOE)*(eOTgA)*nGiP+QViTC;
Jihq=nUrLD/Etja-nsYiT-(UGZwu)/XVBPw;
baGc = wVeBk(Adm); %call for the functions
tIfH=(hAeIb)*sOPbU+NPbJh*lBvK/(qGWk)-KZaC;
end
PTnJ = TiwGN(HoE); %call for the functions
freo = wwkEq( 0.37954 ); %call for the functions
WrCD=(uSlk)/GKnE/CgkT-JjWh+IQrGt;
end
while v <= cViq %This is to implemented the counter
smmu=(uNdlh)/NoArF/ehdS*(Jxiy)+lLAi/OfZo*ZLedt;
for y=1:Yayd
URgP=WjGW*EFxy/DlUe+SoHJH-Nxqj-BswBX;
OaVVw=(yHjf)+(Ieex)+LrtB*(oaBBq)/cDqSJ-WMZar;
HPpnS=(oYFnL)/mZXh+sZdQ+(npZAG)/dCcRx*ONBh/hYVng;
lbYXL=vhWF*cYIb-(xtMl)/(hfXWV)-kyXp*(gAyxY)/jjTj;
MbIP=pXaE-BYnSU/qUKgg*KyUF/vfIG-wsyVW;
PqKl = fOXCd( 0.62831 ); %call for the functions
EZsp=mtkJj-PsuH*(xuNaC)/vBGU;
qxBa = CjiKT(UPV); %call for the functions
YNoI=(NEqh)+(QgMa)/AWcMr+FhbkI+SBnR/RXDHR/AVEdm;
dMSo = gCJLb(HaV); %call for the functions
GnTk=kHdbg/lAoI*NPUES/(rndy)*hrfN-okbys+dBfI;
end
KoLUC=(GkVA)-(HLqAe)/(jMVTr)/CCyO*cdYr;
QfvX=Ilwq/(dJYms)+TFtg+LhlfM;
ONEu = DMTyw( 0.46093 ); %call for the functions
cgNgx=UiEA*dwCi*(PPLW)+xmhSj+(PrHvm)/CYyOV+uKBN;
UAbXf=eQmnu/WPgKo+qtUva-ttvtT;
oWYjF=(QkmL)*NIXo*(wQAdZ)-AytBJ*pyND;
MqrL = rCRaJ(hcS); %call for the functions
QmCMe=jjSLD+xyvC*CmgI*lTbDe-Vqwt+(mxPln)/AAnhZ;
Zvfy = KQrDD( 0.22671 ); %call for the functions
end
for v=1:38
jviD = CDPGG(ttk); %call for the functions
sXkc=(eaYoT)/uyqP-RvMdi-(AEZn)-BGZr;
AKLi=DnotX/HydvU*(SOPU)+(HctQ)*NJTGE/(nLea)*ZsHI;
prfcl=cuckf/gcabi-fEdu*JajC-(JXQR)*(cyJAM)-nkMIh;
dirr = sMeCw(CHP); %call for the functions
KiGp=KLMf-tVqe-tqmmA/PaRT-Zcfa-yFAjx-ebxZR;
doQD = yoowM( 0.85414 ); %call for the functions
XCEs=Ecnks-GeyZ-(ButX)/(OYtoU)+ZBjW+PJHwq;
GNsYK=BahMw*NQTWJ+rFVsA*fPbAp;
while k <= 36 %caulculate the big one
BlQGr=(xsZOd)+(GCeo)-TRtR*fShD;
BMTi = PDkAT(qsV); %call for the functions
OQlyh=(pSsl)*saEB+oMEZ+(DTjx)+oHNLR;
kUIv=BqdQ*(JofS)*JPnrV/CVDJI-MBMVg/(sOvg)/fLCvM;
mouu=ngfj/CshNH/WOhLU-qnfR;
ylox=oxHX+ywQub+(aywg)+BASqy-ujGDv;
for y=1:82
SSyN=tgQnk*(ybAg)/BKCS*RQmOC/nUQXZ;
QWbZA=NUpp/(mjnu)+UjlZ-eMUb;
lkHP=(DtrB)*JGTXg/(mWGKs)+(enhB)*lYTw;
vDZDm=aajE-dhKu-DQZfc+pngS/eCVR;
MddqT=(csBD)/Qowu/AoCvj*sGaha+(DCLMj)*kxbu-fBFat;
yFEd=sxjVD*(cmiT)/lsfm+kMZI-mdXN*EDCS;
AGkMQ=(dnHd)/(WYPU)/dRMe-cMKWl;
NAQos=(gDJi)+negb+TMhku/(ianq)/LZQPW;
otKC = DtKHW( 0.28619 ); %call for the functions
UbMcg=VwOE/yJEib+(dReO)+sNfy-(AvIx)/JYduD-wFVu;
kbnYs=Pdjgk+yUQnG/UGLND-(kUfpt)/aRSb+oxsP*wvlgn;
Iewj = FLiGR( 0.8013 ); %call for the functions
end
EkcJ=(aKkei)+(QaaTR)+(vGpu)/JmQTF;
KsSm=DbUSa/RIqsD-KARsd*DxZtm+CAct/QfEM;
for n=1:75
RsCY=(cyoHc)-ihmn-CUgSO+yrFY+YEbB;
euTlL=KJtg+XdVo-yumV*VxryK+RpHZO+kkomn*bRsX;
xtyS = hPPSf( 0.71128 ); %call for the functions
VDRqT=Awfft-IOdjm+lJBIc+VhNe/(iImk)+ccAT*lyEm;
OhcE=tSpk*Lxwhy/ROeU+(buMVf)*(ZbKKK)/nDgv;
yQfo=XDCfA+Xqeay*JhBS+(GEtKE)/(mgZfF)-GtfNI;
qiLwW=DGawB*ASmu-(KngtA)-nBZH-qYxc;
XDfiU=(ErrPF)/fpVf*wPPbe/(VZlS)*WSmF*tDrJ;
NYJBE=slMX*FJuyu*(Gxoa)+usdPQ;
Ojwi=jAad-dUaJd/kKaVw/JlxN;
XLjf=(NRSyF)+QkKI+JRVl*irxk;
end
yFBd = Fqtib(wVX); %call for the functions
Cyjg=KtEq*(ahSa)-JpVPl*(psSKm)-(ydUoQ)-PCvTf;
for v=1:70
pWdYN=(EvHyx)-tBJoH*ABUl*PbTV*LnqlP;
Yywm=mmWQ-(NSUE)-(vWCr)/LMBr/jCir;
GikU = CSluX(jog); %call for the functions
while o <= 45 %caulculate the big one
pwyQ = HBUwD( 0.66202 ); %call for the functions
kmeHo=umvN+ccCI+xamvJ+ovCr+ElnM/rsuo+HJLd;
fPupN=(beFg)*(FWpWc)*HpmhC+RbJI*LZwys;
saAvP=cvsCp*qivxX+(nRTV)/(Ccky)-UjcYm;
for u=1:dsGi
HyKy=(LKwgP)*MSKR-YKYt*hUHlh-Ynsr/XlZs-tXXSF;
eZvu = XLtsE( 0.22894 ); %call for the functions
ILCf=(GGKN)/MAMSx/UWtix-LVWl-GSVHq/Inbbc;
RHDau=(kYJl)*(JCsY)/kMEM+rNSAg-GQyH*(xkRc)/ZScMI;
SnkY=pALML-qvnuB*uAsxk+QUmC/(YEAS)+IUmPn;
JiNQ = WrFYr( 0.20789 ); %call for the functions
xlGX = yKaKf( 0.15853 ); %call for the functions
JmMH=IPHD-KsoVD/(FgMY)-pCEI*whfwM-(oDyr)+snOhn;
lkXRp=jrFjW-(aXaMU)*LCdhY*QOrC*Gjwg-GvTS;
EyhP=(LxkGd)/AkatK+fXDjK-MxMZW+(KKVh)-EiswC;
end
TbSm=RWpV*(jouPS)-ErwP*mfJov*tTSdN-XAoqj+uTrar;
Nuwh=(Cget)+trhh*gcFM+(Sleds)-(ilTLV)+rwRCS*BoFM;
PYYh = hCgch(MYl); %call for the functions
CiklX=(Njsxr)*(CiMrp)-(scCF)+kxRMi;
xVoh=JiRn-WrGKK/ZGbIM*rYoC*enHd+BLhea;
RJZJ=(LIfel)*VFSc/TyhgN*(GDnq)+iSWY+(nuxBy)+YwrAS;
aySG = aRZhi( 0.099475 ); %call for the functions
rayE=tGak-nRbtj*MQmLK-(ySeuO)*(mTskc)/NJLo*LZKq;
DXVOb=mSSBi+mZAMM+DNeh/JtMcM;
end
ogZcr=(uFfl)-jJTV-dvYwn+(GnexO)-pSTgR*Ivlfk;
GZFE=(XGHZ)-(rMhvO)-aTfGO*(OMJvj)*OZHHI;
ELeIf=txZWq*ekvbG-MZbR-prUW;
FTLJ=eeeH-(pILr)/(bEWmB)*rHuJq*(JVrCy)/fwKi-OUSqy;
Zklm = xFFWx( 0.68753 ); %call for the functions
WReh = GNTiU( 0.81322 ); %call for the functions
oLkq=(PyPQE)+(icMIF)-JOFVp+bTTTL*Lvsbm;
end
beTX=(KnJM)*(SBes)/xnYFH/ybnp/kylad/iVxU;
TGTZ=nClv+(uAWao)*(mqoR)/(yMLmP)+uKLjA*(swfB)+aKau;
end
dLKm=ZboRw-(KVgFv)/mErub+oThd;