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 2008-04-26 Holger Vogt
* src/frontend/inpcom.c: inp_sort_params() now uses dynamic memory allocation * src/frontend/inpcom.c: inp_sort_params() now uses dynamic memory allocation
on the heap: no enlargement of stack size is necessary. 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 "fteparse.h"
#include "gnuplot.h" #include "gnuplot.h"
#include <variable.h> #include "variable.h"
#define GP_MAXVECTORS 64 #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 buf[BSIZE_SP], pointstyle[BSIZE_SP], *text;
char filename_data[15]; 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. */ /* Sanity checking. */
for ( v = vecs, numVecs = 0; v; v = v->v_link2 ) { 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. */ /* Open the output gnuplot file. */
if (!(file = fopen(filename, "w"))) { if (!(file = fopen(filename_plt, "w"))) {
perror(filename); perror(filename);
return; return;
} }
@ -115,23 +117,23 @@ ft_gnuplot(double *xlims, double *ylims, char *filename, char *title, char *xlab
if (xlog) { if (xlog) {
fprintf( file, "set logscale x\n" ); fprintf( file, "set logscale x\n" );
if (xlims) { 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 { } else {
fprintf( file, "unset logscale x \n" ); fprintf( file, "unset logscale x \n" );
if (xlims) { 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) { if (ylog) {
fprintf( file, "set logscale y \n" ); fprintf( file, "set logscale y \n" );
if (ylims) { 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 { } else {
fprintf( file, "unset logscale y \n" ); fprintf( file, "unset logscale y \n" );
if (ylims) { 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. */ /* Open the output gnuplot data file. */
if (!(file_data = fopen(filename_data, "w"))) { if (!(file_data = fopen(filename_data, "w"))) {
perror(filename); perror(filename);
return; return;
} }
fprintf( file, "plot ", v->v_name ); fprintf( file, "plot " );
i = 0; i = 0;
/* Write out the data and setup arrays */ /* Write out the gnuplot command */
for ( v = vecs; v; v = v->v_link2 ) { for ( v = vecs; v; v = v->v_link2 ) {
scale = v->v_scale; scale = v->v_scale;
if (v->v_name) { if (v->v_name) {
i= i+2; i = i + 2;
fprintf( file, "\'%s\' using %d:%d with lines t \"%s\" ,", filename_data , i , i+1 , v->v_name ); 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, "\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 ) { for ( v = vecs; v; v = v->v_link2 ) {
scale = v->v_scale; scale = v->v_scale;
xval = isreal(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) ? yval = isreal(v) ?
v->v_realdata[i] : realpart(&v->v_compdata[i]); v->v_realdata[i] : realpart(&v->v_compdata[i]);
fprintf( file_data, "% e % e ", xval, yval ); fprintf( file_data, "% e % e ", xval, yval );
} }
fprintf( file_data, "\n"); fprintf( file_data, "\n");
} }
(void) fclose( file ); (void) fclose( file );
(void) fclose( file_data ); (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 ); (void) sprintf( buf, "gnuplot %s &", filename );
#endif
(void) system( buf ); (void) system( buf );