luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

E_constant Vconst 0 TABLE {Max(V(DP)-V(GN),0)}=((20,120)) 

Allow such strange construct, where a single pair x,y will
simplay return a constant y (120 in the above example).
This is used in external devices models and aknowledged
by other simulators.
This commit is contained in:
Holger Vogt 2020-11-27 10:24:25 +01:00
parent 88e5d03955
commit 8aa49a587d
1 changed files with 59 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
src/frontend/inpcom.c
View File

@ -4876,6 +4876,8 @@ static void inp_compat(struct card *card)
/* (x0, y0) (x1, y1) (x2, y2) to x0 x1 x2, y0 y1 y2 */ /* (x0, y0) (x1, y1) (x2, y2) to x0 x1 x2, y0 y1 y2 */
xar[0] = '\0'; xar[0] = '\0';
yar[0] = '\0'; yar[0] = '\0';
int ipairs = 0;
char* pair_line = cut_line;
while (*cut_line != '\0') { while (*cut_line != '\0') {
firstno = gettok_node(&cut_line); firstno = gettok_node(&cut_line);
secondno = gettok_node(&cut_line); secondno = gettok_node(&cut_line);
@ -4893,17 +4895,37 @@ static void inp_compat(struct card *card)
strcat(yar, " "); strcat(yar, " ");
tfree(firstno); tfree(firstno);
tfree(secondno); tfree(secondno);
ipairs++;
} }
ckt_array[3] = tprintf(
/* There is a strange usage of the TABLE function:
A single pair (x0, y0) will return a constant voltage y0 */
if (ipairs == 1) {
tfree(ckt_array[1]);
tfree(ckt_array[2]);
firstno = gettok_node(&pair_line);
tfree(firstno);
secondno = gettok_node(&pair_line);
ckt_array[1] = tprintf("v%s %s_int1 0 %s", title_tok,
title_tok, secondno);
tfree(secondno);
// comment out current variable e line
*(card->line) = '*';
// insert new lines immediately after current line
for (i = 0; i < 2; i++)
card = insert_new_line(card, ckt_array[i], 0, 0);
}
else {
ckt_array[3] = tprintf(
".model xfer_%s pwl(x_array=[%s] y_array=[%s] " ".model xfer_%s pwl(x_array=[%s] y_array=[%s] "
"input_domain=0.1 fraction=TRUE limit=TRUE)", "input_domain=0.1 fraction=TRUE limit=TRUE)",
title_tok, xar, yar); title_tok, xar, yar);
// comment out current variable e line // comment out current variable e line
*(card->line) = '*'; *(card->line) = '*';
// insert new lines immediately after current line // insert new lines immediately after current line
for (i = 0; i < 4; i++) for (i = 0; i < 4; i++)
card = insert_new_line(card, ckt_array[i], 0, 0); card = insert_new_line(card, ckt_array[i], 0, 0);
}
tfree(expression); tfree(expression);
tfree(title_tok); tfree(title_tok);
tfree(node1); tfree(node1);
@ -5055,6 +5077,8 @@ static void inp_compat(struct card *card)
/* (x0, y0) (x1, y1) (x2, y2) to x0 x1 x2, y0 y1 y2 */ /* (x0, y0) (x1, y1) (x2, y2) to x0 x1 x2, y0 y1 y2 */
xar[0] = '\0'; xar[0] = '\0';
yar[0] = '\0'; yar[0] = '\0';
int ipairs = 0;
char* pair_line = cut_line;
while (*cut_line != '\0') { while (*cut_line != '\0') {
firstno = gettok_node(&cut_line); firstno = gettok_node(&cut_line);
secondno = gettok_node(&cut_line); secondno = gettok_node(&cut_line);
@ -5071,14 +5095,35 @@ static void inp_compat(struct card *card)
strcat(yar, " "); strcat(yar, " ");
tfree(firstno); tfree(firstno);
tfree(secondno); tfree(secondno);
ipairs++;
}
/* There is a strange usage of the TABLE function:
A single pair (x0, y0) will return a constant current y0 */
if (ipairs == 1) {
tfree(ckt_array[1]);
tfree(ckt_array[2]);
firstno = gettok_node(&pair_line);
tfree(firstno);
secondno = gettok_node(&pair_line);
ckt_array[1] = tprintf("v%s %s_int1 0 %s", title_tok,
stok, secondno);
tfree(secondno);
// comment out current variable e line
*(card->line) = '*';
// insert new lines immediately after current line
for (i = 0; i < 2; i++)
card = insert_new_line(card, ckt_array[i], 0, 0);
}
else {
ckt_array[3] = tprintf(".model xfer_%s pwl(x_array=[%s] y_array=[%s] "
"input_domain=0.1 fraction=TRUE limit=TRUE)", stok, xar, yar);
// comment out current variable g line
*(card->line) = '*';
// insert new lines immediately after current line
for (i = 0; i < 4; i++)
card = insert_new_line(card, ckt_array[i], 0, 0);
} }
ckt_array[3] = tprintf(".model xfer_%s pwl(x_array=[%s] y_array=[%s] "
"input_domain=0.1 fraction=TRUE limit=TRUE)", stok, xar, yar);
// comment out current variable g line
*(card->line) = '*';
// insert new lines immediately after current line
for (i = 0; i < 4; i++)
card = insert_new_line(card, ckt_array[i], 0, 0);
tfree(expression); tfree(expression);
tfree(title_tok); tfree(title_tok);