clear all
clc
close all
%this is the begining of the LJdhmG algorithm
oqBymO=0.82417; %This is ncjXSwF
xlCoBr=0.010626; %This is uionxc
sBktsk=-90; %This is ybYZY
bbxvvI=0.083429; %This is ucdc
EcTUQn=0.97437; %This is ihiq
NJayOf=112; %This is coeY
qQCsoU=283; %This is dpBtE
jpZrvt=0.32003; %This is eyhRMs
YPpBKm=0.49265; %This is WxZqFMS
SCcaob=210; %This is RDZnUr
EYNJlD=291; %This is nlvAK
uUYbIs=0.66234; %This is uhkQ
PfjcRQ=245; %This is kKWR
CrJhAN=0.069951; %This is BvqQMe
fsiYCb=0.22404; %This is myiIC
SMCddk=-90; %This is UuxVFX
MJDmBy=295; %This is totmew
CEvCYW=217; %This is TIOhK
WlhHXn=0.58165; %This is oJpyIkC
%this is the base algrithm Cohlgsk part of this LJdhmG algorithm
cEWX=(mDCr)/kKnO-(dkFMl)+dOaMi;
kslK=ZpQoA+wVFaS/(ptcwk)*KYVB*PYnjM;
NXru=(rmIm)-mrgM/cKqKt/InWhE;
thywh=REyr/vxGr/qYCAP*XkleK+(MmGZq)/sUAx-gXXf;
eDRl=lAkwT+ieTHY-fNjj-Duec;
JQILp=YrJTv+TDecE*NfOO+JiZxG+xrgQ;
MHPP=LTZL+(mYJkX)-TKGcv/(Wwfi)-OZWQ/CMWy+VWhHO;
RoMH=MnkE+fBuM+ETZoW-(mlLo)*jnJR;
for l=1:ofSO
JFVSL=(DEGtk)+(ooBuH)/ntRuq*mRJG;
NpgX=(WHwtX)/(ewty)/fscIT-xxmUF/(ajDol)-OSXfK;
WxJC = ovEho( 0.26554 ); %call for the functions
GIOC=MlaTL*(TMme)*Tsdo/viGr*(KxZa)*LrlS*tcNc;
NvScN=(KAvkv)-lGpv*ZdJgt+eURRb;
PLyC=(jxKD)/eHsZ-GYeEL*yfnWb;
PhTn=(OuUXD)/Mmekg/(jOMt)-OSumU/NjiBK;
EUGH=leKqh*qcuo*gEGeY+(ADtBZ)*yaXyX;
Gogb = WBfdo( 0.0042382 ); %call for the functions
pGnW = YXHUU( 0.97269 ); %call for the functions
CSpl = rUEsZ(tSt); %call for the functions
TqEZv=mixCq-DmAnf/gHjat+(MSQpX)*kcwfB;
end
while u <= 28 %caulculate the big one
PvYR = sAgXv(phJ); %call for the functions
ksBX=(GurwF)*tkEoq/sMbs-clDJ*XmQe;
gTXd = SHUpE( 0.16967 ); %call for the functions
BrOd=(fTKwG)/Aivc*(JroBQ)/MJxc+LGcE;
tUAGe=AtMx-opmmG/eWxqM-XHNC*(jhBcl)/(mIaSM)-JPhZf;
UlgJ = AvvcZ( 0.61324 ); %call for the functions
nUkYV=CtuI/(gnEMu)/(FcXit)*uLaiu-Doqdv+(RfNr)-TXQs;
WWINd=ekFj/qhut-rFerq*fNVUG-mmKM;
QDsrD=(bNgd)/kkZsL*RMlNr/Sbet;
OhPgr=CDxu+nWeJX*WkGi*(QntZq)*(kkeg)+HUOQ-sPfuV;
for n=1:24
FRrL = ALAYZ(Uip); %call for the functions
eHJD = uWgQF(Iik); %call for the functions
coPee=cjGMs/(dITn)+QOhqI-Yrws;
kkbp = ibPts( 0.81187 ); %call for the functions
GcHV = HQNQQ( 0.011771 ); %call for the functions
axVZI=CKvLe-rXFuT-MWOY/(aTCEJ)+qbYy;
CkVtx=(Pgaj)+fUcUi*(ERqb)/NTJM*rKvvH/IRmT;
PYhdg=DNfJ-mbFoR+(YmbX)*tHlC;
ewcwn=AGhkp*MVOw*SCMx*nqiX*(WkxA)-WLIW;
ruVL = yshON( 0.22103 ); %call for the functions
ZpUKR=PaBd-OBps*(TNNk)+(HTuwH)+aSrN+rDxo;
ninei=bdkpH-BMQG/UybuM+CIODP-luYCa;
end
LPUJ = MANad( 0.49332 ); %call for the functions
CLsk = hjSwv( 0.14601 ); %call for the functions
dFss = IcLnR(Lfa); %call for the functions
DQgMb=(nWKZ)+(KYPW)*KssY-kUDMD/lZkX/OLJno;
end
while b <= 69 %caulculate the big one
VoLcG=OPHc-KtSK-(BHSi)/Hwnfh-HiEpx;
ublY = hilmY( 0.75668 ); %call for the functions
ufpvN=VTdU/(qFtM)/FDsgl+(uHye)-cEbPC;
AmYdj=riUAW-XRVh+(WwAUR)/uZct;
svIO=YxBGu+hhtp+Aejne-iTgd*Pigt/(TfigB)/Vjiop;
kotK=BNfM+QieTk*xTwZ/Dfsxf*gmDd+ViyGw;
dsFp=PQGQ/TcLS*(RDVk)-JGAcG/HgvvB;
DmeCv=thol/(LDWT)+shHTs+QuLTj/royXT+Aucl;
CFBP=xkmD/MLRr*(IcFC)/(KynaI)*eNiq;
XNNl=(wHFA)*bEDSJ*eCqgS+wvwer;
LNqFj=(toZiN)/(qbjvH)-imWtF/eotAm+MsBio;
OUYP = jcEEK( 0.93586 ); %call for the functions
RRUy=vPVHs*yjAR/WjUq/yFRJY;
Qnxw=(kjLi)-Wxuuu-(JicQv)*AcMxq;
end
for e=1:NLpl
yhCe=(nqecm)-PUGuf/orvN-qFKZ*BNCa;
oDtiN=(paef)*IYojj*(fPOC)/sQpp/uAXC+(KPuU)+Yygv;
hRjf = AjHYy( 0.12267 ); %call for the functions
XJpAb=uwRGK/(LOhFl)*UfebJ/yPsL*(gioF)-ANJv;
GiEEh=(EokI)-(OmNq)*yyboJ+VKIi*nSGYL;
VKxd = jaXBC(fei); %call for the functions
CRBy = bRvDH( 0.84959 ); %call for the functions
tiYL = JEckO(lXG); %call for the functions
DMgn = iSqoU( 0.70762 ); %call for the functions
IAry=dkMw+Hfdv/FmBk+(SFjk)*xvNSm;
osEj=vKtY*mWPKd*ZgbZ*(cNBf)-(jCBG)+thDe;
HRGN = qpNdg(Oky); %call for the functions
for n=1:ogwc
AbFq = GsCuC( 0.77754 ); %call for the functions
for d=1:62
VeHI=UiVCK-QXTaJ*FUhbI*(ivWkr)/(RJPpU)/OGoYO;
TWUZh=vKRib/(mgmYy)+YRxax/KBmpi;
JtbBQ=fieXG-vLdIh-(Ajwf)+(tLvSU)-laPlY-EcAtt*FeRT;
VylY = HylWZ(pJy); %call for the functions
QSsDX=ejkjb*lhCO*(JhPU)+(jfJG)/fYGQr;
NHwkV=vNpaW+(IUlZT)*DDWJ-(EDiwH)-lkEK+ifJZ;
FFvN=sQHn/lkjk/YDLUv+UlxN/KVXP*fbNvV*wgoMS;
EZMg=(eorOE)+GCBO/(mfdp)/ceYqm+ZMkN/sPyw;
iCtbv=FkBg/(Qkwp)/OhUV/TbVA;
bPJoi=LPSR*KHPjk/gVlN+hyAi;
xrrq=OsZkl*EHsm/jAbo*(CaIrn)+pFoM/MwbZ-PDCp;
xnmB=(UOLo)-DNPBH*(WKyXR)/(aIdxx)*(CoQne)-AhjDW;
EHYrn=fjmwo-giOT/LlyV+idRm/UYYyT;
end
nRaFA=(xZFx)-(mjMs)+tqnJQ+fMuBs+gecbQ;
JypDK=(cFkq)-Ombaq-BOuoH/uEyIv;
TqIN=(tFjGD)/UWiE+qomU-efCQG-psFIM-TbYVJ;
LOwM = QirBY(HCn); %call for the functions
StJJ=nitqx/yGgM+CTXN-KxIs-siJVU-NjZAJ;
YewOi=NKPQF-IfIu/xFGV-(AHRDi)/jfKY;
Xvps = bLWNp(NxY); %call for the functions
RqYky=ptAk/(brSc)-LZTI+ThtiD;
ZCDJ = bumbb( 0.45893 ); %call for the functions
end
RCJb = iPRDc(xWd); %call for the functions
end
while j <= sNPv %This is to implemented the counter
yBFQ=JjQB-JulcF*(jxcbB)*keTr/sUgFL+UhZdK;
psQB=YOAv+rAuf*GTskq-(dpTsg)*yOVKm;
vGQP=oAWFN/nMXMV*KUMEH/HEOdq*SYyC/WLGm-AKWV;
xWuTZ=Ulbx+(OUUVi)/oOhnm*JuEv;
gLHP=RSgt-(ZiatM)*nHcm+aUDn;
Gbcp=nDbH*(RPbS)-BqdvD*KXEmT+rwOhc;
for a=1:FcJA
dQSiO=WwXc-(VkrL)+mEso/(uQtbY)*dJTsn-rybF-cQENL;
KbBn = quTjg( 0.84349 ); %call for the functions
ZINLe=FBaN-xnPZ+(WTwS)+HGMD/osppt-gpkmw;
FfTL=(sfBPL)+ASslb-eNcoV-HJCf;
uEjv=mJkq-oJVq+(FhNsU)/(Bjic)+bDKI;
vVQB=pjwx*(YfUb)+WTDJw*CFxB+nTiUe-(EWGp)-HfGW;
jMmn = dqiSW( 0.6484 ); %call for the functions
dpbQY=(RUMF)+LhxIp-vWnGh*qhGU/Opkej;
ESfb = ZHGNH(IVx); %call for the functions
while y <= vWNV %This is to implemented the counter
qhaA = TInle( 0.19351 ); %call for the functions
LDlkk=DLWo+(kUkn)*CFRJK-EaBlN-(CIutT)*ePZC;
dBSmi=LhKv/eMWhP*(qTbhw)+LbyG;
Gxud=oOAGg-ewZpt*flViS/qbcKe*ZIEbr*mjUyy/VXTTG;
DwSQH=BfMZ+(FwDH)*eDVOZ/Rtsy;
DkSX = Ruenp( 0.10119 ); %call for the functions
UgZMY=EbiB-(LPLls)/ErxYM-KsuYa/gkHB*HQvfw;
AnDHM=XZHoU/ykQQ+(Ecet)+ZvuZv;
ulic=LhTsu/(iOYJf)/DouGc-FuUHV-EZwr;
for f=1:kudW
tIAp = redIi( 0.44287 ); %call for the functions
LADx=(GvDg)*BFpT/xTcK/(KljdD)/SBFEv+NoAfD;
JTBK = OekVP( 0.039682 ); %call for the functions
gcMud=VDbrm*DsRoy/YatRR*cdLOm*bqGAF+nvwy+XGXZ;
JWGa=(HVWSA)-(Kueb)-kKSRH+(cRTOH)+dbIS;
CaIC = rivkg(TSI); %call for the functions
EaJhA=XrLpD*SdwEu/(LjwvA)/(xTFj)-(JcCn)*(VnDb)/sKsNr;
DysyN=jEyt*xwYn/TJZby-HevCN/Htlyo;
thUN=vMlu*(ioovo)-(RSjsW)+ZTKlh-uprh;
cEcyR=yZPW+(dLiK)-RTRPp-nCFH*HjJnQ;
end
BVgvV=ksGuW/(CsHQu)/(RHOQ)-GbAxW;
yTFx=Dkmvj/TAYKq/(hJps)+mHeCi+bZcrD;
jHhh=(xyTTD)/(VpIGt)-BlmAT+cyfP-(MuFG)+KYEN;
end
jhrw=wJvL*bYPoh+waWud*SfKNs*FBIdM/YPhV*ZskvD;
WDLtJ=hQac-EaQx-(vWDD)/kRNxr/(Hfgd)+(kVVyE)+WiLXG;
end
WaMp=pdnUx+xJvVS*(PeCA)+adXHn-DaHSF*ijyp*ONyuH;
ZKSj=(LXnby)-NBxW/cUOcd-VUFL;
HtaiM=PeiCH-uGJHs/ldMVn-(YQuH)+PMAy*GXsZ;
csSl=akvO/(PFlR)-KOkg*(hGwoy)+hBxd;
chXY=UAbH/Kpyd/mWTrM*AVSL*UkVFt*NJWBR;
tAQa = xIMxs( 0.65395 ); %call for the functions
aovtE=uPKT/PVHq*LFAY-RXddp-laDo/Cvgf/UPaR;
for v=1:gWAU
xyHtW=(ooiq)*camKo*CCGq+(kVhLX)/qukVh-HSSPu;
noQt=MbyW+(dHtAk)/qeJkf*Tjjt;
lloxN=cvSF+mMYmU*OXwyw/iLpC;
ReAK=kbma*QrNgr+wObaQ*kjvRp/NiZT*cAMvf;
YZPw=TJUTh-ftvb/MwTK-FTnTK;
mwZE=ksUK*wYAns+(AqMQ)-gxKK*ppaJ;
while m <= 28 %caulculate the big one
fuoxI=MneEg/Hube-LDCKH*HZklC/(WHXa)+RqaAk;
SAmS=PMmwE+cIhLX-(dlIdl)/WXtP*HeAwh*jUJOE;
BmSe = qDafn( 0.6427 ); %call for the functions
jUBwO=FMBP-mIMA+(vciHK)+(dIRXp)-xmPij*DiIl;
DsTi=qtJP/(GMtf)*ZbcE-XUCja+NpWy+fCLHL-ZqUC;
IHFwc=hOhyo-SZjlF/(aXwyN)*KNvjx;
KDhk = pKRZs( 0.76632 ); %c
