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.
152 lines
4.2 KiB
152 lines
4.2 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1987 Gary W. Ng
|
|
**********/
|
|
|
|
#include <ngspice/ngspice.h>
|
|
#include "cswdefs.h"
|
|
#include <ngspice/cktdefs.h>
|
|
#include <ngspice/iferrmsg.h>
|
|
#include <ngspice/noisedef.h>
|
|
#include <ngspice/suffix.h>
|
|
|
|
/*
|
|
* CSWnoise (mode, operation, firstModel, ckt, data, OnDens)
|
|
* This routine names and evaluates all of the noise sources
|
|
* associated with current- controlled switches. It starts with the
|
|
* model *firstModel and traverses all of its instances. It then
|
|
* proceeds to any other models on the linked list. The total output
|
|
* noise density generated by the CSW's is summed in the variable
|
|
* "OnDens".
|
|
*/
|
|
|
|
|
|
int
|
|
CSWnoise (int mode, int operation, GENmodel *genmodel, CKTcircuit *ckt, Ndata *data, double *OnDens)
|
|
{
|
|
NOISEAN *job = (NOISEAN *) ckt->CKTcurJob;
|
|
|
|
CSWmodel *firstModel = (CSWmodel *) genmodel;
|
|
CSWmodel *model;
|
|
CSWinstance *inst;
|
|
char name[N_MXVLNTH];
|
|
double tempOutNoise;
|
|
double tempInNoise;
|
|
double noizDens;
|
|
double lnNdens;
|
|
int current_state;
|
|
|
|
|
|
for (model=firstModel; model != NULL; model=model->CSWnextModel) {
|
|
for (inst=model->CSWinstances; inst != NULL; inst=inst->CSWnextInstance) {
|
|
if (inst->CSWowner != ARCHme) continue;
|
|
|
|
switch (operation) {
|
|
|
|
case N_OPEN:
|
|
|
|
/* see if we have to to produce a summary report */
|
|
/* if so, name the noise generator */
|
|
|
|
if (job->NStpsSm != 0) {
|
|
switch (mode) {
|
|
|
|
case N_DENS:
|
|
(void)sprintf(name,"onoise_%s",inst->CSWname);
|
|
|
|
|
|
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
|
|
if (!data->namelist) return(E_NOMEM);
|
|
SPfrontEnd->IFnewUid (ckt,
|
|
&(data->namelist[data->numPlots++]),
|
|
NULL, name, UID_OTHER, NULL);
|
|
/* we've added one more plot */
|
|
break;
|
|
|
|
case INT_NOIZ:
|
|
(void)sprintf(name,"onoise_total_%s",inst->CSWname);
|
|
|
|
|
|
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
|
|
if (!data->namelist) return(E_NOMEM);
|
|
SPfrontEnd->IFnewUid (ckt,
|
|
&(data->namelist[data->numPlots++]),
|
|
NULL, name, UID_OTHER, NULL);
|
|
/* we've added one more plot */
|
|
|
|
(void)sprintf(name,"inoise_total_%s",inst->CSWname);
|
|
|
|
|
|
data->namelist = TREALLOC(IFuid, data->namelist, data->numPlots + 1);
|
|
if (!data->namelist) return(E_NOMEM);
|
|
SPfrontEnd->IFnewUid (ckt,
|
|
&(data->namelist[data->numPlots++]),
|
|
NULL, name, UID_OTHER, NULL);
|
|
/* we've added one more plot */
|
|
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case N_CALC:
|
|
switch (mode) {
|
|
|
|
case N_DENS:
|
|
current_state = (int)*(ckt->CKTstate0 + inst->CSWstate);
|
|
NevalSrc(&noizDens,&lnNdens,ckt,THERMNOISE,
|
|
inst->CSWposNode,inst->CSWnegNode,
|
|
current_state?(model->CSWonConduct):(model->CSWoffConduct));
|
|
|
|
*OnDens += noizDens;
|
|
|
|
if (data->delFreq == 0.0) {
|
|
|
|
/* if we haven't done any previous integration, we need to */
|
|
/* initialize our "history" variables */
|
|
|
|
inst->CSWnVar[LNLSTDENS] = lnNdens;
|
|
|
|
/* clear out our integration variable if it's the first pass */
|
|
|
|
if (data->freq == job->NstartFreq) {
|
|
inst->CSWnVar[OUTNOIZ] = 0.0;
|
|
}
|
|
} else { /* data->delFreq != 0.0 (we have to integrate) */
|
|
tempOutNoise = Nintegrate(noizDens, lnNdens,
|
|
inst->CSWnVar[LNLSTDENS], data);
|
|
tempInNoise = Nintegrate(noizDens *
|
|
data->GainSqInv ,lnNdens + data->lnGainInv,
|
|
inst->CSWnVar[LNLSTDENS] + data->lnGainInv,
|
|
data);
|
|
inst->CSWnVar[OUTNOIZ] += tempOutNoise;
|
|
inst->CSWnVar[INNOIZ] += tempInNoise;
|
|
data->outNoiz += tempOutNoise;
|
|
data->inNoise += tempInNoise;
|
|
inst->CSWnVar[LNLSTDENS] = lnNdens;
|
|
}
|
|
if (data->prtSummary) {
|
|
data->outpVector[data->outNumber++] = noizDens;
|
|
}
|
|
break;
|
|
|
|
case INT_NOIZ: /* already calculated, just output */
|
|
if (job->NStpsSm != 0) {
|
|
data->outpVector[data->outNumber++] = inst->CSWnVar[OUTNOIZ];
|
|
data->outpVector[data->outNumber++] = inst->CSWnVar[INNOIZ];
|
|
} /* if */
|
|
break;
|
|
} /* switch (mode) */
|
|
break;
|
|
|
|
case N_CLOSE:
|
|
return (OK); /* do nothing, the main calling routine will close */
|
|
break; /* the plots */
|
|
} /* switch (operation) */
|
|
} /* for inst */
|
|
} /* for model */
|
|
|
|
return(OK);
|
|
}
|
|
|
|
|