410.txt

This complete matlab for neural network

发信人: yaomc (白头翁&山东大汉), 信区: DataMining
标  题: [合集]Help: Transofrom the C code to BASIC code.
发信站: 南京大学小百合站 (Wed Jan 16 08:57:23 2002), 站内信件

yaomc (白头翁&山东大汉) 于Mon Dec 17 13:26:03 2001提到：

Please help a friend to transform the C code produced by DISCIPULUS2.0 to 
BASIC code.

The codes are:

float DiscCFunction(float v[])
{
  double f[8];
  double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  L0: f[0]+=v[2];
  L1: f[1]*=f[0];
  L2: f[0]+=v[1];
  L3: f[1]-=f[0];
  L4: f[0]+=v[2];
  L5: f[0]=sqrt(f[0]);
  L6: f[0]/=v[1];
  L7: tmp=f[1]; f[1]=f[0]; f[0]=tmp;   ====?·?÷òa2??÷??′|
  L8: f[0]=-f[0];
  L9: f[1]-=f[0];
  L10: f[0]+=f[0];
  L11: f[1]+=f[0];
  L12: f[0]+=v[1];
  L13: f[0]+=f[0];
  L14: f[0]*=v[1];
  L15: f[0]/=f[1];
  L16: f[0]-=f[1];
  L17: f[0]+=f[0];
  L18: f[0]/=v[2];
  L19: f[0]*=v[1];
  L20: f[0]-=f[1];
  L21: f[0]=fabs(f[0]);
  L22: f[0]/=f[1];
  L23: f[0]-=0.5;
  L24: f[1]-=f[0];
  L25: f[0]+=f[0];
  L26: f[1]+=f[0];
  L27: f[0]+=v[0];
  L28: f[0]*=f[1];
  L29: f[0]/=f[1];
  L30: f[0]/=f[1];
  L31: tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L32: f[0]+=f[0];
  L33: f[0]-=1;
  L34: f[0]*=v[1];
  L35: f[1]-=f[0];
  L36: f[0]/=v[0];
  L37: f[0]=fabs(f[0]);
  L38: f[0]*=f[0];
  L39: f[0]=sqrt(f[0]);
  L40: f[0]/=v[0];
  L41: f[0]/=v[0];
  L42: f[0]*=v[1];
  L43: f[0]*=f[1];
  L44: f[0]*=f[0];
  L45: f[0]*=f[0];
  L46: f[1]-=f[0];
  L47: f[1]-=f[0];
  L48: f[0]+=f[0];
  L49: f[1]-=f[0];
  L50: f[0]*=f[1];
  L51: f[0]*=f[0];
  L52: f[0]*=f[0];
  L53: f[1]-=f[0];
  L54: f[0]+=f[0];
  L55: f[0]*=f[0];
  L56: f[0]=-f[0];
  L57: f[0]+=f[0];
  L58: f[0]+=f[0];
  L59: f[0]-=f[1];
  L60: f[1]/=f[0];
  L61: f[0]/=f[1];
  L62: tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L63: f[0]*=f[0];
  L64: f[1]/=f[0];
  L65: f[0]/=v[1];
  L66: tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L67: f[0]*=0.5;
  L68:

  if (!_finite(f[0])) f[0]=0;   ==== 主要不明之处。

  return f[0];
}

Thanks.

fervvac (高远) 于Mon Dec 17 13:43:31 2001提到：

If you are going to use that routine in VB, you can simple make a DLL from
the C code and call that DLL from VB. As such, you get the efficiency as 
well as energy saving, :-)



yaomc (白头翁&山东大汉) 于Mon Dec 17 15:36:16 2001提到：

The person who asked this question is not me, I have transferred your 
suggestion to him. Thanks.