Thread: subscripted value is neither array nor pointer: 2 files

  1. #1
    Registered User
    Join Date
    May 2011
    Posts
    1

    subscripted value is neither array nor pointer: 2 files

    2 files very similar: the first works; the second give me a lot of "subscripted value is neither array nor pointer".

    The only fidderence I see is that in the second one
    DiscipulusCFunction calls DiscipulusCFunctionSubC0 /1/2 etc...

    Thanks

    THIS WORKS:
    Code:
    #include "math.h"
       #include "stdlib.h"
       #include "stdio.h"
       #include "string.h"
       #include "ctype.h"
       #include <float.h>
    
       #define TRUNC(x)(((x)>=0) ? floor(x) : ceil(x))
       #define C_FPREM (_finite(f[0]/f[1]) ? f[0]-(TRUNC(f[0]/f[1])*f[1]) : f[0]/f[1])
       #define C_F2XM1 (((fabs(f[0])<=1) && (!_isnan(f[0]))) ? (pow(2,f[0])-1) : ((!_finite(f[0]) && !_isnan(f[0]) && (f[0]<0)) ? -1 : f[0]))
    
       #define MAXLINE 100
    
       #define inputs     47
       #define hidden     13
       #define outputs    1
    
    
    float DiscipulusCFunction(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double Input000=v[0] ; 
      double Input001=v[1] ; 
      double Input002=v[2] ; 
      double Input003=v[3] ; 
      double Input004=v[4] ; 
      double Input005=v[5] ; 
      double Input006=v[6] ; 
      double Input007=v[7] ; 
      double Input008=v[8] ; 
      double Input009=v[9] ; 
      double Input010=v[10] ; 
      double Input011=v[11] ; 
      double Input012=v[12] ; 
      double Input013=v[13] ; 
      double Input014=v[14] ; 
      double Input015=v[15] ; 
      double Input016=v[16] ;
      double Input017=v[17] ; 
      double Input018=v[18] ; 
      double Input019=v[19] ; 
      double Input020=v[20] ; 
      double Input021=v[21] ; 
      double Input022=v[22] ; 
      double Input023=v[23] ; 
      double Input024=v[24] ; 
      double Input025=v[25] ;
      double Input026=v[26] ; 
      double Input027=v[27] ; 
      double Input028=v[28] ; 
      double Input029=v[29] ; 
      double Input030=v[30] ; 
      double Input031=v[31] ; 
      double Input032=v[32] ; 
      double Input033=v[33] ;
      double Input034=v[34] ;
      double Input035=v[35] ;
      double Input036=v[36] ; 
      double Input037=v[37] ; 
      double Input038=v[38] ; 
      double Input039=v[39] ; 
      double Input040=v[40] ;
      double Input041=v[41] ; 
      double Input042=v[42] ; 
      double Input043=v[43] ; 
      double Input044=v[44] ; 
      double Input045=v[45] ; 
      double Input046=v[46] ; 
    
      L0:   f[0]=cos(f[0]);
      L1:   f[0]=cos(f[0]);
      L2:   f[0]=sqrt(f[0]);
      L3:   f[0]=-f[0];
      L4:   f[0]*=Input005;
      L5:   f[1]+=f[0];
      L6:   f[0]=sin(f[0]);
      L7:   f[0]=cos(f[0]);
      L8:   f[0]=cos(f[0]);
      L9:   f[0]*=Input005;
      L10:   f[0]*=Input045;
      L11:   f[1]/=f[0];
      L12:   f[1]/=f[0];
      L13:   if (!cflag) f[0] = f[1];
      L14:
    
      if (!_finite(f[0])) f[0]=0;
    
      return f[0];
    }
    
    
    float DiscipulusCRegressionFunction(float  v [])
    {
       float ret = DiscipulusCFunction(v) ;
       return ret;
    }
    
    
       main(argc,argv)
       int argc;
       char *argv[];
       {
         if (argc != 3)
         {
         printf("Syntax:  input_file  output_file\n");
         exit(1);
         }
        register i;
        double inp;
    
        double v[inputs];
        double f[outputs];
    
        FILE *II;
        FILE *OO;
        char line[MAXLINE];
    
        II=fopen(argv[1], "r");
        OO=fopen(argv[2], "w");
    
      while(fgets(line, MAXLINE, II)) {
    
        if (!( isascii(line[0]) )) break;
    
        for (i = 0; i < inputs; i++)
         {
          sscanf(line, "%lf", &inp);
          v[i] = inp;
         }
    
        for (i = 0; i < outputs; i++)
           {
           fprintf(OO, "%.3lf ", f[i]);
           }
    
        fprintf(OO, "\n");
    
        }
    
        fclose(II);
        fclose(OO);
        }
    THIS NOT:
    Code:
       #include "math.h"
       #include "stdlib.h"
       #include "stdio.h"
       #include "string.h"
       #include "ctype.h"
       #include <float.h>
    
       #define TRUNC(x)(((x)>=0) ? floor(x) : ceil(x))
       #define C_FPREM (_finite(f[0]/f[1]) ? f[0]-(TRUNC(f[0]/f[1])*f[1]) : f[0]/f[1])
       #define C_F2XM1 (((fabs(f[0])<=1) && (!_isnan(f[0]))) ? (pow(2,f[0])-1) : ((!_finite(f[0]) && !_isnan(f[0]) && (f[0]<0)) ? -1 : f[0]))
    
       #define inputs     36
       #define hidden     13
       #define outputs    1
    
       #define MAXLINE 100
    
       typedef enum {false = 0, true = 1} boolean;
    
    float DiscipulusCFunctionSubC0(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ;
      double high=v[1] ;
      double low=v[2] ;
      double close=v[3] ;
      double volume=v[4] ;
      double q=v[5] ;
      double w=v[6] ;
      double e=v[7] ;
      double r=v[8] ;
      double t=v[9] ;
      double y=v[10] ;
      double u=v[11] ;
      double i=v[12] ;
      double o=v[13] ;
      double p=v[14] ;
      double a=v[15] ;
      double s=v[16] ;
      double d=v[17] ;
      double f=v[18] ;
      double g=v[19] ;
      double h=v[20] ;
      double j=v[21] ;
      double k=v[22] ;
      double l=v[23] ;
      double z=v[24] ;
      double x=v[25] ;
      double c=v[26] ;
      double v=v[27] ;
      double b=v[28] ;
      double n=v[29] ;
      double m=v[30] ;
      double qq=v[31] ;
      double ww=v[32] ;
      double ee=v[33] ;
      double rr=v[34] ;
      double tt=v[35] ;
    
      L0:	f[1]*=f[0];
      L1:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L2:	f[0]-=d;
      L3:	if (cflag) f[0] = f[0];
      L4:	f[1]*=f[0];
      L5:	f[0]=fabs(f[0]);
      L6:	f[0]=-f[0];
      L7:	f[0]/=x;
      L8:	f[0]=fabs(f[0]);
      L9:	f[1]+=f[0];
      L10:	f[0]/=0.7233922481536865f;
      L11:	f[0]-=d;
      L12:	f[0]+=x;
      L13:	f[0]=fabs(f[0]);
      L14:	f[0]/=b;
      L15:	f[1]/=f[0];
      L16:	f[1]/=f[0];
      L17:	f[0]=sqrt(f[0]);
      L18:	f[1]/=f[0];
      L19:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L20:	f[0]/=f[0];
      L21:	f[0]*=1.501374244689941f;
      L22:	if (cflag) f[0] = f[1];
      L23:	if (cflag) f[0] = f[1];
      L24:	f[0]=sqrt(f[0]);
      L25:	if (cflag) f[0] = f[0];
      L26:	f[0]-=p;
      L27:	f[0]+=f[0];
      L28:	f[0]*=low;
      L29:	f[0]=fabs(f[0]);
      L30:	f[0]*=pow(2,TRUNC(f[1]));
      L31:	f[0]-=q;
      L32:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L33:	f[0]-=d;
      L34:	f[0]+=f[0];
      L35:	f[0]*=pow(2,TRUNC(f[1]));
      L36:	f[0]+=f[0];
      L37:	f[0]=-f[0];
      L38:	f[0]/=0.6342074871063232f;
      L39:	f[0]/=0.6342074871063232f;
      L40:	f[0]+=e;
      L41:	f[0]+=t;
      L42:	f[0]+=u;
      L43:	f[0]=fabs(f[0]);
      L44:	f[0]/=x;
      L45:	f[0]/=c;
      L46:	f[0]+=t;
      L47:	f[0]*=b;
      L48:	if (!cflag) f[0] = f[0];
      L49:	f[0]/=c;
      L50:	f[0]+=w;
      L51:	f[0]/=c;
      L52:	f[0]*=v;
      L53:	f[0]/=c;
      L54:	f[0]*=v;
      L55:	f[0]/=c;
      L56:	f[0]*=v;
      L57:	f[0]=sin(f[0]);
      L58:	f[0]/=x;
      L59:	f[0]*=v;
      L60:	f[0]*=v;
      L61:	f[0]+=0.1058487892150879f;
      L62:	f[0]-=a;
      L63:	f[0]+=q;
      L64:	f[0]/=1.530829906463623f;
      L65:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC1(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ;
      double high=v[1] ; 
      double low=v[2] ; 
      double close=v[3] ;
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ; 
      double u=v[11] ; 
      double i=v[12] ; 
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ;
      double k=v[22] ; 
      double l=v[23] ;
      double z=v[24] ; 
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ;
      double ww=v[32] ; 
      double ee=v[33] ; 
      double rr=v[34] ; 
      double tt=v[35] ; 
    
      L0:	if (!cflag) f[0] = f[1];
      L1:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L2:	f[0]-=f[1];
      L3:	f[1]-=f[0];
      L4:	f[0]+=f[0];
      L5:	f[0]*=pow(2,TRUNC(f[1]));
      L6:	f[0]=-f[0];
      L7:	f[1]/=f[0];
      L8:	if (cflag) f[0] = f[0];
      L9:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L10:	f[0]+=f[0];
      L11:	f[0]=sin(f[0]);
      L12:	f[0]-=z;
      L13:	f[0]=fabs(f[0]);
      L14:	if (!cflag) f[0] = f[0];
      L15:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L16:	f[0]-=f[0];
      L17:	f[0]=-f[0];
      L18:	f[0]=-f[0];
      L19:	f[0]=fabs(f[0]);
      L20:	f[0]=fabs(f[0]);
      L21:	f[0]+=f[1];
      L22:	f[0]=sqrt(f[0]);
      L23:	if (cflag) f[0] = f[1];
      L24:	if (!cflag) f[0] = f[1];
      L25:	f[0]-=0.2877938747406006f;
      L26:	f[0]-=f[1];
      L27:	f[0]/=f[0];
      L28:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L29:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L30:	f[1]+=f[0];
      L31:	f[0]*=1.530829906463623f;
      L32:	f[1]*=f[0];
      L33:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L34:	f[0]=sin(f[0]);
      L35:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L36:	f[0]=fabs(f[0]);
      L37:	f[0]*=pow(2,TRUNC(f[1]));
      L38:	f[0]-=t;
      L39:	f[1]+=f[0];
      L40:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L41:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L42:	f[0]-=f[0];
      L43:	if (cflag) f[0] = f[1];
      L44:	if (!cflag) f[0] = f[1];
      L45:	f[0]=cos(f[0]);
      L46:	f[0]*=f[1];
      L47:	f[0]=-f[0];
      L48:	f[0]*=f[0];
      L49:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L50:	f[0]-=f[1];
      L51:	f[0]-=f[0];
      L52:	f[0]+=i;
      L53:	f[0]*=f[1];
      L54:	f[0]-=-1.063283443450928f;
      L55:	f[0]=cos(f[0]);
      L56:	f[0]/=f[1];
      L57:	f[0]*=f[0];
      L58:	f[0]/=f[0];
      L59:	f[0]+=f[1];
      L60:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L61:	f[0]*=f[0];
      L62:	f[0]=-f[0];
      L63:	f[0]=cos(f[0]);
      L64:	f[0]+=f[0];
      L65:	f[1]+=f[0];
      L66:	f[1]+=f[0];
      L67:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L68:	if (!cflag) f[0] = f[1];
      L69:	f[0]=fabs(f[0]);
      L70:	f[0]*=f[0];
      L71:	f[0]-=f[0];
      L72:	f[0]+=f[1];
      L73:	f[0]=sqrt(f[0]);
      L74:	f[0]/=x;
      L75:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L76:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L77:	f[0]-=1.744837045669556f;
      L78:	f[0]=fabs(f[0]);
      L79:	f[1]+=f[0];
      L80:	f[0]+=f[0];
      L81:	if (cflag) f[0] = f[0];
      L82:	f[0]-=y;
      L83:	f[0]/=volume;
      L84:	if (cflag) f[0] = f[0];
      L85:	f[1]-=f[0];
      L86:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L87:	f[0]=fabs(f[0]);
      L88:	f[0]+=d;
      L89:	f[1]*=f[0];
      L90:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L91:	f[0]=fabs(f[0]);
      L92:	f[1]+=f[0];
      L93:	f[0]-=a;
      L94:	f[0]=fabs(f[0]);
      L95:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L96:	f[0]=sqrt(f[0]);
      L97:	f[0]=fabs(f[0]);
      L98:	f[0]-=f[1];
      L99:	f[0]+=0.1387641429901123f;
      L100:	f[0]/=c;
      L101:	f[0]+=e;
      L102:	f[0]/=-1.063283443450928f;
      L103:	f[0]+=e;
      L104:	f[0]*=b;
      L105:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L106:	f[0]=sin(f[0]);
      L107:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L108:	if (cflag) f[0] = f[1];
      L109:	f[0]=fabs(f[0]);
      L110:	f[0]-=u;
      L111:	f[0]=fabs(f[0]);
      L112:	f[0]-=u;
      L113:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L114:	f[0]-=f[1];
      L115:	f[1]-=f[0];
      L116:	f[0]*=f[1];
      L117:	f[0]=cos(f[0]);
      L118:	f[0]+=f[0];
      L119:	f[0]+=f[1];
      L120:	f[0]=sin(f[0]);
      L121:	f[0]*=pow(2,TRUNC(f[1]));
      L122:	f[0]=sqrt(f[0]);
      L123:	if (cflag) f[0] = f[0];
      L124:	f[0]=-f[0];
      L125:	f[0]*=k;
      L126:	f[0]=fabs(f[0]);
      L127:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L128:	f[0]=-f[0];
      L129:	f[0]/=-1.063283443450928f;
      L130:	if (cflag) f[0] = f[0];
      L131:	f[0]=sqrt(f[0]);
      L132:	f[0]+=f[0];
      L133:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L134:	f[0]=-f[0];
      L135:	f[0]=fabs(f[0]);
      L136:	f[0]=-f[0];
      L137:	f[0]+=f[1];
      L138:	f[0]*=f[0];
      L139:	f[0]+=f[1];
      L140:	f[0]=sqrt(f[0]);
      L141:	f[0]*=pow(2,TRUNC(f[1]));
      L142:	f[0]=fabs(f[0]);
      L143:	if (cflag) f[0] = f[0];
      L144:	f[0]=sin(f[0]);
      L145:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L146:	f[0]-=y;
      L147:	f[0]-=y;
      L148:	f[0]+=u;
      L149:	f[0]=fabs(f[0]);
      L150:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L151:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L152:	f[0]+=r;
      L153:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L154:	f[1]+=f[0];
      L155:	f[0]+=r;
      L156:	f[0]=fabs(f[0]);
      L157:	f[0]=sin(f[0]);
      L158:	f[0]+=r;
      L159:	f[0]+=r;
      L160:	f[0]+=f[0];
      L161:	f[0]*=f[0];
      L162:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC2(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ; 
      double low=v[2] ;
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ;
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ; 
      double u=v[11] ; 
      double i=v[12] ;
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ; 
      double k=v[22] ; 
      double l=v[23] ; 
      double z=v[24] ; 
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ; 
      double ww=v[32] ; 
      double ee=v[33] ;
      double rr=v[34] ; 
      double tt=v[35] ;
    
      L0:	f[0]*=1.048232078552246f;
      L1:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L2:	if (!cflag) f[0] = f[2];
      L3:	tmp=f[2]; f[2]=f[0]; f[0]=tmp;
      L4:	f[0]/=-1.364008665084839f;
      L5:	f[0]-=1.048232078552246f;
      L6:	f[3]-=f[0];
      L7:	f[0]*=pow(2,TRUNC(f[1]));
      L8:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L9:	f[0]+=1.744837045669556f;
      L10:	if (cflag) f[0] = f[3];
      L11:	f[1]/=f[0];
      L12:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L13:	f[0]*=f[1];
      L14:	f[0]*=f[2];
      L15:	f[0]+=m;
      L16:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L17:	f[0]/=f[0];
      L18:	f[0]-=f[2];
      L19:	f[0]-=f[1];
      L20:	f[0]*=b;
      L21:	f[0]+=q;
      L22:	if (cflag) f[0] = f[3];
      L23:	f[0]*=pow(2,TRUNC(f[1]));
      L24:	f[0]+=t;
      L25:	f[0]+=t;
      L26:	f[0]=fabs(f[0]);
      L27:	f[0]*=pow(2,TRUNC(f[1]));
      L28:	f[0]-=k;
      L29:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L30:	f[0]*=f[1];
      L31:	f[0]=sqrt(f[0]);
      L32:	f[0]-=f[3];
      L33:	f[0]*=f[0];
      L34:	f[0]=fabs(f[0]);
      L35:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L36:	f[0]*=rr;
      L37:	if (cflag) f[0] = f[0];
      L38:	if (!cflag) f[0] = f[1];
      L39:	f[0]+=i;
      L40:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L41:	f[3]/=f[0];
      L42:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L43:	if (!cflag) f[0] = f[1];
      L44:	if (!cflag) f[0] = f[0];
      L45:	f[0]*=f[1];
      L46:	f[3]-=f[0];
      L47:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L48:	f[0]*=f[2];
      L49:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L50:	f[0]+=0.1058487892150879f;
      L51:	f[0]=fabs(f[0]);
      L52:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L53:	f[2]*=f[0];
      L54:	f[2]*=f[0];
      L55:	f[0]*=f[0];
      L56:	if (!cflag) f[0] = f[3];
      L57:	f[0]=fabs(f[0]);
      L58:	f[0]+=f[1];
      L59:	f[0]+=q;
      L60:	f[0]+=f[3];
      L61:	f[0]-=l;
      L62:	f[0]-=w;
      L63:	f[0]=fabs(f[0]);
      L64:	f[0]*=pow(2,TRUNC(f[1]));
      L65:	f[0]/=f[3];
      L66:	f[0]=cos(f[0]);
      L67:	if (!cflag) f[0] = f[3];
      L68:	f[0]-=i;
      L69:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L70:	f[0]=fabs(f[0]);
      L71:	f[0]=sin(f[0]);
      L72:	f[0]+=0.1058487892150879f;
      L73:	f[0]+=close;
      L74:	f[0]-=l;
      L75:	f[0]+=q;
      L76:	f[0]+=q;
      L77:	f[0]*=0.6342074871063232f;
      L78:	f[0]+=close;
      L79:	f[0]-=l;
      L80:	f[1]-=f[0];
      L81:	f[2]*=f[0];
      L82:	f[0]=fabs(f[0]);
      L83:	f[0]*=pow(2,TRUNC(f[1]));
      L84:	f[0]+=t;
      L85:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L86:	f[0]+=close;
      L87:	f[0]-=low;
      L88:	f[0]+=i;
      L89:	f[1]+=f[0];
      L90:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L91:	f[0]=fabs(f[0]);
      L92:	f[1]*=f[0];
      L93:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L94:	f[0]*=pow(2,TRUNC(f[1]));
      L95:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC3(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ; 
      double low=v[2] ; 
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ; 
      double u=v[11] ; 
      double i=v[12] ; 
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ; 
      double k=v[22] ;
      double l=v[23] ; 
      double z=v[24] ;
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ;
      double ww=v[32] ;
      double ee=v[33] ; 
      double rr=v[34] ; 
      double tt=v[35] ; 
    
      L0:	f[0]+=y;
      L1:	f[0]+=f[1];
      L2:	if (cflag) f[0] = f[1];
      L3:	f[1]+=f[0];
      L4:	f[0]-=r;
      L5:	f[0]*=rr;
      L6:	f[0]-=f[0];
      L7:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L8:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L9:	f[0]-=e;
      L10:	f[0]-=-1.364008665084839f;
      L11:	f[0]/=b;
      L12:	f[0]=fabs(f[0]);
      L13:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L14:	f[0]=fabs(f[0]);
      L15:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L16:	f[0]-=1.530829906463623f;
      L17:	f[0]-=-1.238061666488648f;
      L18:	f[0]-=1.530829906463623f;
      L19:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L20:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L21:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L22:	f[0]*=f[0];
      L23:	f[0]*=f[0];
      L24:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L25:	f[0]-=0.1756083965301514f;
      L26:	f[0]/=m;
      L27:	f[0]*=v;
      L28:	f[0]=sqrt(f[0]);
      L29:	f[0]=-f[0];
      L30:	f[1]-=f[0];
      L31:	f[1]+=f[0];
      L32:	f[0]/=f[0];
      L33:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L34:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L35:	f[0]*=h;
      L36:	f[0]-=0.1387641429901123f;
      L37:	f[0]+=k;
      L38:	f[0]+=f[0];
      L39:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L40:	f[0]/=f[1];
      L41:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L42:	f[0]/=f[0];
      L43:	f[0]+=0.1387641429901123f;
      L44:	f[0]-=f[1];
      L45:	f[0]+=f[1];
      L46:	f[0]*=h;
      L47:	f[0]+=f[0];
      L48:	f[0]=sin(f[0]);
      L49:	f[0]/=b;
      L50:	f[1]+=f[0];
      L51:	f[0]-=f[1];
      L52:	if (!cflag) f[0] = f[0];
      L53:	f[0]/=f[1];
      L54:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L55:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L56:	f[0]/=m;
      L57:	f[0]-=d;
      L58:	f[0]*=rr;
      L59:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L60:	f[0]+=r;
      L61:	f[0]*=b;
      L62:	f[0]-=1.530829906463623f;
      L63:	f[0]-=h;
      L64:	f[0]/=b;
      L65:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L66:	f[0]-=l;
      L67:	f[0]/=b;
      L68:	f[0]*=0.6342074871063232f;
      L69:	f[0]*=h;
      L70:	f[0]*=f[0];
      L71:	f[0]/=b;
      L72:	f[0]*=0.6342074871063232f;
      L73:	f[0]/=b;
      L74:	f[0]+=-1.063283443450928f;
      L75:	f[1]*=f[0];
      L76:	f[1]-=f[0];
      L77:	f[1]-=f[0];
      L78:	f[0]+=-1.063283443450928f;
      L79:	f[0]-=open;
      L80:	f[0]-=-1.907608032226563f;
      L81:	f[0]*=pow(2,TRUNC(f[1]));
      L82:	f[0]=-f[0];
      L83:	f[0]-=f[1];
      L84:	f[1]/=f[0];
      L85:	f[0]-=f[0];
      L86:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L87:	f[0]*=f[1];
      L88:	f[0]+=f[0];
      L89:	if (cflag) f[0] = f[1];
      L90:	f[1]+=f[0];
      L91:	f[0]-=1.744837045669556f;
      L92:	f[0]*=pow(2,TRUNC(f[1]));
      L93:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L94:	f[0]=sin(f[0]);
      L95:	f[0]*=f[0];
      L96:	f[0]+=ee;
      L97:	f[0]+=f[1];
      L98:	f[0]*=f[0];
      L99:	f[0]*=f[0];
      L100:	f[0]/=f[0];
      L101:	f[0]-=h;
      L102:	f[0]*=f[1];
      L103:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L104:	f[0]-=f[1];
      L105:	f[1]-=f[0];
      L106:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L107:	f[0]+=-1.238061666488648f;
      L108:	f[0]-=0.1756083965301514f;
      L109:	f[0]-=c;
      L110:	f[0]/=0.9177978038787842f;
      L111:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L112:	if (cflag) f[0] = f[0];
      L113:	f[0]/=g;
      L114:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L115:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L116:	f[0]*=h;
      L117:	if (!cflag) f[0] = f[0];
      L118:	f[0]*=1.501374244689941f;
      L119:	f[0]-=h;
      L120:	f[0]/=b;
      L121:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L122:	f[0]-=h;
      L123:	f[0]/=b;
      L124:	f[0]-=0.1756083965301514f;
      L125:	f[0]+=r;
      L126:	f[0]/=k;
      L127:	f[0]*=open;
      L128:	f[0]+=1.744837045669556f;
      L129:	f[0]+=r;
      L130:	f[0]+=r;
      L131:	f[0]+=l;
      L132:	f[0]+=1.744837045669556f;
      L133:	if (cflag) f[0] = f[0];
      L134:	f[0]*=b;
      L135:	f[0]/=m;
      L136:	f[0]-=d;
      L137:	f[0]*=rr;
      L138:	f[0]+=0.1058487892150879f;
      L139:	f[0]/=1.248895406723023f;
      L140:	f[0]+=r;
      L141:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC4(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ; 
      double low=v[2] ; 
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ;
      double u=v[11] ;
      double i=v[12] ;
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ;
      double j=v[21] ; 
      double k=v[22] ; 
      double l=v[23] ; 
      double z=v[24] ; 
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ; 
      double ww=v[32] ; 
      double ee=v[33] ; 
      double rr=v[34] ; 
      double tt=v[35] ; 
    
      L0:	f[0]*=1.048232078552246f;
      L1:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L2:	if (!cflag) f[0] = f[2];
      L3:	tmp=f[2]; f[2]=f[0]; f[0]=tmp;
      L4:	f[0]/=-1.364008665084839f;
      L5:	f[0]-=1.048232078552246f;
      L6:	f[3]-=f[0];
      L7:	f[0]*=pow(2,TRUNC(f[1]));
      L8:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L9:	f[0]+=1.744837045669556f;
      L10:	if (cflag) f[0] = f[3];
      L11:	f[1]/=f[0];
      L12:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L13:	f[0]*=f[1];
      L14:	f[0]*=f[2];
      L15:	f[0]+=m;
      L16:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L17:	f[0]/=f[0];
      L18:	f[0]-=f[2];
      L19:	f[0]-=f[1];
      L20:	f[0]*=b;
      L21:	f[0]+=q;
      L22:	if (cflag) f[0] = f[3];
      L23:	f[0]*=pow(2,TRUNC(f[1]));
      L24:	f[0]+=t;
      L25:	f[0]+=t;
      L26:	f[0]=fabs(f[0]);
      L27:	f[0]*=pow(2,TRUNC(f[1]));
      L28:	f[0]-=k;
      L29:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L30:	f[0]*=f[1];
      L31:	f[0]=sqrt(f[0]);
      L32:	f[0]-=f[3];
      L33:	f[0]*=f[0];
      L34:	f[0]=fabs(f[0]);
      L35:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L36:	f[0]*=rr;
      L37:	if (cflag) f[0] = f[0];
      L38:	if (!cflag) f[0] = f[1];
      L39:	f[0]+=i;
      L40:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L41:	f[3]/=f[0];
      L42:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L43:	if (!cflag) f[0] = f[1];
      L44:	if (!cflag) f[0] = f[0];
      L45:	f[0]*=f[1];
      L46:	f[3]-=f[0];
      L47:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L48:	f[0]*=f[2];
      L49:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L50:	f[0]+=0.1058487892150879f;
      L51:	f[0]=fabs(f[0]);
      L52:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L53:	f[2]*=f[0];
      L54:	f[2]*=f[0];
      L55:	f[0]*=f[0];
      L56:	if (!cflag) f[0] = f[3];
      L57:	f[0]=fabs(f[0]);
      L58:	f[0]+=f[1];
      L59:	f[0]+=q;
      L60:	f[0]+=f[3];
      L61:	f[0]-=l;
      L62:	f[0]-=w;
      L63:	f[0]=fabs(f[0]);
      L64:	f[0]*=pow(2,TRUNC(f[1]));
      L65:	f[0]/=f[3];
      L66:	f[0]=cos(f[0]);
      L67:	if (!cflag) f[0] = f[3];
      L68:	f[0]-=i;
      L69:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L70:	f[0]=fabs(f[0]);
      L71:	f[0]=sin(f[0]);
      L72:	f[0]+=0.1058487892150879f;
      L73:	f[0]+=close;
      L74:	f[0]-=l;
      L75:	f[0]+=q;
      L76:	f[0]+=q;
      L77:	f[0]*=0.6342074871063232f;
      L78:	f[0]+=close;
      L79:	f[0]-=l;
      L80:	f[1]-=f[0];
      L81:	f[2]*=f[0];
      L82:	f[0]=fabs(f[0]);
      L83:	f[0]*=pow(2,TRUNC(f[1]));
      L84:	f[0]+=t;
      L85:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L86:	f[0]+=close;
      L87:	f[0]-=low;
      L88:	f[0]+=i;
      L89:	f[1]+=f[0];
      L90:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L91:	f[0]=fabs(f[0]);
      L92:	f[1]*=f[0];
      L93:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L94:	f[0]*=pow(2,TRUNC(f[1]));
      L95:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC5(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ;
      double low=v[2] ; 
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ;
      double y=v[10] ; 
      double u=v[11] ; 
      double i=v[12] ; 
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ; 
      double k=v[22] ; 
      double l=v[23] ; 
      double z=v[24] ; 
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ; 
      double ww=v[32] ; 
      double ee=v[33] ; 
      double rr=v[34] ; 
      double tt=v[35] ; 
    
      L0:	if (!cflag) f[0] = f[1];
      L1:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L2:	f[0]-=f[1];
      L3:	f[1]-=f[0];
      L4:	f[0]+=f[0];
      L5:	f[0]*=pow(2,TRUNC(f[1]));
      L6:	f[0]=-f[0];
      L7:	f[1]/=f[0];
      L8:	if (cflag) f[0] = f[0];
      L9:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L10:	f[0]+=f[0];
      L11:	f[0]=sin(f[0]);
      L12:	f[0]-=z;
      L13:	f[0]=fabs(f[0]);
      L14:	if (!cflag) f[0] = f[0];
      L15:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L16:	f[0]-=f[0];
      L17:	f[0]=-f[0];
      L18:	f[0]=-f[0];
      L19:	f[0]=fabs(f[0]);
      L20:	f[0]=fabs(f[0]);
      L21:	f[0]+=f[1];
      L22:	f[0]=sqrt(f[0]);
      L23:	if (cflag) f[0] = f[1];
      L24:	if (!cflag) f[0] = f[1];
      L25:	f[0]-=0.2877938747406006f;
      L26:	f[0]-=f[1];
      L27:	f[0]/=f[0];
      L28:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L29:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L30:	f[1]+=f[0];
      L31:	f[0]*=1.530829906463623f;
      L32:	f[1]*=f[0];
      L33:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L34:	f[0]=sin(f[0]);
      L35:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L36:	f[0]=fabs(f[0]);
      L37:	f[0]*=pow(2,TRUNC(f[1]));
      L38:	f[0]-=t;
      L39:	f[1]+=f[0];
      L40:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L41:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L42:	f[0]-=f[0];
      L43:	if (cflag) f[0] = f[1];
      L44:	if (!cflag) f[0] = f[1];
      L45:	f[0]=cos(f[0]);
      L46:	f[0]*=f[1];
      L47:	f[0]=-f[0];
      L48:	f[0]*=f[0];
      L49:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L50:	f[0]-=f[1];
      L51:	f[0]-=f[0];
      L52:	f[0]+=i;
      L53:	f[0]*=f[1];
      L54:	f[0]-=-1.063283443450928f;
      L55:	f[0]=cos(f[0]);
      L56:	f[0]/=f[1];
      L57:	f[0]*=f[0];
      L58:	f[0]/=f[0];
      L59:	f[0]+=f[1];
      L60:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L61:	f[0]*=f[0];
      L62:	f[0]=-f[0];
      L63:	f[0]=cos(f[0]);
      L64:	f[0]+=f[0];
      L65:	f[1]+=f[0];
      L66:	f[1]+=f[0];
      L67:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L68:	if (!cflag) f[0] = f[1];
      L69:	f[0]=fabs(f[0]);
      L70:	f[0]*=f[0];
      L71:	f[0]-=f[0];
      L72:	f[0]+=f[1];
      L73:	f[0]=sqrt(f[0]);
      L74:	f[0]/=x;
      L75:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L76:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L77:	f[0]-=1.744837045669556f;
      L78:	f[0]=fabs(f[0]);
      L79:	f[1]+=f[0];
      L80:	f[0]+=f[0];
      L81:	if (cflag) f[0] = f[0];
      L82:	f[0]-=y;
      L83:	f[0]/=volume;
      L84:	if (cflag) f[0] = f[0];
      L85:	f[1]-=f[0];
      L86:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L87:	f[0]=fabs(f[0]);
      L88:	f[0]+=d;
      L89:	f[1]*=f[0];
      L90:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L91:	f[0]=fabs(f[0]);
      L92:	f[1]+=f[0];
      L93:	f[0]-=a;
      L94:	f[0]=fabs(f[0]);
      L95:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L96:	f[0]=sqrt(f[0]);
      L97:	f[0]=fabs(f[0]);
      L98:	f[0]-=f[1];
      L99:	f[0]+=0.1387641429901123f;
      L100:	f[0]/=c;
      L101:	f[0]+=e;
      L102:	f[0]/=-1.063283443450928f;
      L103:	f[0]+=e;
      L104:	f[0]*=b;
      L105:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L106:	f[0]=sin(f[0]);
      L107:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L108:	if (cflag) f[0] = f[1];
      L109:	f[0]=fabs(f[0]);
      L110:	f[0]-=u;
      L111:	f[0]=fabs(f[0]);
      L112:	f[0]-=u;
      L113:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L114:	f[0]-=f[1];
      L115:	f[1]-=f[0];
      L116:	f[0]*=f[1];
      L117:	f[0]=cos(f[0]);
      L118:	f[0]+=f[0];
      L119:	f[0]+=f[1];
      L120:	f[0]=sin(f[0]);
      L121:	f[0]*=pow(2,TRUNC(f[1]));
      L122:	f[0]=sqrt(f[0]);
      L123:	if (cflag) f[0] = f[0];
      L124:	f[0]=-f[0];
      L125:	f[0]*=k;
      L126:	f[0]=fabs(f[0]);
      L127:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L128:	f[0]=-f[0];
      L129:	f[0]/=-1.063283443450928f;
      L130:	if (cflag) f[0] = f[0];
      L131:	f[0]=sqrt(f[0]);
      L132:	f[0]+=f[0];
      L133:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L134:	f[0]=-f[0];
      L135:	f[0]=fabs(f[0]);
      L136:	f[0]=-f[0];
      L137:	f[0]+=f[1];
      L138:	f[0]*=f[0];
      L139:	f[0]+=f[1];
      L140:	f[0]=sqrt(f[0]);
      L141:	f[0]*=pow(2,TRUNC(f[1]));
      L142:	f[0]=fabs(f[0]);
      L143:	if (cflag) f[0] = f[0];
      L144:	f[0]=sin(f[0]);
      L145:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L146:	f[0]-=y;
      L147:	f[0]-=y;
      L148:	f[0]+=u;
      L149:	f[0]=fabs(f[0]);
      L150:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L151:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L152:	f[0]+=r;
      L153:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L154:	f[1]+=f[0];
      L155:	f[0]+=r;
      L156:	f[0]=fabs(f[0]);
      L157:	f[0]=sin(f[0]);
      L158:	f[0]+=r;
      L159:	f[0]+=r;
      L160:	f[0]+=f[0];
      L161:	f[0]*=f[0];
      L162:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC6(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ; 
      double low=v[2] ; 
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ; 
      double u=v[11] ;
      double i=v[12] ; 
      double o=v[13] ;
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ;
      double k=v[22] ; 
      double l=v[23] ; 
      double z=v[24] ; 
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ; 
      double ww=v[32] ; 
      double ee=v[33] ; 
      double rr=v[34] ; 
      double tt=v[35] ; 
    
      L0:	f[0]-=r;
      L1:	f[0]+=f[0];
      L2:	f[0]=fabs(f[0]);
      L3:	f[0]+=0.2877938747406006f;
      L4:	f[0]*=f[0];
      L5:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L6:	f[0]=cos(f[0]);
      L7:	f[0]/=open;
      L8:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L9:	f[2]-=f[0];
      L10:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L11:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L12:	tmp=f[2]; f[2]=f[0]; f[0]=tmp;
      L13:	f[0]=-f[0];
      L14:	f[0]-=f[3];
      L15:	f[0]*=0.9177978038787842f;
      L16:	f[0]=sqrt(f[0]);
      L17:	f[0]=fabs(f[0]);
      L18:	f[0]/=f[2];
      L19:	f[0]+=r;
      L20:	f[2]+=f[0];
      L21:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L22:	f[2]+=f[0];
      L23:	f[0]=fabs(f[0]);
      L24:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L25:	f[0]+=f[2];
      L26:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L27:	f[0]-=c;
      L28:	f[0]+=b;
      L29:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L30:	f[0]*=pow(2,TRUNC(f[1]));
      L31:	f[0]+=f[0];
      L32:	f[0]*=f[0];
      L33:	if (cflag) f[0] = f[2];
      L34:	f[3]+=f[0];
      L35:	f[0]=fabs(f[0]);
      L36:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L37:	f[0]-=f[2];
      L38:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L39:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L40:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L41:	f[2]-=f[0];
      L42:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L43:	f[0]-=p;
      L44:	f[0]+=f[0];
      L45:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L46:	f[0]/=g;
      L47:	f[0]/=v;
      L48:	f[0]=sin(f[0]);
      L49:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L50:	f[0]+=-0.494312047958374f;
      L51:	if (cflag) f[0] = f[2];
      L52:	f[0]=cos(f[0]);
      L53:	f[0]-=x;
      L54:	f[0]+=l;
      L55:	f[2]*=f[0];
      L56:	f[2]*=f[0];
      L57:	f[1]+=f[0];
      L58:	f[0]-=f[0];
      L59:	f[0]*=f[0];
      L60:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L61:	f[0]=sin(f[0]);
      L62:	f[0]*=0.9177978038787842f;
      L63:	f[0]=sqrt(f[0]);
      L64:	f[0]-=f[3];
      L65:	if (!cflag) f[0] = f[3];
      L66:	f[0]=fabs(f[0]);
      L67:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L68:	f[0]+=f[3];
      L69:	f[0]*=pow(2,TRUNC(f[1]));
      L70:	f[0]-=d;
      L71:	f[0]-=-1.360518217086792f;
      L72:	cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
      L73:	if (!cflag) f[0] = f[2];
      L74:	f[0]+=1.501374244689941f;
      L75:	f[0]=sqrt(f[0]);
      L76:	f[1]-=f[0];
      L77:	if (!cflag) f[0] = f[2];
      L78:	if (cflag) f[0] = f[2];
      L79:	f[1]*=f[0];
      L80:	tmp=f[2]; f[2]=f[0]; f[0]=tmp;
      L81:	f[0]=fabs(f[0]);
      L82:	f[0]-=f[2];
      L83:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L84:	f[2]+=f[0];
      L85:	tmp=f[3]; f[3]=f[0]; f[0]=tmp;
      L86:	f[0]-=o;
      L87:	f[0]*=-0.494312047958374f;
      L88:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L89:	f[0]=-f[0];
      L90:	f[0]+=f[3];
      L91:	f[0]*=f[0];
      L92:	f[0]=sin(f[0]);
      L93:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L94:	f[0]+=i;
      L95:	f[0]+=p;
      L96:	f[0]-=x;
      L97:	f[0]+=close;
      L98:	f[0]-=z;
      L99:	f[0]+=high;
      L100:	f[3]+=f[0];
      L101:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L102:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L103:	if (cflag) f[0] = f[2];
      L104:	f[0]-=l;
      L105:	f[0]+=close;
      L106:	f[0]-=l;
      L107:	f[0]+=close;
      L108:	f[0]*=pow(2,TRUNC(f[1]));
      L109:	f[0]=fabs(f[0]);
      L110:	f[0]-=j;
      L111:	f[0]+=low;
      L112:	f[0]=sin(f[0]);
      L113:	cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
      L114:	if (cflag) f[0] = f[2];
      L115:	f[0]=fabs(f[0]);
      L116:	f[0]-=l;
      L117:	f[0]+=close;
      L118:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC7(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ; 
      double low=v[2] ; 
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ; 
      double u=v[11] ; 
      double i=v[12] ; 
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ; 
      double k=v[22] ;
      double l=v[23] ; 
      double z=v[24] ;
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ; 
      double ww=v[32] ;
      double ee=v[33] ; 
      double rr=v[34] ; 
      double tt=v[35] ; 
    
      L0:	if (!cflag) f[0] = f[1];
      L1:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L2:	f[0]-=f[1];
      L3:	f[1]-=f[0];
      L4:	f[0]+=f[0];
      L5:	f[0]*=pow(2,TRUNC(f[1]));
      L6:	f[0]=-f[0];
      L7:	f[1]/=f[0];
      L8:	if (cflag) f[0] = f[0];
      L9:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L10:	f[0]+=f[0];
      L11:	f[0]=sin(f[0]);
      L12:	f[0]-=z;
      L13:	f[0]=fabs(f[0]);
      L14:	if (!cflag) f[0] = f[0];
      L15:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L16:	f[0]-=f[0];
      L17:	f[0]=-f[0];
      L18:	f[0]=-f[0];
      L19:	f[0]=fabs(f[0]);
      L20:	f[0]=fabs(f[0]);
      L21:	f[0]+=f[1];
      L22:	f[0]=sqrt(f[0]);
      L23:	if (cflag) f[0] = f[1];
      L24:	if (!cflag) f[0] = f[1];
      L25:	f[0]-=0.2877938747406006f;
      L26:	f[0]-=f[1];
      L27:	f[0]/=f[0];
      L28:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L29:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L30:	f[1]+=f[0];
      L31:	f[0]*=1.530829906463623f;
      L32:	f[1]*=f[0];
      L33:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L34:	f[0]=sin(f[0]);
      L35:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L36:	f[0]=fabs(f[0]);
      L37:	f[0]*=pow(2,TRUNC(f[1]));
      L38:	f[0]-=t;
      L39:	f[1]+=f[0];
      L40:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L41:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L42:	f[0]-=f[0];
      L43:	if (cflag) f[0] = f[1];
      L44:	if (!cflag) f[0] = f[1];
      L45:	f[0]=cos(f[0]);
      L46:	f[0]*=f[1];
      L47:	f[0]=-f[0];
      L48:	f[0]*=f[0];
      L49:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L50:	f[0]-=f[1];
      L51:	f[0]-=f[0];
      L52:	f[0]+=i;
      L53:	f[0]*=f[1];
      L54:	f[0]-=-1.063283443450928f;
      L55:	f[0]=cos(f[0]);
      L56:	f[0]/=f[1];
      L57:	f[0]*=f[0];
      L58:	f[0]/=f[0];
      L59:	f[0]+=f[1];
      L60:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L61:	f[0]*=f[0];
      L62:	f[0]=-f[0];
      L63:	f[0]=cos(f[0]);
      L64:	f[0]+=f[0];
      L65:	f[1]+=f[0];
      L66:	f[1]+=f[0];
      L67:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L68:	if (!cflag) f[0] = f[1];
      L69:	f[0]=fabs(f[0]);
      L70:	f[0]*=f[0];
      L71:	f[0]-=f[0];
      L72:	f[0]+=f[1];
      L73:	f[0]=sqrt(f[0]);
      L74:	f[0]/=x;
      L75:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L76:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L77:	f[0]-=1.744837045669556f;
      L78:	f[0]=fabs(f[0]);
      L79:	f[1]+=f[0];
      L80:	f[0]+=f[0];
      L81:	if (cflag) f[0] = f[0];
      L82:	f[0]-=y;
      L83:	f[0]/=volume;
      L84:	if (cflag) f[0] = f[0];
      L85:	f[1]-=f[0];
      L86:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L87:	f[0]=fabs(f[0]);
      L88:	f[0]+=d;
      L89:	f[1]*=f[0];
      L90:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L91:	f[0]=fabs(f[0]);
      L92:	f[1]+=f[0];
      L93:	f[0]-=a;
      L94:	f[0]=fabs(f[0]);
      L95:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L96:	f[0]=sqrt(f[0]);
      L97:	f[0]=fabs(f[0]);
      L98:	f[0]-=f[1];
      L99:	f[0]+=0.1387641429901123f;
      L100:	f[0]/=c;
      L101:	f[0]+=e;
      L102:	f[0]/=-1.063283443450928f;
      L103:	f[0]+=e;
      L104:	f[0]*=b;
      L105:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L106:	f[0]=sin(f[0]);
      L107:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L108:	if (cflag) f[0] = f[1];
      L109:	f[0]=fabs(f[0]);
      L110:	f[0]-=u;
      L111:	f[0]=fabs(f[0]);
      L112:	f[0]-=u;
      L113:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L114:	f[0]-=f[1];
      L115:	f[1]-=f[0];
      L116:	f[0]*=f[1];
      L117:	f[0]=cos(f[0]);
      L118:	f[0]+=f[0];
      L119:	f[0]+=f[1];
      L120:	f[0]=sin(f[0]);
      L121:	f[0]*=pow(2,TRUNC(f[1]));
      L122:	f[0]=sqrt(f[0]);
      L123:	if (cflag) f[0] = f[0];
      L124:	f[0]=-f[0];
      L125:	f[0]*=k;
      L126:	f[0]=fabs(f[0]);
      L127:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L128:	f[0]=-f[0];
      L129:	f[0]/=-1.063283443450928f;
      L130:	if (cflag) f[0] = f[0];
      L131:	f[0]=sqrt(f[0]);
      L132:	f[0]+=f[0];
      L133:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L134:	f[0]=-f[0];
      L135:	f[0]=fabs(f[0]);
      L136:	f[0]=-f[0];
      L137:	f[0]+=f[1];
      L138:	f[0]*=f[0];
      L139:	f[0]+=f[1];
      L140:	f[0]=sqrt(f[0]);
      L141:	f[0]*=pow(2,TRUNC(f[1]));
      L142:	f[0]=fabs(f[0]);
      L143:	if (cflag) f[0] = f[0];
      L144:	f[0]=sin(f[0]);
      L145:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L146:	f[0]-=y;
      L147:	f[0]-=y;
      L148:	f[0]+=u;
      L149:	f[0]=fabs(f[0]);
      L150:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L151:	tmp=f[0]; f[0]=f[0]; f[0]=tmp;
      L152:	f[0]+=r;
      L153:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L154:	f[1]+=f[0];
      L155:	f[0]+=r;
      L156:	f[0]=fabs(f[0]);
      L157:	f[0]=sin(f[0]);
      L158:	f[0]+=r;
      L159:	f[0]+=r;
      L160:	f[0]+=f[0];
      L161:	f[0]*=f[0];
      L162:
    
      return f[0];
    }
    
    
    float DiscipulusCFunctionSubC8(float v[])
    {
      long double f[8];
      long double tmp = 0;
      int cflag = 0;
    
      f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;
    
      double open=v[0] ; 
      double high=v[1] ;
      double low=v[2] ; 
      double close=v[3] ; 
      double volume=v[4] ; 
      double q=v[5] ; 
      double w=v[6] ; 
      double e=v[7] ; 
      double r=v[8] ; 
      double t=v[9] ; 
      double y=v[10] ; 
      double u=v[11] ; 
      double i=v[12] ; 
      double o=v[13] ; 
      double p=v[14] ; 
      double a=v[15] ; 
      double s=v[16] ; 
      double d=v[17] ; 
      double f=v[18] ; 
      double g=v[19] ; 
      double h=v[20] ; 
      double j=v[21] ; 
      double k=v[22] ; 
      double l=v[23] ; 
      double z=v[24] ; 
      double x=v[25] ; 
      double c=v[26] ; 
      double v=v[27] ; 
      double b=v[28] ; 
      double n=v[29] ; 
      double m=v[30] ; 
      double qq=v[31] ; 
      double ww=v[32] ; 
      double ee=v[33] ; 
      double rr=v[34] ;
      double tt=v[35] ; 
    
      L0:	f[0]*=y;
      L1:	f[0]-=f[1];
      L2:	f[0]=sin(f[0]);
      L3:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L4:	tmp=f[1]; f[1]=f[0]; f[0]=tmp;
      L5:	f[0]+=f[0];
      L6:	if (!cflag) f[0] = f[0];
      L7:	f[0]-=x;
      L8:	f[0]+=0.1058487892150879f;
      L9:	f[0]=cos(f[0]);
      L10:	f[0]-=-1.360518217086792f;
      L11:	f[1]*=f[0];
      L12:	f[1]+=f[0];
      L13:	f[0]*=f[0];
      L14:	f[0]*=pow(2,TRUNC(f[1]));
      L15:	f[0]*=d;
      L16:	f[0]+=0.1058487892150879f;
      L17:	f[0]-=-1.360518217086792f;
      L18:	f[0]*=b;
      L19:	f[0]*=f[1];
      L20:	f[1]*=f[0];
      L21:	f[0]=sqrt(f[0]);
      L22:	if (!cflag) f[0] = f[1];
      L23:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L24:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L25:	f[0]=sin(f[0]);
      L26:	if (cflag) f[0] = f[0];
      L27:	f[1]+=f[0];
      L28:	f[0]=fabs(f[0]);
      L29:	f[0]*=b;
      L30:	f[0]*=pow(2,TRUNC(f[1]));
      L31:	f[0]+=f[0];
      L32:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L33:	f[0]+=ee;
      L34:	f[0]*=-1.907608032226563f;
      L35:	f[1]/=f[0];
      L36:	cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
      L37:	f[0]*=1.252994060516357f;
      L38:	f[0]*=0.2877938747406006f;
      L39:	f[0]*=d;
      L40:	f[0]+=0.1058487892150879f;
      L41:	f[0]/=-1.238061666488648f;
      L42:	cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
      L43:	f[0]=sin(f[0]);
      L44:	if (cflag) f[0] = f[0];
      L45:	f[1]+=f[0];
      L46:	f[0]=fabs(f[0]);
      L47:
    
      return f[0];
    }
    
    
    float DiscipulusCFunction(float v[])
    {
    	float f[1];
    	float fltTmp;
    	long lngValidPredictions;
    
    	f[0]=0;
    	lngValidPredictions=0;
    
    	fltTmp=DiscipulusCFunctionSubC0(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC1(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC2(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC3(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC4(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC5(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC6(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC7(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	fltTmp=DiscipulusCFunctionSubC8(v);
    	if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
    	{
    		f[0]+=fltTmp;
    		++lngValidPredictions;
    	};
    	if (lngValidPredictions)
    	{
    		f[0]/=lngValidPredictions;
    	}
    	else
    	{
    		f[0]=0.000000;
    	}
    
      return f[0];
    }
    
    float DiscipulusCRegressionFunction(float  v [])
    {
       float ret = DiscipulusCFunction(v) ;
       return ret;
    }
    
    
       main(argc,argv)
       int argc;
       char *argv[];
       {
      	if (argc != 3)
      	{
      	printf("Syntax:  input_file  output_file\n");
      	exit(1);
      	}
        register i;
        double inp;
    
        double v[inputs];
        double f[outputs];
    
        FILE *II;
        FILE *OO;
        char line[MAXLINE];
    
        II=fopen(argv[1], "r");
        OO=fopen(argv[2], "w");
    
      while(fgets(line, MAXLINE, II)) {
    
        if (!( isascii(line[0]) )) break;
    
        for (i = 0; i < inputs; i++)
         {
          sscanf(line, "%lf", &inp);
          v[i] = inp;
         }
    
        for (i = 0; i < outputs; i++)
           {
           fprintf(OO, "%.3lf ", f[i]);
           }
    
        fprintf(OO, "\n");
    
        }
    
        fclose(II);
        fclose(OO);
        }
    Last edited by Salem; 05-26-2011 at 11:30 PM. Reason: tag fixing

  2. #2
    and the Hat of Guessing tabstop's Avatar
    Join Date
    Nov 2007
    Posts
    14,336
    If you're going to post a thousand lines of code, you need to tell us where all these error messages you claim you are getting come from.

  3. #3
    and the hat of int overfl Salem's Avatar
    Join Date
    Aug 2001
    Location
    The edge of the known universe
    Posts
    39,660
    Perhaps you should have tried compiling it when the code was a lot smaller, before digging such a large hole for yourself.

    And WTF are all those labels for?
    If you dance barefoot on the broken glass of undefined behaviour, you've got to expect the occasional cut.
    If at first you don't succeed, try writing your phone number on the exam paper.

  4. #4
    Banned
    Join Date
    Aug 2010
    Location
    Ontario Canada
    Posts
    9,547
    Ok, this is going to sound harsh... but you really need to open a C language textbook and start reading.

    What you have there is .... well... it's never going to work.

    You don't even have your main function constructed properly.
    You redefine argv preventing you from using it for command line inputs
    You never call any of those ridiculously long functions you wrote.
    You are reading and writing unopened files that won't open no matter what you type on the command line.


    Anyway... I trust you get the point.

  5. #5
    and the Hat of Guessing tabstop's Avatar
    Join Date
    Nov 2007
    Posts
    14,336
    Quote Originally Posted by CommonTater View Post
    You don't even have your main function constructed properly.
    You redefine argv preventing you from using it for command line inputs
    This is the original C method for defining a function, which is still accepted in C because the committee is a bunch of packrats that doesn't throw anything away. Plus: "register"!
    Quote Originally Posted by CommonTater View Post
    You never call any of those ridiculously long functions you wrote.
    This is true, though that doesn't affect whether or not the thing will compile.

  6. #6
    Banned
    Join Date
    Aug 2010
    Location
    Ontario Canada
    Posts
    9,547
    Quote Originally Posted by tabstop View Post
    This is the original C method for defining a function, which is still accepted in C because the committee is a bunch of packrats that doesn't throw anything away. Plus: "register"!

    This is true, though that doesn't affect whether or not the thing will compile.
    Yes, I knew that... in fact that's why I suggested the textbook... to get up to date...

  7. #7
    ATH0 quzah's Avatar
    Join Date
    Oct 2001
    Posts
    14,826
    I like how he made a huge list of variables by walking across the keyboard: qwerty instead of just typing the alphabet. (Or just using a 2D array.)
    Quote Originally Posted by Salem View Post
    And WTF are all those labels for?
    Maybe he thinks they're line numbers. Or he heard goto was bad, but not labels!


    Quzah.
    Hope is the first step on the road to disappointment.

Popular pages Recent additions subscribe to a feed

Similar Threads

  1. Replies: 1
    Last Post: 05-08-2010, 10:03 PM
  2. double subscripted array
    By newcuser in forum C Programming
    Replies: 2
    Last Post: 02-13-2010, 11:59 PM
  3. Replies: 9
    Last Post: 03-16-2009, 02:18 AM
  4. Replies: 1
    Last Post: 03-24-2008, 10:16 AM
  5. subscripted value is neither array nor pointer
    By new_to_c in forum C Programming
    Replies: 8
    Last Post: 04-01-2007, 02:43 PM