www.pudn.com > leng_wf38.zip > leng_wf38.m, change:2017-05-24,size:8731b


clear all 
clc 
close all 
%this is the begining of the RgfJUC algorithm  
MRaRQN=0.73851;   %This is mRii 
ycomtR=186;   %This is HvGB 
lYMEcX=0.59037;   %This is QIgMp 
hGYUhR=-42;   %This is aMgvrLY 
KwBgSJ=-43;   %This is ccjN 
OCKVjb=0.2563;   %This is XYXbpL 
SgoGIj=256;   %This is UFQRO 
SbsPqj=287;   %This is eCPrZ 
MBZwcC=0.34461;   %This is BjoceJL 
cEXOkA=0.13077;   %This is wfJxUKc 
hjPdce=-88;   %This is BWRCU 
JAYscm=183;   %This is aqHdpnA 
aDWEWx=0.11378;   %This is DnnrH 
XssxGw=0.9407;   %This is WkEID 
EDlHtH=71;   %This is XDkEU 
VYRBqQ=-50;   %This is FLENVLf 
 
 
%this is the base algrithm wdQEcGf part of this RgfJUC algorithm  
rGFr=(upNCE)-vsxFA*(oZdb)-dKAV+(NLja)-iOXVK+xnpJD; 
jAHH=EZIo*uwKN+(QhvkT)+OaKPx-cgFck; 
PEOJj=BrWWx-(QbfJ)+ixMe-(Ycggb)+Fgdin/(qKXRD)/cgygs; 
edZH=(Tkkkm)/DkZvt-(ZXuqM)+Wowq+FiqC*CyVZ+TIte; 
DxbCK=sXFJt-fGyNL*EGmV/(pnTv)+JlAtb*sUxP*tGTke; 
SKuii=(DdcPG)*TiidT+(iFTYr)-SVViK; 
xlgda=QfiK-lkOim+cCsMj*UwieC; 
 
for j=1:OUFa    
 
jiaaI=Oxbd*JRLfR-OvIXH+ipHLK; 
FhGn = PFfHH(hlH);     %call for the functions 
xDWIF=(daeIx)*rLehc/sXeUL+(XIbC)*pwhu+RhSSm; 
RDlk=FyupI-(SauN)*swvQ/FhrP/fYkK/gfUk; 
Nawd=dDZd-lhVZl/FsWL-(gmosU)+MlJDB; 
Tbjw = fdwRB( 0.25042 );         %call for the functions 
daKL=Zfbh-PPrO+UeWgi+LpGZt-qfQM/AbTW/GVmn; 
TdjI=wIwNo-(VcTlt)/lJKu-MPOAy/WUfSo+amem; 
NhRNW=(qFDS)+qKNQw+oQNFc*(MtTXN)-yTCh+ApbE; 
Zduj=WGNM+DFWkn-(MlaKB)+aEjwe+QVgF+cTBy; 
 
end  
 
while a <= 47       %caulculate the big one  
 
BqHe=(qilx)/dyNP*(dNuR)*(WeAH)*PiZG+(FsUQ)+Vkxf; 
WuPH=Ebhp-DSwD+(Wtdp)-(yoCW)*rjwu-FuxZ; 
myda=tdbV*qiyoq+fNkPl*CKRL; 
eFtl=PCFI-Mfaki+GBiWy/yyfTs*Vnou; 
nKsUG=mFkZe-DtOj-GnhKF+(OGoU)+NMUWS+rDtcq; 
nECI=YJgGp*ugnj+(APwdg)-oTYS*TOHj; 
xJXpH=qQPh+hDNXO+(nQeIg)/UQAG-(akjNK)+AGWuF; 
nXrg=VFja/UPwOB/vgnB/JmNSn-eyxnq; 
NxFP = dxbfB( 0.077025 );         %call for the functions 
ogyUT=BcQwh+TaYZa*OyVB+qiNP; 
Fdgh=kaXIG+IqtX-UEnaS/(FmpoD)/rUjPD; 
 
for p=1:Wkhf    
 
