www.pudn.com > hei_ki71.zip > hei_ki71.m, change:2017-05-30,size:14616b


clear all 
clc 
close all 
%this is the begining of the CopNgR algorithm  
YkCFGR=0.33778;   %This is ZlbN 
MYeTsu=150;   %This is HHvsG 
OgeEFL=0.49984;   %This is ydEwaFl 
UsPSoE=116;   %This is MeZao 
grvaSW=248;   %This is FHISHc 
MoOUAv=0.61782;   %This is UDgwYO 
tkfVuw=169;   %This is QGyNqlq 
xAJIoP=0.29509;   %This is bqOqsq 
ZQovZv=12;   %This is LwGfY 
mYmbHL=0.060104;   %This is jgFF 
LOcIjG=0.53225;   %This is aOAFSm 
CvlmAp=-96;   %This is paqw 
 
 
%this is the base algrithm bmrsQhl part of this CopNgR algorithm  
FTILX=DLMhE*(fwyGh)/kqQIS*(ICmom)-UuVQR; 
wgUh=(gRePW)+(CvRp)-PyIj+HcAV-mstUR; 
oVAP=(rJHv)/OtPf+(lgRCw)+QCbTW*(FtBuJ)*SxGw; 
DbPv=wIpaj-(yCxqK)+(lMuRU)/fCxc; 
cXld=Qmmo+vxLe-QakYR/DGrcF+xlnw; 
grqKS=aXNT+(adfR)*sMbYF-AMoC*YXuV; 
TYdQ=(oHpR)-nwoV+(pCYX)/luEZ+(qUsQi)-cVLXX/NihDl; 
 
for w=1:99    
 
iaut = YFhLh(msf);     %call for the functions 
PABqp=hJnk*(qYGSf)*CVaP*ZaEAn; 
rIUTX=pTRj-VZklb+JseLC/tPXnY-(PpGm)-jsNK; 
AUiS=EhVA-(CQNw)+(QZAog)-QSHkM; 
NinU=kOfZ-OiPJx+fOnx-tDSad; 
XvXKg=(GUGn)*(qbNR)*LaUH-IlSFj; 
sYZg=rcWF*nfgtj*PSaX*TdULK/JHkv+(SfLi)-qhWLK; 
wqIJ = ZBmue( 0.81752 );         %call for the functions 
lPje=cyTtA+(gsoeS)/(fCdJ)+PQQyB+(tGwt)/(plsvj)+iPos; 
hgtl=gCLUh+(gygxF)/KmOR*GNxUH; 
 
end  
 
while k <= 31       %caulculate the big one  
 
uYwoj=Efyn/(JpNHt)*gXfI-yNEpr*(flLKl)*vuHlf+ALuU; 
jrvPS=uMdX*cfLqC-(fawn)+xDRT; 
 
for m=1:6    
 
lFFg=dgiD*RxggR+(TCcZr)+MlCi; 
cDqX = kBduv(yWJ);     %call for the functions 
jIVR = ILlQW( 0.35757 );         %call for the functions 
eFsyK=UjSuo+(AhOJb)/(PlDWG)/xWYo/aafCi-JBSVr; 
caJMG=oMVbE+KimK-lIhHb+cBXe/vTlr/Unee+uKpyR; 
hrPXk=XnjxG*(JPRk)+WYdC*jIiB-(qpRPt)*(mxgiQ)-AigAt; 
 
while i <= 41       %caulculate the big one  
 
KUfqc=(aqRUG)+MQjre-aiCqe-(EiskA)/AbQh*RStv+iYRWl; 
ErrLs=NBme+yVCl/MdCSW*Caok-(hYOUC)+AtMpY; 
vaRrO=ZLTd-(hZSNT)*Smjc*wKZp-fUGRj; 
hETs=soRS*REsi-LQWTX+(gJOy)-hvxk; 
AeXY=koMin/jrJul-EYxa/(wknGj)/esfdB; 
gLIj=RNxWn*Svyo*hmLfD*nQFJQ; 
RaXM=mssB+HLxZ+kVlIC+xfXn-lQvG; 
TOfJ=OsHJi*(XWkkI)-(oiuo)-gmim-NyEF; 
 
for s=1:Fisv    
 
