void nrn_print_matrix(NrnThread* _nt) {
extern int section_count;
extern Section** secorder;
int isec, inode;
Section* sec;
Node* nd;
if (use_sparse13) {
if(ifarg(1) && chkarg(1, 0., 1.) == 0.) {
spPrint(_nt->_sp13mat, 1, 0, 1);
}else{
int i, n = spGetSize(_nt->_sp13mat, 0);
spPrint(_nt->_sp13mat, 1, 1, 1);
for (i=1; i <= n; ++i) {
printf("%d %g\n", i, _nt->_actual_rhs[i]);
}
}
}else if (_nt) {
for (inode = 0; inode < _nt->end; ++inode) {
nd = _nt->_v_node[inode];
printf("%d %g %g %g %g\n", inode, ClassicalNODEB(nd), ClassicalNODEA(nd), NODED(nd), NODERHS(nd));
}
}else{
for (isec = 0; isec < section_count; ++isec) {
sec = secorder[isec];
for (inode = 0; inode < sec->nnode; ++inode) {
nd = sec->pnode[inode];
printf("%d %d %g %g %g %g\n", isec, inode, ClassicalNODEB(nd), ClassicalNODEA(nd), NODED(nd), NODERHS(nd));
}
}
}
}
/*ARGSUSED*/
void
SMPprint(SMPmatrix *Matrix, FILE *File)
{
spPrint( (void *)Matrix, 0, 1, 1 );
}
void
M_MatrixPrint_SP(void *pA)
{
M_MatrixSP *A = pA;
spPrint(A->d, 0, 1, 0);
}
int
main (int argc, char **argv)
{
int ch;
int errflg=0,i,j;
double l,c,ctot,r=0.0,g=0.0,k=0.0,lm=0.0,cm=0.0,len;
unsigned gotl=0,gotc=0,gotr=0,gotg=0,gotk=0,gotcm=0,gotlen=0;
unsigned gotname=0, gotnum=0;
char *name = "";
double **matrix, **inverse;
double *tpeigenvalues, *gammaj;
char *options;
int num, node;
char **pname, *s;
int use_opt;
char *optarg;
pname = argv;
argv++;
argc--;
ch = 0;
while (argc > 0) {
s = *argv++;
argc--;
while ((ch = *s++)) {
if (*s)
optarg = s;
else if (argc)
optarg = *argv;
else
optarg = NULL;
use_opt = 0;
switch (ch) {
case 'o':
name = (char *) tmalloc((unsigned) (strlen(optarg)*sizeof(char)));
(void) strcpy(name,optarg);
gotname=1;
use_opt = 1;
break;
case 'l':
sscanf(optarg,"%lf",&l);
gotl=1;
use_opt = 1;
break;
case 'c':
sscanf(optarg,"%lf",&c);
gotc=1;
use_opt = 1;
break;
case 'r':
sscanf(optarg,"%lf",&r);
use_opt = 1;
gotr=1;
break;
case 'g':
sscanf(optarg,"%lf",&g);
use_opt = 1;
gotg=1;
break;
case 'k':
sscanf(optarg,"%lf",&k);
use_opt = 1;
gotk=1;
break;
case 'x':
sscanf(optarg,"%lf",&cm);
use_opt = 1;
gotcm=1;
break;
case 'L':
sscanf(optarg,"%lf",&len);
use_opt = 1;
gotlen=1;
break;
case 'n':
sscanf(optarg,"%d",&num);
use_opt = 1;
gotnum=1;
break;
case 'h':
usage(pname);
exit(1);
break;
case '-':
break;
default:
usage(pname);
exit(2);
break;
}
if (use_opt) {
if (optarg == s)
s += strlen(s);
else if (optarg) {
argc--;
argv++;
}
}
}
}
if (errflg) {
usage(argv);
exit (2);
}
if (gotl + gotc + gotname + gotnum + gotlen < 5) {
fprintf(stderr,"l, c, model_name, number_of_conductors and length must be specified.\n");
fprintf(stderr,"%s -u for details.\n",pname[0]);
fflush(stdout);
exit(1);
}
if ( (k<0.0?-k:k) >=1.0 ) {
fprintf(stderr,"Error: |k| must be less than 1.0\n");
fflush(stderr);
exit(1);
}
if (num == 1) {
fprintf(stdout,"* single conductor line\n");
fflush(stdout);
exit(1);
}
lm = l*k;
switch(num) {
case 1: ctot = c; break;
case 2: ctot = c + cm; break;
default: ctot = c + 2*cm; break;
}
comments(r,l,g,c,ctot,cm,lm,k,name,num,len);
matrix = (double **) tmalloc((unsigned) (sizeof(double*)*(num+1)));
inverse = (double **) tmalloc((unsigned) (sizeof(double*)*(num+1)));
tpeigenvalues = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
for (i=1;i<=num;i++) {
matrix[i] = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
inverse[i] = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
}
for (i=1;i<=num;i++) {
tpeigenvalues[i] = -2.0 * cos(M_PI*i/(num+1));
}
for (i=1;i<=num;i++) {
for (j=1;j<=num;j++) {
matrix[i][j] = phi(i-1,tpeigenvalues[j]);
}
}
gammaj = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
for (j=1;j<=num;j++) {
gammaj[j] = 0.0;
for (i=1;i<=num;i++) {
gammaj[j] += matrix[i][j] * matrix[i][j];
}
gammaj[j] = sqrt(gammaj[j]);
}
for (j=1;j<=num;j++) {
for (i=1;i<=num; i++) {
matrix[i][j] /= gammaj[j];
}
}
tfree(gammaj);
/* matrix = M set up */
{
MatrixPtr othermatrix;
double *rhs, *solution;
double *irhs, *isolution;
int errflg, err, singular_row, singular_col;
double *elptr;
rhs = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
irhs = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
solution = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
isolution = (double *) tmalloc((unsigned) (sizeof(double)*(num+1)));
othermatrix = spCreate(num,0,&errflg);
for (i=1;i<=num;i++) {
for (j=1; j<=num; j++) {
elptr = spGetElement(othermatrix,i,j);
*elptr = matrix[i][j];
}
}
#ifdef DEBUG_LEVEL1
(void) spPrint(othermatrix,0,1,0);
#endif
for (i=1;i<=num;i++) rhs[i] = 0.0;
rhs[1]=1.0;
err =
spOrderAndFactor(othermatrix,rhs,THRSH,ABS_THRSH,DIAG_PIVOTING);
spErrorMessage(othermatrix,stderr,NULL);
switch(err) {
case spNO_MEMORY:
fprintf(stderr,"No memory in spOrderAndFactor\n");
fflush(stderr);
exit(1);
case spSINGULAR:
(void)
spWhereSingular(othermatrix,&singular_row,&singular_col);
fprintf(stderr,"Singular matrix: problem in row %d and col %d\n", singular_row, singular_col);
fflush(stderr);
exit(1);
default: break;
}
for (i=1;i<=num;i++) {
for (j=1;j<=num;j++) {
rhs[j] = (j==i?1.0:0.0);
irhs[j] = 0.0;
}
(void) spSolveTransposed(othermatrix,rhs,solution, irhs, isolution);
for (j=1;j<=num;j++) {
inverse[i][j] = solution[j];
}
}
tfree(rhs);
tfree(solution);
}
/* inverse = M^{-1} set up */
fprintf(stdout,"\n");
fprintf(stdout,"* Lossy line models\n");
options = (char *) tmalloc((unsigned) 256);
(void) strcpy(options,"rel=1.2 nocontrol");
for (i=1;i<=num;i++) {
fprintf(stdout,".model mod%d_%s ltra %s r=%0.12g l=%0.12g g=%0.12g c=%0.12g len=%0.12g\n",
i,name,options,r,l+tpeigenvalues[i]*lm,g,ctot-tpeigenvalues[i]*cm,len);
/*i,name,options,r,l+tpeigenvalues[i]*lm,g,ctot+tpeigenvalues[i]*cm,len);*/
}
fprintf(stdout,"\n");
fprintf(stdout,"* subcircuit m_%s - modal transformation network for %s\n",name,name);
fprintf(stdout,".subckt m_%s", name);
for (i=1;i<= 2*num; i++) {
fprintf(stdout," %d",i);
}
fprintf(stdout,"\n");
for (j=1;j<=num;j++) fprintf(stdout,"v%d %d 0 0v\n",j,j+2*num);
for (j=1;j<=num;j++) {
for (i=1; i<=num; i++) {
fprintf(stdout,"f%d 0 %d v%d %0.12g\n",
(j-1)*num+i,num+j,i,inverse[j][i]);
}
}
node = 3*num+1;
for (j=1;j<=num;j++) {
fprintf(stdout,"e%d %d %d %d 0 %0.12g\n", (j-1)*num+1,
node, 2*num+j, num+1, matrix[j][1]);
node++;
for (i=2; i<num; i++) {
fprintf(stdout,"e%d %d %d %d 0 %0.12g\n", (j-1)*num+i,
node,node-1,num+i,matrix[j][i]);
node++;
}
fprintf(stdout,"e%d %d %d %d 0 %0.12g\n", j*num,j,node-1,
2*num,matrix[j][num]);
}
fprintf(stdout,".ends m_%s\n",name);
fprintf(stdout,"\n");
fprintf(stdout,"* Subckt %s\n", name);
fprintf(stdout,".subckt %s",name);
for (i=1;i<=2*num;i++) {
fprintf(stdout," %d",i);
}
fprintf(stdout,"\n");
fprintf(stdout,"x1");
for (i=1;i<=num;i++) fprintf(stdout," %d", i);
for (i=1;i<=num;i++) fprintf(stdout," %d", 2*num+i);
fprintf(stdout," m_%s\n",name);
for (i=1;i<=num;i++)
fprintf(stdout,"o%d %d 0 %d 0 mod%d_%s\n",i,2*num+i,3*num+i,i,name);
fprintf(stdout,"x2");
for (i=1;i<=num;i++) fprintf(stdout," %d", num+i);
for (i=1;i<=num;i++) fprintf(stdout," %d", 3*num+i);
fprintf(stdout," m_%s\n",name);
fprintf(stdout,".ends %s\n",name);
tfree(tpeigenvalues);
for (i=1;i<=num;i++) {
tfree(matrix[i]);
tfree(inverse[i]);
}
tfree(matrix);
tfree(inverse);
tfree(name);
tfree(options);
return EXIT_NORMAL;
}