コンパイルエラーの原因と対策について。

質問

以下のプログラムは、SEIRモデルをルンゲクッタ法を使いA,Bそれぞれについて解を求めているのですが、
どうしてもコンパイルエラーが出てしまいます。
字数制限でエラー内容は書けませんがご希望があれば補足いたします。
原因と改良すべき点をご教示お願いします。

#include <stdio.h>
#include <math.h>
#define alf 0.33
#define bet 0.0875
#define gam 0.2

double f1(double t1,double a[0],double a[1],double a[2],double a[3]);
double f2(double t1,double a[0],double a[1],double a[2],double a[3]);
double f3(double t1,double a[0],double a[1],double a[2],double a[3]);
double f4(double t1,double a[0],double a[1],double a[2],double a[3]); //箱Aの関数
double g1(double t1,double b[0],double b[1],double b[2],double b[3]);
double g2(double t1,double b[0],double b[1],double b[2],double b[3]);
double g3(double t1,double b[0],double b[1],double b[2],double b[3]);
double g4(double t1,double b[0],double b[1],double b[2],double b[3]); //箱Bの関数

int main(void) {
double t1,dt,t1max;
double k1[4],k2[4],k3[4],k4[4],l1[4],l2[4],l3[4],l4[4],a[4],b[4],da[4],db[4] ;
double (*pf[4])(double,double,double,double,double)={f1,f2,f3,f4};
double (*pg[4])(double,double,double,double,double)={g1,g2,g3,g4};
int i; //宣言

t1 = 0.0;
dt = 0.1;
t1max = 40.0; //時間初期値

a[0] = 200.0;
a[1] = 40.0;
a[2] = 30.0;
a[3] = 30.0; //箱A初期値（a[0]:感受性人口、a[1]:潜伏人口、a[2]:感染人口、a[3]:隔離人口）

b[0] = 20.0;
b[1] = 8.0;
b[2] = 12.0;
b[3] = 10.0; //箱B初期値（b[0]:感受性人口、b[1]:潜伏人口、b[2]:感染人口、b[3]:隔離人口）

printf("%f,%f,%f,%f,%f,%f,%f,%f,%f,%f\n",t1,a[0],a[1],a[2],a[3],b[0],b[1],b[2],b[3],a[0]+a[1]+a[2]+a[3]+b[0]+b[1]+b[2]+b[3]);

for(t1=0.0;t1<=t1max;t1+=dt) {

for (i=0;i<4;i++) k1[i]=dt*pf[i](t1,a[0],a[1],a[2],a[3]);
for (i=0;i<4;i++) k2[i]=dt*pf[i](t1+dt/2.0,a[0]+k1[0]/2.0,a[1]+k1[1]/2.0,a[2]+k1[2]/2.0,a[3]+k1[3]/2.0);
for (i=0;i<4;i++) k3[i]=dt*pf[i](t1+dt/2.0,a[0]+k2[0]/2.0,a[1]+k2[1]/2.0,a[2]+k2[2]/2.0,a[3]+k2[3]/2.0);
for (i=0;i<4;i++) k4[i]=dt*pf[i](t1+dt,a[0]+k3[0],a[1]+k3[1],a[2]+k3[2],a[3]+k3[3]);
for (i=0;i<4;i++) l1[i]=dt*pg[i](t1,b[0],b[1],b[2],b[3]);
for (i=0;i<4;i++) l2[i]=dt*pg[i](t1+dt/2.0,b[0]+l1[0]/2.0,b[1]+l1[1]/2.0,b[2]+l1[2]/2.0,b[3]+l1[3]/2.0);
for (i=0;i<4;i++) l3[i]=dt*pg[i](t1+dt/2.0,b[0]+l2[0]/2.0,b[1]+l2[1]/2.0,b[2]+l2[2]/2.0,b[3]+l2[3]/2.0);
for (i=0;i<4;i++) l4[i]=dt*pg[i](t1+dt,b[0]+l3[0],b[1]+l3[1],b[2]+l3[2],b[3]+l3[3]);}
for (i=0;i<=3;i++) a[i]=a[i]+((k1[i]+2.0*k2[i]+2.0*k3[i]+k4[i])/6.0);
for (i=0;i<=3;i++) b[i]=b[i]+((l1[i]+2.0*l2[i]+2.0*l3[i]+l4[i])/6.0); //4次のルンゲクッタ

da[0]=-0.8*a[0];
da[1]=-0.8*a[1];
da[2]=-0.2*a[2];
da[3]=-0.5*a[3]; //AからBへの移動量

db[0]=-b[0];
db[1]=-b[1];
db[2]=-0.7*b[2];
db[3]=-0.9*b[3]; //BからAへの移動量

if (t1 < 21.0) { //移動開始
for (i=0;i<=3;i++) {
a[i]=a[i]+da[i];
b[i]=b[i]-db[i]; ////AからBへ移動後のAにおけるSEIRの数,AからBへ移動後のBにおけるSEIRの数
} }
else {
for (i=0;i<=3;i++) {
a[i]=a[i]-da[i]; ////BからAへの移動後のAにおけるSEIRの数
b[i]=b[i]+db[i]; ////BからAへの移動後のBにおけるSEIRの数
}
printf("%f,%f,%f,%f,%f,%f,%f,%f,%f,%f\n",t1+0.1,a[0],a[1],a[2],a[3],b[0],b[1],b[2],b[3],a[0]+a[1]+a[2]+a[3]+b[0]+b[1]+b[2]+b[3]);
}
return 0;
}