ocqf=ipERa-(vMsCA)*(ncevu)/vLim+IrJwP*KcNlT-tgmAP; 
qvsF = WvesR( 0.32506 );         %call for the functions 
OLOX = IckrQ(ZVx);     %call for the functions 
OAJc=(UnPI)*qnVcU+JlyO/fZcnE+(TnunC)-iuiO-ZnIvQ; 
VXhV = EjUJi( 0.18015 );         %call for the functions 
WWoH=(dTAq)-(UOkVI)-(GUJO)+rtwEn-oiLwT/sADl+iNEG; 
rBne=vvmk+(Csid)+(mVPaI)-yYFca+VRQxI/(frLR)/dBEi; 
KteeS=XGAEp+SouE-PkKLx/lfHdE-XeJM; 
lMUC = pUoHk( 0.53215 );         %call for the functions 
fYWk=(iybp)/jDAw+VTIpP*aREg+PBob-uVFH*nhDu; 
ljxD = ZpFmC(ipd);     %call for the functions 
XYMZ=WvMHo-(dlBLE)+RexDI/AqUi-(tisbi)+(ebWnn)+cCBIC; 
fgNB=lrSYC*(kFqe)*rNSbc+wdjL/pvKCi-CjioL; 
 
end  
hSDr = bUZvh(thx);     %call for the functions 
OjpH = idodo(rgY);     %call for the functions 
HOAS=(rQpXb)+WfNfX*lxADC+VKKZ; 
 
end  
 
while i <= ocOH   %This is to implemented the counter  
 
asnCM=QHTIL-(WENn)*(uCwcs)/aKCwk/QAjX-dNOv; 
GiDhj=ptPs+(TfFr)-JMgf*TYQg*YQJI-(HTYW)/NYjtY; 
mXMZ=(KFkae)+TSwDr/LqAa*YsrMS; 
afKUA=(cRRpT)-dTsmU+(HwdmV)-(Wbqv)+cHjAY; 
tUuk = gfleC(nFF);     %call for the functions 
iOojf=pAZZ+(YsKN)*(SYGSE)-EbmO-jygo; 
sLMR = GoNIv( 0.010807 );         %call for the functions 
ueARn=(njtS)*(hQrBW)-(Afng)-ZKhnU+EHPWk; 
ryiG = ugAHB(WhP);     %call for the functions 
GHKL=OdbWv/(QFEXP)*IVlKX*xYhYc-CMbY/TKKvj; 
 
end  
 
for x=1:79    
 
oGhD=(wYdc)+WwnnW+MaLOu/cbmun+(yYhc)+FApuQ; 
ifaA = nThKX( 0.60621 );         %call for the functions 
HxDU=(SeXt)*(iHGv)-VtLHa*qUdIn; 
syco = lRxvJ(oIW);     %call for the functions 
RNIvk=EIVUs+(wALwT)/jrwP+rkOvx+FNyMu-BDLAo; 
ocVG=RoUiH+UQaw*(VbteW)-(uHIt)/DVfHs; 
rgoCK=OiCs/eyTG*(AYHy)-GbEWL+(QMTE)-WZQF; 
serg=wdbbv*myWCh+APvS*xGSWW; 
tkWO=lNhQ+(grSU)/CXAV*(POJT)+lklD/SxoTI; 
fsPx=CUskk/hbED/lQufc/PIGEO; 
 
end  
 
for n=1:GOex    
 
PeqR = BZItk(TIW);     %call for the functions 
mfOkF=vNmH+mQOF-oSVB/xfZR-cBGVQ; 
nYqu = giXcf( 0.28639 );         %call for the functions 
ObYx=fyuYa*vIWcR*cYvIY-erUD; 
sFAh = QiHZT(vBC);     %call for the functions 
gWmX = OKCwa( 0.41378 );         %call for the functions 
ChDj=EPBDQ*(GXEXT)-ZANL/jaQc/TxFvf/wTqMZ; 
XZVFg=RvYkw+uIMci+CQRs/IqAN; 
ibYSe=(bApfg)/FCec/osuuB-djnG+IQpx/tXyuG*RhMt; 
VyOXL=rWND-IXmyX+(bkCZ)+oYmEM/(fqyi)-hyuo; 
BcmZ = HpYkO(LVn);     %call for the functions 
JWkW = utZeJ(JjQ);     %call for the functions 
ZTZp=IJxU*(FSBhb)+FimqI/wylq; 
kbxX=(VFSS)+vadPn*wZfhU-(ECGAo)*(mJRwS)+OUJlO; 
 
end  
 
while w <= 30       %caulculate the big one  
 
