The R Project SVN R

Rev

Rev 34099 | Rev 34547 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 34099 Rev 34294
Line 264... Line 264...
264 
	for (j = jmin; j < jmax ; j++)
 264 
	for (j = jmin; j < jmax ; j++)
265 
	    MatrixColumnLabel(cl, j, w[j]);
 265 
	    MatrixColumnLabel(cl, j, w[j]);
266 
	for (i = 0; i < r; i++) {
 266 
	for (i = 0; i < r; i++) {
267 
	    MatrixRowLabel(rl, i, rlabw, lbloff);
 267 
	    MatrixRowLabel(rl, i, rlabw, lbloff);
268 
	    for (j = jmin; j < jmax; j++) {
 268 
	    for (j = jmin; j < jmax; j++) {
269 
		Rprintf("%s", EncodeReal(x[i + j * r], w[j], d[j], e[j]));
 269 
		Rprintf("%s", EncodeReal(x[i + j * r], w[j], d[j], e[j], OutDec));
270 
	    }
 270 
	    }
271 
	}
 271 
	}
272 
	Rprintf("\n");
 272 
	Rprintf("\n");
273 
	jmin = jmax;
 273 
	jmin = jmax;
274 
    }
 274 
    }
Line 361... Line 361...
361 
	    MatrixColumnLabel(cl, j, w[j]);
 361 
	    MatrixColumnLabel(cl, j, w[j]);
362 
	for (i = 0; i < r; i++) {
 362 
	for (i = 0; i < r; i++) {
363 
	    MatrixRowLabel(rl, i, rlabw, lbloff);
 363 
	    MatrixRowLabel(rl, i, rlabw, lbloff);
364 
	    for (j = jmin; j < jmax; j++) {
 364 
	    for (j = jmin; j < jmax; j++) {
365 
		if (ISNA(x[i + j * r].r) || ISNA(x[i + j * r].i))
 365 
		if (ISNA(x[i + j * r].r) || ISNA(x[i + j * r].i))
366 
		    Rprintf("%s", EncodeReal(NA_REAL, w[j], 0, 0));
 366 
		    Rprintf("%s", EncodeReal(NA_REAL, w[j], 0, 0, OutDec));
367 
		else
 367 
		else
368 
		    Rprintf("%s",
 368 
		    Rprintf("%s",
369 
			    EncodeComplex(x[i + j * r],
 369 
			    EncodeComplex(x[i + j * r],
370 
					  wr[j] + R_print.gap, dr[j], er[j],
 370 
					  wr[j] + R_print.gap, dr[j], er[j],
371 
					  wi[j], di[j], ei[j]));
 371 
					  wi[j], di[j], ei[j], OutDec));
372 
	    }
 372 
	    }
373 
	}
 373 
	}
374 
	Rprintf("\n");
 374 
	Rprintf("\n");
375 
	jmin = jmax;
 375 
	jmin = jmax;
376 
    }
 376 
    }