list.5.txt

来自「This archive contains circuit diagram an」· 文本 代码 · 共 57 行

	while(1)
	{
		unsigned long i;

		//Sampling
		Sampling(Samples);

		//Multiplying by window's factors
		if(WinType==wtHanning)
			Hanning(Samples);
		else if(WinType==wtHamming)
			Hamming(Samples);

		//Computing Spectrum (FFT)
		FFT(Samples,FFTResult);

		//Computing squared modules of FFTResult (Spectrum)
		for(i=0;i<N;i++)
		{
			fix Re2,Im2;

			//Scaling by N/2=128
			FFTResult[i].Re>>=7;
			FFTResult[i].Im>>=7;

			//Squareing
			Re2=FMUL(FFTResult[i].Re,FFTResult[i].Re,q);
			Im2=FMUL(FFTResult[i].Im,FFTResult[i].Im,q);
			Spectrum[i]=Re2+Im2;
		}

		//Changing the window
		if(!SW1 | !SW2 | !SW3)
		{
			delay(0x800);
			if(!SW1)
				WinType=wtNone;
			else if(!SW2)
				WinType=wtHanning;
			else if(!SW3)
				WinType=wtHamming;

			DisplayWindowType(WinType);
		}

		//Checking request
		if((U0LSR & 0x01)==0)
			continue;

		//Sending spectrum to PC (if requested)
		SendSpectrumInfo(Spectrum,WinType);

		//Empty input buffer by dummy reading
		while(U0LSR & 0x01)
			i=U0RBR;
	}