test.bak

来自「其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載」· BAK 代码 · 共 20 行

/* A program to test
   Neural control algorithm. test.c
   PenChen Chou, July 27, 2001        */
#include <stdio.h>
extern float neural(float, float);
int main()
{
   float ek[]={1,0.9,0.8,0.7,0.6,0.5,0.4,0.3,0.2,0.1,0,0}, dek, ekm1=0, uk;
   int i;
   clrscr();
   /* Assign input   */
   for (i=0; i<=1; i++)
   {
      dek=ek[i]-ekm1;
      uk=neural(ek[i],dek);
      printf("ek=%8.4f,dek=%8.4f,uk=%8.4f\n",ek[i],dek,uk);
      ekm1=ek[i];
  }
   return 0;
}