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

adding windows gnuplot, some modifications

This commit is contained in:
dwarning 2008-04-27 18:34:43 +00:00
parent 3d9607ccfa
commit c505cd4436
2 changed files with 29 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2008-04-27 Dietmar Warning
* src/frontend/inpcom.c: change _DEBUG to TRACE - unique debug switches
* src/frontend/plotting/gnuplot.c: adding windows gnuplot, some modifications
2008-04-26 Holger Vogt
* src/frontend/inpcom.c: inp_sort_params() now uses dynamic memory allocation
on the heap: no enlargement of stack size is necessary.

44
src/frontend/plotting/gnuplot.c
View File

@ -17,7 +17,7 @@
#include "fteparse.h"
#include "gnuplot.h"
#include <variable.h>
#include "variable.h"
#define GP_MAXVECTORS 64
@ -33,8 +33,10 @@ ft_gnuplot(double *xlims, double *ylims, char *filename, char *title, char *xlab
char buf[BSIZE_SP], pointstyle[BSIZE_SP], *text;
char filename_data[15];
sprintf(filename_data, "%s.data", filename);
char filename_plt[15];
sprintf(filename_data, "%s.data", filename);
sprintf(filename_plt, "%s.plt", filename);
/* Sanity checking. */
for ( v = vecs, numVecs = 0; v; v = v->v_link2 ) {
@ -88,7 +90,7 @@ ft_gnuplot(double *xlims, double *ylims, char *filename, char *title, char *xlab
}
/* Open the output gnuplot file. */
if (!(file = fopen(filename, "w"))) {
if (!(file = fopen(filename_plt, "w"))) {
perror(filename);
return;
}
@ -115,23 +117,23 @@ ft_gnuplot(double *xlims, double *ylims, char *filename, char *title, char *xlab
if (xlog) {
fprintf( file, "set logscale x\n" );
if (xlims) {
fprintf( file, "set xrange [% e: % e]\n", log10(xlims[0]),log10(xlims[1]) );
fprintf( file, "set xrange [%e:%e]\n", xlims[0], xlims[1] );
}
} else {
fprintf( file, "unset logscale x \n" );
if (xlims) {
fprintf( file, "set xrange [% e: % e]\n", xlims[0],xlims[1] );
fprintf( file, "set xrange [%e:%e]\n", xlims[0], xlims[1] );
}
}
if (ylog) {
fprintf( file, "set logscale y \n" );
if (ylims) {
fprintf( file, "set yrange [% e: % e]\n", log10(ylims[0]),log10(ylims[1]) );
fprintf( file, "set yrange [%e:%e]\n", ylims[0], ylims[1] );
}
} else {
fprintf( file, "unset logscale y \n" );
if (ylims) {
fprintf( file, "set yrange [% e: % e]\n", ylims[0],ylims[1] );
fprintf( file, "set yrange [%e:%e]\n", ylims[0], ylims[1] );
}
}
@ -156,46 +158,50 @@ ft_gnuplot(double *xlims, double *ylims, char *filename, char *title, char *xlab
*/
/* Open the output gnuplot data file. */
if (!(file_data = fopen(filename_data, "w"))) {
perror(filename);
return;
}
fprintf( file, "plot ", v->v_name );
fprintf( file, "plot " );
i = 0;
/* Write out the data and setup arrays */
/* Write out the gnuplot command */
for ( v = vecs; v; v = v->v_link2 ) {
scale = v->v_scale;
if (v->v_name) {
i= i+2;
fprintf( file, "\'%s\' using %d:%d with lines t \"%s\" ,", filename_data , i , i+1 , v->v_name );
i = i + 2;
if (i > 2) fprintf(file, ",\\\n");
fprintf(file, "\'%s\' using %d:%d with lines title \"%s\" ", filename_data, i-1, i, v->v_name);
}
}
fprintf( file, "\n");
fprintf (file, "set terminal postscript eps\nset out %s.eps\nreplot\nset term pop", filename);
fprintf (file, "set terminal postscript eps color\nset out \'%s.eps\'\nreplot\nset term pop", filename);
for ( i = 0; i < scale->v_length; i++ ) {
/* Write out the data and setup arrays */
for ( i = 0; i < scale->v_length; i++ ) {
for ( v = vecs; v; v = v->v_link2 ) {
scale = v->v_scale;
xval = isreal(scale) ?
scale->v_realdata[i] : realpart(&scale->v_compdata[i]);
scale->v_realdata[i] : realpart(&scale->v_compdata[i]);
yval = isreal(v) ?
v->v_realdata[i] : realpart(&v->v_compdata[i]);
yval = isreal(v) ?
v->v_realdata[i] : realpart(&v->v_compdata[i]);
fprintf( file_data, "% e % e ", xval, yval );
}
fprintf( file_data, "\n");
fprintf( file_data, "\n");
}
(void) fclose( file );
(void) fclose( file_data );
#if defined(__MINGW32__) || defined(_MSC_VER)
(void) sprintf( buf, "wgnuplot -persist %s", filename_plt );
#else
(void) sprintf( buf, "gnuplot %s &", filename );
#endif
(void) system( buf );