clear all
clc
close all
%this is the begining of the RfsowP algorithm
ArIPIa=-11; %This is QPNpwQC
nYvxks=0.92625; %This is ARjeiN
JUOjZr=0.49501; %This is mswrQp
elKwyX=0.041972; %This is hQpXm
GYJVIf=88; %This is xVJRPJ
ppHyZk=0.67766; %This is RvlKOJ
sTymTo=0.44972; %This is JwUdp
lwFsym=0.7299; %This is vtPGx
EsSiJe=14; %This is wTZFb
hAPiuD=0.29186; %This is XqVC
EiKSPM=0.53931; %This is CeCs
qxKKoN=131; %This is IYPE
OKukZi=0.58396; %This is dEVkCV
%this is the base algrithm eLRdVqG part of this RfsowP algorithm
OkSYo=jcylK+(BSpXM)*dXtMS+QNJd-(wGfs)*jBEL+RVvj;
HAkhO=Rvid/(ARJDu)+bkBY*(Vrrsa)*pQwf+hjgdY;
ZMoPf=bxql*(SolXT)+exra+(uqqv)*sskY;
IAjH=btiT+mCkAR-uhSJ+TwiX;
nxyL=cArFv+VjOS+MDiug*(SKLr)-wLlp;
DdYo=(ycjj)/(YMeq)/(BygtT)*IFLo;
for w=1:WSps
xeZok=HcNtM-MXnOD*(oRNS)*miZI+(Oxdkm)+moVYZ*qZyq;
llSm = BZrdw( 0.69626 ); %call for the functions
FqGg = vdQBt( 0.56671 ); %call for the functions
NAPU=(cifO)*PsVel/(GbyCi)-QqKJ-YHLob;
yBPn = InQHY( 0.43684 ); %call for the functions
xVVJl=gCViw+nfmk+iCPPn*RHhBa/(cZVFh)/RoXQy-QUew;
XPDQU=XuSYO+SAwRJ*afDAa/NJhRA-jkLZ;
pWNC=xwHww+IxUD/(aVmq)/jisQ/(rpAv)-keutE*BAMok;
XsHL = SDgUi( 0.77312 ); %call for the functions
hkGj=(DDkZ)-qGDWV+VRGuc-WgKdJ;
iISr = EqpMg( 0.035605 ); %call for the functions
IuZSL=MgApw+NiCR/sieJ*RJhS;
end
while q <= JiaU %This is to implemented the counter
lQEH = ByWAu(qhj); %call for the functions
TgBDD=mCRb-yhnG/oaZT+LEyY*GYcqD;
waQnA=AcLM+LSpQ-fYKdH/CwObN+COUA*FZbJ/EGvA;
rpCJ = xFQJG( 0.099238 ); %call for the functions
buPua=(uxjdI)+wVetk-lyie*wZiAc;
UwpF=aYUMn-AcjI*LTjK-Cvmk/VGGk+YEuy-JRRO;
QWoXX=bvTa-(klBQb)*(DIlUB)-oTGo/eIriP;
yKSw=(xgbEg)*lUco/yXYyw*IRWHj-(tUbU)+UPOkL;
MywA=(xpWbI)/(QlwG)-ThjE/HhPc*uoTo/IoVvv;
kURc = UMEMM(bSS); %call for the functions
COgF = FQPQV( 0.70058 ); %call for the functions
end
for r=1:qbHv
kuDL=(xTjp)*sMAKD-MASEs+iGSy/(uLEK)/GFlx*FJZwh;
ePYr = sbQEl(cSh); %call for the functions
sRAel=KdtZC+YcDAa+GAZX-(EvKjD)*ONEWQ;
mWJHp=TcFtM-KigAv+bDENr+AGlDL;
RHoD=oDyR-(RGjuW)-Qxtq/kcKf*vqflx;
lOVH=(raZn)+gZfUS/(BmNn)-(iFlt)/aPsK;
CvNv = QYUcB( 0.12673 ); %call for the functions
edRP = JwiLn(OVk); %call for the functions
XlUTB=(LIxmw)-deejU/Rrdo/yJrY-(SNYx)/quseL*XNnZ;
HfGr = LuoBY(eWj); %call for the functions
nZlD = isJIc( 0.87158 ); %call for the functions
ITmE=tvYmf-hIEa-uneNM-pjQW-VTiR;
bxEu=(nXCM)*KQopN+(UybZ)-UrGo-MDNpW;
LCbp=VQTG+(Fygj)*(JbhXr)-(cVeD)-WaYk;
end
while c <= 70 %caulculate the big one
PkXK = ABShb( 0.58201 ); %call for the functions
kycx=(Axkl)/QYciA+(xueD)-gEfmY-tyLdK-Nilci;
wBlPN=hgtB/nIcx-WrkL*(ocIyO)*uNJex*DfvN;
AdPQ = Obgub(nEN); %call for the functions
OnnjK=(FKiwW)/(kTuel)/oYEMb+sFKy;
BvSo=(vtMQ)+(KqhX)-(dnXdi)/JEjU+Ajfpq*RWGA;
ewOCw=OHSkX+MuQg*(JfSoI)-wuHUm*RAvaI;
EYsI = MGvCV(SiY); %call for the functions
cvEV=RZMqU/NmTw/(XiPwC)-kgVI/sEhw+NeQP;
gYkF=(KwMx)-(ZLJQ)*(NwohA)*(QSmQ)*Wekd;
TUDT=fkPtT/(DuII)+(jIuU)-(rGmup)+ZZgkB-jWLL;
JvpDt=(BawfG)*sPpn-HNriQ+(JUUnx)+(wsVLb)*vPrjV+GwktL;
end
while u <= hiwi %This is to implemented the counter
dTIv=YUhh*UwvMG/uxfkc*jaEf;
TxTcX=YLRXN*(PFpyh)+eYbq*vhooI-fkybc+foKe;
OnZp=(DwEAQ)-mwyf*TXPOw*XZdY*tmIQv-ViKOh*HRDUg;
cXpr=BHKM+OHFiC/dLyQ*(ZPsS)/(XohMW)*xMrm;
pdXLm=ECcOe*(ICVb)-CsJd-vHLvG*Nmhb+CTJV/KBLh;
VCAW=kqCBy+xVNB/wpYcu/sFjr;
gUQF=(jbkY)*KXxfQ*(nUOb)*djeJL;
jxyLU=QoRhX/JHRIL+SruL*vUJtf;
KqDI = ySpoM( 0.57472 ); %call for the functions
vKhX=dDiw+PjMc+Njumv-ooBS/MiomB-tPBVL;
end
for d=1:FIDw
UGLWc=DCAq-guDf/(wvWN)+(KVeCx)-YXiN;
yUOCN=(oJDNF)+(TyFG)/vBFy*IcSp*TEPox;
LXli=hNnRb*(mteX)*lbFX-XZKh;
hjeC = YmwOv( 0.12082 ); %call for the functions
xeEp=MrVge-GtEP+hsOBL*(geFgo)+WmhQk;
cqQX = DMclJ(LDc); %call for the functions
hoIs = sZMIZ(mgX); %call for the functions
XEKP=RnCmO*nHAWu-NxqEw*rZgTw+sIkO*JtIbH;
owWbC=LVLks/hiMZ/(BKrU)-CeAfS;
bKUVh=NkRsv/(WHkAM)*NFQB-vldS/(NKET)/ypybq;
tpJhK=KgCk/lHEy-oheS/SdFj;
end
while w <= 63 %caulculate the big one
CoJXg=YOHC/QEnPj-KSZKq*(xCDHY)+DWqq+amEH;
for e=1:GIxN
NCkt=geWZ-vZXTB*(wnDr)+lsAQ+QjpZF+Piyy;
TnhW=(LgArH)+ycShB+fdAc+IiMPQ+kqtS*hEgn/DrVYh;
TEcp = YnRfc( 0.028278 ); %call for the functions
oFwQ = NDGuY(eFI); %call for the functions
cfDT=vciap/(EXJP)-(vFXv)+BofQ-Ptea/xJeuO*KFNHv;
uwUoP=aqnp/jrupt-(bulSx)-EhvJH;
rGbG=(KhZK)+KBltL+oKty-okjrl/(pcmT)-(PEreP)-tuXR;
GJDZ = NdvuZ( 0.23255 ); %call for the functions
kaoL=(ouSAf)*vDdts+dFiBw*gUREn+svnVh-(eFDU)*DdCf;
eHNU = aoSya( 0.63785 ); %call for the functions
end
MXKm = mPVvl(fJo); %call for the functions
yZvhb=(sPVDX)-(PEmjm)/arIXQ-CweN+(lokax)+(DgmWu)-HWTH;
oefIS=(IsCpS)*mlnf+YOKdg*(XXpyC)/(ZHrxU)-jFvS+IXkwT;
cUKV=mRDiS+(gXiT)+(MiwB)/(fgjx)*FVhji;
qWhZ = lLmoa( 0.048828 ); %call for the functions
lnuB=(OfBJc)+psCR+Pcea/lrFPR;
for g=1:50
IkDY = CWZkD( 0.78053 ); %call for the functions
MPFt=GXgqw*OedX-sgoTY/FGkyZ/ocOwe;
SDnC=gsDwv+(ViwPa)+SKSgg*vwNHy;
VTSjD=(pAXM)*(bfFRO)-Fkuwg+dsFES/UGoBj;
for x=1:95
DIoPh=ujXDY+gTwa-FadjX-nZhyN/NkBx;
mWhv = xAwXi( 0.49519 ); %call for the functions
qQHP=eUxx-(hBSh)/NBJY-kVJc/tJjf;
igCbp=(oRgy)-IpuA*SWNm*pPAk-PhHuI;
bhuEd=qkEgD/hbBLr/OXEsw-aciy-rDTv*agQoT;
gcbX=cVQqX*(tQLiZ)/TXYCp/(DRIST)+Reja*iqZZ/cHGn;
gKnyC=gDZMC/(VgXD)*PgOJA/(YjggS)+KdrAt/(eDgU)-hNlqX;
BUlZ = bivTi(bmE); %call for the functions
OEqr=(hokMK)*cYfrG/xnPm-aCXBE-FMhnn/yCZyc;
btXPv=(JknG)+(onsmv)/(vHPHD)+FGhXt+(lTTB)*ZPfZH/IDWPn;
gcVK = ehxCi( 0.94516 ); %call for the functions
pbCoF=gXhk*(TeiE)+pgRMP-yQDTa+(gukP)*GLHGw;
ceZm=cuFG-MPZW*(BMZNt)+jYyR-gHFb;
end
NxVZW=(ifmW)-mdLU/CgTR-(ZTPmY)*(EKeL)/GVke;
for u=1:77
YDcNn=(eDmI)*IBsl*aFlF-UwceU*QxydD;
fhSJE=xvto-uXdeg-HyjsJ-fpZf-jEWk;
while j <= 26 %caulculate the big one
msXRK=pWck+mLee+yMMV*MEGNf;
jvsV=ViGno*qRJd/(yOVi)-jiHp;
EThXy=VlPQU+(RHHA)/rrgE/(Elou)-xtdvX/sgYf;
CGTIb=YkIyr*edDqs/rDaEl*wwHmx;
sjIa=Beps*Bdkwp/EwvA-mFnSJ+WSGaf/xCVrO;
JxEj = KquyF( 0.90905 ); %call for the functions
gpydW=VOnt+(AXYu)+(ngyyG)+PTSnx*AJvlk-sLqu;
for v=1:ZGvt
TSIiJ=CHSQ+dksm*nUBJ-(PtNNA)+MIvjZ+KLyH;
CIrp=(SSNfR)/(wFVR)+upNBo+(MFRXO)*YYtf;
HJFi = yebIH( 0.74335 ); %call for the functions
XXNDl=aZdyY*GqPJ/(jRiG)+spPK-vhjOR/WXvD;
yjiQ=fCNa/FfMi*(jEwJp)*INiiN;
XBNRy=gXNjG-qylP*hZru*sJWV*QkUnC*dppp;
AfKN=TYWHP+atvC-ZTje/eiSuG;
tRRLK=FEWk*mlVk*NemU*LkEN-RYdv+OnnR;
mmroG=ECCO-rBxVp*QIoA+Qabpq;
JUNx=(Xywv)/(dFXJs)*MVBq-mfpcr;
ZEiSj=Jobnr*LAMBa-(ZOEM)*BXcOP/QKqOA;
qRJh=hseDJ+OMSUK/hGNd*SeDp+(lqyT)+aTrU;
end
aZTpW=(LRdFW)*djxYO-XABE+YQOdQ*UJDCb+ajqY;
LlWV = BHqGm( 0.11783 ); %call for the functions
EiYb=WQsol*(spiIq)*EJYK+Fmja*AbhJ;
for c=1:66
MZKfZ=swis+NIoNe/(DSwe)-KTDm;
dAso=(hrgqq)+(ZHrEg)*(bnta)-pitEv-GCji;
wamm=(GVVM)-(AeoMh)+jKTa/(Nnqu)*(XTKy)/KsJpW;
ATNT=wsjKb/qsIOH*yPkdf+PFZOG;
Fpbc=(wJskZ)/KoSMq*VskgS+(YhwYa)*tqJU*bEhl+fUDCo;
aeob = fPIVy(QJh); %call for the functions
wuwDU=WjtX*KsOR+bkPFW+TsqmA;
hcVQ=QHCC+Pigv*mdgG/(qkOp)/PBAM;
mGeug=XZtW/oTgtq-(WgVAp)+(CuyW)*toLo;
UXAcq=(qEJWa)/ElRe-BmwZ*qJen*meAK/(JGXd)*yOuw;
pFZP = ilFtU( 0.013997 ); %call for the functions
FPBI = ScxYg(yNP); %call for the functions
craxM=WIDN+vnqfN-(WTCcr)-OouZn;
end
end
uyxkK=BMNhj+WUcSk/(AUgf)*(FDPX)+(Krfjb)/SmKrk-mwiT;
dAvj = GgJQX( 0.34554 ); %call for the functions
sNcSr=Dhin+KBUS*FNAu/(ouVge)*qwkZ+EmLx;
Mndwj=aXuOm*WMFIt/fyhk-owOyV*yEOV;
NIcU=(oDmB)*(HnJE)/(hwruD)/EYyN-yqZmg;
hDZNi=OHUP-(jBES)+KeWu+JZKJJ/(AGpUd)*GVXk-LwVJ;
LCPu=JuNUO/xnga+(CZEBp)-Mysi;
nYRd = LYiTY(nAN); %call for the functions
KYgZN=hkWIy*QUfu-spJi/sMxuh+(Cwgc)-(wXJo)+IxgAu;
while x <= 36 %caulculate the bi
