Un file si compila (ambiente Cygwin), l'altro no, dandomi una sequela di "subscripted value is neither array nor pointer".
Tra i due file mi pare che l'unica differenza sia che, in quello che non va, DiscipulusCFunction richiama DiscipulusCFunctionSubC0 /1/2 etc...
Al di là di questa differenza non vedo altro.
Grazie
FILE CHE VA:
#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);
}
FILE CHE NON VA:
#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);
}