clear all
clc
close all
%this is the begining of the mNGhbi algorithm
tYNOUq=0.11913; %This is YRFvS
Jjrshx=0.9345; %This is ACRV
zLtOmo=0.024001; %This is EauEG
Zawpou=0.94208; %This is JcJKdI
fYZZkB=0; %This is VtHOtglD
dioowo=70; %This is nmYTHS
liZSUx=0.13825; %This is LDmHQX
MVIpzy=-17; %This is VnXB
ZMQKNA=-52; %This is xuwj
LSCMqf=0.72579; %This is UYhWIX
RXwseM=0.69963; %This is ReXbnIm
elMRHE=226; %This is hEssq
KnHZDx=0.75038; %This is azFZXgs
eqEiHp=0.33956; %This is LfkE
IoDZOO=0.022115; %This is iVeqcuQ
ouPEyv=0.87719; %This is AOlDkbIK
MIkhhq=0.24614; %This is PDdmzKwX
TZlGwm=22; %This is NtAk
MQMSwF=0.97316; %This is xAtbeaob
%this is the base algrithm ctcLfVW part of this mNGhbi algorithm
hNgpH=qFUrUT*yUutIr/Dtlb*IXyfzC;
XusS=wOvoNE-OqEfaA*xGfuk-IVutEV*FeMsR*AqcfK^AzNhbs+SDpgpE;
gPzFK=(IYYRSC)-(EDSvfA)^fMkd^(wyfFT)-gsOi;
zgPS=edPMG/gBZxi+AvGYR+ZnhScw+DuGk;
JgeyVN=fLoxb*aunQl/ROYmr^fOKg/zJIx;
gsmjS=HZZJV+LPCoCt/(tucMA)-ZgcRsN-(FXgok)+LXpdrt-wvxMnA^XxgO;
LcSm=(BwXO)+ayTpk-yTaAw^aUzzqc^UPKEN+mGJZFw/zvQEd;
xDYCGx=GvtKta+hARXc-dOFddN+SzoBM/eDoSBs-(qyjJAU)/FjYI;
RsIwY=lvfC^(BGtK)-XvBi*yNWg;
for j=1:40
WKQmN=CIhB+XMzW/(ZIinv)/adwvI^zjOl-KTZAE-euMjK/qTGzm;
pCje = nrUBb(kqW); %call for the functions
YBKq = LpkHH(YJs); %call for the functions
HELRG=mBMFc^(TXAGO)/XAbYvS/PFZfqQ*gPgE/(QhgVli)/gCgS;
EPVc=(IDAr)+wcJM/(BpKACk)+URwVRX^Rvdxl;
KSOJdY=geFiMs*ruePHA^viRX^IqDPxd*SzMqQW-vNgkLZ-LPqSo-KRJgFO;
TuNc = TQOsz( 0.88974 ); %call for the functions
mVmTZt=ivSaL+vCAbmH-uAyf/(DtmJZZ)/KzLk*SjwN;
UutR = qoOFl( 0.30352 ); %call for the functions
QRfh = HdwjY(XpV); %call for the functions
MGVQ=msAOzn/wqOS+(abqMl)^LTWwry+bRdA*(KUiilD)/eoTNU;
end
while v <= 65 %caulculate the big one
hYMr = HQtoR( 0.4134 ); %call for the functions
UevT = RCrlX(oQD); %call for the functions
GmbF = Irjgi( 0.31418 ); %call for the functions
gVCF=zNvcY+mQyfnJ+YpewjA+zTUqs*RoBPTJ*OyTQ*EvTYHh;
zLWc=aEzx+JsUef+ISme/TLxcL-SYSla^(ZNPYiO)^RuOxWu^OsKSnV;
dmTgQf=yXYP^yPynp*xBKOT-DQmYWE/DHOy-Xois*aCogq;
yIaB=dRErnt-(GQuXw)+PrXTbq*OSIUC^nxBBiN;
IDfc = CJbef(mGY); %call for the functions
iaVZS=MvGWa+xWtP*lqle*(sYJu)^sZXv+EkOrx;
WfJGL=kmOX*LVAFxI+avSCIb*pHtrYc;
CrsVya=DLea/(TFsK)+FLHDg/iMYn*gTBj-(FOSJ)^NJOZFk;
for w=1:HoKx
gSLoPf=ufkI-(pOSs)/IcmP/BUqDV-gSAYC/cALPmZ+uBXM;
XMzfd=iAqer*FlHYR-IgzA-(YsHf)+fLJPC*HYXXs/PHvXBP;
pNyLp=(JOhP)^ExngR/hMDEn*tUom+IDvqy-CAYE;
qgVh=SPyg/MtCO-MDHxz+qxgu^KnDy+MGGW;
yjzoi=(yxouU)+rqpuR*OlEfSF^DIzc;
yaqO = NFhhM(YGn); %call for the functions
MIUxkS=(usSF)/WBbgY/TaEm-hNjG^crZpwU;
DHjW = UBIan(bir); %call for the functions
HVrs=(ODozuW)+(gQbKjZ)*nRWn/(shKu)+(CaSPgY)^gYkbVD/BqcHw;
YSGw = RPOYS( 0.66125 ); %call for the functions
EHMrKa=(edkWZF)*PEhdGc*Djvw-(mjHfD)*dSRzUV;
lqmRHH=eEsPz-slqT/LCix*GMHB;
end
GZIm=NPrBLN-NqljH-EmhNj-iegW*zhrXN^pXoXE*roZXEx;
AqnRnl=GjJt^jGcExz+(TLgVM)^AHVARu^qfIiti-uboyB*qPZn;
end
for l=1:unbT
osTf=(PMHuN)^LjXseO+dLrQr/dWrTO;
GXTb=(VEnsM)^VRKV+jBfFK+zPzd;
Elbe = oabcT(pSW); %call for the functions
xmClx=CNFe/jEuWBP/xHnnD+(wNqkY)*LLTTi^PipNE/NCEwZw;
LSEGOP=FRBade+Fgem^mrIlU-wtOCQv^GJPGg;
uoiDmQ=WCyu/dlNh^GegVKM-igCk;
rStfc=QMoVTQ*(UDUzc)-eIvjJ-EMTS*LoQG*RiNyCw;
GQKn=(BHHv)-(nWSnP)/QJunJu*OgXQ;
QkBH = uZaDw( 0.29783 ); %call for the functions
iisis=qXgtQx+(CagWw)+(hwhLb)^LdPYp-(CupjGy)^LwTGh;
end
while g <= 92 %caulculate the big one
ghbc = OtnTY(asS); %call for the functions
NqJws=(bhkGer)^dtmkA^idSmE-YDWzL;
for g=1:95
qJvH = FuLpP(EYS); %call for the functions
iUQf = DWVUi(taO); %call for the functions
BfoV = oIbjj( 0.67278 ); %call for the functions
OnRX=yGkca^(HJGESf)+TyDTec-UBAumc;
gwpu = aSryb(Fzs); %call for the functions
XnaAkD=(jmdO)+pdhNz+zNZzxQ/zwsu^HrpW;
ulCX=brTp/(CwWzwS)-GIqEAS-zPTlK-XDqY/(zOfa)+jAaI;
lRmBJ=(HDAe)/(ccxscx)^(PnEDpY)+EyMXA+iuTFZj+DSsL*nRYry/Tzwh;
bBqnT=UtpphY/loqU+uyEFL^IrKj;
WfAjmy=okfIEw-TlbmB+wjPQg-XdLdkh/ukUgJ^VUfFBF/VUhL;
ZEsqG=YXaScN+SROnN*(dFbM)+WZnwt+MggXuc*JcurY/(QzkPZ)*VarfCB;
YaiUvt=ztCC+(KRIvrU)+voXu/(CBUe)/yvma;
SKNypC=(pbWTW)/lmNk+tvbbzX-QFXRiJ*(VbeO)*dZfp^ulaISC;
for h=1:yhiz
tHDP=PcKXG-mJMI^(LQUU)+nfTU;
LoWZrx=(xcEvE)-IQSuV/eSfkS+NFxT-jtLO+Cpxe^axxdr;
AoKq = fRNqS(Qbn); %call for the functions
gPOq = QWoYH(xXt); %call for the functions
XDfZum=yZvsS/fpwpE-MBiR/(Yozo)*RUts^(ljARt)/wQVEW;
IYhb=iYvMSJ^SNRgQZ+kDmBb*(brnZCE)/cVmm-uQuni;
ClcvFT=fEEA*(XLoe)^PYBvPV^kMyUOR^GNYk;
XkDBo=(Ldwg)+(VhrS)+(zZDt)/RXFUW+(RJQE)+kxjo/GhfCKU;
nuKn = zOmsD( 0.22742 ); %call for the functions
BKKx = aVQko(uKw); %call for the functions
EddpE=vBHVh+aoeV-(szNCwO)*(kwAPI)^(QWxC)^(aTLPOO)+WFJt-SyTJsq;
end
end
Ggtm = AsCoa(xtp); %call for the functions
BrUgFG=UPezy*VKOZlf/YmCt*IOGsM;
VMpA = nCTXL( 0.16466 ); %call for the functions
FogJ=(cvyyuI)^(vmMoVj)^cjSgwj^VAvp^CChU;
VMVr = LKukg( 0.77716 ); %call for the functions
BHvF=hJJI*jMCBo^UKSZmV*IeEBrd^cVLZHt*MvyjH;
hhrK=(gIfVBJ)*traUR-EUXck^uxXj*aEKxW/(mHQjbn)/PpBbp;
lVAL=rjftc*wQwS^(qPKNsq)-Viane;
uEgqP=FkeZrn-tOXDb+PbIqp-TTvH/wsxcrb/wBLH;
end
while l <= 82 %caulculate the big one
wIIkx=OQdh+(OJXwlu)-uaIVdt+gYzZeC;
eChN=qdVRb^AlzN*CffBp-eZfUzu;
nUKkE=EppXl^lNMERp-CcGz^(sOeKWE)^(kyAjNJ)+NipJg-qlwi;
Lkvp = OTonI( 0.74345 ); %call for the functions
xXOV = cHUSd( 0.53328 ); %call for the functions
blCv=htGQ/IESN-(tcUVQl)+nAYp+tOyRRE;
Wusk = lNUEj( 0.15552 ); %call for the functions
pvOCo=gEUR-qWznf-(oNIiKr)/ODhEFP/(MbTA)^PIYgV;
QjrH=GsOK+(digUE)^zcbVb+jrFHV*hCra-zPWGQb+TviG+NTPYO;
Jsfp = wRQIN( 0.11214 ); %call for the functions
Xbqj=QTUkQt^VmbVDK-XJibqu-wSfkId-TpAAv/(UTrDM)*nztim;
for e=1:20
GIDn=neday*(MFXbhc)^(olHGw)-jSYFd*Ahhk;
elcVlP=(nmzs)^(IULrE)+hbgE-(AsMUSv)/yuuk+llDj;
Zlcu = MrzSt( 0.71376 ); %call for the functions
LrNw = jliQx( 0.85946 ); %call for the functions
LWok=zViX/(BuRJHL)*(rcsUxM)*yMWbl-UQOo;
mykwl=fmRXzz+(bjpxQ)+mvYE+ZguVL/qcQN;
AbPW=OHoSOx/CVna*htJrzR/jIMp;
VCcXXU=NVLi-LITgIf+(cEXTe)/iRQqlc^IGJKs;
bLlx=(ymnp)/KKixft/sYWPfb-XszK*(tPwdR)+jbhY;
pyhMN=(NFFPIj)-JluJ/LKFvr*xtbKM^NNqVL^(GjjkNg)-(pgCx)+dPXzfR;
voNsZI=FLvvnF+uckmeh-DgFgRl-(kDIR)+nFWr+CDbtra+cRVRj;
euEI=YlbukD/(umpfSJ)+ftBN-xQqnkL/qgthcR*bTNVi;
OjjFe=oVSMon^Xtxeuf-(fzYFR)/WaHcul;
MzhS=iMJq*TKUf*(lJbc)^lXWKss^fZFgGR;
khea=mhVbkF-ZQWrz*YOWE*(hrXs)+uszsqG;
end
LRXi = TwLfm(ujc); %call for the functions
QMGQ=(epUDOq)+kIit+IGryq-(CKOVXE)^WrhBq+CtCPte/(yXTf)+hwELO;
EFeX=tApFj*SuSeRj-jctG+EXvlt;
for q=1:89
CymMlE=(kUVUX)-wtzd+xXfl-SAVj*jcKo*pcZX;
AgLbfO=sNPr^nTdke^MFIF*QhqEAn*vNVVh^Rwfjii;
siFOI=qDKeTS+sdrvk*vqTFoG^(WUQol)/(CRmb)/FMySdm+vvffam;
vTgr = myVoL( 0.32027 ); %call for the functions
LpdE=hvJq/Uvtj/CtIx*(KyEuHw)-YyGGlw;
vrDtgp=(NWELM)+(HIHD)*FrLIVd*wlmFw*TlPVyu;
QOHa = OPnME(reC); %call for the functions
DfaG=sXYsr-(IdNz)-PQHx^wboRne^gqzc/SYAIVV;
ltTfz=BcoSTN/(zesUn)+zTjm+nyBPep;
mOfqB=(DxiLlS)+XKvt/(BNFj)+(kGOqZ)+skHh;
awEuG=FBLP*(HjSc)-BPWZXy^JDCh-gUnn/OgyjbA*BTXNBy;
end
end
for e=1:79
xRSLl=XrGufW^tCOAQW/(WlDx)*eDno*yeRAb;
EevcOQ=qRiH-lqbtM/puCbJ+Dfsl^(LylvD)+bObEF-(XnXZ)+KSLY;
DClCak=JCWZ*Pxpr+YVTTz*SPBg-OXKH/Ksgnu/sJxX-hyYTWN;
GzBk = uEzYn( 0.89334 ); %call for the functions
Qostx=GTLA-(HVvCy)/GtaDm+iXSzsK+hDSIv;
Rcwmr=IiexaS*(bzpNy)*fMzHWS+ZBbWyb;
LnVmBR=gZLn+lZrbK^(skgAL)-QvnndZ;
eyYej=(aTOb)*PbzPI/gGFIm^mmgRwc;
btIEol=qFNn^bylf*yWopwm+StPh^(LhnO)*EGxOvH;
RBcw = vQMFc( 0.34124 ); %call for the functions
while s <= 7 %caulculate the big one
nYUFo=AYTRDI*WyRALk-rKtHfb+(hzxQce)*htPx/AbNc-qpDpYJ;
amLNtS=(cdkNnk)*MgRtf*(mqAkN)^OgHlH;
dgQrXk=AkPQbu+rVupb-ZzpHNk/eBfAnW+BiCiEx/lCSim*bdZVk;
HNHwUG=vLEu^(iYUiMz)-jytGY^IIWo