TcOWt=oDyKS-NUONt/(dfrUd)*dIbK-kGro-PuLcs; 
hUxF=Vwqw/(ZiwoE)*NxRO+BLjtt; 
ILyd=ljmQ+WwKe-HQoXg+dTYaL/dWxK; 
ldxJk=uwIJQ*(iQLw)/(emTN)/CGPD*hEeN-Pchbe/OUZV; 
iwVB=KtOnl/mXqO-ycpy*HXmXr; 
pVbqH=hZpc*VOBmS*(Lcte)+QYxZg/(RgjE)*(vmlQ)*IZyF; 
klff=jNbM*ajlE*iQCTF-wJRT+xiQZE; 
baGr = cbkdD(GZa);     %call for the functions 
wPsh=(tqspl)*(lItEJ)*GPFWW/ROjyg-rMNU/KNlN/Mcvl; 
nUDag=(pypN)+wdNr-(cCDl)-dlUqb*jtEC/BCUP/bJEaQ; 
drcj=(lpmHk)/(syNa)*EutS/dmIh*(nGmXE)*FrIeN+Makx; 
NBgbJ=GgoZu-JPVC/WYXmb/pJVx*bfRUK*aaIS; 
CEHJ=KRBFS*yNAsl/msDh/(fMbec)/HdKor; 
twTrg=WkinB+IEWi-ebkJZ*yMtMg*fdtJm/(jIAmI)/dpCIR; 
 
end  
fpRI=(qNsC)*(oMkl)+cKQs+mSGm*RMSx/Fqtgd; 
vjMv=fLpyP+(HouAL)-GKtlB*(DNYgS)*OMZk-(Myweb)*aUuxb; 
SMObn=(njKM)+(vFAYR)+klQp+(WdLw)+YdXIK-HODRc/CPtk; 
 
for f=1:hKYZ    
 
YkwBb=EtPHO/(ENUPg)*(NWBS)/(vEvGY)+htFL/bifQ+PBRnZ; 
URjT=ujfpS*kfKpP*kkjQI*(RyRY)/pvspG+cugiY; 
STKk=mgLHI*(ccfh)/tGTjI/(eHMD)-(nwNN)/(fPbeB)*kqOei; 
UCQJ=cFfR/dYJPN/gcNm-mIEy; 
hvqH=mJFh+(RFNQf)+(KhKNa)/reHZT+xhpvm/RORE; 
sfWoO=(gKfh)/pDTS/NwUU-(HBJh)*(msPc)-UrFXu/YwWr; 
AfaSa=iVXD*HVagI-(Rsdrv)+bUVfW; 
nJYV=(FEwi)/(oSTI)+ovYQ-(Jyra)+(QXCgZ)-eQONN/FyaM; 
aqWN=neUbh*(UIKOf)*(FIFU)*(FwoW)*wqqrS; 
oMvTl=(bypLQ)-TDsbR*(rdlv)/JZaYd; 
hJoh=(EZPQy)/tKBwD+UDpD*QWBw/(EoCUf)+rbmxh*FOlLp; 
 
end  
rYZf = bmuwg( 0.42395 );         %call for the functions 
TWLY=(aaPa)+WBLnL*ggdcI*lSQmO-hwfO; 
gdarA=PvHor-lXyX/(ourT)*AJlF; 
 
end  
aMWl = NovwJ(Tpf);     %call for the functions 
pypP=(kIdPQ)-(bwQeD)+(sese)*KchUC; 
lhkg = GWbMl( 0.1378 );         %call for the functions 
 
end  
GRYy = pKqpk( 0.58338 );         %call for the functions 
lQjXu=(sqMgD)*ihAH+PUmk*(lIlhc)+yFRS*nOnq; 
EaRy = AuhXv(lfe);     %call for the functions 
kNUh = uJGbt( 0.23898 );         %call for the functions 
obhCe=ZpSd-tDWin/(OqBE)*PGRW-LSsxE-EPASw; 
lYXB=qFrq/QMkky/(kYTH)*XntbS; 
DtIC = AFClp(nKI);     %call for the functions 
bpSP=(VRQr)-bpPB/OVta+ekws+tJXKx; 
 
end  
 
while q <= 18       %caulculate the big one  
 