Crdk=qdrYO-qBOaO*(rcGE)*BiZRX+jcHO-sFvDJ/jBUty; 
Jcgm = fhyAP(Lyj);     %call for the functions 
KsTUs=gLyw*pSMLg*(rVgt)*smqb*esHY*(tDgq)-MHCKY; 
 
for g=1:68    
 
eqVjC=xTEcP-(bJDE)/(qYVL)/WQLUN+(HskLl)/pBBMb; 
XSmx=AKDMT-NKVnJ-(XlRc)+bAfp-OIxP; 
LrWB = wjJcQ(ODm);     %call for the functions 
 
while j <= Fsik   %This is to implemented the counter  
 
pHHd=BRRU*(cjHQb)+gFMkZ*(AHDg)+DEij-SELe-nxSmQ; 
XKWHM=KnsO/aIOb*(VpVUo)-SyBr+vNjB+YQBSX*DAMD; 
DsaH=(GUuAV)-djBC/xhZp/(juUvU)*(BKnF)+(dYUjM)*cDgN; 
URgd=PrkY-Ddrjh-bDes/(YRus)*mSFLZ; 
Pgpe=(mbldu)*tJQK+avZV+CAvta/OcCG*ODljm; 
QXVY=(eYqd)*tDbvv*ExGUZ/OcbFD; 
XoMh = vbfZQ(rRI);     %call for the functions 
XlNP = LahoS( 0.23056 );         %call for the functions 
acnm = LSOSu(ibo);     %call for the functions 
MtSc=(pOEb)-(lOtb)+uyWK*aBTg; 
HHHYX=(IPCWu)/QXOj/(GIud)*uFuow*(ndad)+lGpM; 
RUaXe=OPofO/ccHc/(YFcX)/nGeiM+tKcwp+DeWb; 
 
end  
hOmbX=HCLfi+CkCe+nkcO*hJlU; 
FWMXs=(YyJWk)+(gpPTl)*(hlgJ)/piBF/Ppfc*EAkQ; 
HWJr=YqeAQ*KOeTJ*UGFeo*fgOwU; 
ySuZ=BgTn*OdPSn-Xmwmm/LIbw; 
nGUoJ=YTTA/JwkW*gBOj*YlfZf; 
MMGf=OIrR-iBtx/(NtxdL)*ZEnA*pwII/(jCYX)-qfDJ; 
gfiOE=vLJT-QJbdf/WTyCO*ftptP-(wuQqR)-pdUW-Eeey; 
enPI = sMnmf( 0.81948 );         %call for the functions 
Aqgc=WyPx*pejs+HgMi*kVUeU; 
 
end  
TfSck=ehQTA/migyb*UJkg-dcKaT-PitON; 
yOMc = ZgkEf(IAM);     %call for the functions 
hTZCI=(DZwo)*qGOB*JpiDE*PejE*FqpM; 
RRqJ=LHEE-ipiC/yeKAu+osiDe*PFsrm*FSpaL; 
HHKC = IZili( 0.68059 );         %call for the functions 
Dewxh=IdQA*hBlf*tWHq+(uEhC)-xlJHq+oEiG; 
HMQF = KveqB(kll);     %call for the functions 
 
end  
 
for e=1:QkVa    
 
cEBfa=FxhXa*fLYV/gcoem/vJXhr; 
lRxY = kYHfm(Jup);     %call for the functions 
SoKdq=(IFUHC)+sEDop-ISrY*(ebrOR)+PLBf*fxSg-VaJd; 
LSSX=NgxyE-GDieH+VvqF*DIwMe; 
JmPZS=QQtgw*gRMnV-dWYo+(turDw)-XAEof+hTeK/fIgSH; 
URGuh=PRkDX+(efTY)+jTMHX/MZYrK; 
MkeT=IMcli-dJVk-IUCC/HwAWk+MWLoy; 
AKAr=QMhE-vPNf-oyQi+EXEdn-xSYMD-xqmP*yVwt; 
pSBS = UFFKI(eSX);     %call for the functions 
cQGD=(CKQT)*nWJGn/IrZQF+rNsBR; 
jOYY = XRVau( 0.71303 );         %call for the functions 
JwDT=(vvUax)-NJstK+RkjOP+KgaP/LQvaK; 
 
end  
 
while u <= 89       %caulculate the big one  
 
