>
|
m := 7:
spline_data := NAG:-Nag_2dSpline():
spline_data['nx'] := 11:
spline_data['ny'] := 10:
spline_data['lamda'] := Vector([ 1, 1, 1, 1, 1.3, 1.5, 1.6, 2, 2, 2, 2 ],
datatype=float[8]):
spline_data['mu'] := Vector([ 0, 0, 0, 0, 0.4, 0.7, 1, 1, 1, 1 ],
datatype=float[8]):
spline_data['c'] := Vector([ 1, 1.1333, 1.3667, 1.7, 1.9, 2, 1.2, 1.3333,
1.5667, 1.9, 2.1, 2.2, 1.5833, 1.7167, 1.95,
2.2833, 2.4833, 2.5833, 2.1433, 2.2767, 2.51,
2.8433, 3.0433, 3.1433, 2.8667, 3, 3.2333, 3.5667,
3.7667, 3.8667, 3.4667, 3.6, 3.8333, 4.1667, 4.3667,
4.4667, 4, 4.1333, 4.3667, 4.7, 4.9, 5 ],
datatype=float[8]):
x := Vector([1, 1.1, 1.5, 1.6, 1.9, 1.9, 2], datatype=float[8]):
y := Vector([0, 0.1, 0.7, 0.4, 0.3, 0.8, 1], datatype=float[8]):
ff := Vector(7, datatype=float[8]):
NAG:-e02dec(x, y, ff, spline_data, 'm' = m):
|