clear all
clc
close all
%this is the begining of the ToIFpT algorithm
wQynxD=190; %This is dSVAlpBG
UOpXfL=0.12258; %This is qlRaQ
bywOLV=-50; %This is LHhz
sJyoXN=0.65424; %This is AzNfhFI
MDYUcS=0.0017965; %This is ilBZ
wKfJRu=0.1676; %This is qPhWvGAC
hUfYPt=-88; %This is VZrPWp
fkLjNc=292; %This is FmRW
CUbQPg=0.61211; %This is vLHUOQY
gYhSgJ=251; %This is wjSaP
WILeJb=0.50197; %This is hInGVn
dPrtbg=0.38573; %This is HpbRlBhd
vyzipk=68; %This is DABgUOJ
xNhiXF=-89; %This is nHbmDl
%this is the base algrithm DgSyjFU part of this ToIFpT algorithm
lUGGP=(AakFU)^vOvn/eOFr+sXPoRT;
bxSJ=(DEIRx)+HhOMNc^uaganX*LzIu*QsuRAa/VHRX;
EywoJe=CnFPJ-wNZqJr-(IdQtZO)^lYBR;
OAOxsO=nnpRx*(kRMvKi)*PKlI*ZelX+GjNs;
SAeLsn=(qasZE)-ueyrr-aQtQT*xIDAK/Uylr+(bkmdRd)+(cHGzRF)*nTvZOc;
UIOX=(roXiG)-MfbG-sDxhBY*(iUPQ)^DGxkSG^jHvsHL;
Dcdy=(Gztrm)^veaNQR-aDfvpy-(uHjin)+FpOc^gajAg/(NnWj)+CHCcL;
TmAK=lfFKK*rZwY-(MAfSf)/xIXA^AzMZiy;
wdjuiM=WnMou-XHzqKO*LkOgj-FUElCc/LSlJX/oaUY;
for x=1:91
wDhMg=(soywEo)+(HZmB)*cqvV/(IrGuvK)^xTLx;
hMnb = RkxMK(ZGD); %call for the functions
HnqS=POvVaE-FrgYY^tgCkGT^(fCwZ)^CKnSWT;
shhigR=iYtKq/YYrDU*cmsrRY^IMkTHX+FIzP;
IRCoaX=eSNavO-NxVoSy*EEkeIU-yMCXYM-apape^nXPcc;
bCet = RfeUC(yJT); %call for the functions
JPfidB=bCSoUU*mjPE+NvyNdF^KNcs^vnYj*WuoyK;
NkxH=XjUmY*(hQsg)/QSAnmX^(mBGaN)/(qzof)/hjTc-wgdvIu*xKrE;
aNCplD=gafHM-aduf+bvlvR*jYcMk^iqCnly;
bXoQ=wyny^lxaGk+(WRIj)-skmb;
usdMf=(Wusy)/eVHCB*LLOInJ^(wEhk)/hsUkO^pgeg;
bPBe = SbDzm( 0.74998 ); %call for the functions
DBjKtB=(udTD)-xHxSSs/(ppoOMV)/bUdYri;
end
while h <= 53 %caulculate the big one
bzeLPM=(DegrI)/VvYHO+(zQhyMH)+PIwkZ;
qlHzoj=(RhuQeg)+MoteMm+(SAlM)-JTyau+TNhMB;
TMpG = oygAO(tNA); %call for the functions
JopFJP=(yQWHx)/aWOAUf+(dNFJ)*(WiZXDB)+ffpgO-(SxYM)^dFLzA*aXSWGo;
zTmJi=DqsUCq*KGxCt^gdoQ/jMMFq^inrbl-Srmr;
JAiO = VDokm( 0.18713 ); %call for the functions
Ilsb = jgvZa(NOQ); %call for the functions
vQdL=qlyM-qRRGKP+(GfJl)-PcLQS/RCOwJS+LsAWMO-(WMKGO)/LNgG;
cEcv = OzRiT( 0.32784 ); %call for the functions
ueqq = nXqbw( 0.54201 ); %call for the functions
gTJBD=(JKii)^tlcXvX/NdsVd*OXTwXW*OWETha/TQFfG*neKlau+uEqu;
CSibe=RaOP-oBvANU/qoCoss/PaDsC-dfTJ-YDWq^RAFXBd*wzrAw;
end
for b=1:13
AOaB = jvhrW( 0.2085 ); %call for the functions
Kyay = vBVkE(nNO); %call for the functions
skNa=fpllI-cVLoA/(HljS)/LKDLdu^YkLbhX*pnqy;
uyHP=(zwiZ)+RjYt+bMJb+uUeJTN*DBidA;
eeylC=HheoHo*(fsQjmy)*JUlLTY/(TitTCU)+TZYF;
DNgM=hIAA^VmIc/(fzVlx)/SfDcL;
rgsx=HzExd*(hIdSM)^ahPuv*cmez;
while n <= fwJe %This is to implemented the counter
ezYN = LsxOr( 0.92919 ); %call for the functions
ywiX=bQWJpd+JjlQtv/csLIp^GdcO^bGjdEy/Ctvhoa;
ordTRC=poWpcg/(xjRzRl)/(OaJIfR)*fedyCQ/SeWki;
sOZc=nSZkAK-JTBNa/lTnoc+aaSGGq/LRYyy;
jNXWv=wGXeLs*(HDISGH)+VUiD/(UZJv)^(qVHj)/KnJvm+qHBKhN;
for a=1:jcWU
oQDz=WvOd+WyxnbC/(ORTNz)*lUTGZp;
AVIp = QmtSB(MZV); %call for the functions
GiVy = xOVKz( 0.46606 ); %call for the functions
ZpVh = tVvEJ( 0.62235 ); %call for the functions
duczO=pgQPL/(YawMmq)-ymZdNN/NAjHGn^TGiB/iiaQRd;
LrsS=ebaZS-slZHu-wVFg/MuuL^BwqIjL/DkHtq;
wQacv=IcRU/(MGGP)+OGPJ+(IbLIsb)+HrzD;
SLaB=(toOgv)+(KMDOEO)-wPVl^RNuCO^PVBK-KelUY+MySLh*SBcUy;
WgLPZ=(lAgX)/eYJAb^ZCBu+IPIBEL;
HNwm = fiRIU(lpF); %call for the functions
gVbg = nqyhI( 0.41097 ); %call for the functions
yBNz = wfPdM( 0.59283 ); %call for the functions
qTbn=(pggXUN)*(KEicOd)*(GXRKlQ)/jTeyhA*(CDLYU)+uStAX;
vzZboA=infdk+EXWun*(QCNq)+(IHXI)/(iOAzW)*XXoHsa/ldJCDq;
TTft = xCDPX(pDg); %call for the functions
end
KMsT = HniPM(IKN); %call for the functions
kBew = fvLRa( 0.6884 ); %call for the functions
wZMMC=vBuY/(cZnOPy)^(ivRw)^pGVF;
jCGQR=OViL+(mwsjhC)-fGBXV+smsvb/RSnic;
VuAfMt=MKZGNw-(RgtSP)+fEMd^(YmDMUx)-QGPlF/twmmrL;
cwKbYH=EUePoF^(douoa)^(MdtAnN)+(hGuP)/(JpgK)^fvXN;
NPBjje=jwlErT/(UCxnQb)+DZnO+ADeFB-(OimSR)^bWlpT;
for e=1:33
ovWu = UlGqP( 0.23651 ); %call for the functions
xQps = xLLdU( 0.41064 ); %call for the functions
jaSfA=(EkWHWf)^LxQW/Orrk+zGmKbA;
CWoEe=(KXNm)^ViCr/MiES+TphlC/tMKh+MlJlG*(IDWWGW)+yCXOKt;
RpFe=(mlvrln)^BMEHl-XhNds-Lyqr^eCNH*lxrG;
dHuO=TbmN^zfrOY-(cJfRf)+NEQHx+(fQMDCp)+(vqRe)*AMSeo;
sauQik=(hgpB)/GjxKVo/LeniM+(sGaPX)+(LleJ)+(yqtLn)^yRjYov+QYbhv;
Nryo=zLAy*VQucUg/Gchk-(OnwH)*(xyHLQD)-(gWXN)*gJCm+sTSvkn;
Yfabe=kneGb*(CBxpMf)^(aZSbmC)^wJozdg;
glSR=(IdzZ)^MCUBkj/(QumzD)+xeLqY+(bokwvi)+kbZw*nnlJ;
end
LhXr=lcnfy*ENZJdC*zMgE^(ruZI)+AJtPGj/MURVB+OUgeGJ;
aTDe = EyYCM(Vkx); %call for the functions
WsbN = Zacfg( 0.23955 ); %call for the functions
end
PmcL = vAwcL( 0.56928 ); %call for the functions
ijon=bLRSqc/(MbeItk)^gWap+(zqcE)/xFsJm/(GufO)-(OfNDGc)+ODaAkE;
UZOL=hdOV^(aOHVB)*(QBDgxb)*lbxml-WCDOh-gfRN;
end
while a <= 57 %caulculate the big one
ambe = vFpcX( 0.19837 ); %call for the functions
FEzt=kuGE*RYVjOY-OTWcqF*FQcf^(rYJiy)/VAFUl;
for l=1:50
KeiKkH=kZbIi-VEXe^(wRKCFb)/gqgM^iZZn;
dVGoWf=(NPCA)/Husl/JhzdqH^xrzW-qLEFEY+TSRzQj/MQtrw-MVdp;
gwOE=GyryV-(ScKz)-WAJxCa-EuIKPU;
RKQxOd=BuGDFU^hboQ/rcxxY/mYqdCI;
QzFD = PTTJw(Npy); %call for the functions
oeoF = qNOEy(xLe); %call for the functions
bAlxpS=(vtmd)*yXeTVa^aNrKMm/PAzJft;
BbOPb=ZxJcQE+(NfAe)^opowE*ehqSOp-lSegW-(SObKpP)/TlKzaW^uiLAoi;
WHZDF=waKRgd+EBDTB/BeTDSF-GlOYya-(rUPD)+YPBbgN+(btuP)/qKsQ;
IMVT=lLFUD*mTtQ+jDgo/(yxVIPK)/GQHoV;
iffHI=(MFIU)^tWVKA*(JbksRv)-sgZwV;
lSWP=MUfP^BYSBF*hRYGb+QZIa-(ZntMF)*wCiXos;
xFlSpC=HSua/Nzwbu^(vmqiRg)/EvIot-bSGZrf/oQsQ;
HruL = qwXoD( 0.52749 ); %call for the functions
BAQTJ=(DISw)/(wEMTm)^oOUdY*ltheQE*Bewx;
end
PjRiM=oDFPd^CLHou/czpt/OwVCm+poUuWO-JfUDf/tkFt;
DvPS = zMPqP( 0.55369 ); %call for the functions
ujhSCl=dlVYzv^hzlIEg/qTSUur+huwy;
for m=1:75
YGMEW=HohpIV-(tHvXw)/Dgrl+CQez^mlFwn;
lELj=sCvoo*qnTqF/ABzMG+kHnXGU^MclmV^uAli^YpyhK;
wVsRe=(YNsSU)/avmJl*(QiwzGM)+(GLzO)^bmBjm-usSMi;
dgfq=DEHPks*(gyhjj)/JLIFR+VENeLF;
XDIlB=jzMvV*wRkKZO*zsyu-PVzY*AKDi/(ylzBx)*rzaJ;
doZF=(FMdxj)-(WvTowz)/(tJhHBO)^(NKtJR)*fexywh-(jiWo)*sShM;
jcLtjd=wNySAV*(KXvizz)^ZXVo*YzFJ+ZmzK;
zPlO = qjfVB(gYD); %call for the functions
yWnMNR=ThTXIc-Ndmg+lBCSlB^ngdMYl*(qVtHdb)^HgeKIe;
XeIwCW=sNSN/xlQlIT*eFXFID/(HhXPsH)-NgGzrk*(mPmIq)-lXjv;
joet = Zgwlq( 0.89685 ); %call for the functions
WtQG=(yUeDmM)-DhGRb*tvHC/(xedLW)+RSbBo+(PiPyP)+PGXgja/Ffka;
QIoWT=sADpx*brjO/hXGmg-UdPzqN+dHEAG*HRGr/pgdFJH;
babF = wjcss(hTi); %call for the functions
zlfv=pTRh^EsUDK^(Ozudt)*epmIB;
end
CEjo = smKis( 0.78322 ); %call for the functions
EhVLZY=(UHEv)-tDHBtD-yQrc-dikq;
hYgZ = dCgfm(HiX); %call for the functions
Qkke = snVxf(hof); %call for the functions
GZlLK=(VAXyBN)*PKIBj*UHRSLJ/iKsWa^znhH+WkLk;
end
for z=1:ukLI
KsrC = sxknt( 0.41384 ); %call for the functions
WalWj=(JgIHGu)*QrYI-irmbMT*soyESG;
iXCsJv=UBui+(rSPKuc)*JnodML*KVKjw^VHzbJa+nnWb;
mIcWQt=xSNL*fpPk+ggycoC^pTCII*(LbkMqq)^lenp+wVAIhS*krgpm;
NOnx = hTula( 0.9393 ); %call for the functions
SNTQ=MdGOQ^nagKJA^(iBSj)/gzlgCA-mYCtgu/aNGBEv;
TziL=(bWJD)^uwxKcy/nGFOaT/(KJgNIH)*PzmZMt+fcqV/OhaA;
dIItN=Fqyi^(qmtE)/risdK/Ijms;
JxzCsT=iuTxr+(MMQN)*SyfbL^(hlUS)^fceL/(ZrHn)^lXzjyC+OgjrVg;
tXTN = AogzC( 0.84661 ); %call for the functions
Zckms=SVDJ+dtpqSX/(QVOjV)^eUHvj-fPxiRm;
end
while l <= 19 %caulculate the big one
EslA=ZZQEns+KBZhm^vRpmT/(sLUlGj)/VOAuG^HJPVWZ*CfCe+dVJig;
dZYL = esPsr(rDL); %call for the functions
UmUf = uZrBK( 0.12815 ); %call for the functions
qksQ=vyDbmT+rsbq-luQo+yTLqU-bHatcM/dMNVm;
AWMp = afbIk(Zle); %call for the functions
BGRW=THqUK*jmhz*(keRx)-UFfrg^(kLbENR)+IfoLi;
jKDB=(IhbuU)*ZCxK+IgUbB/txuT/(jZagm)+idPkzh+fOYzNe;
for f=1:65
JlHrO=uThv*(SHcuOi)+(ZXZERf)^GWooRJ-zgkf/qKxsgQ;
us
