added polynom_interpolation,fixes inintegral-*, updated Makefile and cvsignore file

diff --git a/.cvsignore b/.cvsignore
index dc865065ec5cd08a8bfc98a1fd32b9b236a893c5..9fddb52901a039f38f6d33d4174afb7ee1f3ae2b 100644 (file)
--- a/.cvsignore
+++ b/.cvsignore
@@ -3,3 +3,6 @@
 newton
 zentral
 homogen
+integral-1_2
+integral-2_2
+polynom_interpolation

diff --git a/Makefile b/Makefile
index 3ba14bb140a7ea651892d811f1032a626b1b185b..a80607578852f0b3ac40a758bec622541093d587 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -5,7 +5,7 @@ CFLAGS = -O3 -Wall
 LIBS = -L/usr/lib -lm
 
 API = g_plot.o
-OBJS = newton zentral homogen
+OBJS = newton zentral homogen integral-1_2 integral-2_2 polynom_interpolation
 
 all: $(OBJS)
 
@@ -24,6 +24,9 @@ integral-1_2: $(API)
 integral-2_2: $(API)
        $(CC) $(CFLAGS) -o $@ $(API) $(LIBS) integral-2_2.c
 
+polynom_interpolation: $(API)
+       $(CC) $(CFLAGS) -o $@ $(API) $(LIBS) polynom_interpolation.c
+
 clean:
        rm $(API) $(OBJS)
 

diff --git a/integral-1_2.c b/integral-1_2.c
index be9a749ca35a95899f15aedeed13bf033cb17e14..c286121bd8723af55c1798ab0ef9a5ae34c40512 100644 (file)
--- a/integral-1_2.c
+++ b/integral-1_2.c
@@ -6,7 +6,7 @@ int main(int argc,char **argv) {
  double p_N;
  double p;
  int start;
- int i,j;
+ int i;
 
  if(argc!=3) { 
   printf("usage: %s <start> <startwert>\n",argv[0]);

diff --git a/integral-2_2.c b/integral-2_2.c
index 2c8a317f69804d30fc5fdb676b4cc39967f67e57..472a6c166c6e7f338f9dce72462e4bf992e0e135 100644 (file)
--- a/integral-2_2.c
+++ b/integral-2_2.c
@@ -6,7 +6,7 @@ int main(int argc,char **argv) {
  double p_N;
  double p;
  int steps;
- int i,j;
+ int i;
 
  if(argc!=2) { 
   printf("usage: %s <steps>\n",argv[0]);

diff --git a/polynom_interpolation.c b/polynom_interpolation.c
new file mode 100644 (file)
index 0000000..587faa9
--- /dev/null
+++ b/polynom_interpolation.c
@@ -0,0 +1,64 @@
+#define _GNU_SOURCE
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "g_plot.h"
+#include <string.h>
+
+#define I_START 5
+#define I_END 20
+#define I_LENGTH (I_END - I_START)
+#define N_I 3
+
+int main(int argc,char **argv) {
+ double *buf,*buf_i;
+ int N;
+ double step,step_i;
+ double x,x_i,x_j,x_k,w;
+ int i,j,k,l;
+ char file[64];
+ int fd;
+
+ if(argc!=2) {
+  printf("usage: %s <N>\n",argv[0]);
+  return 1;
+ }
+
+ N=atoi(argv[1]);
+ step=(double)I_LENGTH/(N+1);
+
+ /* savefile init */
+ strcpy(file,"polynom_interpolation.plot");
+ fd=gp_init(file);
+
+ /* calculate fixpoints */
+ buf=(double *)malloc((N+2)*sizeof(double));
+ for(i=0;i<N+2;i++) {
+  x=I_START+i*step;
+  buf[i]=(sin(x)-x*cos(x))/(x*x*x*x);
+  /* manually, gp_api sux! */
+  dprintf(fd,"%f %f\n",x,buf[i]);
+ }
+
+ /* do interpolation */
+ step_i=step/(N_I+1);
+ buf_i=(double *)malloc((N+1)*N_I*sizeof(double));
+ for(i=0;i<(N+1);i++) {
+  for(l=1;l<N_I+1;l++) {
+   buf_i[i*(N_I+1)+l]=0;
+   x_i=I_START+i*step+l*step_i;
+   for(j=0;j<(N+2);j++) {
+    x_j=I_START+j*step;
+    w=1;
+    for(k=0;k<(N+2);k++) {
+     x_k=I_START+k*step;
+     if(j!=k) w=w*((x_i-x_k)/(x_j-x_k));
+    }
+    buf_i[i*(N_I+1)+l]+=w*buf[j];
+   }
+   dprintf(fd,"%f %f\n",x_i,buf_i[i*(N_I+1)+l]);
+  }
+ }
+     
+ return 1;
+}