luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

plotit.c #4/9, line wrap

This commit is contained in:
rlar 2012-08-04 16:03:52 +02:00
parent ed4ad1c0dd
commit 5f1387892c
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/frontend/plotting/plotit.c
View File

@ -161,11 +161,9 @@ compress(struct dvec *d, double *xcomp, double *xind)
if ((cfac > 1) && (cfac < d->v_length)) {
for (i = 0; i * cfac < d->v_length; i++)
if (isreal(d))
d->v_realdata[i] =
d->v_realdata[i * cfac];
d->v_realdata[i] = d->v_realdata[i * cfac];
else
d->v_compdata[i] =
d->v_compdata[i * cfac];
d->v_compdata[i] = d->v_compdata[i * cfac];
d->v_length = i;
}
}
@ -622,8 +620,10 @@ plotit(wordlist *wl, char *hcopy, char *devname)
/* The following line displays the unit at the time of
temp-sweep and res-sweep. This may not be a so good solution. by H.T */
if(!strcmp(vecs->v_scale->v_name,"temp-sweep")) vecs->v_scale->v_type=SV_TEMP; /* simulation_types in sim.h */
if(!strcmp(vecs->v_scale->v_name,"res-sweep")) vecs->v_scale->v_type=SV_RES;
if (strcmp(vecs->v_scale->v_name, "temp-sweep") == 0)
vecs->v_scale->v_type = SV_TEMP;
if (strcmp(vecs->v_scale->v_name, "res-sweep") == 0)
vecs->v_scale->v_type = SV_RES;
/* See if the log flag is set anywhere... */
if (!gfound) {
@ -632,8 +632,7 @@ plotit(wordlist *wl, char *hcopy, char *devname)
gtype = GRID_XLOG;
for (d = vecs; d; d = d->v_link2)
if (d->v_gridtype == GRID_YLOG) {
if ((gtype == GRID_XLOG) ||
(gtype == GRID_LOGLOG))
if ((gtype == GRID_XLOG) || (gtype == GRID_LOGLOG))
gtype = GRID_LOGLOG;
else
gtype = GRID_YLOG;
@ -873,10 +872,8 @@ plotit(wordlist *wl, char *hcopy, char *devname)
/* Fix the plot limits for smith and polar grids. */
if ((!xlim || !ylim) && (gtype == GRID_POLAR)) {
/* (0,0) must be in the center of the screen. */
mx = (fabs(xlims[0]) > fabs(xlims[1])) ? fabs(xlims[0]) :
fabs(xlims[1]);
my = (fabs(ylims[0]) > fabs(ylims[1])) ? fabs(ylims[0]) :
fabs(ylims[1]);
mx = (fabs(xlims[0]) > fabs(xlims[1])) ? fabs(xlims[0]) : fabs(xlims[1]);
my = (fabs(ylims[0]) > fabs(ylims[1])) ? fabs(ylims[0]) : fabs(ylims[1]);
/* rad = (mx > my) ? mx : my; */
/* AM.Roldán
* Change this reason that this was discussed, as in the case of 1 + i want to plot point
@ -950,8 +947,10 @@ plotit(wordlist *wl, char *hcopy, char *devname)
vecs->v_scale = newv_scale;
}
ft_agraf(xlims, ylims, vecs->v_scale, vecs->v_plot, vecs,
xdelta ? *xdelta : 0.0, ydelta ? *ydelta : 0.0,
ft_agraf(xlims, ylims,
vecs->v_scale, vecs->v_plot, vecs,
xdelta ? *xdelta : 0.0,
ydelta ? *ydelta : 0.0,
((gtype == GRID_XLOG) || (gtype == GRID_LOGLOG)),
((gtype == GRID_YLOG) || (gtype == GRID_LOGLOG)),
nointerp);
@ -1022,9 +1021,11 @@ plotit(wordlist *wl, char *hcopy, char *devname)
pname = plot_cur->pl_typename;
if (!gr_init(xlims, ylims, (oneval ? NULL : xn),
title ? title : vecs->v_plot->pl_title, hcopy, i,
xdelta ? *xdelta : 0.0, ydelta ? *ydelta : 0.0, gtype,
ptype, xlabel, ylabel, xt, j, pname, cline))
title ? title : vecs->v_plot->pl_title,
hcopy, i,
xdelta ? *xdelta : 0.0,
ydelta ? *ydelta : 0.0,
gtype, ptype, xlabel, ylabel, xt, j, pname, cline))
goto quit;
/* Now plot all the graphs. */