number.c (grpn-1.5.1) | : | number.c (grpn-1.5.2) | ||
---|---|---|---|---|
skipping to change at line 206 | skipping to change at line 206 | |||
break; | break; | |||
default: | default: | |||
fprintf(stderr, "Error: Unknown number type\n"); | fprintf(stderr, "Error: Unknown number type\n"); | |||
exit(0); | exit(0); | |||
} | } | |||
if(c->data == NULL){ free(c); c = NULL; } | if(c->data == NULL){ free(c); c = NULL; } | |||
return c; | return c; | |||
} | } | |||
Number * lnNumber(Number *a){ | Number * lnNumber(Number *a){ | |||
Real *r1; | ||||
Cmplx *c1; | Cmplx *c1; | |||
Number *c = newNumber(); | Number *c = newNumber(); | |||
if(a == NULL){ fprintf(stderr, "lnNumber(NULL)\n"); exit(0); } | if(a == NULL){ fprintf(stderr, "lnNumber(NULL)\n"); exit(0); } | |||
switch(a->type){ | switch(a->type){ | |||
case REAL: | case REAL: | |||
if(-1 == cmpReal(a->data, realZero)){ | if(-1 == cmpReal(a->data, realZero)){ | |||
/* ln(<0) is complex ! */ | /* ln(<0) is complex ! */ | |||
c1 = setCmplxReal(newCmplx(), a->data, realZero); | c1 = setCmplxReal(newCmplx(), a->data, realZero); | |||
skipping to change at line 243 | skipping to change at line 242 | |||
break; | break; | |||
default: | default: | |||
fprintf(stderr, "Error: Unknown number type\n"); | fprintf(stderr, "Error: Unknown number type\n"); | |||
exit(0); | exit(0); | |||
} | } | |||
if(c->data == NULL){ free(c); c = NULL; } | if(c->data == NULL){ free(c); c = NULL; } | |||
return c; | return c; | |||
} | } | |||
Number * logNumber(Number *a){ | Number * logNumber(Number *a){ | |||
Real *r1; | ||||
Cmplx *c1; | Cmplx *c1; | |||
Number *c = newNumber(); | Number *c = newNumber(); | |||
if(a == NULL){ fprintf(stderr, "logNumber(NULL)\n"); exit(0); } | if(a == NULL){ fprintf(stderr, "logNumber(NULL)\n"); exit(0); } | |||
switch(a->type){ | switch(a->type){ | |||
case REAL: | case REAL: | |||
if(-1 == cmpReal(a->data, realZero)){ | if(-1 == cmpReal(a->data, realZero)){ | |||
/* log(<0) is complex ! */ | /* log(<0) is complex ! */ | |||
c1 = setCmplxReal(newCmplx(), a->data, realZero); | c1 = setCmplxReal(newCmplx(), a->data, realZero); | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 0 lines changed or added |