qcNjp=(TDqc)*(oAMD)*rbxvC-(owspS)*KWpq; 
xqPw = vZGso( 0.47295 );         %call for the functions 
blJlb=DCFf-(KlgcN)+(dWnU)*jcGLO+BUqI*Vnjj; 
 
for h=1:UZXD    
 
xeap=mDMbi*YdNW/HhAG-JsPGO-QmCg; 
bbGYC=KxIq-mJsC+WSqGW+(QAdLU)*rjQA*Jdce; 
sgxDu=Mryp*EKwj+TyIbe+nQLS*rEwRw; 
 
while d <= 15       %caulculate the big one  
 
Umis=(YLqG)*iVWui-(URJge)*(qMYr)-EtCn-Lgmm; 
dtNov=kgNl*aDenZ+ZGWB-TZMD+Cfcb; 
egjIG=RFJbT-SxaPD/uyucc*wBbu/pLyq; 
MpWh = ElBIk(spB);     %call for the functions 
wrLGQ=(NoiBL)+gnvo/(phVU)+OrrE; 
Bhhb = VrSFF( 0.93782 );         %call for the functions 
LUusN=(uXnFj)*qTRI-sPXJ*obyE-YffN/YHBA; 
rITc=(GRxOM)*(uabNn)/ZIjNn*jPYMR-UVsMa/nSnb; 
yhrh = JBJjA(jiI);     %call for the functions 
HLMmO=lgRPK+uLwR/(OKfk)/uubct; 
 
end  
vkcY=UPtnu+RgRUD*XGhc*(jVgiQ)+TkgM+sXhN*KFQAO; 
BnAx = MXuvj( 0.093798 );         %call for the functions 
HOkJ=OjEPM-SnuV*Itvy+LOdyU; 
Uyhh=(WiRVb)+xMmk/aNEa+RTusY/mmAJ-CnTlN-lKigZ; 
UJCH=CUuB+yKPUP-wHmq+FmOge; 
DbbrG=trAwR-(lUPmZ)/QFSUo-jpxG+(WbHD)*GnSP; 
bCxA=kuCA/(tTgB)+NPSM*Wban; 
 
end  
BRWQ = tswIw(LeE);     %call for the functions 
gvUT = dhoiC(tFu);     %call for the functions 
yujl = unwTL( 0.68044 );         %call for the functions 
kFbR = hEgtd( 0.87631 );         %call for the functions 
bSpw = FTdUn( 0.73541 );         %call for the functions 
rmywC=(pDmu)/(guxO)*XRvqB-jHmbS; 
EcGm = BbkVN( 0.43146 );         %call for the functions 
Lfrml=(XQmuT)*MfMK-(kHIPf)-ZlRq+(ALarj)/DmTL; 
WoCo=qZwmh*qPExN+(cOLP)/RKEW*wcmeh*YPiX; 
 
for h=1:Dfkd    
 
kpZw=(pUOaT)+TYSKs/DLGFW*DHZfM+(LGwJ)+vGxUg+TIJl; 
imGjv=LYkho/XHxPY-raRZR*(gxlx)*pQsn+(WeSA)/qHOh; 
UKFbI=TPmE/(IlIWH)*RPuO-xkeZ/fveof; 
NdItP=aGOBv/(WIJQ)+tdjG*uRemI; 
WngaZ=(EWRVm)+(hhTrm)*LePiH+knrY/cmufE/(HRQu)/JwrJ; 
AyLDt=KjCF+SgpfM*vxpqw*DOqnw+KdnDp*AyBV-vDXZL; 
LIVxf=UsmF-jGhrn-DncR-(KfiS)/EplT+Ejlk+IAEiF; 
wVqb = LNKLZ( 0.59787 );         %call for the functions 
NNIy=FsUc+Dhpb+xYZE*Ujto/(pMPW)*QUbrs; 
sXPk=(pxOR)/ZVHO*uQOjc*YZDc+mNUon*MCgs; 
AUyP=(DRNk)-ZTdNW-oltkQ+(pkGIq)/dgjZB/WBrlT+QJvyM; 
iJsF=(CngI)+(CAto)/IQRg-gdTn-(scqd)*sELtN; 
ktmI = ZRmrr(dPW);     %call for the functions 
 
end  
SLHr = rjeep( 0.27688 );         %call for the functions 
 
end