예스스탁
예스스탁 답변
2022-08-19 13:59:25
안녕하세요
예스스탁입니다.
var : a(0),b(0);
var : HH(0),HD(0),HT(0);
var : HH1(0),HD1(0),HT1(0);
var : LL(0),LD(0),LT(0);
var : LL1(0),LD1(0),LT1(0);
var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : T(0),tempTL(0);
a = ma(C,5);
b = ma(c,20);
Condition1 = C > a and C > b;
Condition2 = C < a and C < b;
if T <= 0 and Condition1 == true and Condition1[1] == False Then
{
T = 1;
}
if T >= 0 and Condition2 == true and Condition2[1] == False Then
{
T = -1;
}
if T == 1 Then
{
if T != T[1] Then
{
HD = sDate;
HT = sTime;
HH = H;
HD1 = HD[1];
HT1 = HT[1];
HH1 = HH[1];
if HH1 > 0 and LL > 0 Then
{
value1 = HH1;
Value2 = LL;
TL = TL_new(HD1,HT1,value1,LD,LT,Value2);
TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Red);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL2,Magenta);
TL_SetColor(TL3,Magenta);
TL_SetColor(TL4,Magenta);
TL_SetColor(TL5,Magenta);
}
TL_Delete(tempTL);
if LL > 0 Then
{
tempTL = TL_New(LD,LT,LL,HD,HT,HH);
TL_SetColor(tempTL,Lime);
}
}
if H > HH Then
{
HD = sDate;
HT = sTime;
HH = H;
TL_SetEnd(tempTL,HD,HT,HH);
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
if T == -1 Then
{
if T != T[1] Then
{
LD = sDate;
LT = sTime;
LL = L;
LD1 = LD[1];
LT1 = LT[1];
LL1 = LL[1];
if LL1 > 0 and HH > 0 Then
{
value1 = HH;
Value2 = LL1;
TL = TL_new(LD1,LT1,LL1,HD,HT,HH);
TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Blue);
TL_SetColor(TL1,Cyan);
TL_SetColor(TL2,Cyan);
TL_SetColor(TL3,Cyan);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
}
TL_Delete(tempTL);
if HH > 0 then
{
tempTL = TL_New(HD,HT,HH,LD,LT,LL);
TL_SetColor(tempTL,Lime);
}
}
if L < LL Then
{
LD = sDate;
LT = sTime;
LL = L;
TL_SetEnd(tempTL,LD,LT,LL);
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
즐거운 하루되세요
> 아름다운아침 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 이전 답변 감사드립니다. 덕분에 늘 좋은 공부가 됩니다. 한가지 더 질문을 드리고 싶은데요.
이전에 알려주신 수식에서 만약 현재 진행중인 조건이 완성되기 전에도 임시 추세선이 그려지도록 하려면 어떻게 해야 할까요? 즉, 직전조건 고점이나 저점과 현재 진행중인 조건의 저점이나 고점을 연결하는 추세선을 그리되 빨강이나 파랑이 아닌 다른 색으로 처리하여 현재 구간조건이 아직 끝나지 않았음을 알수 있도록요.. 이렇게 진행되다가 현재 진행중인 조건이 완성되면 최종확정의 의미로 빨강이나 파랑이 아래 수식대로 처리되게끔요
var : a(0),b(0);
var : HH(0),HD(0),HT(0);
var : HH1(0),HD1(0),HT1(0);
var : LL(0),LD(0),LT(0);
var : LL1(0),LD1(0),LT1(0);
var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : T(0);
a = ma(C,5);
b = ma(c,20);
Condition1 = C > a and C > b;
Condition2 = C < a and C < b;
if T <= 0 and Condition1 == true and Condition1[1] == False Then
{
T = 1;
}
if T >= 0 and Condition2 == true and Condition2[1] == False Then
{
T = -1;
}
if T == 1 Then
{
if T != T[1] Then
{
HD = sDate;
HT = sTime;
HH = H;
HD1 = HD[1];
HT1 = HT[1];
HH1 = HH[1];
if HH1 > 0 and LL > 0 Then
{
value1 = HH1;
Value2 = LL;
TL = TL_new(HD1,HT1,value1,LD,LT,Value2);
TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Red);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL2,Magenta);
TL_SetColor(TL3,Magenta);
TL_SetColor(TL4,Magenta);
TL_SetColor(TL5,Magenta);
}
}
if H > HH Then
{
HD = sDate;
HT = sTime;
HH = H;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
if T == -1 Then
{
if T != T[1] Then
{
LD = sDate;
LT = sTime;
LL = L;
LD1 = LD[1];
LT1 = LT[1];
LL1 = LL[1];
if LL1 > 0 and HH > 0 Then
{
value1 = HH;
Value2 = LL1;
TL = TL_new(LD1,LT1,LL1,HD,HT,HH);
TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Blue);
TL_SetColor(TL1,Cyan);
TL_SetColor(TL2,Cyan);
TL_SetColor(TL3,Cyan);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
}
}
if L < LL Then
{
LD = sDate;
LT = sTime;
LL = L;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}