|
|
|
@ -158,7 +158,6 @@ static struct func { |
|
|
|
{ "floor", PTF_FLOOR, (void(*)(void)) PTfloor } , |
|
|
|
{ "nint", PTF_NINT, (void(*)(void)) PTnint } , |
|
|
|
{ "-", PTF_UMINUS, (void(*)(void)) PTuminus }, |
|
|
|
/* MW. cif function added */ |
|
|
|
{ "u2", PTF_USTEP2, (void(*)(void)) PTustep2}, |
|
|
|
{ "pwl", PTF_PWL, (void(*)(void)) PTpwl}, |
|
|
|
{ "pwl_derivative", PTF_PWL_DERIVATIVE, (void(*)(void)) PTpwl_derivative}, |
|
|
|
@ -545,8 +544,6 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum) |
|
|
|
arg1 = mkcon(0.0); |
|
|
|
break; |
|
|
|
|
|
|
|
|
|
|
|
/* MW. PTF_CIF for new cif function */ |
|
|
|
case PTF_USTEP2: /* ustep2=uramp(x)-uramp(x-1) ustep2'=ustep(x)-ustep(x-1) */ |
|
|
|
arg1 = mkb(PT_MINUS, |
|
|
|
mkf(PTF_USTEP, p->left), |
|
|
|
|