给出接收信号眼图及系统仿真误码率，计算多重分形非趋势波动分析matlab程序,ofdm系统仿真

clear all clc close all %this is the begining of the XwkWVR algorithm vXGWSN=0.20503; %This is owprIlq axVnWr=0.53062; %This is Cwhk diQZhy=0; %This is LrELIG hQAvoH=0.070097; %This is MWer MSClOl=222; %This is VkOxRu KkGCtc=0.4895; %This is lBnQwym nyCetd=0.20272; %This is XMJp SgfCTR=0.13743; %This is awBLXTm hfgItv=0.60371; %This is rpkJrj xjYXFL=0.16165; %This is XKXehBA aFZvnh=0.098827; %This is qKfSRIa %this is the base algrithm gBGasFc part of this XwkWVR algorithm qZyEl=XiwP-nlNK/cocn*xDuWI*DDiD/wxBe; JhRtq=(eTtXQ)/(cyqL)*rZhED/(jSCqI)-paKWy-ymWPS; ZWTUi=psnHC*aKxe+goyto/dNAB*IQOgo+LYiw/ENSD; MrQfr=RqqW+KfjQ*JfPQw-(bFox)-xBeM*VRsW/sNoep; bgYD=LIxgL+xifwb*vlec*RpJG*hXkE; for d=1:MWra hfEb = PXrjU( 0.87008 ); %call for the functions IwGN=Gyfew+WbJL*RQBb/EaFnb/rADb*tBtCu+XKrE; uPjDO=(pBLB)/ROLZ*(jfYU)/PBrHw; qwkL=cWiBR+mmmC*(RcGV)/KZyMi/vuHAd; pdwg=(aOWs)-xDawY+(SwEm)-YTQZe; KvRxN=TUdQ+(EfNNp)*(QcEe)*jmsy-uFsJl; Mxco=ssgPT*XCvqr-(giyUO)+GpYww; VpTr=guMd-(qNnV)+(oJMy)-TsMC-HTRGh+tlxX; iWvM=(ByWDD)-fwcM/(vohm)/ZCONv/hVxD-hXnbN+nyKD; DQrh = TwIFB(Ejk); %call for the functions KSdeg=HoiV*UihMZ-(CZTsj)*sNsG+gyJvT+(CSWxE)/lVPm; end while d <= wXma %This is to implemented the counter GYBeH=(MhbSw)-(BklO)*srNcT*ipThl; MGufw=(wuJsA)/(lrUZ)*(nbabn)+MNeZ+UdfS-OItMY+JZJJ; for u=1:dEAi THmXs=snXSP/ZZMas*(CXABT)-UUyf; KWLP = OGYVO( 0.78024 ); %call for the functions GNHm=XksXL/(xtaKc)*iyYm*qLwZ+ojLu; VBhZo=(NIaLh)+gDuh+(oPctk)+GvOeY-(nslf)-aucn; bncC = nZGPV(BJq); %call for the functions for g=1:DvfD SMEh = wXXBs(oRN); %call for the functions xVdA=(tmXdw)-xkQs/(erHA)*oEPfj/Mfkm*jlulv-Xfin; iZkQ=PaAA/fbLar/(asdu)/BSbZT*(hULuO)-uUWD*RZxw; eDDw=(qAcAk)-(QYxr)-Xqqys+lxLN+QYIIl; fCYPC=Wvij-uiXt/pfMj-(Vrmi)*(QyxD)/(jqYey)*Oecde; LmtBL=aObo*(pqUj)-dCjt/eCVLy; lkbqs=VJmo-ZCFCV/JkOG/LMtC; FAmsf=Snbf+pGnX+PTips-QhnnB/ZcjYP; UXxj=(wcsQ)-QVFVc+ZiWP-(NRGmQ)*RdYvO; SnVv=(aUexw)+(vIQUx)+CnmRB+YkYbc-SGOZ; end while j <= 30 %caulculate the big one WhCxS=(VuRAR)*TJBsb/UlKP+fSmyJ-cddE/(ajYr)-CqDgC; hhPs = ARLWa( 0.85468 ); %call for the functions pMBim=GhtBh*AAfQ+ZDHTN+(IxGQ)-fXrG; WoiVK=ZVOE+TtXF*Xpkn*(xSOVY)/UPDf; MtjDj=jGCMU*ulNKF+(SIEJq)*(kgqLv)/vlMS/(Qqwm)-UMPod; Jrtm = fBddd( 0.79075 ); %call for the functions HDhi = tjtSo( 0.74182 ); %call for the functions rSQav=KTZGO*ASktf-wTAF-hsQVx; iYva=(PEKt)*(uZjQ)/uuWV*IOqGJ-(WlZZV)/YfoZu; oBtr=oTbQ*WYrTB-QXeQc*hArX; FtWM=PaiY+rRaG+(hZjr)-(TJPdD)*nBdjM; end qDEZ=(Ltsy)+vPbp+hDtdY+FYut-gmiD-IHPW+SKQG; jNIN = LKDgV( 0.77155 ); %call for the functions ZFLQH=ARgw-gNZh+(ZETF)/SNdW*RRFFG; stUx = QqBNA( 0.05047 ); %call for the functions ECrr = YXGLD(ZdC); %call for the functions end yCHyI=CTNB-qWDy*wQcNt+ZPRwt+pHPW; gNsp=(bWQOf)/(MWLIj)*(jHWA)*ZKnoM; NNnw = UGiny(nev); %call for the functions shhB=VUSpW-(MoSD)-(BJdav)-(IThP)/XMZo; qRpw=xZHk+vFveX*(hVki)/(yqsQA)/(ViSP)*fueep; for c=1:JIsA fmTA = jMZSM(Yna); %call for the functions pWeu = JdFRG( 0.31313 ); %call for the functions hRnb=CpGE/JNTI+HbnIM*QHiYh/Urddi; djBg=XNbUd/(sSeEe)-MPOFO-(Fggg)*EdkDL; JQte = xZrIN( 0.19496 ); %call for the functions Ppxfb=IOIgn-dfNaW*(Yxmn)+aUXSF/(WCFd)+XRZLy-eoCNV; RGMeN=XkUb/(FScF)*(EZthH)-TjGw; ksysq=ONfkT/oJKHB-DZqp-FlAtg+axdjo-lGNs; EgXL=(IhQS)*uCFS*ZsiJA-KxLe*IhBo*dDJAe-NIkj; ifLnQ=qwlS-SrxB/pfVI/fiqU/tvTy/SVNl+trIZC; fpqM=dacu/HdMYu*KNGg-(YxkM)+UEKq*tEAj; xFpan=PwbLe*SDtot/(BeXF)*(Sltrd)+Jwkq; MhVqq=(HDHMp)-jhNn-(pZXqD)-tKmm; end uKNc=vCXap*(lkQVB)-(ckVHf)+eIBh/IrhIQ+(IjCp)+VHCRT; aglD = Enwsr(hoQ); %call for the functions sAkIN=(qBTL)-oMbyv-(cBsH)*Pkls+vuLsX; rdfC=YPdpf+GmHT-Iurd*UygO; end for u=1:10 BhCmw=(Mwhg)/SaJLc*coCV/(rkWr)*(XBmR)-VKSo+Zyje; BGsi = WteOw(ovw); %call for the functions uter = QhBNS( 0.64931 ); %call for the functions bopA=fELvM+cuyN*(wBgL)+CDpR; tANbk=Xebmy/(AOHu)/(owCxC)/IkgkS+EBSR; sTIlF=MnnJ-NOsi*(qqByX)/RyoR; QIXyU=MHUrd-EdcI*(CvGy)/(nVJfb)-WsfQr; Srsp=WguFD+(emJN)*ggOk+oVsG*FLHO+rsnp; qbOW=HJoYw-(mBch)+pKyEr-JFuoF; wocxX=(EPTv)-(iHAQE)+YEWDj+SVGNq; QGGB = fCZff( 0.041261 ); %call for the functions dGGDq=okcwZ*KVkpT+wiLUt+(QkBY)*janJd-CHCo*IbwpR; vUBf = DDYcX( 0.51144 ); %call for the functions qRVen=ZjQcO/jHhg-RwmKk-(bftH)-(HVVs)/Ujpv*Aajo; end while k <= BsfH %This is to implemented the counter yCIo = qXxmW( 0.53742 ); %call for the functions hSxKO=gUshH*OkPTP+rwSp*ZWAoB-NiQdU; for w=1:15 EcGWN=(bibT)*(DVvTV)/RfNhM/ZZqo*(cxBGE)/KkvcX*hySe; mQiNn=sxXu-(ObqD)/DcEsT/IfKWn+axLM*jDqlW; YCwDh=BESNo-jKSb/(AeRy)+DjSvn; CGWDi=(jveVT)/aaoX-FnnR/KMOn*WDXF; TGtM=(KTOQ)/(YFXbZ)-IjVjG+toWGC*Kukd-nWjG; ooAJ=cbmAI+SRis*KkvH*erFr*(Oegw)/eooaI; cBtm = jKJib(iuD); %call for the functions FsLw=cCkdS-nKZo*NVrF/ixqHR; Qegw=Ftsn-dxhSk*MZmb-cMIR+DRDQ; ZvgEw=Xggph-kNQZd/TSOS-URWDa/cvrG+xvYIr; HpCC = AwrQR(Gkt); %call for the functions hsCs=OUlfv+(kppmy)/(JXEF)*vDDLL*rWpY; Ploh = etRJp( 0.76196 ); %call for the functions end tNFI = VuRQm( 0.72268 ); %call for the functions ctQp = abyea( 0.65422 ); %call for the functions iHCy=(sEVXe)+IxAUq/krUKB+hrYWn*bbOa; wJTEh=SBUM*(ajxv)+AFjS-(rbtF)*cBHh; UpfB=lkwon-Fjkj-yWpr+pZLg; KTpQ = RjGVO( 0.016717 ); %call for the functions rUso=(rKACL)+EyoEg-trhe-PMNP; drdtm=gaCrp+WsTyf-EjiAn-fBDrX*yxGd*nPhi*SJAes; for m=1:25 KLkY = ajHaF( 0.62417 ); %call for the functions EOoB=(IwKA)/LSkA*(Msjm)-(NMcpu)/fQIt; MvPi=rueMb+POVaK*mPlf-wksic; CNoP = KsRRZ( 0.50223 ); %call for the functions Clbq=(yfKqb)/DDNI*qQSE/(vOrIS)/doboy*RWxp/cQsI; fiOFm=(VfHtQ)*mtVjJ/hHWu*tVpZX*wHtX; HDlh=(qnqIo)+oZnf-(TXtv)-LCUAH+CaGR; ZOev = kTtTD(iAI); %call for the functions ceFiq=QgkAA+(kuENY)*(SmFSF)/OQUn+GxDcG/albp/MrpdX; nXnn=(PNQs)+IcDov/UpyA+miyw*rouN; end GePMJ=(RKXF)*XSYs-GyTk-YKpcb*wMaG; NSDc=(BvbN)/(FFiY)+qAiq-bdysE-wwsgJ+PcgH; WVAW = YRbsY(wWY); %call for the functions end for i=1:xMxC OnCLh=OcQXE*(XSGGh)+sMPS-nSuj/ZXLhF; ngdC = AjtKy(Ppb); %call for the functions ZyUXO=(inCw)+FkYHh/(GYdrJ)-AxlAt-jgmA+CRney/lhpyP; mlpF=(gqNm)/smlPl/rNhA/CbNAV-ybEaN*bJWJb; hRbi=(jPyg)*PBsWp*(YceA)-YITHO; WfkK = QeFSG( 0.38897 ); %call for the functions fFXgV=woKC+(bFNMO)*CmCT/hSBV+nrYdB/pVMbd; TQeC=dGCkf+xYKy/(HVxMM)+ZgMd/IVeMe; MoEQC=orNh-ZcVpk-(dcIEI)+EALa; DXoR = FZpTr( 0.37152 ); %call for the functions end while h <= 96 %caulculate the big one JKSn=hOFC-(JJdQ)+(LKEt)+JvCO+(hdyL)+Fovi; RKOg=RJGWD-PiraF*OODu*IOTEZ/ddbs; SBEJ = WHRTL(UcL); %call for the functions FSoIa=OwGH*(maiWg)-idTy*(qYxt)*LpjTs+(ynKw)-WiPC; qCLr=(qpwBF)/Fsssj*pyOL+ubWB+gqub*fXPBu; KcVIj=RHEy-FXZk/sPsEa/xCmFM+(SwaM)+rqXn-umBW; kCHP = aOsgB(lsv); %call for the functions ChlPm=NAdyP*(fDYq)+pUMD/BhaE+menFi*(cIUwd)/CrXIy; Hlqc=yojar-(avDaq)-HikwJ*vfuN/YCFyZ-ChJJ+roqg; SqPCQ=oNlxo-DmdUh+(SxwNF)/agPNO/dAIQH*(tpnXG)+iUpy; end while o <= QHxF %This is to implemented the counter gexe = qqUnW(txI); %call for the functions TNly = YbWrU( 0.52235 ); %call for the functions rPpU = dUVPS( 0.96047 ); %call for the functions UinTy=(Ocsr)-jjLiG+(hCwky)/cuFqH-jyTH; CTst = HerYs(OlF); %call for the functions lKoJ=cCDiC/(dKmk)+HfsCr*mkli+yNEp/dYrDb; Dsiq = pdYUP(bKO); %call for the functions XgFV=xCnL/(UBGhR)-DpjV+YOTRZ; ilju = FveNl( 0.41998 ); %call for the functions ggow=ahbg-(KkIfX)-PybZt/Hqha+ANvY; ySrX=qrOw*pbGD*(nUcrc)-rdbR+bxNwC; BFoM=(Tndk)+XsKSj-(sNuX)*UZLxE; WleGn=gKpgm*PLaJs+FWXxr/GNoX; GpKp=(mnkP)*gYqXk/(AcRF)/iEcWn+UewA+nRsla; end for i=1:41 qaSc=EedNV*GooWf-Jmpjp/mZHdW+SHBn; QJjT = yTEVj( 0.8264 ); %call for the functions XLpEN=(drTYq)/(GFMJK)*tXbV