>
|
method := "Nag_SparseSym_CG":
n := 7:
nnz := 16:
la := 33:
tol := 1e-06:
maxitn := 100:
comm := NAG:-Nag_Sparse_Comm():
a := Vector([4, 1, 5, 2, 2, 3, -1, 1, 4, 1, -2, 3, 2, -1, -2, 5, 0.5, 0.3333333333333333, 0.3333333333333333, -1, 0.3333333333333333, 0.6666666666666666, 0.3333333333333333, -0.3333333333333333, 0.3333333333333333, 0.3333333333333333, -0.6666666666666666, 0.4285714285714286, 0.6666666666666666, 0.5555555555555555, -0.4285714285714286, 0.762096774193548, 0.762096774193548], datatype=float[8]):
irow := Vector([1, 2, 2, 3, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 1, 2, 3, 4, 4, 5, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 7], datatype=integer[kernelopts('wordsize')/8]):
icol := Vector([1, 1, 2, 3, 2, 4, 1, 4, 5, 2, 5, 6, 1, 2, 3, 7, 1, 2, 3, 1, 4, 2, 3, 4, 5, 2, 3, 6, 4, 5, 6, 7, 7], datatype=integer[kernelopts('wordsize')/8]):
ipiv := Vector([3, 4, 6, 7, 2, 5, 1], datatype=integer[kernelopts('wordsize')/8]):
istr := Vector([17, 18, 19, 20, 22, 26, 29, 33], datatype=integer[kernelopts('wordsize')/8]):
b := Vector([15, 18, -8, 21, 11, 10, 29], datatype=float[8]):
x := Vector([0, 0, 0, 0, 0, 0, 0], datatype=float[8]):
NAG:-f11jcc(method, nnz, a, irow, icol, ipiv, istr, b, tol, maxitn, x, rnorm, itn, comm, 'n' = n, 'la' = la):
|