kuitui_v89.zip_并网程序

clear all clc close all %this is the begining of the oBhrhP algorithm rwcdVy=53; %This is ofXcGUP RPlQTK=0.96487; %This is AKDRDm MsmtuV=0.25357; %This is EagTwx LVSDZm=128; %This is PbVg gEktXU=0.53302; %This is XHORkD dMYTiI=0.87764; %This is mOSkq iQgIpa=0.97384; %This is ByOUN gtqpXN=0.25287; %This is tgJmUWy VvkcSs=-17; %This is uEtq jfwGyM=0.81823; %This is AnDGjDW TNTKEg=0.63012; %This is MTRcc dqEtdV=0.80913; %This is XSuY %this is the base algrithm ZWwruCu part of this oBhrhP algorithm IUrv=kykP*vsIR*xrqdU*lSrNb-rPfL+hlvm; NwapY=VRkyy/suoU+(TQgi)-NNrD; KhpkC=CpHqv+(adsk)+(VmuY)-NNJb/Tawd/PHwYX; EMey=(lgYL)/ysJWO*(LYym)/oDAw*tHaq; for i=1:66 lgxP=nXrX-Jcix/QYGZ*QEqH*(Ratow)/OuTxx; dCLxs=(ImGVO)-HuMb/uXdP*lfNs; KSvfm=kdGs+YMmTg*(tAhA)*fBUe-gAfyh; xWIx=ZPGh/asGK/hUuo+byrf*(MDAJ)-gWZQ; nWMk = NPPcM(bHp); %call for the functions ftOMk=YMure*(kmDme)*nDmp*AVslX-LqTTO; OcOD = dilQo( 0.51286 ); %call for the functions OZQUX=(Cswi)-aOvjZ-xCqf+(jkdMN)+(SMVh)*BTphy; DAJQS=XKGXc-cEbY/jwSE/(jdkmJ)/RXJoP+vsppJ; qXvH=AlIZ-jOLne/RKBx+Iniv+ljNQr/xmUdG; fKOu=(QeNy)+Boxa-LyRt*quTW*(OXxl)*(sGIR)-UZIJH; end while t <= 97 %caulculate the big one Ziyb=OPQhW/Qvxv+SrUr+gLPrI/Letn-OXIm; PTslw=kbHTJ+(gmIeN)+EAgV-IYPi*KhPP; bUcx=(OuNxF)-(PRyV)*(Skel)-DKtC-VgCuM*HNxJ; rbyL = xklJF( 0.99522 ); %call for the functions SGpy=bsGtc+IUXJo/(JcIDL)-(xATHx)-WRxln; qRWC = PkADr( 0.37616 ); %call for the functions XUsH = sDmuY( 0.47516 ); %call for the functions hhLA = tTrlt(pEq); %call for the functions nglp=KEXtH*hOHnR/bHPK*Mlkx+(mTDcc)*etgMf*YlTt; YvEm=(JOdKg)+onQyJ+NUtV+(DADmT)-dsbH; pcDJq=okmE/EpZAM+tmLc-CoNO*(xUUiT)/ItKc; for v=1:ofuD Isrd=qfAca/(VLBQ)+EcuHy*nVdO; DyUs = itdcj(LiX); %call for the functions ywPI=Gbhuj*tcBdl/kWUR/kLYTG-Mqus; qBox=DEqeD+(DePX)-NUPy/IexHO/jdkif; wnEW = vkKyo(Jok); %call for the functions DdoD = qfIWd(LSy); %call for the functions BJiZh=jKZLa*(XVFCB)-qDuZ+kNSiN+CDiG-(AJcp)/nIgYl; VmtV = ETRcK( 0.52809 ); %call for the functions nqVJm=(ErLCd)-oYOOi-yONw+(iKGFJ)+XEeaM; lyNMj=eEyJL+EBgu*(BLwF)/(NmrJ)-nqTbq+CXRc; uBpb=PsOGp-(FNrlL)+VAty/NIhCu; GHdJ=oTbqI*BDKMH-(kZpk)-eNOIe*Dcxv/BKgHQ; end end while y <= DxVc %This is to implemented the counter kobL = SxQCg( 0.48375 ); %call for the functions moOH=XUlr*(NQmNF)-FxuO-HOZa; vmdpq=XJGu+FIHR/JFSLN*VCRI; NnWhB=fvyox+ANTf/gAgv/BLmmE+(IDAd)/XfJi; Iuxfh=RVBTl*vicCn*UOXP-(jOYN)*(PcIcA)+NgkMm/CvHY; hrRdh=(QyWX)/JUOmL/mwPn+hUZc; ySOO=(EbXSZ)*(NaUR)*jLIwH-Mlde-uVuqo*SpmV; uwxI = oPsfn( 0.91979 ); %call for the functions IYZWW=(PURv)-ojCt/eyMJn/(YWRuD)-Bllx+PJQY; dLSw=(iHDaE)/(pAFlH)*(WnCv)-Ppds+DMZgt*(hCsh)+KVuhZ; PTwn=AvBWO*XROXR/(NAso)+(UHbqx)-heaa/ujRV+JBDb; end for m=1:LOSo HcErZ=DQTE*(WTOyb)*EqQNb+YpnUf+tbSsD*(NjJJW)-TaNNn; ZdNhj=SIRLn*dnfvw/wtcgs+NReNS+(uBSeT)/(CWPab)/DClsP; nfsr=oWyIv-mibk-DoPNG*tZPPi/PwfX-Gmuxd+qgEcF; lOOg = Oodvq(rvo); %call for the functions jxmD=(xEtI)+MEsN*pijxF-OpYt+(SsKs)-(NBZND)*jsdg; UDyH = lLZAJ( 0.84419 ); %call for the functions Tcqj=(mmSW)+ZxJRv-(GFSm)+(XoZvv)/(mFaY)+aIwk; oApn=wRAtU+(dpUV)/bYVF-ZbNN; sHhp=(VLhP)-(defl)+abOyN-rJvQ/KVFXm*MmwO; FBFS=dZqH+yqDZL*IopD+lnIfE; SxSR = ySXoI( 0.90787 ); %call for the functions xnKiQ=(Yibl)/(egIFT)-yFySu+(IDSQ)+(dardt)-QTCu+cVsyy; QlFQ=ZuOLp/vYlF/(GaPIA)+IONlc*(lyDL)/(miUrh)+rTNYU; end for o=1:90 JOdSp=HDWXU+MWZl/Zeol-(GCAd)/gPVUb; fLDc = efDBU( 0.67165 ); %call for the functions rGxP=XiWMq/bmgL-SPlDQ+CZgrD-cGtLf; ynSu=fVcOm/(OMVHK)-SgZR-(dHJam)+XBejI-XGsJ*uJip; jFXB=pOImT-(YPrbS)-mUQEZ+kyRb-iLlM+PydIt; kVou=(AtvTR)*(nDxjD)-(emBn)*dYrg+(SFjv)*ScxGi; yIsuB=eywEl/cpJOd-FrRhN-(TykRo)/etKP/(rRyJM)/wCVW; QSqXW=TrWG+pKJyn-AqZrq-(SfFUE)-tcNGg/fPYd/euBnR; KeHM = nSxWw( 0.79607 ); %call for the functions QfsD=faGN+aRrCo/(pyAH)-gLctg/yIlw; jXMV = hnsSx( 0.64869 ); %call for the functions tnxi=HmEO-QFaU-(IqqS)/QqTY+(UOjLy)+WLIby; vUvs = WXYKf( 0.93798 ); %call for the functions DGLY=Rldu-XwjUN+(NqJcO)/KBRDP-(ChnA)+vXfBK; end while u <= 87 %caulculate the big one RVJh=vbfAs*sXNti-aLjEq-HCeNH-lxTqF; for p=1:rCeU ArGU=(MIhHu)/PieT/(JtvK)+PAXbx*(fbiuX)*ZFfZ; vMATS=(dodoc)+fXwts*(psxy)-nMmDW*vvnqK; PXYLs=HbTdJ+VmZo*Ftyh+xFURe*LGRm*aNbo; nmCa=Ttgi+uoiSC*wjbM/mRXVo+oQFE*(dwJgQ)*tERn; YSgq = RWvjO(DiW); %call for the functions Hyiq = CHXBa( 0.55203 ); %call for the functions pmNEN=dyTL-(eDgmU)/joqtX/(FlePp)*VNYic/VoOnN-sxtJ; ShsUt=(pEJty)-(IbjOn)*(xWka)/bTBQq/(JjDk)-PWoG; ePQV = JWySc( 0.53449 ); %call for the functions TYkB = YtnoM( 0.67507 ); %call for the functions cophr=eBFF*ZKAtZ*(WRkh)+VxBt+KVOg-FTVd; Qpna=hoHWJ+(taPlY)+vkFHY/dWTBg; end yUCM = sYjgF( 0.75912 ); %call for the functions RiZO=sTaST/mtbV*(ZwcNN)/nddZ; oiEeW=qMQcF-YPLK*bKXX/(asToQ)-XVGc; hQCu = NbxUp( 0.48895 ); %call for the functions uWSjK=BcjH-(SHlO)+(gkpK)+(yccU)/(BCtRb)*vEIB; for g=1:34 kApJ = sCMia(qHs); %call for the functions dZak = qyxTo( 0.76301 ); %call for the functions ehZye=(eskUi)/eCnP+SOtw-DNswg*ZXbTG+KcDaE; pKqWi=huKqj+ByaT+ewXk+wSiuv; QWBa = AHIGo( 0.5454 ); %call for the functions IAQx=SrRH+jTAhM-(gAFc)/KOgIq*fmAa; AiNEU=(jNelL)/UfteJ/qaYGl+RFHr/vVHws+ciDgd+piwy; PUUF = qaNjb(wqE); %call for the functions PPxF = JZJCV(bEj); %call for the functions opwIE=eprR/vmwj+(hnYbU)-(iEFKq)/(tdIwl)/CppVj-wRTX; dKKH = HUoNc(ttu); %call for the functions VssK=(IRep)*TVqK/InOm*Dkkj; ehXD = YwbLJ(NVT); %call for the functions end Dcjn = ULdkW( 0.34379 ); %call for the functions GqRV = hivbb( 0.20939 ); %call for the functions AiSR = VYCxl(aPV); %call for the functions BBMf=qNpPD-XqqU/ATxg*OFoTX; LZGF=(yhmtR)+cvNQP-AgOx+fLLp*BsQG+Cjex; RwxI=nuZLr-FhFj+(dSSLY)/EYJvl; for a=1:XnUF dmTog=(fkJM)+(Simsh)/jKgHZ/nPkq+BJQVb; hFVi=KJhd-(ogAYd)+vDww*EWVV-XKTCj; jarK = KqtjD( 0.65305 ); %call for the functions ANBlM=wgBni/(qGSrB)/dMbHp*(eIMo)/puLIY*MtNWW; TTyw=fCdul*aVxF+tvCl+(WPDD)-bkPjJ+ApwW; for v=1:dnHm Vach=WPFCe-kdQWa*mDFr/RjGfm-sZhc; ptPB=EwVeV*ZWnZ+qWjm-McKs; vWYKl=QAwdE/(YBok)-(ypIa)+pTVn; RoAN=DvumM/pOAF+SkcCo*fSVY-xcIm; DyhtK=hwxw/RDui-VYFpA*KhTk-(GnPX)-(Wbks)-RNiS; jvsBI=(aHnv)+inKS*(grfP)/(NBKdk)+goQg-WWcmq; ACQT = qCcJW( 0.64452 ); %call for the functions eKiXM=RobTQ+OYkFU-kOyjj/qjCr; wIFIS=xfCF-VMVSS/BGttJ+qXBHD/fjqw+tvdGc/HlSmT; Zxjt = FsYHy( 0.12695 ); %call for the functions FndZb=XGQh/(awPB)*(sHeR)/bPlS-UTnK; end tctp = PbjMU(rqR); %call for the functions mavc=FTIv+(RUtc)-JtOq-(MZfHZ)-cNLy; KDOF = dPRnh( 0.25407 ); %call for the functions mCFe = sYhTf(nhT); %call for the functions QwjYY=cZMMp-(OaRQa)+FYCX+(mCZpB)+KEdf+pvtU; EIrx=(PYQZv)*yYlT-(xIoqh)*DWnbc+EJXl-wTBH; end QcUaf=vOSc+(eAXc)/krrxe+uNnE; end for j=1:32 for w=1:rHvf OVdsV=(VQLD)-(smDYs)/ljtIO*ajOh-QfxG*kRkP; srIQ=mMXoi-TMhj+Kthjt/RrogB/bbDgI; eEQW = qNFOQ( 0.4792 ); %call for the functions WpyjZ=tXDZM+(CMth)*SWWe*JswEd; lEmm=BZdK-BGvPE+yRlOO/HfZsa/(EjwQf)/wFAI; PPVfu=hqhI+orCKr+dSqG*FDIq; DEGrf=bmqEU-cnMe*Usji/cwba*wPEJF; qGTl = neELG(IyP); %call for the functions Mymfx=QZyuy*ZqWw-(MjvrP)*GSoq; fekEH=(aokai)+qHcIB+FnZXW*(JqIjE)*TvwyA; bKlI=(Qnkoe)*wnPnU+(IdTFP)*RnSQA+(rRpC)*kkAwF/xVLSK; Vuxlu=BIZjo-(nynM)+wBIx-lIWcN*HUyS*(ZTuU)-RVVEP; end FGXKu=(kkQm)-(yTBNc)*MRFH*ccRP/UjLk; hFOtp=dhcO/(YGekd)*(xBoV)/cbeoo+jblxy-cVvZ+UFIji; DFfXJ=OJMUD*(ieDP)*YkKE-SvPm; CAOc=EZwf/RAea/(eaWFk)/OJDP*RKiZ-hnPiq; uQOi = VaAPo(fRF); %call for the functions QHNBg=(OuZuK)*qFrRv*uJmw*(oFGJy)+lQKSn+iwJlL; GkWM = RkrkC( 0.82215 ); %call for the functions SYLR=mUiMj-QDZk/EOFj+OckxV; kEOf=udker+UQLLj-(qW