Question

问题：使用有限差分迭代求解拉普拉斯方程div2（u）= 0。

边界条件：u（x，0）= 1 u（x，1）= u（0，y）= u（1，y）= 0

算法是：

u [i，j] = 0.25 *（u [i，j-1] + u [i，j + 1] + u [i-1，j] + u [i + 1，j]）< / p>

环境：Arch Linux + Gcc 4.8.2＆amp;英特尔Parallel Studio 2013 SP4。

求解拉普拉斯方程的代码如下：

#include <iostream>
#include <cstdlib>
#include <cmath>
#include <time.h> 
#include <sys/time.h>
using namespace std;
double getTimeElapsed(struct timeval end, struct timeval start)
{
    return (end.tv_sec - start.tv_sec) + (end.tv_usec - start.tv_usec) / 1000000.00;
}
double max(double a,double b)
{
    if (a>b) return a;
    else return b;
}
int main(int argc, char *argv[])
{
    struct timeval t0, t1; 
    double htime;
    double **laplace,prev,qa=0,accu=10e-4;
    int i,j,rowcol,step=0; 
    if (argc != 3) cout << "Usage: hw4 [points at row] [accuracy]" << endl;
    else
    {
        rowcol=atoi(argv[1]);
        accu=atof(argv[2]);
        laplace = new double *[rowcol+1];
        for (i=0;i<=rowcol;i++) 
            laplace[i]=new double [rowcol+1];
        #pragma omp parallel for //MP init
        for (i=0;i<=rowcol;i++)
            for (j=0;j<=rowcol;j++)
            {
                if (j==0) laplace[i][j] = 1.0;
                else laplace[i][j] = 0.0;
            }
        gettimeofday(&t0, NULL);
        while(1)
        {
            #pragma omp parallel for shared(rowcol,laplace,prev) reduction (max:qa) //mp calculation
            for(i=1;i<=rowcol-1;i++)
                for(j=1;j<=rowcol-1;j++)
                {
                    prev=laplace[i][j];
                    laplace[i][j]=0.25*(laplace[i+1][j]+laplace[i-1][j]+laplace[i][j+1]+laplace[i][j-1]);
                    qa=max(qa,abs(laplace[i][j]-prev));
                }
            if (qa < accu)
            {
                gettimeofday(&t1, NULL);
                htime=getTimeElapsed(t1,t0);
                cout << "Done!" << endl << "Time used: " << htime << endl;
                for (i=0;i<=rowcol;i++) delete [] laplace[i];
                delete [] laplace;
                exit(0);
            }
            else 
            {
                step++;
                if (step%80==0) cout << "Iteration = " << step << " ,  Error= " << qa << endl;
                qa=0;
            }
        }
    }
    return 0;
}

我用100x100网格和1e-06精度测试了程序。

英特尔C ++通过6000次迭代完美地完成了该程序。它产生与顺序代码相同的结果。

但是对于海湾合作委员会来说，它没有收敛。

我无法弄清楚原因。

PS：由g ++编译的程序运行但未能像英特尔版本那样收敛。

温斯顿

Answer 1

您在j和prev中有竞争条件。让它们变得私密。

#pragma omp parallel for private(j) //MP init
for (i=0;i<=rowcol;i++)
    for (j=0;j<=rowcol;j++)

和

#pragma omp parallel for private(j,prev) reduction (max:qa) //mp calculation
for(i=1;i<=rowcol-1;i++)
    for(j=1;j<=rowcol-1;j++) {
        prev=laplace[i][j];

OpenMP 2-D拉普拉斯公式代码：当C语言完美融合时，G ++会爆炸

1 个答案: