커뮤니티
수정 부탁합니다
2014-09-20 17:06:08
129
글번호 78704
아래 수식을 종목검색식으로 바꾸지 못해 수정 부탁합니다
Input:Length(100);
Var:j(0),x1(0),x2(0);
Array:∑x1[2](0),∑xx1[2](0),∑x2[2](0),∑xx2[2](0);
If LastBarOnChart == 1 Then {
Print("알파돌파검색.txt","# 검색기준일 : %.0f-%.0f-%.0f",Int(Date/10000),int(Date/100)-int(Date/10000)*100,Date - int(Date/100)*100);
Print("알파돌파검색.txt","Input:inAlpha(0.5),inVol(10000),inPrc(1000);");
Print("알파돌파검색.txt","Var:j(0),value(0),n(%.0f);",Length);
Print("알파돌파검색.txt","Array:x1[%.0f](0),x2[%.0f](0),y[2](0),Alpha[2](0),∑x1[2](0),∑xx1[2](0),∑x2[2](0),∑xx2[2](0),∑y[2](0),∑xy[2](0);",Length+1,Length+1);
For j = 0 To Length {
x1 = (C[j] - C[j+1])*100/C[j+1];
Print("알파돌파검색.txt","x1[%.0f] = %.6f;",j,X1);
}
Print("알파돌파검색.txt","//=====================================");
For j = 0 To Length {
x2 = (data2(C[j]) - data2(C[j+1]))*100/data2(C[j+1]);
Print("알파돌파검색.txt","x2[%.0f] = %.6f;",j,X2);
}
Print("알파돌파검색.txt","//=====================================");
∑x1[0] = accumN((C[0] - C[1])*100/C[1],Length);
∑xx1[0] = accumN(((C[0] - C[1])*100/C[1])^2,Length);
∑x1[1] = accumN((C[1] - C[2])*100/C[2],Length);
∑xx1[1] = accumN(((C[1] - C[2])*100/C[2])^2,Length);
∑x2[0] = accumN((data2(C[0]) - data2(C[1]))*100/data2(C[1]),Length);
∑xx2[0] = accumN(((data2(C[0]) - data2(C[1]))*100/data2(C[1]))^2,Length);
∑x2[1] = accumN((data2(C[1]) - data2(C[2]))*100/data2(C[2]),Length);
∑xx2[1] = accumN(((data2(C[1]) - data2(C[2]))*100/data2(C[2]))^2,Length);
Print("알파돌파검색.txt","∑x1[0] = %.6f;",∑x1[0]);
Print("알파돌파검색.txt","∑x1[1] = %.6f;",∑x1[1]);
Print("알파돌파검색.txt","∑xx1[0] = %.6f;",∑xx1[0]);
Print("알파돌파검색.txt","∑xx1[1] = %.6f;",∑xx1[1]);
Print("알파돌파검색.txt","∑x2[0] = %.6f;",∑x2[0]);
Print("알파돌파검색.txt","∑x2[1] = %.6f;",∑x2[1]);
Print("알파돌파검색.txt","∑xx2[0] = %.6f;",∑xx2[0]);
Print("알파돌파검색.txt","∑xx2[1] = %.6f;",∑xx2[1]);
Print("알파돌파검색.txt","∑y[0] = 0;");
Print("알파돌파검색.txt","∑y[1] = 0;");
Print("알파돌파검색.txt","∑xy[0] = 0;");
Print("알파돌파검색.txt","∑xy[1] = 0;");
Print("알파돌파검색.txt","value = 0;");
Print("알파돌파검색.txt","If CodeCategoryEx()==11 || CodeCategoryEx()==12 then {");
Print("알파돌파검색.txt"," ∑y[0] = accumN((C[0] - C[1])*100/C[1],n);");
Print("알파돌파검색.txt"," ∑y[1] = accumN((C[1] - C[2])*100/C[2],n);");
Print("알파돌파검색.txt"," For j = 0 To n - 1 {");
Print("알파돌파검색.txt"," y[0] = (C[j] - C[j+1])*100/C[j+1];");
Print("알파돌파검색.txt"," y[1] = (C[j+1] - C[j+2])*100/C[j+2];");
Print("알파돌파검색.txt"," ∑xy[0] = ∑xy[0] + y[0]*iff(CodeCategoryEx()==12,X2[j],X1[j]);");
Print("알파돌파검색.txt"," ∑xy[1] = ∑xy[1] + y[1]*iff(CodeCategoryEx()==12,X2[j+1],X1[j+1]); }");
Print("알파돌파검색.txt"," If CodeCategoryEx()==11 Then {");
Print("알파돌파검색.txt"," Alpha[0] = ∑y[0]/n - (∑xy[0]/n - ((∑x1[0]/n) * (∑y[0]/n))) / ((∑xx1[0]/n) - ((∑x1[0]/n)^2)) * (∑x1[0]/n);");
Print("알파돌파검색.txt"," Alpha[1] = ∑y[1]/n - (∑xy[1]/n - ((∑x1[1]/n) * (∑y[1]/n))) / ((∑xx1[1]/n) - ((∑x1[1]/n)^2)) * (∑x1[1]/n); }");
Print("알파돌파검색.txt"," Else {");
Print("알파돌파검색.txt"," Alpha[0] = ∑y[0]/n - (∑xy[0]/n - ((∑x2[0]/n) * (∑y[0]/n))) / ((∑xx2[0]/n) - ((∑x2[0]/n)^2)) * (∑x2[0]/n);");
Print("알파돌파검색.txt"," Alpha[1] = ∑y[1]/n - (∑xy[1]/n - ((∑x2[1]/n) * (∑y[1]/n))) / ((∑xx2[1]/n) - ((∑x2[1]/n)^2)) * (∑x2[1]/n); }");
Print("알파돌파검색.txt"," If Alpha[0] >= inAlpha && Alpha[1] < inAlpha && ma(V,60) > inVol &&");
Print("알파돌파검색.txt"," ma(C,60) > inPrc && C < 20 * inPrc Then");
Print("알파돌파검색.txt"," value = AlPha[0];");
Print("알파돌파검색.txt","}");
Print("알파돌파검색.txt","Find(value);");
}
답변 1
예스스탁 예스스탁 답변
2014-09-22 11:26:14
안녕하세요
예스스탁입니다.
올려주신 내용은 종목검색이 되는 내용이 아닙니다.
우선 종목검색은 참조데이터를 사용할수 없습니다.
수식안에 참조데이터가 사용되어 있고
이런이유로 차트에서 종목을 변경해 가면서 돌려보기를 해서
find와 같은 메세지가 출력되게 작성되어 있는것 같습니다.
print에 출력되는 내용만 뽑으면 아래식이지만
검색이 되는 식은 아닙니다.
Input:Length(100);
Input:inAlpha(0.5),inVol(10000),inPrc(1000);
Var:j(0),value(0),n(0);
Array:x1[50](0),x2[50](0),y[2](0),Alpha[2](0),∑x1[2](0),∑xx1[2](0),∑x2[2](0),∑xx2[2](0),∑y[2](0),∑xy[2](0);
∑x1[0] = accumN((C[0] - C[1])*100/C[1],Length);
∑xx1[0] = accumN(((C[0] - C[1])*100/C[1])^2,Length);
∑x1[1] = accumN((C[1] - C[2])*100/C[2],Length);
∑xx1[1] = accumN(((C[1] - C[2])*100/C[2])^2,Length);
∑x2[0] = accumN((data2(C[0]) - data2(C[1]))*100/data2(C[1]),Length);
∑xx2[0] = accumN(((data2(C[0]) - data2(C[1]))*100/data2(C[1]))^2,Length);
∑x2[1] = accumN((data2(C[1]) - data2(C[2]))*100/data2(C[2]),Length);
∑xx2[1] = accumN(((data2(C[1]) - data2(C[2]))*100/data2(C[2]))^2,Length);
∑y[0] = 0;
∑y[1] = 0;
∑xy[0] = 0;
∑xy[1] = 0;
value = 0;
If CodeCategoryEx()==11 || CodeCategoryEx()==12 then {
∑y[0] = accumN((C[0] - C[1])*100/C[1],n);
∑y[1] = accumN((C[1] - C[2])*100/C[2],n);
For j = 0 To n - 1 {
y[0] = (C[j] - C[j+1])*100/C[j+1];
y[1] = (C[j+1] - C[j+2])*100/C[j+2];
∑xy[0] = ∑xy[0] + y[0]*iff(CodeCategoryEx()==12,X2[j],X1[j]);
∑xy[1] = ∑xy[1] + y[1]*iff(CodeCategoryEx()==12,X2[j+1],X1[j+1]);
}
If CodeCategoryEx()==11 Then {
Alpha[0] = ∑y[0]/n - (∑xy[0]/n - ((∑x1[0]/n) * (∑y[0]/n))) / ((∑xx1[0]/n) - ((∑x1[0]/n)^2)) * (∑x1[0]/n);
Alpha[1] = ∑y[1]/n - (∑xy[1]/n - ((∑x1[1]/n) * (∑y[1]/n))) / ((∑xx1[1]/n) - ((∑x1[1]/n)^2)) * (∑x1[1]/n);
}
Else {
Alpha[0] = ∑y[0]/n - (∑xy[0]/n - ((∑x2[0]/n) * (∑y[0]/n))) / ((∑xx2[0]/n) - ((∑x2[0]/n)^2)) * (∑x2[0]/n);
Alpha[1] = ∑y[1]/n - (∑xy[1]/n - ((∑x2[1]/n) * (∑y[1]/n))) / ((∑xx2[1]/n) - ((∑x2[1]/n)^2)) * (∑x2[1]/n);
}
If Alpha[0] >= inAlpha && Alpha[1] < inAlpha && ma(V,60) > inVol &&
ma(C,60) > inPrc && C < 20 * inPrc Then
value = AlPha[0];
}
Find(value);
즐거운 하루되세요
> 미래테크 님이 쓴 글입니다.
> 제목 : 수정 부탁합니다
> 아래 수식을 종목검색식으로 바꾸지 못해 수정 부탁합니다
Input:Length(100);
Var:j(0),x1(0),x2(0);
Array:∑x1[2](0),∑xx1[2](0),∑x2[2](0),∑xx2[2](0);
If LastBarOnChart == 1 Then {
Print("알파돌파검색.txt","# 검색기준일 : %.0f-%.0f-%.0f",Int(Date/10000),int(Date/100)-int(Date/10000)*100,Date - int(Date/100)*100);
Print("알파돌파검색.txt","Input:inAlpha(0.5),inVol(10000),inPrc(1000);");
Print("알파돌파검색.txt","Var:j(0),value(0),n(%.0f);",Length);
Print("알파돌파검색.txt","Array:x1[%.0f](0),x2[%.0f](0),y[2](0),Alpha[2](0),∑x1[2](0),∑xx1[2](0),∑x2[2](0),∑xx2[2](0),∑y[2](0),∑xy[2](0);",Length+1,Length+1);
For j = 0 To Length {
x1 = (C[j] - C[j+1])*100/C[j+1];
Print("알파돌파검색.txt","x1[%.0f] = %.6f;",j,X1);
}
Print("알파돌파검색.txt","//=====================================");
For j = 0 To Length {
x2 = (data2(C[j]) - data2(C[j+1]))*100/data2(C[j+1]);
Print("알파돌파검색.txt","x2[%.0f] = %.6f;",j,X2);
}
Print("알파돌파검색.txt","//=====================================");
∑x1[0] = accumN((C[0] - C[1])*100/C[1],Length);
∑xx1[0] = accumN(((C[0] - C[1])*100/C[1])^2,Length);
∑x1[1] = accumN((C[1] - C[2])*100/C[2],Length);
∑xx1[1] = accumN(((C[1] - C[2])*100/C[2])^2,Length);
∑x2[0] = accumN((data2(C[0]) - data2(C[1]))*100/data2(C[1]),Length);
∑xx2[0] = accumN(((data2(C[0]) - data2(C[1]))*100/data2(C[1]))^2,Length);
∑x2[1] = accumN((data2(C[1]) - data2(C[2]))*100/data2(C[2]),Length);
∑xx2[1] = accumN(((data2(C[1]) - data2(C[2]))*100/data2(C[2]))^2,Length);
Print("알파돌파검색.txt","∑x1[0] = %.6f;",∑x1[0]);
Print("알파돌파검색.txt","∑x1[1] = %.6f;",∑x1[1]);
Print("알파돌파검색.txt","∑xx1[0] = %.6f;",∑xx1[0]);
Print("알파돌파검색.txt","∑xx1[1] = %.6f;",∑xx1[1]);
Print("알파돌파검색.txt","∑x2[0] = %.6f;",∑x2[0]);
Print("알파돌파검색.txt","∑x2[1] = %.6f;",∑x2[1]);
Print("알파돌파검색.txt","∑xx2[0] = %.6f;",∑xx2[0]);
Print("알파돌파검색.txt","∑xx2[1] = %.6f;",∑xx2[1]);
Print("알파돌파검색.txt","∑y[0] = 0;");
Print("알파돌파검색.txt","∑y[1] = 0;");
Print("알파돌파검색.txt","∑xy[0] = 0;");
Print("알파돌파검색.txt","∑xy[1] = 0;");
Print("알파돌파검색.txt","value = 0;");
Print("알파돌파검색.txt","If CodeCategoryEx()==11 || CodeCategoryEx()==12 then {");
Print("알파돌파검색.txt"," ∑y[0] = accumN((C[0] - C[1])*100/C[1],n);");
Print("알파돌파검색.txt"," ∑y[1] = accumN((C[1] - C[2])*100/C[2],n);");
Print("알파돌파검색.txt"," For j = 0 To n - 1 {");
Print("알파돌파검색.txt"," y[0] = (C[j] - C[j+1])*100/C[j+1];");
Print("알파돌파검색.txt"," y[1] = (C[j+1] - C[j+2])*100/C[j+2];");
Print("알파돌파검색.txt"," ∑xy[0] = ∑xy[0] + y[0]*iff(CodeCategoryEx()==12,X2[j],X1[j]);");
Print("알파돌파검색.txt"," ∑xy[1] = ∑xy[1] + y[1]*iff(CodeCategoryEx()==12,X2[j+1],X1[j+1]); }");
Print("알파돌파검색.txt"," If CodeCategoryEx()==11 Then {");
Print("알파돌파검색.txt"," Alpha[0] = ∑y[0]/n - (∑xy[0]/n - ((∑x1[0]/n) * (∑y[0]/n))) / ((∑xx1[0]/n) - ((∑x1[0]/n)^2)) * (∑x1[0]/n);");
Print("알파돌파검색.txt"," Alpha[1] = ∑y[1]/n - (∑xy[1]/n - ((∑x1[1]/n) * (∑y[1]/n))) / ((∑xx1[1]/n) - ((∑x1[1]/n)^2)) * (∑x1[1]/n); }");
Print("알파돌파검색.txt"," Else {");
Print("알파돌파검색.txt"," Alpha[0] = ∑y[0]/n - (∑xy[0]/n - ((∑x2[0]/n) * (∑y[0]/n))) / ((∑xx2[0]/n) - ((∑x2[0]/n)^2)) * (∑x2[0]/n);");
Print("알파돌파검색.txt"," Alpha[1] = ∑y[1]/n - (∑xy[1]/n - ((∑x2[1]/n) * (∑y[1]/n))) / ((∑xx2[1]/n) - ((∑x2[1]/n)^2)) * (∑x2[1]/n); }");
Print("알파돌파검색.txt"," If Alpha[0] >= inAlpha && Alpha[1] < inAlpha && ma(V,60) > inVol &&");
Print("알파돌파검색.txt"," ma(C,60) > inPrc && C < 20 * inPrc Then");
Print("알파돌파검색.txt"," value = AlPha[0];");
Print("알파돌파검색.txt","}");
Print("알파돌파검색.txt","Find(value);");
}