2

1D 熱方程式の問題を解決しようとしています。ここで、u[x,t] は 1 次元バーのエネルギー密度であり、時間 t=0 ではすべてのエネルギーが点 x=0 に集中します。t= 64、128,256 など、特定の時間の解を見つけたい。

コード (英語は私の母国語ではないため、コメントを削除しました):

#include <stdio.h>
#include <math.h>

#define D 0.1
#define T 1024
#define tol 0.0000000000000001

int x,t;
double r,DE,u[T+1], ua[T-1];

main() {
    u[0] = 1;
    for(x=1; x<=T;x++)
        u[x] = 0;
    t=0;
    do {
        t++;
        for(x=0; x<=t; x++)
            ua[x] = u[x];
        u[0] = ua[0] + 2*D*(ua[1]-ua[0]);
        for(x=1; x<=t; x++)
            u[x] = ua[x] + D*(ua[x+1]-2*ua[x]+ua[x-1]);
    } while(t<T);
    DE = 0.0;

    for(x=0; x<=t; x++) {
        if(u[x]>tol) {
            printf("\n %d %1.20f", x,u[x]);
            DE += x*x*u[x];
        } else
            break;
    }
    printf("Delta(t=%d) = %20.20f", t, sqrt(2*DE));
}

データをプロットすると、「A」グラフが得られます。 グラフ

そして、「B」のようなものが欲しいです。

コードに境界条件を入れて2 番目のグラフを得るにはどうすればよいですか?

4

0 に答える 0