PetscErrorCode EPSReset_Lanczos(EPS eps)
{
PetscErrorCode ierr;
EPS_LANCZOS *lanczos = (EPS_LANCZOS*)eps->data;
PetscFunctionBegin;
ierr = BVDestroy(&lanczos->AV);CHKERRQ(ierr);
PetscFunctionReturn(0);
}
/*@
EPSSetBV - Associates a basis vectors object to the eigensolver.
Collective on EPS
Input Parameters:
+ eps - eigensolver context obtained from EPSCreate()
- V - the basis vectors object
Note:
Use EPSGetBV() to retrieve the basis vectors context (for example,
to free them at the end of the computations).
Level: advanced
.seealso: EPSGetBV()
@*/
PetscErrorCode EPSSetBV(EPS eps,BV V)
{
PetscErrorCode ierr;
PetscFunctionBegin;
PetscValidHeaderSpecific(eps,EPS_CLASSID,1);
PetscValidHeaderSpecific(V,BV_CLASSID,2);
PetscCheckSameComm(eps,1,V,2);
ierr = PetscObjectReference((PetscObject)V);
CHKERRQ(ierr);
ierr = BVDestroy(&eps->V);
CHKERRQ(ierr);
eps->V = V;
ierr = PetscLogObjectParent((PetscObject)eps,(PetscObject)eps->V);
CHKERRQ(ierr);
PetscFunctionReturn(0);
}
/*@
EPSReset - Resets the EPS context to the initial state and removes any
allocated objects.
Collective on EPS
Input Parameter:
. eps - eigensolver context obtained from EPSCreate()
Level: advanced
.seealso: EPSDestroy()
@*/
PetscErrorCode EPSReset(EPS eps)
{
PetscErrorCode ierr;
PetscInt ncols;
PetscFunctionBegin;
PetscValidHeaderSpecific(eps,EPS_CLASSID,1);
if (eps->ops->reset) {
ierr = (eps->ops->reset)(eps);
CHKERRQ(ierr);
}
if (eps->st) {
ierr = STReset(eps->st);
CHKERRQ(ierr);
}
if (eps->ds) {
ierr = DSReset(eps->ds);
CHKERRQ(ierr);
}
ierr = VecDestroy(&eps->D);
CHKERRQ(ierr);
ierr = BVGetSizes(eps->V,NULL,NULL,&ncols);
CHKERRQ(ierr);
if (ncols) {
ierr = PetscFree4(eps->eigr,eps->eigi,eps->errest,eps->perm);
CHKERRQ(ierr);
ierr = PetscFree2(eps->rr,eps->ri);
CHKERRQ(ierr);
}
ierr = BVDestroy(&eps->V);
CHKERRQ(ierr);
ierr = VecDestroyVecs(eps->nwork,&eps->work);
CHKERRQ(ierr);
eps->nwork = 0;
eps->state = EPS_STATE_INITIAL;
PetscFunctionReturn(0);
}
int main(int argc,char **argv)
{
PetscErrorCode ierr;
Vec t,v;
Mat Q,M;
BV X,Y;
PetscInt i,j,n=10,kx=6,lx=3,ky=5,ly=2;
PetscScalar *q,*z;
PetscReal nrm;
PetscViewer view;
PetscBool verbose,trans;
SlepcInitialize(&argc,&argv,(char*)0,help);
ierr = PetscOptionsGetInt(NULL,"-n",&n,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-kx",&kx,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-lx",&lx,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-ky",&ky,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-ly",&ly,NULL);CHKERRQ(ierr);
ierr = PetscOptionsHasName(NULL,"-verbose",&verbose);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"First BV with %D active columns (%D leading columns) of dimension %D.\n",kx,lx,n);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"Second BV with %D active columns (%D leading columns) of dimension %D.\n",ky,ly,n);CHKERRQ(ierr);
/* Create template vector */
ierr = VecCreate(PETSC_COMM_WORLD,&t);CHKERRQ(ierr);
ierr = VecSetSizes(t,PETSC_DECIDE,n);CHKERRQ(ierr);
ierr = VecSetFromOptions(t);CHKERRQ(ierr);
/* Create BV object X */
ierr = BVCreate(PETSC_COMM_WORLD,&X);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)X,"X");CHKERRQ(ierr);
ierr = BVSetSizesFromVec(X,t,kx+2);CHKERRQ(ierr); /* two extra columns to test active columns */
ierr = BVSetFromOptions(X);CHKERRQ(ierr);
ierr = BVSetActiveColumns(X,lx,kx);CHKERRQ(ierr);
/* Set up viewer */
ierr = PetscViewerASCIIGetStdout(PETSC_COMM_WORLD,&view);CHKERRQ(ierr);
if (verbose) {
ierr = PetscViewerPushFormat(view,PETSC_VIEWER_ASCII_MATLAB);CHKERRQ(ierr);
}
/* Fill X entries */
for (j=0;j<kx+2;j++) {
ierr = BVGetColumn(X,j,&v);CHKERRQ(ierr);
ierr = VecZeroEntries(v);CHKERRQ(ierr);
for (i=0;i<4;i++) {
if (i+j<n) {
ierr = VecSetValue(v,i+j,(PetscScalar)(3*i+j-2),INSERT_VALUES);CHKERRQ(ierr);
}
}
ierr = VecAssemblyBegin(v);CHKERRQ(ierr);
ierr = VecAssemblyEnd(v);CHKERRQ(ierr);
ierr = BVRestoreColumn(X,j,&v);CHKERRQ(ierr);
}
if (verbose) {
ierr = BVView(X,view);CHKERRQ(ierr);
}
/* Create BV object Y */
ierr = BVCreate(PETSC_COMM_WORLD,&Y);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)Y,"Y");CHKERRQ(ierr);
ierr = BVSetSizesFromVec(Y,t,ky+1);CHKERRQ(ierr);
ierr = BVSetFromOptions(Y);CHKERRQ(ierr);
ierr = BVSetActiveColumns(Y,ly,ky);CHKERRQ(ierr);
/* Fill Y entries */
for (j=0;j<ky+1;j++) {
ierr = BVGetColumn(Y,j,&v);CHKERRQ(ierr);
ierr = VecSet(v,(PetscScalar)(j+1)/4.0);CHKERRQ(ierr);
ierr = BVRestoreColumn(Y,j,&v);CHKERRQ(ierr);
}
if (verbose) {
ierr = BVView(Y,view);CHKERRQ(ierr);
}
/* Create Mat */
ierr = MatCreateSeqDense(PETSC_COMM_SELF,kx,ky,NULL,&Q);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)Q,"Q");CHKERRQ(ierr);
ierr = MatDenseGetArray(Q,&q);CHKERRQ(ierr);
for (i=0;i<kx;i++)
for (j=0;j<ky;j++)
q[i+j*kx] = (i<j)? 2.0: -0.5;
ierr = MatDenseRestoreArray(Q,&q);CHKERRQ(ierr);
if (verbose) {
ierr = MatView(Q,NULL);CHKERRQ(ierr);
}
/* Test BVMult */
ierr = BVMult(Y,2.0,1.0,X,Q);CHKERRQ(ierr);
if (verbose) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"After BVMult - - - - - - - - -\n");CHKERRQ(ierr);
ierr = BVView(Y,view);CHKERRQ(ierr);
}
/* Test BVMultVec */
ierr = BVGetColumn(Y,0,&v);CHKERRQ(ierr);
ierr = PetscMalloc1(kx-lx,&z);CHKERRQ(ierr);
z[0] = 2.0;
for (i=1;i<kx-lx;i++) z[i] = -0.5*z[i-1];
ierr = BVMultVec(X,-1.0,1.0,v,z);CHKERRQ(ierr);
ierr = PetscFree(z);CHKERRQ(ierr);
ierr = BVRestoreColumn(Y,0,&v);CHKERRQ(ierr);
if (verbose) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"After BVMultVec - - - - - - -\n");CHKERRQ(ierr);
ierr = BVView(Y,view);CHKERRQ(ierr);
}
/* Test BVDot */
ierr = MatCreateSeqDense(PETSC_COMM_SELF,ky,kx,NULL,&M);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)M,"M");CHKERRQ(ierr);
ierr = BVDot(X,Y,M);CHKERRQ(ierr);
if (verbose) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"After BVDot - - - - - - - - -\n");CHKERRQ(ierr);
ierr = MatView(M,NULL);CHKERRQ(ierr);
}
/* Test BVDotVec */
ierr = BVGetColumn(Y,0,&v);CHKERRQ(ierr);
ierr = PetscMalloc1(kx-lx,&z);CHKERRQ(ierr);
ierr = BVDotVec(X,v,z);CHKERRQ(ierr);
ierr = BVRestoreColumn(Y,0,&v);CHKERRQ(ierr);
if (verbose) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"After BVDotVec - - - - - - -\n");CHKERRQ(ierr);
ierr = VecCreateSeqWithArray(PETSC_COMM_SELF,1,kx-lx,z,&v);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)v,"z");CHKERRQ(ierr);
ierr = VecView(v,view);CHKERRQ(ierr);
ierr = VecDestroy(&v);CHKERRQ(ierr);
}
ierr = PetscFree(z);CHKERRQ(ierr);
/* Test BVMultInPlace and BVScale */
ierr = PetscOptionsHasName(NULL,"-trans",&trans);CHKERRQ(ierr);
if (trans) {
Mat Qt;
ierr = MatTranspose(Q,MAT_INITIAL_MATRIX,&Qt);CHKERRQ(ierr);
ierr = BVMultInPlaceTranspose(X,Qt,lx+1,ky);CHKERRQ(ierr);
ierr = MatDestroy(&Qt);CHKERRQ(ierr);
} else {
ierr = BVMultInPlace(X,Q,lx+1,ky);CHKERRQ(ierr);
}
ierr = BVScale(X,2.0);CHKERRQ(ierr);
if (verbose) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"After BVMultInPlace - - - - -\n");CHKERRQ(ierr);
ierr = BVView(X,view);CHKERRQ(ierr);
}
/* Test BVNorm */
ierr = BVNormColumn(X,lx,NORM_2,&nrm);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"2-Norm or X[%D] = %g\n",lx,(double)nrm);CHKERRQ(ierr);
ierr = BVNorm(X,NORM_FROBENIUS,&nrm);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"Frobenius Norm or X = %g\n",(double)nrm);CHKERRQ(ierr);
ierr = BVDestroy(&X);CHKERRQ(ierr);
ierr = BVDestroy(&Y);CHKERRQ(ierr);
ierr = MatDestroy(&Q);CHKERRQ(ierr);
ierr = MatDestroy(&M);CHKERRQ(ierr);
ierr = VecDestroy(&t);CHKERRQ(ierr);
ierr = SlepcFinalize();
return 0;
}
int main(int argc,char **argv)
{
PetscErrorCode ierr;
BV X;
Mat M;
Vec v,t,*C;
PetscInt i,j,n=20,k=8,nc=2;
PetscViewer view;
PetscBool verbose;
PetscReal norm;
PetscScalar alpha;
SlepcInitialize(&argc,&argv,(char*)0,help);
ierr = PetscOptionsGetInt(NULL,"-n",&n,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-k",&k,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-nc",&nc,NULL);CHKERRQ(ierr);
ierr = PetscOptionsHasName(NULL,"-verbose",&verbose);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"Test BV orthogonalization with %D columns + %D constraints, of length %D.\n",k,nc,n);CHKERRQ(ierr);
/* Create template vector */
ierr = VecCreate(PETSC_COMM_WORLD,&t);CHKERRQ(ierr);
ierr = VecSetSizes(t,PETSC_DECIDE,n);CHKERRQ(ierr);
ierr = VecSetFromOptions(t);CHKERRQ(ierr);
/* Create BV object X */
ierr = BVCreate(PETSC_COMM_WORLD,&X);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)X,"X");CHKERRQ(ierr);
ierr = BVSetSizesFromVec(X,t,k);CHKERRQ(ierr);
ierr = BVSetFromOptions(X);CHKERRQ(ierr);
/* Generate constraints and attach them to X */
if (nc>0) {
ierr = VecDuplicateVecs(t,nc,&C);CHKERRQ(ierr);
for (j=0;j<nc;j++) {
for (i=0;i<=j;i++) {
ierr = VecSetValue(C[j],i,1.0,INSERT_VALUES);CHKERRQ(ierr);
}
ierr = VecAssemblyBegin(C[j]);CHKERRQ(ierr);
ierr = VecAssemblyEnd(C[j]);CHKERRQ(ierr);
}
ierr = BVInsertConstraints(X,&nc,C);CHKERRQ(ierr);
ierr = VecDestroyVecs(nc,&C);CHKERRQ(ierr);
}
/* Set up viewer */
ierr = PetscViewerASCIIGetStdout(PETSC_COMM_WORLD,&view);CHKERRQ(ierr);
if (verbose) {
ierr = PetscViewerPushFormat(view,PETSC_VIEWER_ASCII_MATLAB);CHKERRQ(ierr);
}
/* Fill X entries */
for (j=0;j<k;j++) {
ierr = BVGetColumn(X,j,&v);CHKERRQ(ierr);
ierr = VecZeroEntries(v);CHKERRQ(ierr);
for (i=0;i<=n/2;i++) {
if (i+j<n) {
alpha = (3.0*i+j-2)/(2*(i+j+1));
ierr = VecSetValue(v,i+j,alpha,INSERT_VALUES);CHKERRQ(ierr);
}
}
ierr = VecAssemblyBegin(v);CHKERRQ(ierr);
ierr = VecAssemblyEnd(v);CHKERRQ(ierr);
ierr = BVRestoreColumn(X,j,&v);CHKERRQ(ierr);
}
if (verbose) {
ierr = BVView(X,view);CHKERRQ(ierr);
}
/* Test BVOrthogonalizeColumn */
for (j=0;j<k;j++) {
ierr = BVOrthogonalizeColumn(X,j,NULL,&norm,NULL);CHKERRQ(ierr);
alpha = 1.0/norm;
ierr = BVScaleColumn(X,j,alpha);CHKERRQ(ierr);
}
if (verbose) {
ierr = BVView(X,view);CHKERRQ(ierr);
}
/* Check orthogonality */
ierr = MatCreateSeqDense(PETSC_COMM_SELF,k,k,NULL,&M);CHKERRQ(ierr);
ierr = BVDot(X,X,M);CHKERRQ(ierr);
ierr = MatShift(M,-1.0);CHKERRQ(ierr);
ierr = MatNorm(M,NORM_1,&norm);CHKERRQ(ierr);
if (norm<100*PETSC_MACHINE_EPSILON) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"Level of orthogonality < 100*eps\n");CHKERRQ(ierr);
} else {
ierr = PetscPrintf(PETSC_COMM_WORLD,"Level of orthogonality: %g\n",(double)norm);CHKERRQ(ierr);
}
ierr = MatDestroy(&M);CHKERRQ(ierr);
ierr = BVDestroy(&X);CHKERRQ(ierr);
ierr = VecDestroy(&t);CHKERRQ(ierr);
ierr = SlepcFinalize();
return 0;
}
int main(int argc,char **argv)
{
PetscErrorCode ierr;
Vec t,v;
Mat B,M;
BV X;
PetscInt i,j,n=10,k=5,Istart,Iend,col[3];
PetscScalar value[3],alpha;
PetscReal nrm;
PetscViewer view;
PetscBool verbose,FirstBlock=PETSC_FALSE,LastBlock=PETSC_FALSE;
SlepcInitialize(&argc,&argv,(char*)0,help);
ierr = PetscOptionsGetInt(NULL,"-n",&n,NULL);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,"-k",&k,NULL);CHKERRQ(ierr);
ierr = PetscOptionsHasName(NULL,"-verbose",&verbose);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"Test BV with non-standard inner product (n=%D, k=%D).\n",n,k);CHKERRQ(ierr);
/* Create inner product matrix */
ierr = MatCreate(PETSC_COMM_WORLD,&B);CHKERRQ(ierr);
ierr = MatSetSizes(B,PETSC_DECIDE,PETSC_DECIDE,n,n);CHKERRQ(ierr);
ierr = MatSetFromOptions(B);CHKERRQ(ierr);
ierr = MatSetUp(B);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)B,"B");CHKERRQ(ierr);
ierr = MatGetOwnershipRange(B,&Istart,&Iend);CHKERRQ(ierr);
if (Istart==0) FirstBlock=PETSC_TRUE;
if (Iend==n) LastBlock=PETSC_TRUE;
value[0]=-1.0; value[1]=2.0; value[2]=-1.0;
for (i=(FirstBlock? Istart+1: Istart); i<(LastBlock? Iend-1: Iend); i++) {
col[0]=i-1; col[1]=i; col[2]=i+1;
ierr = MatSetValues(B,1,&i,3,col,value,INSERT_VALUES);CHKERRQ(ierr);
}
if (LastBlock) {
i=n-1; col[0]=n-2; col[1]=n-1;
ierr = MatSetValues(B,1,&i,2,col,value,INSERT_VALUES);CHKERRQ(ierr);
}
if (FirstBlock) {
i=0; col[0]=0; col[1]=1; value[0]=2.0; value[1]=-1.0;
ierr = MatSetValues(B,1,&i,2,col,value,INSERT_VALUES);CHKERRQ(ierr);
}
ierr = MatAssemblyBegin(B,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);
ierr = MatAssemblyEnd(B,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);
ierr = MatGetVecs(B,&t,NULL);CHKERRQ(ierr);
/* Create BV object X */
ierr = BVCreate(PETSC_COMM_WORLD,&X);CHKERRQ(ierr);
ierr = PetscObjectSetName((PetscObject)X,"X");CHKERRQ(ierr);
ierr = BVSetSizesFromVec(X,t,k);CHKERRQ(ierr);
ierr = BVSetFromOptions(X);CHKERRQ(ierr);
ierr = BVSetMatrix(X,B,PETSC_FALSE);CHKERRQ(ierr);
/* Set up viewer */
ierr = PetscViewerASCIIGetStdout(PETSC_COMM_WORLD,&view);CHKERRQ(ierr);
if (verbose) {
ierr = PetscViewerPushFormat(view,PETSC_VIEWER_ASCII_MATLAB);CHKERRQ(ierr);
}
/* Fill X entries */
for (j=0;j<k;j++) {
ierr = BVGetColumn(X,j,&v);CHKERRQ(ierr);
ierr = VecZeroEntries(v);CHKERRQ(ierr);
for (i=0;i<4;i++) {
if (i+j<n) {
ierr = VecSetValue(v,i+j,(PetscScalar)(3*i+j-2),INSERT_VALUES);CHKERRQ(ierr);
}
}
ierr = VecAssemblyBegin(v);CHKERRQ(ierr);
ierr = VecAssemblyEnd(v);CHKERRQ(ierr);
ierr = BVRestoreColumn(X,j,&v);CHKERRQ(ierr);
}
if (verbose) {
ierr = MatView(B,view);CHKERRQ(ierr);
ierr = BVView(X,view);CHKERRQ(ierr);
}
/* Test BVNormColumn */
ierr = BVNormColumn(X,0,NORM_2,&nrm);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"B-Norm or X[0] = %g\n",(double)nrm);CHKERRQ(ierr);
/* Test BVOrthogonalizeColumn */
for (j=0;j<k;j++) {
ierr = BVOrthogonalizeColumn(X,j,NULL,&nrm,NULL);CHKERRQ(ierr);
alpha = 1.0/nrm;
ierr = BVScaleColumn(X,j,alpha);CHKERRQ(ierr);
}
if (verbose) {
ierr = BVView(X,view);CHKERRQ(ierr);
}
/* Check orthogonality */
ierr = MatCreateSeqDense(PETSC_COMM_SELF,k,k,NULL,&M);CHKERRQ(ierr);
ierr = BVDot(X,X,M);CHKERRQ(ierr);
ierr = MatShift(M,-1.0);CHKERRQ(ierr);
ierr = MatNorm(M,NORM_1,&nrm);CHKERRQ(ierr);
if (nrm<100*PETSC_MACHINE_EPSILON) {
ierr = PetscPrintf(PETSC_COMM_WORLD,"Level of orthogonality < 100*eps\n");CHKERRQ(ierr);
} else {
ierr = PetscPrintf(PETSC_COMM_WORLD,"Level of orthogonality: %g\n",(double)nrm);CHKERRQ(ierr);
}
ierr = BVDestroy(&X);CHKERRQ(ierr);
ierr = MatDestroy(&M);CHKERRQ(ierr);
ierr = MatDestroy(&B);CHKERRQ(ierr);
ierr = VecDestroy(&t);CHKERRQ(ierr);
ierr = SlepcFinalize();
return 0;
}