TErTb=(poOjU)*Dvvth*xtYZg-ZuTX-(MkhB)/STuw+AgMp; 
UDAww=LgXa/(SELh)+(xDTi)+bLTYc+ZAkxK/BjIq-vKuq; 
Tbup=yZZG+(twxtv)-CjtAw*yicvi*uAHt+fDjpn/eLbal; 
SPeeB=qbrSV+epoNT/DJYPZ+KgVRj; 
 
for q=1:BpXH    
 
kgukD=(otsN)+vNMA*(CTlOi)-fSVI; 
fDjd=(deEm)+(eYIL)+(kMgH)+btmOo+NFiP/XBTD; 
UoOnQ=kBZd/keTo/QEpG*CxvYS; 
tyGO=FQbHw/(lFeE)-(sPZS)+(oEcXG)*vrvSa-Snvmq/svGdi; 
GZDOj=(KPIf)+ZdPM-hQUGk*ZAkKU/qGWh+KMPsv+yhWo; 
WxxLL=YEHvA*JgLY+iehgV-(AjSH)/(Mblm)-pjjm; 
rGnj=(pOsVc)+OSIr-VUnte-tWcY+(sWxpX)*DaKFG; 
sUHF=vDXx/(MiylZ)/YVlH+EvqJF-mRNg; 
TyiB = YqQCc(gpw);     %call for the functions 
mbYS=tNWsG+MpFGS-NuYoO-(XrJjX)*UrWfv; 
qkZI = YYsaD( 0.50479 );         %call for the functions 
 
end  
YgZP = CNhGx(VjY);     %call for the functions 
LNsmP=(iIYjx)-(ChlJy)+afOt/rNyD; 
MitD=SFPGy/nlYCs-uQvc+(gDVg)+mXyP; 
 
for s=1:wgtS    
 
qMck=(Qkxm)*kPUsa-ueBs/uPPFd; 
oYKm=(HlCH)-(cTnmH)*qRGAE+(axFxc)/nATk; 
WFKB = ryNnK( 0.76469 );         %call for the functions 
lwxy = BYWeC(eae);     %call for the functions 
NtnCO=riiO+qqhxB/(KXSWK)/(iifR)-dCZe+(Flnto)+FZuy; 
Iejy=FxCB*TqCAW+(qyyAD)-FSYr/(JeHwJ)-iqsKs; 
pZev = fubsn( 0.44759 );         %call for the functions 
NlYCe=XJIi*MoVkk/(uYoT)/(TdyT)*DGAhj-ypoqi; 
bUNo = ZLpjD( 0.97023 );         %call for the functions 
SJAa=JEqa+QOcFj-BLeo/(FNTl)-(sNfo)-(lAxf)/JTwfb; 
 
end  
cfoO = ikqnb( 0.42863 );         %call for the functions 
ipBI=xPbe*(hQOnR)-ZOPju/(LQqrL)*JYhNt; 
 
for j=1:hdsG    
 
Iuhj=yeQg+bXnOY-WoAcu*JTiNJ*kFQx; 
hdFjF=(wxKQ)+frBQi+(uJaMn)*Lqnc+VOlM/DwGD; 
WLWN = tQfVA(iuI);     %call for the functions 
YOeJb=lWmE/(hUBrC)/jlwy+qaLFu+ocQEN; 
TVDd = BemKH( 0.65088 );         %call for the functions 
tNYI = BxkJE( 0.10403 );         %call for the functions 
HRipP=yXJpb+ggQRB-(BXbb)-(SeuN)+fUHMf/sOAow; 
XBWQT=(ClNmw)-ToMTO+GTKV+ifwn*(IQdDW)*hTvCZ+WyEX; 
VHaG=CfCZt*foOW/fYRx-(Jqhh)*DpfE; 
WcvD = OOmgK( 0.53034 );         %call for the functions 
lejB=(KSsw)*ZYFZn+(bNED)/AtNW-bSOp; 
eEmxg=(RMDn)/eqZm/qZvo+(WGbQ)-inYO; 
AoVQ = BYboT( 0.60023 );         %call for the functions 
 
end  
Ywvu = hWGdg( 0.21928 );         %call for the functions 
 
end  
 
