You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.7 KiB
43 lines
1.7 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1987 Thomas L. Quarles
|
|
**********/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/devdefs.h"
|
|
#include "ngspice/ifsim.h"
|
|
#include "tradefs.h"
|
|
#include "ngspice/suffix.h"
|
|
|
|
IFparm TRApTable[] = { /* parameters */
|
|
IOPU( "z0", TRA_Z0, IF_REAL , "Characteristic impedance"),
|
|
IOPUR( "zo", TRA_Z0, IF_REAL , "Characteristic impedance"),
|
|
IOPAU( "f", TRA_FREQ, IF_REAL , "Frequency"),
|
|
IOPAU( "td", TRA_TD, IF_REAL , "Transmission delay"),
|
|
IOPAU( "nl", TRA_NL, IF_REAL , "Normalized length at frequency given"),
|
|
IOPAU( "v1", TRA_V1, IF_REAL , "Initial voltage at end 1"),
|
|
IOPAU( "v2", TRA_V2, IF_REAL , "Initial voltage at end 2"),
|
|
IOPAU( "i1", TRA_I1, IF_REAL , "Initial current at end 1"),
|
|
IOPAU( "i2", TRA_I2, IF_REAL , "Initial current at end 2"),
|
|
IP("ic", TRA_IC, IF_REALVEC,"Initial condition vector:v1,i1,v2,i2"),
|
|
OP("rel", TRA_RELTOL, IF_REAL , "Rel. rate of change of deriv. for bkpt"),
|
|
OP("abs", TRA_ABSTOL, IF_REAL , "Abs. rate of change of deriv. for bkpt"),
|
|
OPU( "pos_node1",TRA_POS_NODE1,IF_INTEGER,"Positive node of end 1 of t. line"),
|
|
OPU( "neg_node1",TRA_NEG_NODE1,IF_INTEGER,"Negative node of end 1 of t. line"),
|
|
OPU( "pos_node2",TRA_POS_NODE2,IF_INTEGER,"Positive node of end 2 of t. line"),
|
|
OPU( "neg_node2",TRA_NEG_NODE2,IF_INTEGER,"Negative node of end 2 of t. line"),
|
|
OPU( "delays",TRA_DELAY, IF_REALVEC, "Delayed values of excitation")
|
|
};
|
|
|
|
char *TRAnames[] = {
|
|
"P1+",
|
|
"P1-",
|
|
"P2+",
|
|
"P2-"
|
|
};
|
|
|
|
int TRAnSize = NUMELEMS(TRAnames);
|
|
int TRApTSize = NUMELEMS(TRApTable);
|
|
int TRAmPTSize = 0;
|
|
int TRAiSize = sizeof(TRAinstance);
|
|
int TRAmSize = sizeof(TRAmodel);
|