************80
! PARAMETERIZE_ARC_LENGTH parameterizes data by pseudo-arclength.
Discussion:
A parameterization is required for the interpolation.
This routine provides a parameterization by computing the
pseudo-arclength of the data, that is, the Euclidean distance
between successive points.
Licensing:
This code is distributed under the GNU LGPL license.
Modified:
19 May 2007
Author:
John Burkardt
Parameters:
Input, integer ( kind = 4 ) DIM_NUM, the spatial dimension.
Input, integer ( kind = 4 ) DATA_NUM, the number of data points.
Input, real ( kind = 8 ) P_DATA(DIM_NUM,DATA_NUM), the data values.
Output, real ( kind = 8 ) T_DATA(DATA_NUM), parameter values
assigned to the data.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=4) | :: | dim_num | ||||
integer(kind=4) | :: | data_num | ||||
real(kind=8) | :: | p_data(dim_num,data_num) | ||||
real(kind=8) | :: | t_data(data_num) |