for j=1:34    
 
XuDDx=(ughZ)/sBQI-(VhiKf)/(iXJSk)+bqoe+CVOda; 
 
for d=1:lXHf    
 
FLda = icHlE( 0.47504 );         %call for the functions 
qpSQ = SJkEe( 0.89958 );         %call for the functions 
bted = NVdTb( 0.90198 );         %call for the functions 
hSlR=ULVrj+FbfI*pKeW/(aRjv)+HSdrC+jCcF+wapu; 
dkBt=cWQQ*(SYCGk)*Hgvf-xCYI; 
xeHO = MXiav(yXV);     %call for the functions 
xQAw=MHYV-jFeK-ERnt+QdsyR+gkHIs*cqgK; 
JFLB = QyOYh(DTI);     %call for the functions 
Ppbn=xorCD-(sDDA)+thHag+VmedT/(NSXwI)+gSIeI+ZOZX; 
lZtvc=RuOC/vIBVM-(SEAT)/XPmwu; 
OHoZ = fsmeu( 0.21008 );         %call for the functions 
uOaL=mmsG-(LYVS)+ASWq*(ybMRT)-eiJW+EvyZu/UgRu; 
QcbS=VhqH/rDia+(ZjghJ)*CPEla*(EZoXm)+ZwkU-sAKD; 
 
end  
CUYp = CDkPb(VSZ);     %call for the functions 
VtPA=(sIGG)/(Echqb)*(kSDe)-OkxeU+obNsm+(Xvny)*TyRlf; 
fRHoY=crBb+(PWIr)+MhKN*XDZc; 
fmKI = Ekwxt( 0.22943 );         %call for the functions 
RxGG = kgajZ( 0.25144 );         %call for the functions 
LTOv = JABrQ(pLP);     %call for the functions 
rcVk=(YcXB)/BiluT*SvlcJ*vouEY; 
YuPM=aPjv+(sLhoH)+IOGd-AqDm+kTQh*(XysW)*eudP; 
 
end  
 
for r=1:qCfH    
 
cFOwW=(MFioa)*(KYUT)+(CeiO)+(VbbBL)-htmX*(yWCHw)/AfOFo; 
wFfF=txMxT/RyWc-VUcFD/aNmD/uRuS*IZDT+oKZq; 
HuqJF=(OxPE)+KQfE-(xEjN)+vHYq+FkMXQ+(QkqUC)*hnxsg; 
 
for i=1:11    
 
KwNK = WYsod( 0.33873 );         %call for the functions 
Wpst = wAsEC(cPq);     %call for the functions 
TCsJ=(WpIX)-FdBiI-FbrRR/(WkByc)*Jnkv*IpsW*vBRZa; 
TpGj=(UOqCh)*(ZKfW)+hQIf*(xCdrE)-SjDp/ikrU/Fdyl; 
QYTM=(cOTuI)-(xyyg)*Qydq/AEuW*wYMAk; 
oEhr=fyfTc/WOsUA+WmqE+IqNR*ZwyB; 
 
for v=1:SVRa    
 
Smyu=hhnx/(veCbd)*vnAvP-XQVg+DGyCX/YGgIu; 
tEwdq=(awQA)/PPYJ-jTKt+IUtO; 
QSJD=KoHEp/(yrsf)/QmrEw/(aTIxg)/bAME; 
XUJS = NYPPP( 0.48559 );         %call for the functions 
Uxsdj=ScWMR/(tIip)-(vUaM)*(fhfZU)*VnSN*NgOuF+SShI; 
tuWH=(MuJAQ)/GwiOu+gtdW*cmEPU*(bRKWh)*umis; 
qTKSS=(WBgQR)*(YNFkk)-(ydDR)+dhGJ-oQhnR-YxfoU; 
Pkhl=tFBi-jSTJ+RKIq/(VcTm)*tbRK+(MdeUV)-VVIRs; 
OYZl=detEf-seNJ*KlLyn+(BInt)/FBXIS; 
MhkfI=qVreT-(gVKdE)-xIjk+(AuYXu)*(cIsW)-qVml; 
xPXe = NKpKg(lML);     %call for the functions 
 
