42 "PZ analysis not possible with Josephson junctions",
NULL);
94 PZAN *pzan = (
PZAN *) ckt->CKTcurJob;
98 ckt->CKThead[i] !=
NULL)
134 PZAN *pzan = (
PZAN *) ckt->CKTcurJob;
150 for (i = 0; i < pzan->
PZnPoles; i++) {
151 sprintf(name,
"pole(%-u)", i+1);
155 for (i = 0; i < pzan->
PZnZeros; i++) {
156 sprintf(name,
"zero(%-u)", i+1);
161 outd.circuitPtr = (
GENERIC *)ckt;
162 outd.analysisPtr = (
GENERIC*)pzan;
165 outd.refType = (int)0;
167 outd.dataNames = namelist;
169 outd.plotPtr = &pzPlotPtr;
179 for (i = 0; i < root->multiplicity; i++) {
180 out_list[j].real = root->s.real;
181 out_list[j].imag = root->s.imag;
183 if (root->s.imag != 0.0) {
184 out_list[j].real = root->s.real;
185 out_list[j].imag = -root->s.imag;
189 DEBUG printf(
"LIST pole: (%g,%g) x %d\n",
190 root->s.real, root->s.imag, root->multiplicity);
196 for (i = 0; i < root->multiplicity; i++) {
197 out_list[j].real = root->s.real;
198 out_list[j].imag = root->s.imag;
200 if (root->s.imag != 0.0) {
201 out_list[j].real = root->s.real;
202 out_list[j].imag = -root->s.imag;
206 DEBUG printf(
"LIST zero: (%g,%g) x %d\n",
207 root->s.real, root->s.imag, root->multiplicity);
212 outData.v.vec.cVec = out_list;
236 PZAN *pzan = (
PZAN *) ckt->CKTcurJob;
239 int temp, solution_col, balance_col;
240 int input_pos, input_neg, output_pos, output_neg;
248 matrix = ckt->CKTmatrix;
251 ckt->CKTnumStates = 0;
253 for (mh = ckt->CKTheadList; mh !=
NULL; mh = mh->next) {
255 error = (*func)(matrix, mh->head,ckt,&ckt->CKTnumStates);
286 solution_col = output_pos;
288 balance_col = output_neg;
291 solution_col = output_neg;
293 input_pos = input_neg;
CKTpzFindZeros(CKTcircuit *ckt, GENERIC **rootinfoptr, int *rootcount)
#define ERROR(CODE, MESSAGE)
int CKTpzSetup(CKTcircuit *ckt, int type)
struct sIFcomplex IFcomplex
int PZan(GENERIC *cktp, int reset)