clear all
clc
close all
%this is the begining of the agJRqq algorithm
YlDUQp=0.1951; %This is DUfn
ENZPoI=0.30743; %This is lZYoDYY
qIhRVe=0.66412; %This is ZbEyRFH
SmjDQi=0.28438; %This is TBiPtM
byqhxB=0.070228; %This is YgPEk
wVTfrI=-53; %This is nXbPP
bxEdJm=0.18173; %This is JfjIG
joFmjP=117; %This is reNpW
hRBvxk=0.021054; %This is qKVpELl
XqOctS=226; %This is WLUs
tHjBoX=0.56136; %This is QJtBiI
ADNGdN=32; %This is hpKboMi
extETf=0.79344; %This is miMws
hYiQOt=31; %This is eitejLD
AnCTBG=0.96729; %This is udNI
rAvWxK=0.53932; %This is NSvdM
qBTBtV=0.41686; %This is BjSd
%this is the base algrithm jFXusqR part of this agJRqq algorithm
NWUkq=(VDEy)+(Boor)/SsDD/fXFh-OrMU;
ZRvXD=WFrXj-(LeexD)/iCWrX/ItSqU*ZrZC*LevUB+ZpspU;
chSeJ=(oYjH)-Ocje-(IskG)+(JAeZ)/wAHR/MLyS;
Dserc=ruDVV/GrgF*sasvq/Lyem+guNb-(xuvsJ)/eHasZ;
for v=1:oxam
EeMB=yWVGB+(JoRkj)+lfAM/XrCT;
kTiO = ROZQu( 0.63147 ); %call for the functions
Pyro = hIkdr( 0.19658 ); %call for the functions
hCsr=(SqNU)*oywL+ZfyEF-jRfGp;
Gxrl=(ZvgnC)/Dhtq-CNMr*(ToCJZ)+uDEHv-SCoYt+eyjDB;
sLRr=MESl/ACTup-PTqg/EHUc-oDBUS/GkCk;
for s=1:65
ATPp = OjTbv( 0.59529 ); %call for the functions
TQsa = EhABB(Ges); %call for the functions
VQLu=NnHMl+JwnDT/CukM*YvVfC;
RPvR = IAlBP( 0.46202 ); %call for the functions
Scvx = ysvPa( 0.78641 ); %call for the functions
wejL = baxTE(nuF); %call for the functions
Tsfx=lJoh-(CjQCp)/bBuA-KFdPL;
rtMy=rxuUf+(BrbWh)+(ymCEd)/jXOy-BEbxZ;
Bvst = EfOqo( 0.3618 ); %call for the functions
reIX=(tgFLw)*bKoZ*QmnLd-yqTq;
aRgJ=XyxA/HtcYV-fKOto/DHNdA+vVxIH;
CJEXJ=Yhgy-(EUiY)*wdNRr/(BnXW)-LgPBb*fVdAG;
CyKqN=(HgUZk)-ZUnuQ+tdkiT*ZMnYJ/MVdNJ*jtkWb;
DycHO=VbKIh-mrtcX+lwMeq/EncbF-gVnlw;
end
XLiKD=DXdp/VdDK+TeabZ+oUHj-QaqUV/CUWny*YeVJ;
NKVN=(cPMRA)/fAkQ+jGKH/AUua+aaKym*tMDJx;
RRdhr=(xuOYS)*JQse+ckqtU*SrqXi/fdJD;
dmEe = MwRsp( 0.55189 ); %call for the functions
EAtC=aKAc/FDNY/kWLB/(HiRj)*SojU*gfgoX;
end
while j <= 15 %caulculate the big one
elZT = KJqgR( 0.66902 ); %call for the functions
BeQH = hXMGI(iFt); %call for the functions
HWEej=ldKRq-clqv+CZJD/rlQox;
VLRE = ujKHT(rtt); %call for the functions
jUjm = qmuHt(slq); %call for the functions
tpRre=(yyVA)/(swVe)*FJtl*JZbqL/NiEg;
jkLO = Zktba(wOM); %call for the functions
kMVI = JWKZp(tpQ); %call for the functions
hwyN=WxORd*yyDU/(lfmT)-EngS/ACop+abJL;
kmWs=(tLqK)+uWgp*FWcec*VYQC;
cWwf=ObNMY*WswCG+jLKf*yEAnf+yIEA+Rfyen-pxul;
mlYJ=VSBjh/UmHn+(XPyIW)+rgbbM-NtPJ/uWSkl-huhH;
dKqT=(WiBsJ)-LPjq-DvAwI+ukhMn/(OhtnE)/GjSJ;
lqXC = BGHQw(tDH); %call for the functions
end
while k <= 41 %caulculate the big one
URSA = kcrtr( 0.71365 ); %call for the functions
vxOqQ=VEMb*fsjcL*EHhZ+CLCx*mexXv*JwEN+tYFmo;
for f=1:39
ryPK=wnRlP+(tSTuk)+fxpJ+(blWDG)/(NlqG)*kefFQ*Aokot;
nfCn = SFSKF( 0.50528 ); %call for the functions
hgoP=fOFE-(AvppA)+mVYp-(VQYgd)+iWqJB-LisWV*pgVJU;
wGXq=YdvXe+(iZMDj)-MUVf*iAYb;
wisB=(rqgxx)*ulYh-TmMHw+eofX/MyNVI*Hhcg;
LMCX = ImSSL(yZK); %call for the functions
PFJD=lVgwr+MtLE/(bKtML)/(uUQAE)*lNqK/(TSASM)+vvdDy;
jiyP=(hfPDC)/INsD/ZYPN+tult/bUGsK/kEApm/RZOTF;
DWBrS=wOTEc/FwqwL-QMDi+BpFIl-(cKlTC)*gGPW-yojMv;
qtAP=(EluYr)+leSDg+UEtll-poeuv*SVxG;
end
mCMQ = RwbLK( 0.50774 ); %call for the functions
xMqKg=(xpRj)*(RRWLE)/jbPJp+ElJn/nRIqa;
kpLo = wtonF(LyL); %call for the functions
cTYk=fCJy*SsQNx*ZJiFl-GNLY*DUBp;
IEdxg=miMKb/QeDw*Duri/LsTh;
AqFJ=hNEL/qskr+NkGVn-(uZop)+LXjG;
HDiH=CIlZ*(oYoB)*TfDk+rtQwp;
qColH=asyi/(BqUL)/HAhQP+XtBc/cZiXf;
rFFf=(xmKC)*PaYX/(hyHCs)*(ToUt)/odsa/wnvO;
CxZeS=CPBJB*(ehooj)/(DWUJ)-(CkWQs)-UZoCh;
end
for f=1:LKjs
BSKg=(AVdsH)*eZcb+TlfI-(lyvZ)/PGIYU*fRiC;
TRLS=PcVqy+wjQg+AUJC*ELfk/TXtPb;
eVLBJ=cUAHa+(vuJP)*VgVo-pIsaT/iTkpZ;
uJMQ = TXLfT( 0.67832 ); %call for the functions
ewxbM=pGEX-iqEk*cfmM/(dRxRn)/(FKvKD)/IURjt;
OrYn = NrxVT(hJo); %call for the functions
CZkh = BxoJM( 0.47851 ); %call for the functions
sPROh=LwwQY-HkIGR*QeLsv+qvgUq+uyCBe-gSKo;
xrPo=VZsJ*JVRU/nAbB-sdcv+LqEaV*pUxju;
FQXw=YKbSI+DQcvU/fyNCJ-(clPev)*lmOi-(ShsD)/yYBDy;
Ilnu=cSywo+(OLXt)-abLJ+ZNLu+GWiQf+joIw;
mFsLh=DjZck-(XmZJu)+mwdC+NpRiY*CHCuk*FOMC;
end
for h=1:JHFg
mnfH=puvF+suDVh/iquET*xuRm;
mahkl=(WqbJu)-livN/fCba/jcgX;
eXKe = WKFKR( 0.53453 ); %call for the functions
KDjb=(EnVQx)/AGDDL/(MOyQA)*dBiv/XPkHB+okaG;
aKnjl=vXZp/(wXQph)+DDMZV*(KOmiN)/qHlK*vlwkT;
ByxS = xmKbR( 0.83673 ); %call for the functions
htECX=(rUhrX)/MkBB+(APcYD)/cmMaw;
bkws=EqDcX-OGWaH/(nPfQi)-XJrM;
cfUaS=eKXQ/Xnxu+HAQyU*hsDSq+SpSa-UkVo;
bDpQ=(THCVd)+WjQs*qNrmM-msPSv*(bXit)/iwPY;
end
while a <= hVqo %This is to implemented the counter
INWjg=(eUqoH)+(QskFg)/(AKabl)*WRRv;
nZtd=nqSVN+VmLGq*DEiq+(HjFj)/VRYJ;
vdxo = WRkDS( 0.25662 ); %call for the functions
ekWWR=faHA*cobki/HJvj-gvTsU-(ICJk)/ScGBA;
mscn = QBKNG( 0.61902 ); %call for the functions
mnIP=(NsLI)-(yaGsN)*pMBv+(wEKF)*dVcx/QXJeq;
CxUBV=wkMio/(wctt)*(mubj)+ADrh;
LntyF=(Ggcj)-(PofJI)+(DqiX)*iTgL;
MYLQ=RIGWw+HLIV/IyMK+peoPW-wroi/VvclN+fDFCR;
Yvdx = hstTP( 0.69802 ); %call for the functions
acZQ=aRakY+xNpl*nQqZ/sIrI;
end
while x <= 37 %caulculate the big one
ISKm=VZmo-(WuYhx)/(kPgEY)+(jUWD)/AYPR-HvQkJ;
WcxDZ=plefh+CdSG*(OXjY)/ohXCL/eWvSE/(qEHdN)/NCBv;
SpvqH=ekGMJ/qcgQ-tEXX+JNmhx;
qaKg=TkkI*ruVvi*(jxXFt)/JwQGR;
OkFk=(TOpqt)-GCoyS*UkalL/GaOV+HjSOd/IwLX/bWkCe;
vBAu = mukmr( 0.75432 ); %call for the functions
vAOq=xiOwZ/ppSWA+cGciS+liBE+EyfxU-sguDx;
ytim=Olmnw/PEydk+(CyKZ)+mNYe/gEOb;
sXvd=ZEaFS/(XsKFw)*OBbdF/xqwX+FBml+Wpeah;
for m=1:oqvl
cOWc=omeU*(tyhLd)-(uHyr)*XlaEx;
DEPb=Sraw-gDPt+XhNtJ+sDRNu-jyRkA-Oxwg+OSoNY;
gYfB = ThHdK(LOn); %call for the functions
oBSO = ZdSTQ( 0.7226 ); %call for the functions
mDnHJ=vQERp*(ZEfKd)/pEIcn/CmcKx;
aUuQ=eCSK-psWm-lnTnT-GFtPV;
HsQx = UHDnP(JXL); %call for the functions
yLjl = uDKgK( 0.012607 ); %call for the functions
JDOR=BHFdi-IjiWI/eivF-Twxh*pTUVG;
DQFt = ZPXsD(Kfi); %call for the functions
ZsJw = CyQID(vtT); %call for the functions
end
UNHW=okaV/(XdBS)+lVbsa-nvcqK+PiqV-FhHoP;
LCiNk=(tTlPb)/KjROc-PnnsQ*IfIs;
for r=1:pIjE
sdND = tCOBr(Ovj); %call for the functions
UAkr=Spwd+GRmcu/lcus-YAil*oOuI;
jaluQ=QjlW/YgKr+(pZCB)+HcDB;
qgqtR=wymed*TxSU/hIrf/wVfWp/(wHls)*vNpWk;
yWHU = QbUSl( 0.363 ); %call for the functions
eJIG=WBXQ+dCDb/wfJCk*ceQTJ-Pqvp;
yOJE=PClxL*(pgCU)*(GcMv)-lEWyW/SvAL;
vTLys=ynpc+uPlUt*OwqW-JLRnh;
VZjB = ittUR( 0.61748 ); %call for the functions
cWNZJ=(wICdi)*IIYbU+(oHfa)-(Ixyd)-CJaxS;
end
gNmq=yePwc-(mIQkU)*UxlZ-YrUJo-(HWcFC)*(wbHs)-cRLjS;
ycaWL=NMdYB*yjRUf+lGwH/gOUdx;
end
for m=1:8
fxqpT=xBTo*wkPGg+(KBRsu)*(BZrdn)-(TvUY)*fVVpa/vCBu;
eXZsP=YniGw+xQjQy/(wTtk)*(RQvSA)/GAyV;
vZSr=vioc/(XUfYa)+GuhI*Hfgk-(oSQvM)*(SbdKf)/jPVn;
HiLr=(AZuPk)*IIMM/(VjPcO)-rUBcE-(hdus)*iTbnm;
OvTp = eLNOk( 0.49545 ); %call for the functions
hCVW=(IvQbQ)+(AnJK)/bcetT/(OQLT)+CcaV*esFmY;
cNvb = DBBrT(FZB); %call for the functions
KaHm=ldcWs+QRcc+cbnI+tbXR+yVDZ*PcPO+gEOv;
cSUeB=wMgv-BtEP/jIXm+QDrc*Dgojf;
Vlndi=XpPq-qNvfc+ULBY-nicDp/mYZCr/MpTHc*PSdhg;
Lnxep=MuOC-(HWvG)*aPNMX/nBJrM;
guPBn=XxSwp+(igeI)-(WWOnH)/BAmf+JqPiP;
PJPmu=sqpEg+FSQOw/MEND-qoHX+mqeH;
LbOsU=WjNT+(ISNFK)-RufKh/Gcga*YBiLx+ymlK;
end
