KmlDssGenGet?I(D/S)

获取与handle关联的实数型值。

接口定义

C Interface：

int KmlDssGenGetSIS(KmlSolverTask **pHandle, enum KmlSolverParam param, float *value, int nvalue);

int KmlDssGenGetDID(KmlSolverTask **pHandle, enum KmlSolverParam param, double *value, int nvalue);

int KmlDssGenGetCIS(KmlSolverTask **pHandle, enum KmlSolverParam param, float *value, int nvalue);

int KmlDssGenGetZID(KmlSolverTask **pHandle, enum KmlSolverParam param, double *value, int nvalue);

参数

参数名	类型	描述	输入/输出
pHandle	KmlSolverTask **	求解器句柄，pHandle不可为空指针。	输入
param	enum KmlSolverParam	KMLSS_REFINEMENT_RESIDUAL表示迭代优化的残差。	输入
value	double或float	直接求解相关参数数组。	输入
nvalue	int	value数组元素个数。	输入

返回值

返回值	类型	描述
KMLSS_NO_ERROR	int	正常执行。
KMLSS_NULL_ARGUMENT	int	pHandle或data为空指针、或者参数不合理。
KMLSS_BAD_HANDLE	int	pHandle格式存在问题。
KMLSS_BAD_DATA_SIZE	int	用户设定的value数组长度nvalue不合理，即与右端项数目不一致。
KMLSS_BAD_SELECTOR	int	用户的KML_SOLVER_PARAM输入当前不支持，或在求解过程中不存在。

依赖

#include "kml_dss.h"或#include "kml_solver.h"

示例

C Interface：

int n = 8;
int ia[9] = {0, 2, 4, 6, 7, 8, 10, 12, 14};
int ja[14] = {0, 7, 1, 6, 2, 5, 3, 4, 2, 5, 1, 6, 0, 7};
double a[14] = {1.0, 2.0, -2.0, 3.0, 3.0, 4.0, -4.0, 5.0, 4.0, -6.0, 3.0, 7.0, 2.0, 8.0};

double b[8] = {3.0, 1.0, 7.0, -4.0, 5.0, -2.0, 10.0, 10.0};
double x[8];
int nrhs = 1;
int ldx = n, ldb = n;

KmlSolverTask *handle;
int ierr = KmlDssGenInitDI(&handle, n, a, ja, ia);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenInitDI: %d", ierr);
}
ierr = KmlDssGenAnalyzeDI(&handle);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenAnalyzeDI: %d", ierr);
}
ierr = KmlDssGenFactorizeDI(&handle);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenFactorizeDI: %d", ierr);
}

double tolerance = 1.e-12;
ierr = KmlDssGenSetDID(&handle, KMLSS_REFINEMENT_TOLERANCE_LEVEL, &tolerance, 1);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenSetDID: %d", ierr);
}
int nsteps = 2;
ierr = KmlDssGenSetDII(&handle, KMLSS_REFINEMENT_MAX_STEPS, &nsteps, 1);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenSetDII: %d", ierr);
}

ierr = KmlDssGenSolveDI(&handle, nrhs, x, ldx, b, ldb);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenSolveDI: %d", ierr);
}
double res;
ierr = KmlDssGenGetDID(&handle, KMLSS_REFINEMENT_RESIDUAL, &res, 1);
if (ierr != 0) {
    printf("\nERROR in KmlDssGenGetDID: %d", ierr);
}
printf("REFINEMENT_RESIDUAL = %f\n", res);

运行结果：

REFINEMENT_RESIDUAL = 0.000000

父主题： LU