File: bf_test.c

package info (click to toggle)
gnuplot 3.5beta6.347-3
  • links: PTS
  • area: main
  • in suites: slink
  • size: 5,032 kB
  • ctags: 4,235
  • sloc: ansic: 42,086; makefile: 561; asm: 539; sh: 386; objc: 379; csh: 297; pascal: 194; perl: 138; lisp: 88
file content (158 lines) | stat: -rw-r--r-- 3,676 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
#ifndef lint
static char *RCSid = "$Id: bf_test.c,v 1.11 1998/04/14 00:14:48 drd Exp $";
#endif


/*
 * Test routines for binary files
 * cc bf_test.c -o bf_test binary_files.o -lm
 *
 * Copyright (c) 1992 Robert K. Cunningham, MIT Lincoln Laboratory
 *
 */

/* Note that this file is not compiled into gnuplot, and so
 * its more-restrictive copyright need not apply to gnuplot
 * as a whole. (I think.)
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "ansichek.h"
#include "stdfn.h"
#define GPFAR /**/
#include "binary.h"
#include "alloc.h"

void int_error __PROTO((char *error_text, int dummy));
float function __PROTO((int p, double x, double y));


typedef struct {
  float xmin, xmax;
  float ymin, ymax;
} range;

#define NUM_PLOTS 2
range TheRange[] = {{-3,3,-2,2},
                    {-3,3,-3,3},
                    {-3,3,-3,3}};/* Sampling rate causes this to go from -3:6*/

/*---- Stubs to make this work without including huge libraries ----*/
void int_error(error_text,dummy)
     char *error_text;
     int dummy;
{
  fprintf(stderr,"Fatal error..\n");
  fprintf(stderr,"%s\n",error_text);
  fprintf(stderr,"...now exiting to system ...\n");
  exit(1);
}

void FreeHelp(void)
{
}

/*---- End of stubs ----*/

float function(p,x,y)
int p;
double x,y;
{
  float t;
  switch (p){
  case 0:
    t = 1.0/(x*x+y*y+1.0);
    break;
  case 1:
    t = sin(x*x + y*y)/(x*x + y*y);
    if (t> 1.0)  t = 1.0;
    break;
  case 2:
    t = sin(x*x + y*y)/(x*x + y*y);
    t *= sin(4.*(x*x + y*y))/(4.*(x*x + y*y));  /* sinc modulated sinc */
    if (t> 1.0)  t = 1.0;
    break;
  default:
    fprintf(stderr, "Unknown function\n");
    break;
  }
  return t;
}

#define ISOSAMPLES (double)5
int
main()
{
  int plot;
  int i,j;
  float x,y;
  float *rt,*ct;
  float **m;
  int xsize,ysize;
  char buf[256];
  FILE *fout;
/*  Create a few standard test interfaces */

  for(plot = 0; plot < NUM_PLOTS; plot++){
    xsize = (TheRange[plot].xmax - TheRange[plot].xmin)*ISOSAMPLES +1;
    ysize = (TheRange[plot].ymax - TheRange[plot].ymin)*ISOSAMPLES +1;

    rt = vector(0,xsize-1);
    ct = vector(0,ysize-1);
    m =  matrix(0,xsize-1,0,ysize-1);

    for(y=TheRange[plot].ymin,j=0;j<ysize;j++,y+=1.0/(double)ISOSAMPLES){
      ct[j] = y;
    }

    for(x=TheRange[plot].xmin,i=0;i<xsize;i++,x+=1.0/(double)ISOSAMPLES){
      rt[i] = x;
      for(y=TheRange[plot].ymin,j=0;j<ysize;j++,y+=1.0/(double)ISOSAMPLES){
        m[i][j] = function(plot,x,y);
      }
    }

    sprintf(buf,"binary%d",plot+1);
    if(!(fout = fopen(buf,"wb")))
      int_error("Could not open file",0);
    else{
      fwrite_matrix(fout,m,0,xsize-1,0,ysize-1,rt,ct);
    }
    free_vector(rt,0,ysize-1);
    free_vector(ct,0,xsize-1);
    free_matrix(m,0,xsize-1,0,ysize-1);
  }

  /* Show that it's ok to vary sampling rate, as long as x1<x2, y1<y2... */
  xsize = (TheRange[plot].xmax - TheRange[plot].xmin)*ISOSAMPLES +1;
  ysize = (TheRange[plot].ymax - TheRange[plot].ymin)*ISOSAMPLES +1;

  rt = vector(0,xsize-1);
  ct = vector(0,ysize-1);
  m =  matrix(0,xsize-1,0,ysize-1);

  for(y=TheRange[plot].ymin,j=0;j<ysize;j++,y+=1.0/(double)ISOSAMPLES){
    ct[j] = y>0?2*y:y;
  }
  for(x=TheRange[plot].xmin,i=0;i<xsize;i++,x+=1.0/(double)ISOSAMPLES){
    rt[i] = x>0?2*x:x;
    for(y=TheRange[plot].ymin,j=0;j<ysize;j++,y+=1.0/(double)ISOSAMPLES){
      m[i][j] = function(plot,x,y);
    }
  }

  sprintf(buf,"binary%d",plot+1);
  if(!(fout = fopen(buf,"wb")))
    int_error("Could not open file",0);
  else{
    fwrite_matrix(fout,m,0,xsize-1,0,ysize-1,rt,ct);
  }
  free_vector(rt,0,ysize-1);
  free_vector(ct,0,xsize-1);
  free_matrix(m,0,xsize-1,0,ysize-1);

  return(0);
}