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);
158 name,UID_OTHER,(
GENERIC **)NULL);
166 outd.
numNames = pzan->PZnPoles + pzan->PZnZeros;
177 if (pzan->PZnPoles > 0) {
178 for (root = pzan->PZpoleList; root != NULL; root = root->next) {
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);
194 if (pzan->PZnZeros > 0) {
195 for (root = pzan->PZzeroList; root != NULL; root = root->next) {
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);
211 outData.v.numValue = pzan->PZnPoles + pzan->PZnZeros;
212 outData.v.vec.cVec = out_list;
struct sIFcomplex IFcomplex