Question: Maple NAG connector

Hi,

How to load Maple-NAG connector to execut this example ?

Is it an additional program to install ?

n := 4:
nnz := 11:
la := 22:
lfill := 1:
dtol := 0:
pstrat := "Nag_SparseNsym_CompletePiv":
milu := "Nag_SparseNsym_UnModFact":
a := Vector[row](la,[1.0,1.0,-1.0,2.0,2.0,3.0,-2.0,1.0,-2.0,1.0,1.0],datatype=float[8]):
irow := Vector[row](22,[1,1,2,2,2,3,3,4,4,4,4],datatype=integer[kernelopts('wordsize')/8]):
icol := Vector[row](22,[2,3,1,3,4,1,4,1,2,3,4],datatype=integer[kernelopts('wordsize')/8]):
ipivp := Vector([0, 0, 0, 0], datatype=integer[kernelopts('wordsize')/8]):
ipivq := Vector([0, 0, 0, 0], datatype=integer[kernelopts('wordsize')/8]):
istr := Vector(5, datatype=integer[kernelopts('wordsize')/8]):
idiag := Vector(4, datatype=integer[kernelopts('wordsize')/8]):
NAG:-f11dac(nnz, a, la, irow, icol, lfill, dtol, milu, ipivp, ipivq, istr, idiag, nnzc, npivm, 'n' = n, 'pstrat' = pstrat):

f11 is similar to command sparse of Matlab.

Thanks in advance

Please Wait...