IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Sep 7, 2005, 2:17:26 PM (21 years ago)
Author:
gusciora
Message:

....

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/psLib/src/math/psSpline.c

    r4970 r4971  
    1 /** @file  psFunctions.c
     1/** @file psSpline.c
    22*
    33*  @brief Contains basic function allocation, deallocation, and evaluation
    … …  
    77*  splines.
    88*
    9 *  @version $Revision: 1.121 $ $Name: not supported by cvs2svn $
    10 *  @date $Date: 2005-09-08 00:07:59 $
     9*  @version $Revision: 1.122 $ $Name: not supported by cvs2svn $
     10*  @date $Date: 2005-09-08 00:14:32 $
    1111*
    1212*
    … …  
    112112    p_psMemSetPersistent(p->data.TYPE, true); \
    113113    \
    114     psTrace(".psLib.dataManip.psFunctions.fullInterpolate1D##TYPE", 4, \
     114    psTrace(".psLib.dataManip.psSpline.fullInterpolate1D##TYPE", 4, \
    115115            "---- fullInterpolate1D##TYPE() begin (%d-order at x=%f) (%d data points)----\n", n-1, x, n); \
    116116    \
    117117    for (i=0;i<n;i++) { \
    118         psTrace(".psLib.dataManip.psFunctions.fullInterpolate1D##TYPE", 6, \
     118        psTrace(".psLib.dataManip.psSpline.fullInterpolate1D##TYPE", 6, \
    119119                "domain/range is (%f %f)\n", domain[i], range[i]); \
    120120    } \
    … …  
    122122    for (i=0;i<n;i++) { \
    123123        p->data.TYPE[i] = range[i]; \
    124         psTrace(".psLib.dataManip.psFunctions.fullInterpolate1D##TYPE", 6, \
     124        psTrace(".psLib.dataManip.psSpline.fullInterpolate1D##TYPE", 6, \
    125125                "p->data.TYPE[%d] is %f\n", i, p->data.TYPE[i]); \
    126126        \
    … …  
    139139            /*printf("((%f-%f * %f) + (%f-%f * %f)) / (%f - %f)\n", x, domain[i+m], p->data.TYPE[i], domain[i], x, p->data.TYPE[i+1], domain[i], domain[i+m]); \
    140140             */ \
    141             psTrace(".psLib.dataManip.psFunctions.fullInterpolate1D##TYPE", 6, \
     141            psTrace(".psLib.dataManip.psSpline.fullInterpolate1D##TYPE", 6, \
    142142                    "p->data.TYPE[%d] is %f\n", i, p->data.TYPE[i]); \
    143143        } \
    144144    } \
    145     psTrace(".psLib.dataManip.psFunctions.fullInterpolate1D##TYPE", 4, \
     145    psTrace(".psLib.dataManip.psSpline.fullInterpolate1D##TYPE", 4, \
    146146            "---- fullInterpolate1D##TYPE() end ----\n"); \
    147147    \
    … …  
    181181    psS32 origin;
    182182
    183     psTrace(".psLib.dataManip.psFunctions.interpolate1DF32", 4,
     183    psTrace(".psLib.dataManip.psSpline.interpolate1DF32", 4,
    184184            "---- interpolate1DF32() begin ----\n");
    185185
    … …  
    202202    }
    203203
    204     psTrace(".psLib.dataManip.psFunctions.interpolate1DF32", 4,
     204    psTrace(".psLib.dataManip.psSpline.interpolate1DF32", 4,
    205205            "---- interpolate1DF32() end ----\n");
    206206    return(fullInterpolate1DF32(&domain[origin], &range[origin], order+1, x));
    … …  
    349349    psS32 mid; \
    350350    \
    351     psTrace(".psLib.dataManip.psFunctions.vectorBinDisect##TYPE", 4, \
     351    psTrace(".psLib.dataManip.psSpline.vectorBinDisect##TYPE", 4, \
    352352            "---- Calling vectorBinDisect##TYPE(%f)\n", x); \
    353353    \
    … …  
    371371    \
    372372    while (min != max) { \
    373         psTrace(".psLib.dataManip.psFunctions.vectorBinDisect##TYPE", 4, \
     373        psTrace(".psLib.dataManip.psSpline.vectorBinDisect##TYPE", 4, \
    374374                "(min, mid, max) is (%d, %d, %d): (x, bins) is (%f, %f)\n", \
    375375                min, mid, max, x, bins[mid]); \
    376376        \
    377377        if (x == bins[mid]) { \
    378             psTrace(".psLib.dataManip.psFunctions.vectorBinDisect##TYPE", 4, \
     378            psTrace(".psLib.dataManip.psSpline.vectorBinDisect##TYPE", 4, \
    379379                    "---- Exiting vectorBinDisect##TYPE(): bin %d\n", mid); \
    380380            return(mid); \
    … …  
    387387    } \
    388388    \
    389     psTrace(".psLib.dataManip.psFunctions.vectorBinDisect##TYPE", 4, \
     389    psTrace(".psLib.dataManip.psSpline.vectorBinDisect##TYPE", 4, \
    390390            "---- Exiting vectorBinDisect##TYPE(): bin %d\n", min); \
    391391    return(min); \
    … …  
    441441        PS_TYPE_NAME(strType,x->type.type);
    442442        psError(PS_ERR_BAD_PARAMETER_TYPE,
    443                 PS_ERRORTEXT_psFunctions_TYPE_NOT_SUPPORTED,
     443                PS_ERRORTEXT_psSpline_TYPE_NOT_SUPPORTED,
    444444                strType);
    445445        return 0;
    … …  
    447447        PS_TYPE_NAME(strType,x->type.type);
    448448        psError(PS_ERR_BAD_PARAMETER_TYPE,
    449                 PS_ERRORTEXT_psFunctions_TYPE_NOT_SUPPORTED,
     449                PS_ERRORTEXT_psSpline_TYPE_NOT_SUPPORTED,
    450450                strType);
    451451        return 0;
    … …  
    453453        PS_TYPE_NAME(strType,x->type.type);
    454454        psError(PS_ERR_BAD_PARAMETER_TYPE,
    455                 PS_ERRORTEXT_psFunctions_TYPE_NOT_SUPPORTED,
     455                PS_ERRORTEXT_psSpline_TYPE_NOT_SUPPORTED,
    456456                strType);
    457457        return 0;
    … …  
    487487    psVector *range32 = NULL;
    488488    psVector *domain32 = NULL;
    489     psTrace(".psLib.dataManip.psFunctions.p_psVectorInterpolate", 4,
     489    psTrace(".psLib.dataManip.psSpline.p_psVectorInterpolate", 4,
    490490            "---- p_psVectorInterpolate() begin ----\n");
    491491
    492492    if (order > (domain->n - 1)) {
    493493        psError(PS_ERR_BAD_PARAMETER_SIZE, true,
    494                 PS_ERRORTEXT_psFunctions_NOT_ENOUGH_DATAPOINTS,
     494                PS_ERRORTEXT_psSpline_NOT_ENOUGH_DATAPOINTS,
    495495                order);
    496496        return(NULL);
    … …  
    498498
    499499    if (x->type.type == PS_TYPE_F32) {
    500         psTrace(".psLib.dataManip.psFunctions.p_psVectorInterpolate", 4,
     500        psTrace(".psLib.dataManip.psSpline.p_psVectorInterpolate", 4,
    501501                "---- p_psVectorInterpolate() end ----\n");
    502502        return(psScalarAlloc(interpolate1DF32(domain->data.F32,
    … …  
    519519        psFree(domain32);
    520520
    521         psTrace(".psLib.dataManip.psFunctions.p_psVectorInterpolate", 4,
     521        psTrace(".psLib.dataManip.psSpline.p_psVectorInterpolate", 4,
    522522                "---- p_psVectorInterpolate() end ----\n");
    523523        // XXX: Convert data type to F64?
    … …  
    528528        PS_TYPE_NAME(strType,x->type.type);
    529529        psError(PS_ERR_BAD_PARAMETER_TYPE,
    530                 PS_ERRORTEXT_psFunctions_TYPE_NOT_SUPPORTED,
     530                PS_ERRORTEXT_psSpline_TYPE_NOT_SUPPORTED,
    531531                strType);
    532532    }
    533533
    534     psTrace(".psLib.dataManip.psFunctions.p_psVectorInterpolate", 4,
     534    psTrace(".psLib.dataManip.psSpline.p_psVectorInterpolate", 4,
    535535            "return(NULL)\n");
    536     psTrace(".psLib.dataManip.psFunctions.p_psVectorInterpolate", 4,
     536    psTrace(".psLib.dataManip.psSpline.p_psVectorInterpolate", 4,
    537537            "---- p_psVectorInterpolate() end ----\n");
    538538
    … …  
    622622        PS_TYPE_NAME(strType,x->type.type);
    623623        psError(PS_ERR_BAD_PARAMETER_TYPE,
    624                 PS_ERRORTEXT_psFunctions_TYPE_NOT_SUPPORTED,
     624                PS_ERRORTEXT_psSpline_TYPE_NOT_SUPPORTED,
    625625                strType);
    626626        return(NULL);
Note: See TracChangeset for help on using the changeset viewer.