double f1(double t1,double a[0],double a[1],double a[2],double a[3])
{
double r;
r=-bet*a[0]*a[2];
return r;
}
double f2(double t1,double a[0],double a[1],double a[2],double a[3])
{
double r;
r=bet*a[0]*a[2]-alf*a[1];
return r;
}
double f3(double t1,double a[0],double a[1],double a[2],double a[3])
{
double r;
r=alf*a[1]-gam*a[2];
return r;
}
double f4(double t1,double a[0],double a[1],double a[2],double a[3])
{
double r;
r=gam*a[2];
return r;
}
double g1(double t1,double b[0],double b[1],double b[2],double b[3])
{
double r;
r=-bet*b[0]*b[2];
return r;
}
double g2(double t1,double b[0],double b[1],double b[2],double b[3])
{
double r;
r=bet*b[0]*b[2]-alf*b[1];
return r;
}
double g3(double t1,double b[0],double b[1],double b[2],double b[3])
{
double r;
r=alf*b[1]-gam*b[2];
return r;
}
double g4(double t1,double b[0],double b[1],double b[2],double b[3])
{
double r;
r=gam*b[2];
return r;
}

回答No.2

f272 · ベストアンサー

宣言部
double f1(double t1,double a0,double a1,double a2,double a3);
定義部
double f1(double t1,double a0,double a1,double a2,double a3)
{
double r;
r=-bet*a0*a2;
return r;
}
のように別々の変数にしてください。他の関数も同様です。
もちろん
double f1(double t1,double a[]);
のようにする事もできますが、その場合には関数を使用するところ
for (i=0;i<4;i++) k2[i]=dt*pf[i](t1+dt/2.0,a[0]+k1[0]/2.0,a[1]+k1[1]/2.0,a[2]+k1[2]/2.0,a[3]+k1[3]/2.0);
を書き換える必要があり、面倒です。

お礼

いつもありがとうございます。
ご指摘から、なんとかエラー表示は消えたのですが、
出力結果がおかしく、それに関して新しく質問させていただきますのでぜひご回答ください。
よろしくおねがいします。

回答No.3

wormhole

>原因と改良すべき点をご教示お願いします。

原因はC言語の基礎の勉強不足です。
double f1(double t1,double a[0],double a[1],double a[2],double a[3])
の「double a[0],double a[1],double a[2],double a[3]」は、どういう意図で書かれてるんでしょうか。

>字数制限でエラー内容は書けませんがご希望があれば補足いたします。

エラーメッセージ部分だけ抜き出して書くということはできないんですか？

お礼

おっしゃるとおりCを初めて2ヶ月ほどで勉強不足です。
他の方のご指摘から、なんとかエラー表示は消えたのですが、
出力結果がおかしく、それに関して新しく質問させていただきますのでぜひご回答ください。
よろしくおねがいします。

回答No.1

trapezium

a.c:7:40: error: redefinition of parameter ‘a’
double f1(double t1,double a[0],double a[1],double a[2],double a[3]);
^
仮引数の変数名 `a' が重複してます。しかも a[0] てなんですか？
関数の実体を見るに

double f1(double t1,double a[]);

としたいのでは無いですか？
今一なにをやりたいのか判然としませんが。

お礼

関数の宣言に関して勘違いをしておりました。
他の方のご指摘から、なんとかエラー表示は消えたのですが、
出力結果がおかしく、それに関して新しく質問させていただきますのでぜひご回答ください。
よろしくおねがいします。