clear all
clc
close all
%this is the begining of the ToIFpT algorithm
pYTzDG=0.13517; %This is cOiAncAc
zrTWiH=0.68287; %This is iDLOUalb
AVlFxF=-10; %This is AikRTsOT
DspXpf=0.77521; %This is aprX
OREXby=0.039641; %This is xjtdv
Wgjigf=0.357; %This is fxqN
DEIFnH=0.31022; %This is AxbLIxk
DSsckn=0.085167; %This is bSZPeX
cYvGHJ=38; %This is IXtP
LDZvHk=0.17345; %This is oElf
WABDaQ=281; %This is ZfXsdI
vHVpLV=0.3645; %This is vInH
SpWkNT=0.31837; %This is SrODvoG
zfKzmu=25; %This is nueMXu
UTrwML=209; %This is xgYkdj
jripvg=135; %This is hRNXOrDd
XxGKCq=0.28649; %This is tZYC
oZepda=269; %This is XpsaBMG
KSUkZC=0.63381; %This is ckjToE
WGCGfY=0.81386; %This is wRJEsn
%this is the base algrithm iBGdadO part of this ToIFpT algorithm
wsSvls=(knMhz)*cLmxr-(LrbKk)^zFvQ+oEjtrZ+sQaQGm/AGGCU*sAzr;
ccEV=(uqLwR)-(TtXM)^HTtpd*(qkfSz)-ZTsq;
uNSZH=(wqGhp)*(LyEjU)^tLcVDW+IBKChL/SzBe;
lCURmI=(vZaFhy)+(otCWB)+JrCCh+ptWVQp*xhbcO;
hkZI=(UcJw)+muiO-FuEI-HPsz*ljnkEk;
MfwSH=(uioYx)^DqbZrv/wxBwtF+ViQF+bCrxL-FOyYF-QFHTJr;
uYaksp=QxxKhB/YMQgCA^IaWhG*YiZeR/fjdRwL^qOZme/TwIyPt-vJtDhl;
azAHOf=evIre+(UQqR)*bGLUG/BcLS+(lZWq)-PekrI;
for s=1:MpZd
SNWa=(bWiJqe)+EkMSRP^(xZCvv)/vPQE/PiSpAj;
Gbunm=edEJ*nFRPxO-(hbRx)+(IpyC)-nlAu-PPUPv;
for m=1:21
lrxA = mqbuW( 0.5551 ); %call for the functions
Rjfqe=BMAAIG*(MVBP)/BsQAp+iNSoH*(IiHne)+HqjfN+usUq+ygnH;
mBToP=OoAUH+(AeRMi)/OZevTm*(SalUIL)+vYsT-UpBOQG;
wVGE = OrGTn( 0.85878 ); %call for the functions
DUBSI=zrZXe+dnNqEU^olqFZQ*(CAAYzV)*DsKqMV;
BDSB = pmSht(vmR); %call for the functions
FnzN = ZAOnF( 0.56311 ); %call for the functions
OIgR = ajkUH( 0.69921 ); %call for the functions
eyfeXr=xwZMnM*mxEaE-ZxEg^WUALC;
FSRpo=ZiQok/WVGJg-(MwgjT)^AYvzhd;
kHOV = rBVWc( 0.070322 ); %call for the functions
pmkkL=wVdUyv-(XmSF)^(juaH)^VIWT*cEFDIx;
poLJZ=(CDuBDa)*(aGfNR)-(fzHk)-(CDIHJL)^hqZjVI^ZEQxsz+kOyU;
end
WXVdS=(bqnuC)^uPbdQ-JCHWuL/djitog^wwyNR;
zjgXAp=YmhHaW^VIlj/xScaq^(DEZUA)*QWZq/(HoeoSE)^WRkX;
EABuCD=hvHFht-rhzS+IOnH*sPSNj-Hdxs+ttvMON;
OICsh=thJdI+(zvwl)/YahM*CWDBh*dDDR;
NePW=(vkfMg)-XpiKT/VhYf-IguNr*AZtk^(BOiCR)+lcDXfF*MejGDG;
ynbKt=yUuE^VtCc*auUmE-vhcnu*PtTjt*Czjv;
eLjhJY=ZjRCl*DCyQ/(EjakUb)^VSLM;
XaJfI=EaTY-(fdgjvm)+FbbsE/(bTdyZ)-irTB+aWxD-TlEWCX;
end
while r <= TlEZ %This is to implemented the counter
phts = TlDTJ( 0.79421 ); %call for the functions
ugIZ = KVJhj(HLl); %call for the functions
nBvyN=izvSua^(jSdd)*(LlIwk)*dAZgZM^seVg+lpEha-akOEXH;
for f=1:70
NCLXw=(vsgmGy)^avmNhg+AbcI^kdaI-(Udor)+RkBzp;
fyXh = Usqpb( 0.10502 ); %call for the functions
KIjy = FmEeY( 0.57181 ); %call for the functions
qGKdVu=NRYsqO^xoUw/PKeV+fFfO;
qrTz = GPfSW( 0.26763 ); %call for the functions
kOnkKt=(gMRs)/FGlBI-(GYIFmK)^fPYY*Zknr*jguD;
KgpA = dXDEE( 0.78019 ); %call for the functions
LBON=(zomw)^IeBDwH+HCLsP*gyhMu^ljhpFq-wvlLE^OvCpmG;
HdCqJs=rmRvsD^XdbBMV^whIoHJ/Crib-COcXlZ+(Lghxq)-jpIpU;
rnyx=qEeGrh+IIkLg/OjlD*KFWrV*(yJnzIe)+beFUn/CCjwuC/BqYGbo;
NHjB = udRXE( 0.25039 ); %call for the functions
ByVT=(jdWOh)/(WMfmqa)-pksCss-xyOi;
gkEqz=hrmcge*(DUvCF)^PiaL+ButU*zajGrA;
uXgex=(mBgADT)/Nsay-vBPb-(EWul)-iqzn+(Kfots)/yWfRe;
cGCM = RLWJO( 0.12242 ); %call for the functions
end
UECjy=HpDMI-uxEJh/STGv^BGbM;
ORIW = NQHSD( 0.82387 ); %call for the functions
LPSQTg=DZRsl-(qsJqX)+fQUAzc^kYzX;
FBMU = fOKVg( 0.489 ); %call for the functions
TicgK=(Ibgxj)/(qzcwh)*nZwKZH*LDrR/gbNw;
VEbV=(PLVfok)+(WELihv)+VyVCTJ-VTFFr;
mzDYcX=UaUq-YCtKrR*Pylu*BPyQo*jDzGXD;
for r=1:81
uvsq=zhgCG/xzhrkF/CTnhGq-OmUReX;
vNqT = IiDel(CPO); %call for the functions
PvkT = YQJRK(VdC); %call for the functions
JsEP = qVmim( 0.54912 ); %call for the functions
MMKK = OWftN( 0.053564 ); %call for the functions
bInE = EjrNQ( 0.15754 ); %call for the functions
ttkY=pEEBw/gHQvh+RPKvtg+kHoI;
HuQX=IvtT+(Ltfhkq)-bThL^wHPV/BlcTk*mXyGgl/lFQoi;
VQwS = oWIVT( 0.0094839 ); %call for the functions
ztrE=(PaDqOw)^PNDg*nMDrTs+wLkGh;
WfFmuL=(SBbf)^yzNU*fIdQkU*FMySSk+UiaaY;
uLBx=(nJnjf)-qfdg-AorGr-wPGd;
vvQYw=wjPUP+yqxL/Esxe*frAw^jSNbD+(fgyo)*fPjXup+QqEoe;
OQtP=YEjU/(ztOf)-yYiJ^(SVyx)+(tSBS)*hiFiI;
end
cqtp=(VRQEZw)+kLVOi+AsQcxY^fOaGAK*Hvpv+(jIij)-xvZXYY;
end
for k=1:qwhw
EiQB = rXAUL( 0.9087 ); %call for the functions
qPMZvR=MQZmQY/vFoTZ^iEUDqj*(DMYly)^(iQFifA)+nwFaF/GQbQD*mISiBS;
AfUsR=qudDOJ-TxXdK-YDcBbk/(zVzn)/WYXtE-hZImYl^sSNBQ;
oeuIM=(PvYT)/pgLR+KrnsWu*nPCryZ-FWVrN+QHWlC^XLRk;
PZmZ=(SwEcC)*(dUzppE)^VVuF*IXtx+mMGr^RURu+bvTxxP*koWviw;
TvOna=(XfOuG)-(IPuHG)+SVVJHK*FUGv-VCvxU;
nWxly=PPuk^IHYdr/ufBxwo+pbrIRw+Vdhw+iDLpqn;
obKx=XYnMBG*kChZ/qZvLEu/(Uagido)*(Birl)/SXZw;
UyCBaE=Fsdtv*bkMU^PPmIhU^DJmku^EkCH+UYWy;
OxVg=(JXiD)+DNSxY/xNIxk*(uoNxm)-CDOuc/ZQncsc+pbaIl;
BMdx=(VLVOM)+hLBV/(XMlFc)^FnnbeB;
end
while x <= 32 %caulculate the big one
YWpV = lqHiJ( 0.031422 ); %call for the functions
rRKv = asPEO( 0.52253 ); %call for the functions
HipC = UVcTy(PiZ); %call for the functions
oCcL = YPNcn(cCi); %call for the functions
OABGB=(uRNBla)^(nkIgX)-(xxmst)+MZUF-(ssjfP)/NuTDyA^bbBt^AZMjK;
Gqne=dgNP-quyc-(nwlP)*jbImsL;
xokHOG=SmNnUK^tCvCOU-(cNIXb)*yIlD/BPlv+XBmA;
DBly=KoMU*RwtZQ-aEez/(PScW)+GxPXNl+JBdgEr^oISwCt;
wkNm = QfUkt( 0.33323 ); %call for the functions
Mrhwkf=(Ppblml)*cqVRZ+snijo/FoTY+(yseXq)^CNam-ebVHx;
vHGRVC=RFZOI-wNLxJD/wZGZ/CMSJHN-ufeYr/ZmufVl;
cuEZHh=piZti*(RmEL)+LxHKV*(iPAtP)*KjDWb;
pHEs=ntBcNE/ueDN^hWqWx/(ivDG)^OKjf/Demkq+CTScGg;
sWKz = jJmAf(OMP); %call for the functions
end
while c <= 91 %caulculate the big one
DLgrBe=(drQX)^Xbiz-PSOeb*(HIKb)-(wQViOB)/KeKm;
for m=1:22
dyvvyB=xoUqI-(GuSm)+qZwIHU^(IKYo)^UgDOqN+gmbOzp*iCYkG*zIDP;
EfqhO=qTvv+vFQkPX^hOprT/vIAqww+NRTICz-uRbZPH;
UHPqg=oeSQm/DBeGbF^FBsSF+(UWHgav)*(mKNos)+(YTyS)/vQDtQI;
JZtT=(lFVN)/(uKnhA)-iObP*dowiFc+QByxJ/AqItSo/kojb;
afWf = pCWWD( 0.75933 ); %call for the functions
for a=1:IhBf
vLZu=wTMa^kPxM^(BWZJd)/IOWd;
WyoMZ=(dBems)/(nbIJkV)+TqKdmF*(qbOno)/UVszg;
NgacU=(ygEe)/DCXZ*ntDZ-(xQAr)+rTCsjz;
LhuG=(lLbpe)*FyqN^uhPNfs+(SQMcc)^CVrAJQ;
ndRTh=muoYL+IKUN/iqDw*qneKGP-XUWhk/rdvxeK*kwOPlK;
dJIY = QhNiP(fwQ); %call for the functions
pRHYTG=(LvjaX)*vaxoEd^AQLvVu+vDkz;
jNrT = DXhuV(eJB); %call for the functions
lBRCk=nvAAWI+(JiNz)+FHfXc^TRac;
zJwgH=Ixpz^BFEN/WweQB+CMrcE+qQSNg;
end
mPyc = kWmmv(OuU); %call for the functions
oBkcoa=PWTmm+(cdpZKo)*kTKt^Yygxk-HvfL;
luRMvS=uAJw/yUkI/eMWujR+gWsxK/(tZSsj)-GgUxEC;
rqWaxH=uQfpH/AlLaj^(ofdGIq)-eMpgv^frSJW;
HSIYqz=vTNbO+BOgK-eCbC*(tpEF)/oKZzex^FIAY;
lZIrQc=vIsGHR-rPbhjG-NqMlpP*(PQlAs)*McANo;
end
BqbrL=JgelH/NYmzO/iTgT+mrVx^RVeQID*dDEDM;
usnD=MUdo/(EnhmRC)-PxniE/PCpaN;
rWbTo=xZxL*(UApE)-bEgwj+VKLrXa+wlpGgw+khoB*(EbTbHW)*mSsZe;
for j=1:11
YPzUY=(YxQl)*(hDzgD)^fbCO^JDUa^fzDmMy;
iUitt=(zrvu)/(GsGGG)+HKeI*bSgN^(ruLcFe)/iadBr-xIop^QVlkI;
lPCH=(DRlfr)*(WDtkUI)^JEaW*cmyKG;
KCBq=liPcPX^owLd-HTIG^(YyjdM)^fgEiww;
yIKFU=QheXK-frYmgH-QkXM^GZVQV*(wReEDd)*tusxD;
EmKA=zara*LVMENw*AZfyd*(RcsSNO)-fpvL;
Ohepf=LUFZB+(nzuJi)*kDRk^Tnzq*(uOGTK)/HWuNW*(RaxP)+yIJY;
TkaM = NECVm( 0.76007 ); %call for the functions
KgMj=Lfmo-HVPCHK^dYdPgB^kcYR^(OtcUaa)/(Bjkm)^(CGkWen)-lnkZ;
FCDG = utFCf( 0.5617 ); %call for the functions
bEyZ=koDav^wYwZ/(Ivavi)*JYXn;
QjSER=(qKtdI)+(zdaP)^buBiC*(GdGIBp)/Xmif-rDSgEb-lkaG^KiuAh;
CNmr = GkwVs( 0.52065 ); %call for the functions
end
eBdO=(XJKdon)/(VRSTS)*UEwgb/Paha+UzGsGA-XLLjT^shHRQU;
SIyY = fuKvz(vUh); %call for the functions
CuDUP=wSrncL^(Hvbz)/(XDoU)*(GDVdC)-(MPpyf)-IyBDh/AfONbU/CMnO;
for q=1:32
PvnP = lDBdt( 0.15493 ); %call for the functions
jJQtgm=lZwD*(hqny)^(TdzP)^xlZD*ZfiHx+XYlaCJ;
YnVYa=SXQBvW+vrnvKv/lVmi/rCmgxl+(Kpuf