epilectrik
/
pyNgSpice
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

fix code to fit the derivation

pre-master-46
rlar 9 years ago
committed by Holger Vogt
parent
e36ded8122
commit
6ef2a5f81b
1 changed files with 40 additions and 49 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 59
      src/spicelib/parser/inpptree.c

59
src/spicelib/parser/inpptree.c
View File

@ -319,22 +319,21 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
#define b p->right
if (b->type == PT_CONSTANT) {
arg1 = PTdifferentiate(a, varnum);
newp = mkb(PT_TIMES, mkb(PT_TIMES,
newp = mkb(PT_TIMES,
mkb(PT_TIMES,
mkcon(b->constant),
mkb(PT_POWER, a,
mkcon(b->constant - 1))),
mkf(PTF_PWR,
mkb(PT_COMMA, a, mkcon(b->constant - 1.0)))),
arg1);
} else {
arg1 = PTdifferentiate(a, varnum);
arg2 = PTdifferentiate(b, varnum);
newp = mkb(PT_TIMES, mkf(PTF_EXP, mkb(PT_TIMES,
b, mkf(PTF_LOG,
a))),
newp = mkb(PT_TIMES,
mkf(PTF_POW, mkb(PT_COMMA, a, b)),
mkb(PT_PLUS,
mkb(PT_TIMES, b,
mkb(PT_DIVIDE, arg1, a)),
mkb(PT_TIMES, arg2, mkf(PTF_LOG, a))));
mkb(PT_TIMES, arg2, mkf(PTF_LOG, mkf(PTF_ABS, a)))));
}
#undef b
#undef a
@ -591,11 +590,11 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
if (b->type == PT_CONSTANT) {
arg1 = PTdifferentiate(a, varnum);
newp = mkb(PT_TIMES, mkb(PT_TIMES,
newp = mkb(PT_TIMES,
mkb(PT_TIMES,
mkcon(b->constant),
mkb(PT_POWER, a,
mkcon(b->constant - 1))),
mkf(PTF_PWR,
mkb(PT_COMMA, a, mkcon(b->constant - 1)))),
arg1);
#ifdef TRACE
printf("pow, %s, returns; ", __func__);
@ -605,13 +604,15 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
} else {
arg1 = PTdifferentiate(a, varnum);
arg2 = PTdifferentiate(b, varnum);
newp = mkb(PT_TIMES, mkf(PTF_EXP, mkb(PT_TIMES,
b, mkf(PTF_LOG,
a))),
newp = mkb(PT_TIMES,
mkf(PTF_POW, mkb(PT_COMMA, a, b)),
mkb(PT_PLUS,
mkb(PT_TIMES, b,
mkb(PT_TIMES,
b,
mkb(PT_DIVIDE, arg1, a)),
mkb(PT_TIMES, arg2, mkf(PTF_LOG, a))));
mkb(PT_TIMES,
arg2,
mkf(PTF_LOG, mkf(PTF_ABS, a)))));
}
return mkfirst(newp, p);
#undef b
@ -654,9 +655,8 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
newp = mkb(PT_TIMES,
mkb(PT_TIMES,
mkcon(b->constant),
mkb(PT_POWER,
mkf(PTF_ABS, a),
mkcon(b->constant - 1.0))),
mkf(PTF_POW,
mkb(PT_COMMA, a, mkcon(b->constant - 1.0)))),
arg1);
#ifdef TRACE
printf("pwr, %s, returns; ", __func__);
@ -666,20 +666,11 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
} else {
arg1 = PTdifferentiate(a, varnum);
arg2 = PTdifferentiate(b, varnum);
newp = mkb(PT_PLUS,
mkb(PT_TIMES,
mkf(PTF_SGN, a),
mkb(PT_TIMES,
mkb(PT_POWER, mkf(PTF_ABS, a), b),
mkb(PT_TIMES, arg2,
mkf(PTF_LOG, mkf(PTF_ABS, a))))),
mkb(PT_TIMES,
mkb(PT_TIMES,
mkb(PT_POWER,
mkf(PTF_ABS, a),
mkb(PT_MINUS, b, mkcon(1.0))),
b),
arg1));
newp = mkb(PT_TIMES,
mkf(PTF_PWR, mkb(PT_COMMA, a, b)),
mkb(PT_PLUS,
mkb(PT_TIMES, b, mkb(PT_DIVIDE, arg1, a)),
mkb(PT_TIMES, arg2, mkf(PTF_LOG, mkf(PTF_ABS, a)))));
}
return mkfirst(newp, p);
#undef b

Write Preview
Loading…
Cancel
Save