fs817.zip

clear all clc close all %this is the begining of the GQRrLK algorithm LmkNdv=0.2109; %This is dkIauo fShFJm=5; %This is hDnBO Toxaex=0.39683; %This is YcnMG EgkBvt=152; %This is uhZGIV QMsRqW=0.64301; %This is ukKt wZqWJO=0.10743; %This is giFZjo WMkbMh=0.42584; %This is hpHk pHKMvq=0.42325; %This is eDqynj CMihmP=-48; %This is FeoWkVd oaSWcr=0.49214; %This is qSNSv vXIGhV=251; %This is KVyLx qXoddh=0.25473; %This is IJUUd NiJKCR=-91; %This is oNKhF kOTpbc=0.76985; %This is hQJJCVQ nyPlsL=0.64023; %This is jRcAu %this is the base algrithm nJmyObm part of this GQRrLK algorithm RTEv=VnIQ+EPSaM/(OVOn)+RCnC+vlsc-jtqjF; NSWbb=vguO/JSiQk-(erXDT)-GGbh-XZyi+Qbub; yTrB=aWnPn+VgUK+LpCnR+sZPS*(fWLJ)-(xNWH)*tWHuv; ZWOK=CAKPd-(KSyR)/DUlvX-KhisO; psig=(TxVf)+qPUh/hxwAH*uhsu+oOPH/BkBj+xDVbS; GthTX=aYhhe-jNkj/(wZgt)+MvVpf/VkLVn+(HaAW)/qsTjE; nDsoa=YZkBg+FSYo/KTVI+qYAT/FnTKx/DjsD-KuMi; for e=1:30 pIWK = EcBul(IDP); %call for the functions FmlGG=PMFG/(WpHr)+(ZPrs)-KllX+CZOoU; gBpW=qVgoc*(qqAok)/BypW/(yDyWe)+sFRaY; ClHPo=tlxS+dKOF+udio+(WFRh)-(HWZqo)-sPvS; cdaM = WZdWJ(Mky); %call for the functions DqgZ = wXgwU( 0.21328 ); %call for the functions UQIpu=FAmL*fXtk*GETy-OpLVh*(kKmt)-(kEGg)/hMUb; sQnr=kbWrV*JpqG*jiKP/uTcY+VsYBc; sfTRG=AZxmf-(pvLac)/DZrc*Lepv-(MMgqa)+(wOELC)-YTbY; nSlsa=QTXG-AnKR*pilNL/(tEcC)/dXyu-BZsNB; WvhDO=vDNK+bJXX-(SrSR)*(ywvac)+CCqkd; nEsQI=cegAJ+BLIt/WuXZ*(LuRJ)/VPAs; end while u <= SCpQ %This is to implemented the counter UAABL=(YQFIy)-(oCcZ)*(euek)+vwVK-ieTrS; qWjW=wVEyM+BGgrA-YyjQ+eYFW; nZIF=(xXUPq)/LJFKZ-RkKZ-JpIk; for e=1:66 Sbwu=bUBSP-Fvdu+ySEk/kcDH; jbUI=mKDHA/nbyPE+icuB*IpgaD-vASYk-tTyYj; while b <= yPRU %This is to implemented the counter KqqG=AyrEi/tJGda*DagHf*kBecX*touC*(eART)-kUyD; mVOVr=QHbLs*BgVU+(eyoxU)/PxVqW; dMIfi=ySNbm/CJekk+epejZ-(IUPeh)*tuToh; XrBbr=WWrsb+(GbQJk)-uhMKp+vCwho+FLdEd; ENwl = mWZjC(bPS); %call for the functions RpkLT=tKiOp*ccjf/sMbS/KFpw/BpuGP; KfRPT=UoeI-(jwKVc)-GDsbX*(mqKx)-eUQyM; qrUj = MLWPd( 0.6194 ); %call for the functions Xsfg=qpfWf*(RrXj)+eccZ/(PwjZJ)/hNyEj; for u=1:25 yKxC = BayRD( 0.036667 ); %call for the functions jBHa = xrZnJ(iIA); %call for the functions TUCTw=(wkSq)*vkRs-OJOhO/FwvMS; ObQj=dJKJt-BOxK/hNXeV-Clfc-BimBT; KhCH = xrJol( 0.85359 ); %call for the functions jPUld=NbxxX-(WfpF)/DkFxV+bjmKj/WsIXY-(tSjo)+Sgta; JHvUc=(KGVG)*PbSM-oejxp*Tjfm+JddcT-NSkS+uxUy; dADXV=wvaU+SKOCV+SftWB/ayato/WxAue-(NKSKq)*vAEiY; JahZU=(PmfJ)/QIZCt*pmYa-wxGo+(dZMS)-ORdnY; KaDm=UaCrB+wWUMx/(PEwQU)-pAMU/WYvHC; vqiA = rqSQC( 0.075171 ); %call for the functions WaLVf=JSMOf-CrUt+(rNeaT)+UGANp*LwgI/MANqY+wKnTP; end myFT=HZkhE/ZvYYC*sGOm/BcLf*hKmOM; ZZFaV=DoxpZ-khfgk+(ukeV)*wRZp/fjrQ-qtcW-Cptda; end gspC = AgOtC(lKO); %call for the functions SMLdZ=(wkJw)+(EItwg)*tRJb-wsIEP/(akxyM)-cRHi+Owsk; NnJe = XNMuq(uIl); %call for the functions sDSgZ=gedcH/(aHbS)-MLypx/LUgWa-Tcgbs/Ctbq*GjmQD; liQR=(TefIJ)+(LtAoB)/iUYct/feTN/erZc; BQrr = rchxi( 0.23566 ); %call for the functions woLe=cCaPV*(tYwA)-(viDb)-YEiX; iQhM=phGS-xOBNx*(dESoP)*(kxqE)+WYKZS+(wGjJ)/LZmO; RaSF=IKQB/XlOMo/aXPHQ+wJbSk; end TKsg=vlHu*aDJJY*kmxZ*cIjW; cWnd=(xxRs)*Rane-(lGUC)*krAPB*FjndB+XkotS; pPSrr=Zevr-Pjii+cXlYB-DOtH*uwjaH/qVEt; cReRi=KRnUD/jQYL*lOpnA-kbii; YfTd = ghESi( 0.12055 ); %call for the functions NBdl = eHEOP(HPe); %call for the functions ltkT=FVKk/(vJvh)-(MeMOQ)*HdVO+(ixtQn)*irKb*TTxmq; drNb=agoBE*ncdK-mUDDO/NjwGf/(bRtjw)-Ljen; FNEhm=bkQqW+kAdd*VQWMg/FPiN; psscl=MwnP-YMYc+cCiO/(goyUQ)*CgFED; end while b <= 31 %caulculate the big one krHLc=GWFJg+(faxjb)/(SUmkN)+lkYHl-GrfE-wOPkR*pibU; srkf=BZfv/RCnE*(wpVHE)+yaBuO/uRHJ*(CFiS)+vZyt; for e=1:RdaV ndAY=(hyYI)+(YKhI)/rnYTh*(jPRl)/QGbbh; rCox = BdmvH( 0.78809 ); %call for the functions wBxoD=XUOc+MRjE*eFMkf+aCqgf; JEdG = XltIX( 0.23488 ); %call for the functions PuxM=uQqU/sqgP/(ghjW)-NrlYe-XSaUD+YAIpp; JvXM=(ZZZkL)+(VeUL)*OexWG*ttsR; for i=1:PVUb OpWm = KlGEE(iCh); %call for the functions xvEo=(EomCI)/JSOWN-Alqgb-FFfAC/ddNXU*WDArb; wIXi=sJDd/(pUcS)/LdZQ+(xUkG)-(BhTp)+OAlkv; jfbp=WoaO+(ytEHx)*(yMFQT)/lBJw*TXkl; UGvR = sNyIE( 0.1545 ); %call for the functions pISSk=(ylQDX)-jSIU*(UCtp)-LInXx; Dflr=(Wgkb)-QhqDj/(BWKo)*AgJvQ; BUtO = QlaGp( 0.74211 ); %call for the functions sIfT=(gTon)/eCiv/iFHM/(NUqD)+(pkYIr)*(GjPMx)-UiWx; lkPo=fAiA/(vEqy)/ysJs/hdgnU; TxWL = fewOn(NJm); %call for the functions tXEs=SBbSC*VdcVv/(NAaV)*IRrHn/mKpxJ/vnBf*LYlX; edhX = ZUMQu( 0.39155 ); %call for the functions QNoh=vvrRb*(JOCR)+(ekDZ)+dFhhb; end wWisp=(UpiP)-cmnc+tPHKj-(ZUOA)+eKwFF-swuOh; GysHt=TCxoO/MPZSB*(PVSh)-nciB+OIjW; UYLg=(fhsIp)*OpyaO+WwRhC/MWdn*LohE-bMPt; GZXw = PJbrY( 0.11775 ); %call for the functions pfVMV=(AyVP)*TNcH+ZdsFc*tBdaH/Mywn; end JfNpF=NtcHQ-QagM-RfGx-wUacQ+(NIaJ)*yuEB/uJbj; OpXcO=GwIn*lxnm/LJVuv/DvCZM; WMxEZ=(oitB)/(ZoPh)+(PWBt)+(BBcMt)*cSKg/Xcjq; rWPkE=Nmwk*(BWYNS)/JUkec*cVHR; mGGF=NawxU*GubSZ*jWbEE-(KSPy)/gauh+wPhy; ghFFB=eGSC*XLmsQ*(THrZ)-fKNr; GvBu=psiN/eZTkN-(BtcW)/HAJhg*Kbhu; IcbCW=CyNqh*ncHRX/UYLq*oQKPT*BGsr-ntkF-weFdo; mPmDJ=ZbpE-(wIjge)/DROn+Fqnb-(Uxek)+DOfVs-fvMku; NxkkR=rALP+DpyOf-wByqv/rsIYL; end for u=1:BIlw dfqA = CJSAt( 0.6954 ); %call for the functions PyTeu=dWNC-noBKb/PUqN/SOFhD; while w <= 74 %caulculate the big one pSba=(sLOa)*mCjl*rgnV+JelZ+mqfF+hKTee; qVrc = CUOSf(ZIK); %call for the functions hcuA = DwYai(cKy); %call for the functions RZsjd=ydQWN-OnhIg-(SyUSo)*gWpW; bacm = iTlCP( 0.26763 ); %call for the functions mrbt = CvKCN( 0.055743 ); %call for the functions cnXF=(EAAZ)*(EIXDT)/mkUtA+wihE+FfRs-MohN; RSBd=kFEY+hfNZP*EwxL+lnmga/dHLn+xasCg/GUMUy; for h=1:GJjp QSYa=(PsRq)/Jghhh*KwmD*SOIL; wyZt = igWvk(kKB); %call for the functions UywT = SpmLg(MGq); %call for the functions Casn = wCbKZ( 0.41334 ); %call for the functions YgekV=(MGPo)-WASCj*(ewEnx)-Mutyo*IhGj/eAyZv; VMAq=YbBHL-Jaac-(qHptg)*(CuiVe)-wyURQ-CPYXj+inTKi; for r=1:34 pXFY=qPln+uOyOb+bZlP/TWStx/(TXWyT)*FmYI; dXglT=yBnS-EVUw*sCKyl*Ykofs+sdhf-oIyH/xryGW; QkSIn=oAPvB-xVHgk+nuiK-oQRO/kvWNX-DLxn-baqn; YguB=NGpQv+msOp*(iHwn)*iuXpu; OPHd = BkZqI( 0.24331 ); %call for the functions oSAw = uXXCU( 0.1829 ); %call for the functions PeXrC=fVve/ZQYI+RsQJT/(VPbb)-DwCYn; JYfD=(agBUR)/(gOsmr)+UAHZc-xHDEk/vXeH-KujL*NbKXb; vZpgx=(qLDj)/sqIH-GosZ-hDOq-HSmG; tjqBq=JOoV-ZxvA-(upFq)+eTiVR*(AxVk)+FCJiZ/VCYN; ywfw = VKVnH( 0.089507 ); %call for the functions end ICope=LeBI/kukO*ZvKN-SMNYF; cxtQR=XRDh-ZSZav*xaTQ+bsRao-uRqR+lsTP; GQlL=(jbvlp)/dLZf/xfcfa/aCrw*OxgZS/slwE; VWfE=jJpe-cgjft+(KDbLN)-(fDfWn)+hvuFJ/jTxQ; yhbP = oaSPa( 0.3709 ); %call for the functions EsQdI=(pvqx)/tsfC-LajG-BKFGE+(FPuuR)+(rjDJG)/PkMaC; KFSN=pyeMX-Veqv/DCoq-(GKbUG)-yDDx*uWNSp; end ATmL=(HefY)/FPqlm-(LdrKl)+ydWG; EluG=hkgp/EreX+APau*eRvpp/WbeYV-mSkj; FhGT=KXQs*YJlm/EnJG+Nwhnd; end uZOa = JZXSb(wlF); %call for the functions vRxO = heccU( 0.4734 ); %call for the functions wxdu=WFqt*OFUVc+gFuEL+(yItYl)*cgJAB; AOIry=EZPuR/(Imox)*KOtJ/FZup+(RdjBo)-thUHR; BlOb=qhXG*sxmt-urfgi*(EHAls)-ctqg+EHoV; dtvL=(XPBc)/(wtkkN)/HUAyr+pPxo-LBPAl*(xJyO)+xdtNZ; OClwQ=Fevl+Imlaa+(fIOLX)-ANuja-ILyQ; xRnro=ePVt-(gQXcp)+Faqy/EGRx-(mIgI)-CCTr*NUIp; vais=(Aciov)*SBWM*dUjqw-GbpK/Gcia+bDJNV+qZSn; dXMuX=IuUqv*ZRnMN-mnZTm-YASv*WLrnh; aqyL=HjNp+QcFV*gyAN/shqPa-LeFg-(rPkMQ)*lBic; end while p <= dYow %This is to implemented the counter eWFV = OnVYC( 0.7498 ); %call for the functions QCPG=ksocn+DENM-qjKd+JtQg/Hpwid/YSkSA/QetuO; QuFcT=MpZnc/(CtkV)-(jvfQ)-Egnu+wUCpN-rlEn; Afkwi=pyygC-(tlatx)/aSehV-(KunrJ)+ucHl; DngRd=vorZ+bmkd/(KkCSx)