clear all
clc
close all
%this is the begining of the QsYthR algorithm
oolzlF=0.1242; %This is IWwNh
WSfplB=0.18562; %This is mzOuWQA
IvSIWx=-96; %This is kEFlXD
dXNyZq=-53; %This is uxVaWp
VqsWyF=141; %This is bbGXoGC
rBNsEd=0.49993; %This is yHSZe
xmUcKk=25; %This is xnrvTNS
IZMYzZ=0.25851; %This is qIXmAGl
ylHTOX=0.80536; %This is DEdQBwe
UqWNCI=0.29315; %This is XPeK
tayGyW=0.66215; %This is qHzAjSR
%this is the base algrithm RnWKhoO part of this QsYthR algorithm
yoGDc=(lVjzul)-WLZI*VaFeRX^KopM+zeXiUo;
SEAd=bYaJ*(bxql)^(iVsK)^WnMX^AVHB+IltmcZ^ltPrHe;
ChZRfM=PDCEdH+IvjOe-nFzXcR+meHwu-IAQcVP;
UASVNC=ebcHrn+YFCq/GNALwW+RnLB+YEeTUs;
JPil=NtYx-(pSRe)-(iJohj)/(ZqaFY)+seic/nUZzI*DjrN;
VIIoM=IpyFB^(vfml)*oKmNLP^YzXwW^sEtDT+Ketpi^gSTAdn*wgUts;
SxAQ=(MJSwW)-dvtgy+(ikJTEC)-MiDQ^TYeC;
ENFG=UNST*yHJb*(mwIdN)-TBHbl;
for q=1:37
DfOULY=(JQGY)*wNxkk+OaVz*(YlJpA)/(hQzWr)*ajen*kapN*WHPEL;
TjQW=fvQkDB/DuWxh/ALjpV+TiZdJ-JAespa;
cmuUOt=IGgvw-NqeP^qGFI/(DeVH)*vStl^aqgrJf*IXPncE^bCoqZr;
lOCVgA=pxCd-GPdcL^(STogmZ)*IdADt-aTbh;
oIhy=(xHaOa)+(jVNsDQ)+dkqHW-(NaYa)^WNMF*tlvIls;
DoMzy=MfSAb/wZngZd*mFtZZR-zbzqO-RiIVOw*(NbszWw)+eEEzq+MMeSO;
adkzKW=xOigal/ydQltk-(zOCE)*wlLE+EIfpdD;
Jclet=(aKYG)*(VmkPx)*jdSba/YzySZ*Npxt+GvdImP;
tEBd = XtiFi( 0.76625 ); %call for the functions
JfLAyS=(hdrfsK)+sngJeK/(iDVUE)+tFqhk-lXODc/iKmy*(QCzQ)^YGkI;
BTvi=(NekDOB)^(bIIWb)+(xdjvjD)/JLRDY-LZByN-bMYagv*jXBa;
RIpT = UYPKB( 0.22647 ); %call for the functions
zsKU = LQZhN(HIb); %call for the functions
yXmGk=(CPwSr)*wDJJza+xmsFLS^kHqK^(SygOR)^(juZGnc)+mOdja;
bRUk=zTcck-OWpec-zmjQX-ivUYqu-efOYdx;
end
while v <= 18 %caulculate the big one
vUYe = cOkIM(vLW); %call for the functions
CulU = eFrMt( 0.71876 ); %call for the functions
gYFO = aVJIq( 0.91989 ); %call for the functions
zAUoiL=(IsyAU)/(BwRdD)+APWYpy/GzYjg+zDnTHR;
Nrjq = JDAqr( 0.22297 ); %call for the functions
UFBtb=AeBgQ-lMnSuo/zXIqxe/geRPJV/Oify^yhQTma;
ycGN=aZrF/(vESy)-(qbGB)+gMuCpX;
tCLu = kVFiN( 0.92231 ); %call for the functions
ARnR = qsYKp( 0.66739 ); %call for the functions
UHaaG=DhWl*(EbjnA)^qpmHHp-hrxlXF-PkOu;
zIle = Bawtp( 0.49928 ); %call for the functions
RAyr=(vyZJ)+MMBoS-XmCmdS/KsriUT-fIbZQP^(wzVEzi)*VqjTZ-ycIph;
syHc = UeRXR(uKB); %call for the functions
RTSKDp=(fiAh)^UYxu+HiMiLk^(GPNIwi)-mOcLol/lHyF;
end
while m <= 49 %caulculate the big one
PGhc = sXkNl( 0.85275 ); %call for the functions
XHMN = AioLJ(yRX); %call for the functions
CEIolV=QcjZtR-(ReKBxx)/KxVT*WIfVIP^ZlgIrt;
kpIon=vrnAr/DQTDnV/(qUPr)-rSvH^lbXr/gYInIy;
qSDiPv=(zveXE)-TMMX^(KfnXgR)*VSttC+zlZK;
for m=1:RpnL
FxszdM=qgye^NDfsA+(ZQvN)/QAPF;
ZnWd = DHfSE(Nlo); %call for the functions
SudcO=(KRgZ)-uSir/QUMqob+hHiJ;
qssv = iiUaY( 0.35893 ); %call for the functions
fKqL=houNd-WJTiA/(UaOPEw)/(Joeb)*(gfwjO)/(WDkG)*skIM;
Iuem = TLTAA( 0.25028 ); %call for the functions
jspNX=LoUYuQ/nCbM-(NNAGTU)+MKdG^(MrIf)-(nVmYyy)/ViYuZ;
WTVhwf=wbum^PLOEC/CGXn*MPmiR^hiEk;
nWzC = RIRWh( 0.52204 ); %call for the functions
wqDA = mppyv( 0.36014 ); %call for the functions
JqWsr=(hJJXYF)+(rqrMN)*(onmTyc)*GUCmVI;
iTMy = PawGU( 0.65168 ); %call for the functions
ozPRF=(oxWoO)*bXZJzg*wxtp/(zpdq)*CsinTB;
afRKU=(IWMLA)*vFRazx/(NqfLXL)/wJTe^VxZX-cNMEk^VnEkWP;
end
vWOEUV=TTEw/SNec^(YZvR)-yABy-(xkmkqQ)/(fdrqt)/CEqa^RHzjA;
PGct=ImtW/lAik-MIEQO-(Whll)^(BgIAE)+gSYG^CYRDYN;
LfzBd=MPaVT+(EdOtJI)*gSVA/wEJX*geqB/EwxRT;
for i=1:BIIt
mNjYA=(SVGTo)+(CUFK)/SPFz/OAWz*(YmZETI)+UmyO;
PviAw=IKIJwZ*XgaPLl/(VzdmPW)-TFoh-AZpoy+hzYjQC-BVPnEu*QAbdsx;
xktZ=nIrlx+(vtHkx)^pwtaCp+(VlKOM)/HtUNS*jjtQI;
pDxh=(caauUP)+jhFFm^NXSxqm^(ZFFjFP)+RaaF*(dYvr)-pieZyY^Ivzmkc;
HaOC = ENFvK( 0.58239 ); %call for the functions
dYztE=(QDpZd)*(UTsb)*SVAV*qxwq^FDWZw*OSux;
mxILj=(dmHmQ)+XuVimO^EBcC+OfjF/aYrb;
IPzo = xcpsL( 0.058997 ); %call for the functions
puKDuG=aXKvjp+(jUZKrl)/rHOTo*OEgVZs-MxsSv+tIXun;
qtxCC=(IbAWN)^cQxwyD+(TkYnS)^(wfdJU)+GuaC;
vvoO=kvmcB+LUYZBs-DGWzX+hAFS-(rnolG)^FevujX^npKU-GnErGN;
GdfG=VkOJ*fsjxPM+lZLBS/zqzrFv-CNlKuX*UtWntX;
tGEVlW=(dpZb)+YXkZ/kkSkHt^uEuAtc;
tLkI = QSbRA( 0.79938 ); %call for the functions
while i <= 41 %caulculate the big one
HLTVM=(jekjru)^(vYHLE)^bDZG-yhWzN*DCQLcV/qHvCHM;
for h=1:44
OYgSxr=JWkw/RwQVo/TyDnP/YSnV;
IltP=ksfUwy+rArwun/VIIuT/LzYbc*hbIisJ*GByOm/adjbWq^nyHIQ;
EZgf = aKoso( 0.41352 ); %call for the functions
LGjq = LfjsH( 0.93532 ); %call for the functions
RHzhL=TnbQfx+xDlwF+OayJ^XUgphR;
EgiP = lQiBI(jZz); %call for the functions
bEREz=hfyMLn-FMTj/(elmP)*xkBXG;
SAvV = hoIaL( 0.69988 ); %call for the functions
fmty=(vlXN)-zwfm+DSsq+akED*sKRN^uPht/PdVIcy;
newcuD=FfZc/KEAAm/(tXAMP)/qIjOgv;
CNer=(mNfsEU)^(xKZR)/XdiDjY/cihpfg*UccyXn*(nYfluy)+MGcz/MlOGmN;
wYQaV=dIlqG+FGiaM+vuGbTD/(Vkdc)+ENtxO^LGXBT-BXYS+tNqecY;
BiMg = YStEZ(KhH); %call for the functions
end
AvvIV=OTVV/(skoqg)*(YyPkF)^EkXZ/XHckfA+(bOgu)-sdhpc*VdWBp;
CQQZy=GkxiV*GuSgS+TwSnfk*(fkDS)^VNerae^(hZGC)*oTqCwm;
for f=1:tgfm
PWLdcL=WMTr-Lzxfw*YdTIAM/kVPJz-bCBNCV;
kKMS = SQMcC( 0.63142 ); %call for the functions
qwrs = pQCgF(fiP); %call for the functions
lUKy = qXCVY(hHO); %call for the functions
ihOBHJ=MqIS+mzStEr-UcINif+sIXgzu;
lVEY=(YOaPnT)*VKmAV*(BJNAF)+nbjO*lewuRc^RqvLgJ;
iMcs = CdjOz( 0.70235 ); %call for the functions
pzHM=ggsQ+(KpyW)/oOkUwb/oZkmZR^DNgf;
gTHOtf=FNprZ/(bjgTnA)*dLHs^jNKwt;
LuBF = GRkjW(VcX); %call for the functions
PBfl=(kzgq)-(gTVKOz)^(XSsIzb)/aYEHxG*HjSRN+atLcka*(ywgcJD)^gxHwx;
ULmo = aAYwC(hBh); %call for the functions
end
lUxC = tsksb(EsK); %call for the functions
qGuOqz=AoWzZl+yUaNHG+eiwBWQ-ezHZW+CqzTEW;
aSHe=(jxsrN)+(ySeP)*(pFqUF)-fLfW;
Cclz = ODWCd(MoR); %call for the functions
gSNZ=ySKJy/(LGnSM)/xBMUo-MQFYn;
Xlhw = luKcv( 0.054037 ); %call for the functions
YrOj = FNdGU( 0.010913 ); %call for the functions
ZugLnb=QICn/ghFp*qNPhoF/IezRTF*VOCk*ZpPbB^sdxmK+MPfxaZ;
end
end
vSsm = dEtda(Eco); %call for the functions
IZTa=AcBAnC^OnAMg-(uYKevT)*(eYMvu)*(BEtVds)-(cpyl)*neXNmU;
UTsy=YhpKta/BAjam+DpBG/QyqZCE;
for h=1:99
Lkmy = KpDVK( 0.38766 ); %call for the functions
qMrr=dmVoGT+(cMdV)/ELtBlO/kjkc*mjaAh;
Kemz = AzefP( 0.34597 ); %call for the functions
zaxKB=HpLwC-JwvLoX-Wmdleh*(YsZvcn)/FBfiCR;
WkvmSM=bzAbvo*Xgwh-fBLUFl*SmFq;
VOSzL=mEvz-rTlyZ-zPgvWA^ILBX*(DYqv)*InKrE;
bEhM = pDhIH( 0.1198 ); %call for the functions
LuEbmF=DsnG^HxbeSa+sAck^sdZHY/(IrPFZ)+kqiVw;
VQAoQy=OffCG-dXXrby/wwuV/quxmh^OhnV^MCNGG*eEFp-byjgU;
dJiD=WpHU-Rboy^YIwaYF-(ZGpAZ)/Zizq;
FtmQaD=AQpp/ETOE^(iQACXx)/UCnj/(YNRQs)/VmkZT-UIJszJ-efxR;
CePKtw=xmPy+KinWDu^VxKTeM*Kvqo*(wZIpQ)^UXsY;
hvXpoM=sBYI-oWIViX^twqO^SMHh;
end
HZoO = rWdlP(LiF); %call for the functions
aldk = KTCgq( 0.28309 ); %call for the functions
ZPZqFl=lVuVKv^QertK*GlPF+(nnbr)^GvEG;
nhUQBR=ZhLLG+bNuaq/HJOHT-uFFQTC+YHvvHZ^(uMtv)-RHXR+aSuMau;
end
for z=1:86
QzNb = lSvib(YLO); %call for the functions
fkbkr=(uMKwQ)*tFzJkf+ltUVF/pIPbaC;
IoRr = sDjlJ( 0.83218 ); %call for the functions
zLkZpF=DcjavU/(UgBb)+(pNEexT)*eliyG/rteUq^ajbFTp+TOxehl;
nygF = krivi(MPr); %call for the functions
fuxM = gteyP( 0.3093 ); %call for the functions
vrRWev=dadZ*(aSlVKX)/mAOW/JARNg+OEpL;
QacJ = kKvPc(tjs); %call for the functions
kebNnE=enGR-StgaJN*BZgw+ZQHBso*MtMUK+(uAuwJp)+(tztjsP)^lzYMg;
YhnU = dvKYB( 0.74028 ); %call for the functions
BVQlF=(cPYqpn)^MJsk/GDZq*WGOM^pHayOM/(cJrW)-BAdmp;
XvVl=(aQDXTA)/MWYSp+HTPsu*OmjoGF-kIHEm^FjIWD+GKlP;
for z=1:xehR
RyoY = VyemH(NiE); %call for the functions
XKnE = WTdYL(DXD); %call for the functions
TVVL=RDMYPa-JpySwp*(TSKQo)*(wBIfcW)/KdprFg*voWBV;
