-1

我正在尝试使用 culaSgels 函数来解决 Ax=B。

我修改了 cula 包的 systemSolve 示例。

void culaFloatExample()
{
    int N=2;
    int NRHS = 2;
    int i,j;

    double cula_time,start_time,end_time;

    culaStatus status;

    culaFloat* A = NULL;
    culaFloat* B = NULL;
    culaFloat* X = NULL;

    culaFloat one = 1.0f;
    culaFloat thresh = 1e-6f;
    culaFloat diff;

    printf("Allocating Matrices\n");
    A = (culaFloat*)malloc(N*N*sizeof(culaFloat));
    B = (culaFloat*)malloc(N*N*sizeof(culaFloat));
    X = (culaFloat*)malloc(N*N*sizeof(culaFloat));

    if(!A || !B )
        exit(EXIT_FAILURE);

    printf("Initializing CULA\n");
    status = culaInitialize();
    checkStatus(status);

    // Set A
    A[0]=1;
    A[1]=2;
    A[2]=3;
    A[3]=4;

    // Set B 
    B[0]=5;
    B[1]=6;
    B[2]=2;
    B[3]=3;

    printf("Calling culaSgels\n");
    // Run CULA's version
    start_time = getHighResolutionTime();

    status = culaSgels('N',N,N, NRHS, A, N, A, N);

    end_time = getHighResolutionTime();
    cula_time = end_time - start_time;
    checkStatus(status);

    printf("Verifying Result\n");
    for(i = 0; i < N; ++i){
    for (j=0;j<N;j++)
    {
        diff = X[i+j*N] - B[i+j*N];
        if(diff < 0.0f)
            diff = -diff;
        if(diff > thresh)
            printf("\nResult check failed:  X[%d]=%f  B[%d]=%f\n", i, X[i+j*N],i, B[i+j*N]);

     printf("\nResults:X= %f \t B= %f:\n",X[i+j*N],B[i+j*N]);
    }
}


    printRuntime(cula_time);
    printf("Shutting down CULA\n\n");
    culaShutdown();

    free(A);
    free(B);

}

我正在使用culaSgels('N',N,N, NRHS, A, N, A, N);解决系统但是：

1）结果显示 X=0 的每个元素，但 B 是正确的。此外，它向我展示了

结果检查失败消息

2）研究参考手册，它说最后一个参数（AI有）之前的一个参数，应该是按列存储的矩阵B，但是如果我使用“B”而不是“A”作为参数，那么我没有得到正确的 B 矩阵。

4

1 回答 1

0

好的，代码需要三件事才能工作。

1）将A更改为B，所以culaSgels('N',N,N, NRHS, A, N, B, N);

（我误解了出口 B 包含解决方案）

2) 因为 CULA 相应地使用列主要变化 A、B 矩阵。

3) 改为：

B = (culaFloat*)malloc(N*NRHS*sizeof(culaFloat));
X = (culaFloat*)malloc(N*NRHS*sizeof(culaFloat));

（使用 NHRS 而不是 N，在此示例中相同）

谢谢！

于 2014-02-12T11:05:09.420 回答