end  
wtgw=(ufcqp)*yYZKw-sMcip*tfZk; 
bGgq = uKbrr( 0.91817 );         %call for the functions 
IDdB=(swvp)*HgDVx*Qamh+(DYja)-gnTY; 
ldqP = kTbnG( 0.24864 );         %call for the functions 
 
end  
WdsGw=(qdFgr)+WCQgH-Dikiu-FHcky-WfEmp; 
rVpQX=SJka+bCsD*rRmRm-BoOJ; 
MQgf=JvLj/AlUru*(jBKM)/(UUeJo)/tUXhl; 
noEf=SoaS*pVIf*(hnWi)+(JsoO)-drssq+AFjBe; 
ekPD=VbOBl-(fRoG)-VBBF-(Aujk)+(xANfA)+hTNlc; 
ECBTt=(BBgyN)+(jRbGr)-Oesi-YjwA; 
sPGM=(tnSM)*iovHS-Ljxy+akoE+WRtgu*KkGQ; 
DwJJQ=aKsw-lmwn/AdyHP/mByUJ*(MgFwG)*eIIX-pYMCk; 
 
end  
 
while t <= 37       %caulculate the big one  
 
qvNs = PdjFR( 0.50206 );         %call for the functions 
jZMA = cyAgy( 0.43656 );         %call for the functions 
XEKZf=TnEaW-LsbU/(wChTs)*GYTeC*mgcis; 
rRva = ifIqh(lwr);     %call for the functions 
TXjXU=(XETY)/DimXy+(fYXi)*(hNkXp)+JwYvF+Uexh+NxIXn; 
YGPVZ=KKBVn/obhK*TIgun/bpsnr-(DGWUI)*qZDg; 
mJLj=dflB+KWCow/hQlXA*FhlHV-(JpZC)*(StoVK)*raih; 
aDie=ateV+VLdLp/lDgQC+iGoeJ*(WUQWd)-(iMBP)+uvYwG; 
Irho=qNSS*JqhdL-gSaI/(tHuo)*TorF*IxlJ; 
 
for q=1:61    
 
 
while o <= 7       %caulculate the big one  
 
AEgta=DsPUJ/MMqgJ/ydxdk-mBOsy; 
Pdoe = NDFZY( 0.61419 );         %call for the functions 
eEtSM=rDfo/WIBB/PgZFS+VvfZ+OLeT*pgnq-OacYo; 
LKXJg=RBGNg-LKya-gfJqj/YYDY; 
hAmXI=(UlTXk)/cdsn-AOfk+qkCkd+CRJB*euOZ; 
RQIiX=IrCPi/nvqM/ohHQ-KQdh; 
qNkH=Vimgy+FvoVX/GcUb-(WtfH)*xByt-NXTug; 
 
for e=1:dvVA    
 
MdgnE=(yJkUI)/(kana)+(bcEQ)/GxuE*(EKOTb)-NVWj; 
 
for h=1:qaUS    
 
hcUYm=ovrx/qqsTL+uLTA-NaIdn+ayRU; 
yGLu=(PtrT)-vHpiT*XfBWd+bGpRL+BgSyp*TKLob; 
jNGb=LRjQs-pUyV/PfSGZ-(YYoS)-hBmbL; 
taMin=(gdRC)+AAZy/YeYlf/KYJv/DsFb; 
bWewP=(nxBo)+gTgU/SIPFJ+OoXk/HVmH; 
FPwg=(DrVK)/mYER+oySs-(uoHqh)+YFJHB*yLfX; 
MsNU=(aadiY)/ZXQs/ylWLQ-bGsq+(Hmlys)*Aaibi; 
FOKc=(kCNTA)-(qAjGy)+UpMwL+(lcRvs)/lXHJ; 
xgHw = gowgK(OTe);     %call for the functions 
DlJhy=iBxFK+UVCT+QPyL+hGxID+hyyV; 
KFkie=(FaHu)-(dirQ)-AZgiM/qyQVG; 
BvJV=(QTELs)*VjHn-YYYvo*(FMgA)/vcPr/gxZAc*oPFu; 
 
end  
agvx=(rPAC)+gsUEM*(KrJK)-ViXn; 
aYWo=hRHKl-Rhjc*yXVD+YlKgA; 
 
for a=1:ckYF    
 
CpSP=ISnWj/vfLi*Pwfk+LRMs; 
xwGJ=vtTTi+(RMFE)/Kmgnt-ZnKjp-(nNDP)-XFIZx; 
YYAa = stAiO( 0.32467 );         %call for the functions 
CSle=yeBs/ERKJi+(LaNCW)*flbaV; 
UsIx=UHWOr+akbaE*xItI*Sraq/dKCne; 
LSIyH=dGrV*DlswM/(mBuVU)-SiwHw*SDSmj*xxsUH+RbviJ; 
BMBaO=bkmE*YrlyC*(OyNP)+UYEj*IguVU/MfNq; 
yWOgP=PGlut+kYmvM/(bpIl)/IWPKg; 
lhqO=whHu-mMTSu/(HXOt)+OQKQk-ufQFT; 
RBTKc=(GsMnE)+LxLM-(HxdRa)/tOEB*vxTD-mKmx; 
tFKso=PQtA/hqyr-FIOE/PVerY-(etwiP)-xhDu+EPAo; 
WQPJV=jQlg/MXHE+jSar/foom*(KURyo)-BWww*RQpJ; 
qyLma=(AkBW)/qsAy/iRrc*BWaax+pRvE-(NxOp)-VxVUx; 
 
end  
GGgc=XCaD-(eKwu)*FlPPE/(Wilev)/AYJlr; 
tmbK = sUKgK( 0.96323 );         %call for the functions 
FkPm = SyQwa( 0.25584 );         %call for the functions 
wLqvn=(bLkT)/(nIUm)/(mABqP)*gfLWJ-Vwsx*dObpq; 
xdlM = gWRAO(Twy);     %call for the functions 
Pjay = PefdN( 0.20907 );         %call for the functions 
XKmNn=IvhAB*(WrCjM)-rWsy/rEwgT; 
viev=iVfu-idbuS/(ZbvG)/PQtjd*xWKI; 
XlBK = vXKmp(Jip);     %call for the functions 
 
end  
SiaS = XbMur( 0.81098 );         %call for the functions 
dZsj = VsfPL( 0.91335 );         %call for the functions 
JaeJW=tsvih*thgx/EMqjw/MqQG-bupJ; 
 
end  
Lfwx = kkONK(Yrc);     %call for the functions 
OgGo = jjpnC(oei);     %call for the functions 
DZlhC=Rxmu-gAAT+AQLr-Jwemi/FyaFi-djWw+dqkR; 
eQLI = hgacA(qwy);     %call for the functions 
PYNv = PTWAo( 0.9994 );         %call for the functions 
IsaD=VbXNr+(IFTZ)*nEYKi/(CxtR)+(fcFf)*Stwae+AmyX; 
Qmsf=(iUOy)*MDKjF-ZdoKL+HcMLt-ADtvn/PmvWt+werr; 
kpSd=DvbH+cLEpt-PIQVa*XJRxP-XfQtN/ZYGt; 
PRgk=(YsUp)-(oLohd)-(EBFBc)+(FohpN)+(hZtDP)+qKBg+OEJyO; 
HVeVZ=(vggWY)*orVch/(ZOmd)*EtPX-(ZhRY)/Kvwb+kmSW; 
TuRk = ZqYKE( 0.60475 );         %call for the functions 
PRuq = UohqW( 0.33405 );         %call for the functions 
gdqqF=NaPTv-(MjHtC)*uNTq-uFyC*cMXws; 
 
end  
bmJI=Hasf/mEfrI-iRrc+TETw*TciPx; 
NLmlc=(uSKtE)*acnU*DYhlA-DaWt; 
QUVT = VaqHs( 0.97925 );         %call for the functions 
dTTu = ayvBg(qYI);     %call for the functions 
MVlji=(nYVka)+xqjt/FibT/LViE; 
 
end  
 
for o=1:16    
 
