커뮤니티
수식
2022-01-24 13:55:10
1285
글번호 155700
하기 수식에 대한 수정 부탁드립니다.
수평선이 연장 없이 당일 발생은 당일 종가까지만........
감사합니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
for cnt = 1 to 59
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
//TL_SetExtRight(TL11[value1],true);
//TL_SetSize(TL11[value1],1);
//TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
//TL_SetExtRight(TL22[value2],true);
//TL_SetSize(TL22[value2],1);
//TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL1 = TL_New(sDate,sTime,value22+(value22-Value11)*1,NextBarSdate,NextBarStime,value22+(value22-Value11)*1);
TL2 = TL_New(sDate,sTime,value22+(value22-Value11)*2,NextBarSdate,NextBarStime,value22+(value22-Value11)*2);
TL3 = TL_New(sDate,sTime,value22+(value22-Value11)*3,NextBarSdate,NextBarStime,value22+(value22-Value11)*3);
TL4 = TL_New(sDate,sTime,value22+(value22-Value11)*4,NextBarSdate,NextBarStime,value22+(value22-Value11)*4);
TL5 = TL_New(sDate,sTime,value22+(value22-Value11)*5,NextBarSdate,NextBarStime,value22+(value22-Value11)*5);
TL6 = TL_New(sDate,sTime,value11-(value22-Value11)*1,NextBarSdate,NextBarStime,value11-(value22-Value11)*1);
TL7 = TL_New(sDate,sTime,value11-(value22-Value11)*2,NextBarSdate,NextBarStime,value11-(value22-Value11)*2);
TL8 = TL_New(sDate,sTime,value11-(value22-Value11)*3,NextBarSdate,NextBarStime,value11-(value22-Value11)*3);
TL9 = TL_New(sDate,sTime,value11-(value22-Value11)*4,NextBarSdate,NextBarStime,value11-(value22-Value11)*4);
TL10 = TL_New(sDate,sTime,value11-(value22-Value11)*5,NextBarSdate,NextBarStime,value11-(value22-Value11)*5);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
TL_SetExtRight(TL8,true);
TL_SetExtRight(TL9,true);
TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
답변 3
예스스탁 예스스탁 답변
2022-01-24 14:32:41
안녕하세요
예스스탁입니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
Array : VV11[60](0),VV22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
Condition1 = False;
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
#TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
//TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],1);
TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV22[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV11[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],1);
TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if value1 >= 1 Then
{
For cnt = 1 to value1
{
if VV11[cnt] > 0 Then
TL_SetEnd(TL11[cnt],sDate,sTime,VV11[cnt]);
}
}
if value2 >= 1 Then
{
For cnt = 1 to value2
{
if VV22[cnt] > 0 Then
TL_SetEnd(TL22[cnt],sDate,sTime,VV22[cnt]);
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL_New(sDate,sTime,0,sDate,sTime,99999999);
Value31 = value22+(value22-Value11)*1;
Value32 = value22+(value22-Value11)*2;
Value33 = value22+(value22-Value11)*3;
Value34 = value22+(value22-Value11)*4;
Value35 = value22+(value22-Value11)*5;
Value41 = value11-(value22-Value11)*1;
Value42 = value11-(value22-Value11)*2;
Value43 = value11-(value22-Value11)*3;
Value44 = value11-(value22-Value11)*4;
Value45 = value11-(value22-Value11)*5;
TL1 = TL_New(sDate,sTime,Value31,NextBarSdate,NextBarStime,Value31);
TL2 = TL_New(sDate,sTime,Value32,NextBarSdate,NextBarStime,Value32);
TL3 = TL_New(sDate,sTime,Value33,NextBarSdate,NextBarStime,Value33);
TL4 = TL_New(sDate,sTime,Value34,NextBarSdate,NextBarStime,Value34);
TL5 = TL_New(sDate,sTime,Value35,NextBarSdate,NextBarStime,Value35);
TL6 = TL_New(sDate,sTime,Value41,NextBarSdate,NextBarStime,Value41);
TL7 = TL_New(sDate,sTime,Value42,NextBarSdate,NextBarStime,Value42);
TL8 = TL_New(sDate,sTime,Value43,NextBarSdate,NextBarStime,Value43);
TL9 = TL_New(sDate,sTime,Value44,NextBarSdate,NextBarStime,Value44);
TL10 = TL_New(sDate,sTime,Value45,NextBarSdate,NextBarStime,Value45);
#TL_SetExtRight(TL1,true);
#TL_SetExtRight(TL2,true);
#TL_SetExtRight(TL3,true);
#TL_SetExtRight(TL4,true);
#TL_SetExtRight(TL5,true);
#TL_SetExtRight(TL6,true);
#TL_SetExtRight(TL7,true);
#TL_SetExtRight(TL8,true);
#TL_SetExtRight(TL9,true);
#TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
Else
{
if Condition1 == true Then
{
TL_SetEnd(TL1,NextBarSdate,NextBarStime,Value31);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,Value32);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,Value33);
TL_SetEnd(TL4,NextBarSdate,NextBarStime,Value34);
TL_SetEnd(TL5,NextBarSdate,NextBarStime,Value35);
TL_SetEnd(TL6,NextBarSdate,NextBarStime,Value41);
TL_SetEnd(TL7,NextBarSdate,NextBarStime,Value42);
TL_SetEnd(TL8,NextBarSdate,NextBarStime,Value43);
TL_SetEnd(TL9,NextBarSdate,NextBarStime,Value44);
TL_SetEnd(TL10,NextBarSdate,NextBarStime,Value45);
}
}
즐거운 하루되세요
> 한국사람73 님이 쓴 글입니다.
> 제목 : 수식
> 하기 수식에 대한 수정 부탁드립니다.
수평선이 연장 없이 당일 발생은 당일 종가까지만........
감사합니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
for cnt = 1 to 59
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
//TL_SetExtRight(TL11[value1],true);
//TL_SetSize(TL11[value1],1);
//TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
//TL_SetExtRight(TL22[value2],true);
//TL_SetSize(TL22[value2],1);
//TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL1 = TL_New(sDate,sTime,value22+(value22-Value11)*1,NextBarSdate,NextBarStime,value22+(value22-Value11)*1);
TL2 = TL_New(sDate,sTime,value22+(value22-Value11)*2,NextBarSdate,NextBarStime,value22+(value22-Value11)*2);
TL3 = TL_New(sDate,sTime,value22+(value22-Value11)*3,NextBarSdate,NextBarStime,value22+(value22-Value11)*3);
TL4 = TL_New(sDate,sTime,value22+(value22-Value11)*4,NextBarSdate,NextBarStime,value22+(value22-Value11)*4);
TL5 = TL_New(sDate,sTime,value22+(value22-Value11)*5,NextBarSdate,NextBarStime,value22+(value22-Value11)*5);
TL6 = TL_New(sDate,sTime,value11-(value22-Value11)*1,NextBarSdate,NextBarStime,value11-(value22-Value11)*1);
TL7 = TL_New(sDate,sTime,value11-(value22-Value11)*2,NextBarSdate,NextBarStime,value11-(value22-Value11)*2);
TL8 = TL_New(sDate,sTime,value11-(value22-Value11)*3,NextBarSdate,NextBarStime,value11-(value22-Value11)*3);
TL9 = TL_New(sDate,sTime,value11-(value22-Value11)*4,NextBarSdate,NextBarStime,value11-(value22-Value11)*4);
TL10 = TL_New(sDate,sTime,value11-(value22-Value11)*5,NextBarSdate,NextBarStime,value11-(value22-Value11)*5);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
TL_SetExtRight(TL8,true);
TL_SetExtRight(TL9,true);
TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
한국사람73
2022-01-24 14:57:51
감사합니다.
검정선 시작에 수직선이 발생하는데 삭제 부탁드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식
>
안녕하세요
예스스탁입니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
Array : VV11[60](0),VV22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
Condition1 = False;
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
#TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
//TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],1);
TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV22[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV11[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],1);
TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if value1 >= 1 Then
{
For cnt = 1 to value1
{
if VV11[cnt] > 0 Then
TL_SetEnd(TL11[cnt],sDate,sTime,VV11[cnt]);
}
}
if value2 >= 1 Then
{
For cnt = 1 to value2
{
if VV22[cnt] > 0 Then
TL_SetEnd(TL22[cnt],sDate,sTime,VV22[cnt]);
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL_New(sDate,sTime,0,sDate,sTime,99999999);
Value31 = value22+(value22-Value11)*1;
Value32 = value22+(value22-Value11)*2;
Value33 = value22+(value22-Value11)*3;
Value34 = value22+(value22-Value11)*4;
Value35 = value22+(value22-Value11)*5;
Value41 = value11-(value22-Value11)*1;
Value42 = value11-(value22-Value11)*2;
Value43 = value11-(value22-Value11)*3;
Value44 = value11-(value22-Value11)*4;
Value45 = value11-(value22-Value11)*5;
TL1 = TL_New(sDate,sTime,Value31,NextBarSdate,NextBarStime,Value31);
TL2 = TL_New(sDate,sTime,Value32,NextBarSdate,NextBarStime,Value32);
TL3 = TL_New(sDate,sTime,Value33,NextBarSdate,NextBarStime,Value33);
TL4 = TL_New(sDate,sTime,Value34,NextBarSdate,NextBarStime,Value34);
TL5 = TL_New(sDate,sTime,Value35,NextBarSdate,NextBarStime,Value35);
TL6 = TL_New(sDate,sTime,Value41,NextBarSdate,NextBarStime,Value41);
TL7 = TL_New(sDate,sTime,Value42,NextBarSdate,NextBarStime,Value42);
TL8 = TL_New(sDate,sTime,Value43,NextBarSdate,NextBarStime,Value43);
TL9 = TL_New(sDate,sTime,Value44,NextBarSdate,NextBarStime,Value44);
TL10 = TL_New(sDate,sTime,Value45,NextBarSdate,NextBarStime,Value45);
#TL_SetExtRight(TL1,true);
#TL_SetExtRight(TL2,true);
#TL_SetExtRight(TL3,true);
#TL_SetExtRight(TL4,true);
#TL_SetExtRight(TL5,true);
#TL_SetExtRight(TL6,true);
#TL_SetExtRight(TL7,true);
#TL_SetExtRight(TL8,true);
#TL_SetExtRight(TL9,true);
#TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
Else
{
if Condition1 == true Then
{
TL_SetEnd(TL1,NextBarSdate,NextBarStime,Value31);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,Value32);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,Value33);
TL_SetEnd(TL4,NextBarSdate,NextBarStime,Value34);
TL_SetEnd(TL5,NextBarSdate,NextBarStime,Value35);
TL_SetEnd(TL6,NextBarSdate,NextBarStime,Value41);
TL_SetEnd(TL7,NextBarSdate,NextBarStime,Value42);
TL_SetEnd(TL8,NextBarSdate,NextBarStime,Value43);
TL_SetEnd(TL9,NextBarSdate,NextBarStime,Value44);
TL_SetEnd(TL10,NextBarSdate,NextBarStime,Value45);
}
}
즐거운 하루되세요
> 한국사람73 님이 쓴 글입니다.
> 제목 : 수식
> 하기 수식에 대한 수정 부탁드립니다.
수평선이 연장 없이 당일 발생은 당일 종가까지만........
감사합니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
for cnt = 1 to 59
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
//TL_SetExtRight(TL11[value1],true);
//TL_SetSize(TL11[value1],1);
//TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
//TL_SetExtRight(TL22[value2],true);
//TL_SetSize(TL22[value2],1);
//TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL1 = TL_New(sDate,sTime,value22+(value22-Value11)*1,NextBarSdate,NextBarStime,value22+(value22-Value11)*1);
TL2 = TL_New(sDate,sTime,value22+(value22-Value11)*2,NextBarSdate,NextBarStime,value22+(value22-Value11)*2);
TL3 = TL_New(sDate,sTime,value22+(value22-Value11)*3,NextBarSdate,NextBarStime,value22+(value22-Value11)*3);
TL4 = TL_New(sDate,sTime,value22+(value22-Value11)*4,NextBarSdate,NextBarStime,value22+(value22-Value11)*4);
TL5 = TL_New(sDate,sTime,value22+(value22-Value11)*5,NextBarSdate,NextBarStime,value22+(value22-Value11)*5);
TL6 = TL_New(sDate,sTime,value11-(value22-Value11)*1,NextBarSdate,NextBarStime,value11-(value22-Value11)*1);
TL7 = TL_New(sDate,sTime,value11-(value22-Value11)*2,NextBarSdate,NextBarStime,value11-(value22-Value11)*2);
TL8 = TL_New(sDate,sTime,value11-(value22-Value11)*3,NextBarSdate,NextBarStime,value11-(value22-Value11)*3);
TL9 = TL_New(sDate,sTime,value11-(value22-Value11)*4,NextBarSdate,NextBarStime,value11-(value22-Value11)*4);
TL10 = TL_New(sDate,sTime,value11-(value22-Value11)*5,NextBarSdate,NextBarStime,value11-(value22-Value11)*5);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
TL_SetExtRight(TL8,true);
TL_SetExtRight(TL9,true);
TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
예스스탁 예스스탁 답변
2022-01-24 15:04:07
안녕하세요
예스스탁입니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
Array : VV11[60](0),VV22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
Condition1 = False;
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
#TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
//TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],1);
TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV22[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV11[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],1);
TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if value1 >= 1 Then
{
For cnt = 1 to value1
{
if VV11[cnt] > 0 Then
TL_SetEnd(TL11[cnt],sDate,sTime,VV11[cnt]);
}
}
if value2 >= 1 Then
{
For cnt = 1 to value2
{
if VV22[cnt] > 0 Then
TL_SetEnd(TL22[cnt],sDate,sTime,VV22[cnt]);
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
Value31 = value22+(value22-Value11)*1;
Value32 = value22+(value22-Value11)*2;
Value33 = value22+(value22-Value11)*3;
Value34 = value22+(value22-Value11)*4;
Value35 = value22+(value22-Value11)*5;
Value41 = value11-(value22-Value11)*1;
Value42 = value11-(value22-Value11)*2;
Value43 = value11-(value22-Value11)*3;
Value44 = value11-(value22-Value11)*4;
Value45 = value11-(value22-Value11)*5;
TL1 = TL_New(sDate,sTime,Value31,NextBarSdate,NextBarStime,Value31);
TL2 = TL_New(sDate,sTime,Value32,NextBarSdate,NextBarStime,Value32);
TL3 = TL_New(sDate,sTime,Value33,NextBarSdate,NextBarStime,Value33);
TL4 = TL_New(sDate,sTime,Value34,NextBarSdate,NextBarStime,Value34);
TL5 = TL_New(sDate,sTime,Value35,NextBarSdate,NextBarStime,Value35);
TL6 = TL_New(sDate,sTime,Value41,NextBarSdate,NextBarStime,Value41);
TL7 = TL_New(sDate,sTime,Value42,NextBarSdate,NextBarStime,Value42);
TL8 = TL_New(sDate,sTime,Value43,NextBarSdate,NextBarStime,Value43);
TL9 = TL_New(sDate,sTime,Value44,NextBarSdate,NextBarStime,Value44);
TL10 = TL_New(sDate,sTime,Value45,NextBarSdate,NextBarStime,Value45);
#TL_SetExtRight(TL1,true);
#TL_SetExtRight(TL2,true);
#TL_SetExtRight(TL3,true);
#TL_SetExtRight(TL4,true);
#TL_SetExtRight(TL5,true);
#TL_SetExtRight(TL6,true);
#TL_SetExtRight(TL7,true);
#TL_SetExtRight(TL8,true);
#TL_SetExtRight(TL9,true);
#TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
Else
{
if Condition1 == true Then
{
TL_SetEnd(TL1,NextBarSdate,NextBarStime,Value31);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,Value32);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,Value33);
TL_SetEnd(TL4,NextBarSdate,NextBarStime,Value34);
TL_SetEnd(TL5,NextBarSdate,NextBarStime,Value35);
TL_SetEnd(TL6,NextBarSdate,NextBarStime,Value41);
TL_SetEnd(TL7,NextBarSdate,NextBarStime,Value42);
TL_SetEnd(TL8,NextBarSdate,NextBarStime,Value43);
TL_SetEnd(TL9,NextBarSdate,NextBarStime,Value44);
TL_SetEnd(TL10,NextBarSdate,NextBarStime,Value45);
}
}
즐거운 하루되세요
> 한국사람73 님이 쓴 글입니다.
> 제목 : Re : Re : 수식
> 감사합니다.
검정선 시작에 수직선이 발생하는데 삭제 부탁드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식
>
안녕하세요
예스스탁입니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
Array : VV11[60](0),VV22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
Condition1 = False;
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
#TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
VV11[value1] = LL;
//TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],1);
TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV22[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
VV11[value2] = HH;
#TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],1);
TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if value1 >= 1 Then
{
For cnt = 1 to value1
{
if VV11[cnt] > 0 Then
TL_SetEnd(TL11[cnt],sDate,sTime,VV11[cnt]);
}
}
if value2 >= 1 Then
{
For cnt = 1 to value2
{
if VV22[cnt] > 0 Then
TL_SetEnd(TL22[cnt],sDate,sTime,VV22[cnt]);
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL_New(sDate,sTime,0,sDate,sTime,99999999);
Value31 = value22+(value22-Value11)*1;
Value32 = value22+(value22-Value11)*2;
Value33 = value22+(value22-Value11)*3;
Value34 = value22+(value22-Value11)*4;
Value35 = value22+(value22-Value11)*5;
Value41 = value11-(value22-Value11)*1;
Value42 = value11-(value22-Value11)*2;
Value43 = value11-(value22-Value11)*3;
Value44 = value11-(value22-Value11)*4;
Value45 = value11-(value22-Value11)*5;
TL1 = TL_New(sDate,sTime,Value31,NextBarSdate,NextBarStime,Value31);
TL2 = TL_New(sDate,sTime,Value32,NextBarSdate,NextBarStime,Value32);
TL3 = TL_New(sDate,sTime,Value33,NextBarSdate,NextBarStime,Value33);
TL4 = TL_New(sDate,sTime,Value34,NextBarSdate,NextBarStime,Value34);
TL5 = TL_New(sDate,sTime,Value35,NextBarSdate,NextBarStime,Value35);
TL6 = TL_New(sDate,sTime,Value41,NextBarSdate,NextBarStime,Value41);
TL7 = TL_New(sDate,sTime,Value42,NextBarSdate,NextBarStime,Value42);
TL8 = TL_New(sDate,sTime,Value43,NextBarSdate,NextBarStime,Value43);
TL9 = TL_New(sDate,sTime,Value44,NextBarSdate,NextBarStime,Value44);
TL10 = TL_New(sDate,sTime,Value45,NextBarSdate,NextBarStime,Value45);
#TL_SetExtRight(TL1,true);
#TL_SetExtRight(TL2,true);
#TL_SetExtRight(TL3,true);
#TL_SetExtRight(TL4,true);
#TL_SetExtRight(TL5,true);
#TL_SetExtRight(TL6,true);
#TL_SetExtRight(TL7,true);
#TL_SetExtRight(TL8,true);
#TL_SetExtRight(TL9,true);
#TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
Else
{
if Condition1 == true Then
{
TL_SetEnd(TL1,NextBarSdate,NextBarStime,Value31);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,Value32);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,Value33);
TL_SetEnd(TL4,NextBarSdate,NextBarStime,Value34);
TL_SetEnd(TL5,NextBarSdate,NextBarStime,Value35);
TL_SetEnd(TL6,NextBarSdate,NextBarStime,Value41);
TL_SetEnd(TL7,NextBarSdate,NextBarStime,Value42);
TL_SetEnd(TL8,NextBarSdate,NextBarStime,Value43);
TL_SetEnd(TL9,NextBarSdate,NextBarStime,Value44);
TL_SetEnd(TL10,NextBarSdate,NextBarStime,Value45);
}
}
즐거운 하루되세요
> 한국사람73 님이 쓴 글입니다.
> 제목 : 수식
> 하기 수식에 대한 수정 부탁드립니다.
수평선이 연장 없이 당일 발생은 당일 종가까지만........
감사합니다.
input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : TL11[60](0),TL22[60](0);
var1 = cSar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
for cnt = 1 to 59
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],4);
TL_SetColor(tl11[value1],RED);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
//TL_SetExtRight(TL11[value1],true);
//TL_SetSize(TL11[value1],1);
//TL_SetColor(tl11[value1],YELLOW);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],4);
TL_SetColor(tl22[value2],BLUE);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
//TL_SetExtRight(TL22[value2],true);
//TL_SetSize(TL22[value2],1);
//TL_SetColor(tl22[value2],CYAN);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL1 = TL_New(sDate,sTime,value22+(value22-Value11)*1,NextBarSdate,NextBarStime,value22+(value22-Value11)*1);
TL2 = TL_New(sDate,sTime,value22+(value22-Value11)*2,NextBarSdate,NextBarStime,value22+(value22-Value11)*2);
TL3 = TL_New(sDate,sTime,value22+(value22-Value11)*3,NextBarSdate,NextBarStime,value22+(value22-Value11)*3);
TL4 = TL_New(sDate,sTime,value22+(value22-Value11)*4,NextBarSdate,NextBarStime,value22+(value22-Value11)*4);
TL5 = TL_New(sDate,sTime,value22+(value22-Value11)*5,NextBarSdate,NextBarStime,value22+(value22-Value11)*5);
TL6 = TL_New(sDate,sTime,value11-(value22-Value11)*1,NextBarSdate,NextBarStime,value11-(value22-Value11)*1);
TL7 = TL_New(sDate,sTime,value11-(value22-Value11)*2,NextBarSdate,NextBarStime,value11-(value22-Value11)*2);
TL8 = TL_New(sDate,sTime,value11-(value22-Value11)*3,NextBarSdate,NextBarStime,value11-(value22-Value11)*3);
TL9 = TL_New(sDate,sTime,value11-(value22-Value11)*4,NextBarSdate,NextBarStime,value11-(value22-Value11)*4);
TL10 = TL_New(sDate,sTime,value11-(value22-Value11)*5,NextBarSdate,NextBarStime,value11-(value22-Value11)*5);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
TL_SetExtRight(TL8,true);
TL_SetExtRight(TL9,true);
TL_SetExtRight(TL10,true);
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TL_SetSize(TL4,3);
TL_SetSize(TL5,3);
TL_SetSize(TL6,3);
TL_SetSize(TL7,3);
TL_SetSize(TL8,3);
TL_SetSize(TL9,3);
TL_SetSize(TL10,3);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
TL_SetColor(TL5,BLACK);
TL_SetColor(TL6,BLACK);
TL_SetColor(TL7,BLACK);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,BLACK);
TL_SetColor(TL10,BLACK);
}
이전글