Browse Source
New model for inductor, parallel multiplier, scale factor, temp dependence.
pre-master-46
New model for inductor, parallel multiplier, scale factor, temp dependence.
pre-master-46
pnenzi
23 years ago
35 changed files with 482 additions and 180 deletions
-
6src/spicelib/devices/ind/Makefile.am
-
56src/spicelib/devices/ind/ind.c
-
16src/spicelib/devices/ind/indacld.c
-
22src/spicelib/devices/ind/indask.c
-
43src/spicelib/devices/ind/inddefs.h
-
5src/spicelib/devices/ind/inddel.c
-
3src/spicelib/devices/ind/inddest.c
-
5src/spicelib/devices/ind/indext.h
-
71src/spicelib/devices/ind/indinit.c
-
3src/spicelib/devices/ind/indinit.h
-
36src/spicelib/devices/ind/indload.c
-
50src/spicelib/devices/ind/indmask.c
-
5src/spicelib/devices/ind/indmdel.c
-
61src/spicelib/devices/ind/indmpar.c
-
22src/spicelib/devices/ind/indparam.c
-
17src/spicelib/devices/ind/indpzld.c
-
4src/spicelib/devices/ind/indsacl.c
-
56src/spicelib/devices/ind/indsetup.c
-
4src/spicelib/devices/ind/indsload.c
-
4src/spicelib/devices/ind/indsprt.c
-
4src/spicelib/devices/ind/indsset.c
-
4src/spicelib/devices/ind/indsupd.c
-
63src/spicelib/devices/ind/indtemp.c
-
5src/spicelib/devices/ind/indtrunc.c
-
4src/spicelib/devices/ind/mutacld.c
-
8src/spicelib/devices/ind/mutask.c
-
5src/spicelib/devices/ind/mutdel.c
-
3src/spicelib/devices/ind/mutdest.c
-
5src/spicelib/devices/ind/mutmdel.c
-
6src/spicelib/devices/ind/mutparam.c
-
5src/spicelib/devices/ind/mutpzld.c
-
9src/spicelib/devices/ind/mutsetup.c
-
4src/spicelib/devices/ind/mutsprt.c
-
4src/spicelib/devices/ind/mutsset.c
-
44src/spicelib/devices/ind/muttemp.c
@ -0,0 +1,50 @@ |
|||||
|
/********** |
||||
|
Copyright 2003 Paolo Nenzi |
||||
|
Author: 2003 Paolo Nenzi |
||||
|
**********/ |
||||
|
/* |
||||
|
*/ |
||||
|
|
||||
|
#include "ngspice.h" |
||||
|
#include "cktdefs.h" |
||||
|
#include "devdefs.h" |
||||
|
#include "inddefs.h" |
||||
|
#include "sperror.h" |
||||
|
#include "ifsim.h" |
||||
|
#include "suffix.h" |
||||
|
|
||||
|
|
||||
|
/* ARGSUSED */ |
||||
|
int |
||||
|
INDmAsk(CKTcircuit *ckt, GENmodel *inst, int which, IFvalue *value) |
||||
|
{ |
||||
|
INDmodel *here = (INDmodel*)inst; |
||||
|
switch(which) { |
||||
|
case IND_MOD_IND: |
||||
|
value->rValue = here->INDmInd; |
||||
|
return(OK); |
||||
|
case IND_MOD_TNOM: |
||||
|
value->rValue = here->INDtnom-CONSTCtoK; |
||||
|
return(OK); |
||||
|
case IND_MOD_TC1: |
||||
|
value->rValue = here->INDtempCoeff1; |
||||
|
return(OK); |
||||
|
case IND_MOD_TC2: |
||||
|
value->rValue = here->INDtempCoeff2; |
||||
|
return(OK); |
||||
|
case IND_MOD_CSECT: |
||||
|
value->rValue = here->INDcsect; |
||||
|
return(OK); |
||||
|
case IND_MOD_LENGTH: |
||||
|
value->rValue = here->INDlength; |
||||
|
return(OK); |
||||
|
case IND_MOD_N: |
||||
|
value->rValue = here->INDn; |
||||
|
return(OK); |
||||
|
case IND_MOD_MU: |
||||
|
value->rValue = here->INDmu; |
||||
|
return(OK); |
||||
|
default: |
||||
|
return(E_BADPARM); |
||||
|
} |
||||
|
} |
||||
@ -0,0 +1,61 @@ |
|||||
|
/********** |
||||
|
Copyright 2003 Paolo Nenzi |
||||
|
Author: 2003 Paolo Nenzi |
||||
|
**********/ |
||||
|
/* |
||||
|
*/ |
||||
|
|
||||
|
#include "ngspice.h" |
||||
|
#include "ifsim.h" |
||||
|
#include "inddefs.h" |
||||
|
#include "sperror.h" |
||||
|
#include "suffix.h" |
||||
|
|
||||
|
|
||||
|
int |
||||
|
INDmParam(int param, IFvalue *value, GENmodel *inModel) |
||||
|
{ |
||||
|
INDmodel *mod = (INDmodel*)inModel; |
||||
|
switch(param) { |
||||
|
case IND_MOD_IND: |
||||
|
mod->INDmInd = value->rValue; |
||||
|
mod->INDmIndGiven = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_TNOM: |
||||
|
mod->INDtnom = value->rValue+CONSTCtoK; |
||||
|
mod->INDtnomGiven = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_TC1: |
||||
|
mod->INDtempCoeff1 = value->rValue; |
||||
|
mod->INDtc1Given = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_TC2: |
||||
|
mod->INDtempCoeff2 = value->rValue; |
||||
|
mod->INDtc2Given = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_CSECT: |
||||
|
mod->INDcsect = value->rValue; |
||||
|
mod->INDcsectGiven = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_LENGTH : |
||||
|
mod->INDlength = value->rValue; |
||||
|
mod->INDlengthGiven = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_N : |
||||
|
mod->INDn = value->rValue; |
||||
|
mod->INDnGiven = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_MU: |
||||
|
mod->INDmu = value->rValue; |
||||
|
mod->INDmuGiven = TRUE; |
||||
|
break; |
||||
|
case IND_MOD_L: |
||||
|
/* just being reassured by the user that we are an inductor */ |
||||
|
/* no-op */ |
||||
|
break; |
||||
|
default: |
||||
|
return(E_BADPARM); |
||||
|
} |
||||
|
return(OK); |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,63 @@ |
|||||
|
/********** |
||||
|
Copyright 2003 Paolo Nenzi |
||||
|
Author: 2003 Paolo Nenzi |
||||
|
**********/ |
||||
|
/* |
||||
|
*/ |
||||
|
|
||||
|
|
||||
|
#include "ngspice.h" |
||||
|
#include "cktdefs.h" |
||||
|
#include "inddefs.h" |
||||
|
#include "sperror.h" |
||||
|
#include "suffix.h" |
||||
|
|
||||
|
|
||||
|
/*ARGSUSED*/ |
||||
|
int |
||||
|
INDtemp(GENmodel *inModel, CKTcircuit *ckt) |
||||
|
{ |
||||
|
INDmodel *model = (INDmodel*)inModel; |
||||
|
INDinstance *here; |
||||
|
double difference; |
||||
|
double factor; |
||||
|
|
||||
|
/* loop through all the inductor models */ |
||||
|
for( ; model != NULL; model = model->INDnextModel ) { |
||||
|
|
||||
|
/* loop through all the instances of the model */ |
||||
|
for (here = model->INDinstances; here != NULL ; |
||||
|
here=here->INDnextInstance) { |
||||
|
if (here->INDowner != ARCHme) continue; |
||||
|
|
||||
|
/* Default Value Processing for Inductor Instance */ |
||||
|
|
||||
|
if(!here->INDtempGiven) { |
||||
|
here->INDtemp = ckt->CKTtemp; |
||||
|
if(!here->INDdtempGiven) here->INDdtemp = 0.0; |
||||
|
} else { /* INDtempGiven */ |
||||
|
here->INDdtemp = 0.0; |
||||
|
if (here->INDdtempGiven) |
||||
|
printf("%s: Instance temperature specified, dtemp ignored\n", |
||||
|
here->INDname); |
||||
|
} |
||||
|
|
||||
|
if (!here->INDscaleGiven) here->INDscale = 1.0; |
||||
|
if (!here->INDmGiven) here->INDm = 1.0; |
||||
|
|
||||
|
if (!here->INDindGiven) /* No instance inductance given */ |
||||
|
here->INDinduct = model->INDmInd; |
||||
|
|
||||
|
difference = (here->INDtemp + here->INDdtemp) - model->INDtnom; |
||||
|
|
||||
|
factor = 1.0 + (model->INDtempCoeff1)*difference + |
||||
|
(model->INDtempCoeff2)*difference*difference; |
||||
|
|
||||
|
here->INDinduct = here->INDinduct * factor * here->INDscale; |
||||
|
here->INDinduct = here->INDinduct / here->INDm; |
||||
|
|
||||
|
} |
||||
|
} |
||||
|
return(OK); |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,44 @@ |
|||||
|
/********** |
||||
|
Copyright 2003 Paolo Nenzi |
||||
|
Author: 2003 Paolo Nenzi |
||||
|
**********/ |
||||
|
/* |
||||
|
*/ |
||||
|
|
||||
|
|
||||
|
#include "ngspice.h" |
||||
|
#include "cktdefs.h" |
||||
|
#include "inddefs.h" |
||||
|
#include "sperror.h" |
||||
|
#include "suffix.h" |
||||
|
|
||||
|
|
||||
|
/*ARGSUSED*/ |
||||
|
int |
||||
|
MUTtemp(GENmodel *inModel, CKTcircuit *ckt) |
||||
|
{ |
||||
|
MUTmodel *model = (MUTmodel*)inModel; |
||||
|
MUTinstance *here; |
||||
|
double ind1, ind2; |
||||
|
|
||||
|
/* loop through all the inductor models */ |
||||
|
for( ; model != NULL; model = model->MUTnextModel ) { |
||||
|
|
||||
|
/* loop through all the instances of the model */ |
||||
|
for (here = model->MUTinstances; here != NULL ; |
||||
|
here=here->MUTnextInstance) { |
||||
|
if (here->MUTowner != ARCHme) continue; |
||||
|
|
||||
|
/* Value Processing for mutual inductors */ |
||||
|
|
||||
|
ind1 = here->MUTind1->INDinduct; |
||||
|
ind2 = here->MUTind2->INDinduct; |
||||
|
|
||||
|
|
||||
|
here->MUTfactor = here->MUTcoupling * sqrt(ind1 * ind2); |
||||
|
|
||||
|
} |
||||
|
} |
||||
|
return(OK); |
||||
|
} |
||||
|
|
||||
Write
Preview
Loading…
Cancel
Save
Reference in new issue