測試卡爾曼濾波器(Kalman Filter)

Craftor發表於2014-06-27
Filter

真實的溫度測試資料，通過加熱棒加熱一盆水測得的真實資料，X軸是時間秒，Y軸是溫度：

1）濾波前

kalman_before

2）濾波後（p=10, q=0.0001, r=0.05, kGain=0;）

kalman_after

2）濾波後（p=10, q=0.00001, r=1, kGain=0;），Y軸放大10倍並取整

kalman3。

 

相關C語言程式碼：

#define LINE 1024

static float prevData=0; 
static float p=10, q=0.0001, r=0.05, kGain=0;

float kalmanFilter(float inData) 
{

    p = p+q; 
    kGain = p/(p+r);

    inData = prevData+(kGain*(inData-prevData)); 
    p = (1-kGain)*p;

    prevData = inData;

    return inData; 
}

char *ReadData(FILE *fp, char *buf) 
{ 
    return fgets(buf, LINE, fp); 
}

int main() 
{ 
    FILE *fp, *fp2; 
    char *p, *buf; 
    size_t len = 0; 
    ssize_t read; 
    float inData[1000]; 
    float outData[1000]; 
    uint32_t i,cnt=0;

    fp = fopen("d2.txt", "r"); 
    if (fp==NULL) 
        exit(1); 

    buf = (char*)malloc(LINE*sizeof(char)); 
    p=ReadData(fp, buf);

    while(p) { 
        inData[cnt]=atof(p); 
        cnt++; 
        p=ReadData(fp,buf); 
    }

    fclose(fp);

    for(i=0;i<cnt;i++)
        outData[i]=kalmanFilter(inData[i]); 
    }

    fp2 = fopen("d3.txt", "w"); 
    for(i=0;i<cnt;i++)
        fprintf(fp2, "%f\n",outData[i]); 
    } 
    fclose(fp2);

}

matlab程式碼：

d2 = load('d2.txt'); 
plot(d2); 

prevData=0.0; 
p=10; 
q=0.0001; 
r=0.05; 
kGain=0; 
outData=[];

for i=1:length(d2) 
p=p+q; 
kGain=p/(p+r); 
temp=d2(i); 
temp=prevData+(kGain*(temp-prevData)); 
p=(1-kGain)*p; 
prevData=temp; 
outData(i)=temp; 
end

plot(outData);

說明：d2.txt存放的是輸入的資料，每行一個。d3是輸出的資料。

 

r引數調整濾波後的曲線與實測曲線的相近程度，r越小越接近。

q引數調濾波後的曲線平滑程度，q越小越平滑。

相關文章