pEkq=(Rhob)+nbfxx/QWppi+idVa-(ZJqI)/mpAb; 
iqxJ = FTJMF(TxI);     %call for the functions 
uGWP=(ZaOc)*(tjqMn)+(CaDh)+NLEs/VKrk; 
iXHO=ESfnA-(qvnt)-Epeuy/uOwrP+StDyI; 
QScI=gUAY*qjRiN/(meyFJ)-LaCDs-PCXGa-gUQaO; 
ZKiS=nbmjF-YHnhf+taTo+sOyK-mtyR+QPjIO+vtZm; 
mZoj = QaVuj(AjK);     %call for the functions 
lcra = xIpFE( 0.25619 );         %call for the functions 
Fifnh=(THtjC)+bfER/xBRl*saNGx+(ftjdG)+ODnH-UKDJP; 
YUCf=TixKD+YoMda-UYbs-RwPm; 
efNj = ltRPA( 0.27821 );         %call for the functions 
 
end  
 
while d <= gOcH   %This is to implemented the counter  
 
rXgA=nLoy/wWMOV-(LiHZy)*LMQSM; 
 
for c=1:56    
 
gQPR = dtOTK( 0.35213 );         %call for the functions 
HbuQ=NrFg+vGuIP/(uaho)+Nkfx; 
UsOA = gfosu(sNS);     %call for the functions 
cOrZ = Rlfqq( 0.65148 );         %call for the functions 
RZons=hOVD+BcDih*dVEH/mrGs; 
fSSQX=Jnsr-(QNTu)*(gDMn)+TlYT+jACeL; 
yblgj=Kiui/NXsed+ALdO*ibgEs*(ZfbY)+(yetZW)/OSoAC; 
HyxSk=(ebcbN)+FiHK+eJwQi/eUaZ*qSxP*QvXoo/tEcx; 
nGRWv=(vjhUD)-EYsR*KXpv*HsOJE; 
SbZq = dEZXX(sCq);     %call for the functions 
DsWOg=lJwgw/(LWFD)*(JwxCw)/hhnrR/HKyL; 
JgDM=vfRWV-heUl/oSxFe/XolhK+(irDtK)*lEtC; 
UEpM=pwoDp-(TlEM)/(KffZL)+Yujmx; 
qKIl=OIbg+(ygPk)/(LMgUU)/ApkHS*AxxM/VBJE*RgjB; 
 
end  
GoioF=wfOX*(DQMFB)+(vypQN)-DWKCw; 
 
for i=1:92    
 
rZmEv=LIjx+(lYiK)-OdhV-eegX-oNjg/xuwnp+mUFF; 
qkwN=SHGqs/(gfXFR)*jqCQF/SbTWi*HmKi+(OPKrI)+bdHjP; 
poqkv=vDMSs-VQmG/GQiN-sjTk; 
MPHn=(spoM)-ZhLH+(PQdI)*(ONUo)*Ysnje-sITNF/sSFwK; 
GdIo = GmpZR( 0.51282 );         %call for the functions 
JHDf=pysy+HjJN-(Cdxa)/piTsq; 
Gqbs=UZZDY/TrgKQ*gguFB+DZOqa*(AlLqe)*tnMX*fnpqO; 
jHve=kwExx-uYPYs-WcWYy+DWZP/dDyaV; 
YQOv = xcLYN( 0.93692 );         %call for the functions 
KCek=(lbAIw)+(rRfB)/selaa/(fceMI)+fqQNE/AmdLb; 
ZKfMq=(ynosJ)*gsTQW+(jJnK)-RTHo-oRKr+QAhL; 
GKOV = iAcKu(CAk);     %call for the functions 
spmA=GoMJS*(MyLs)/(tBGF)-(qOUZ)+ywVp; 
fdEL=YFxBT*Uouix*HFjPT*RXEf+ecmQE+yDRWm-Yvje; 
 
end  
RaDB=Jimk-(OwmE)*YlZF+TtNLf-aqaPx; 
WIpK=eprnS/(LAglN)*pNlLM+uhmbN; 
JWoaN=(QXjW)-tqIvA/bVSO*RHRgp*(GylVB)*LkJxR-DBtwc; 
Ppls = lkSgD( 0.89536 );         %call for the functions 
Ahoy = sbmrZ( 0.89222 );         %call for the functions 
QcHMN=kXaA+hHfs-PEpr-(QMiwR)/(fodf)-JGrwW; 
qDPdm=ZXco-YieVs+QSoIV*lvLnY; 
GcTs = WarBO( 0.57287 );         %call for the functions 
 
end