커뮤니티
61259번 재문의 드렸습니다 !!!
2019-02-12 20:27:46
149
글번호 126112
수고스럽겠지만 다시한번 검토 부탁드립니다
답변 1
예스스탁 예스스탁 답변
2019-02-13 13:36:41
안녕하세요
예스스탁입니다.
식을 수정했습니다.
input : len(11), period(200);
input : 굵기1(0),굵기2(0),굵기3(0),굵기4(0);
var : Lbar1(0), Lbar2(0), Lval1(0), Lval2(0), Hbar1(0), Hbar2(0), Hval1(0), Hval2(0);
var : UpTrend(0), DnTrend(0),TL1(0),TL2(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
Lbar1 = swinglowbar(1, low, len, len, period);
Lbar2 = swinglowbar(2, low, len, len, period);
Lval1 = swinglow(1, low, len, len, period);
Lval2 = swinglow(2, low, len, len, period);
Hbar1 = swinghighbar(1, high, len, len, period);
Hbar2 = swinghighbar(2, high, len, len, period);
Hval1 = swinghigh(1, high, len, len, period);
Hval2 = swinghigh(2, high, len, len, period);
If Lval1 > Lval2 Then
{
var1 = 1;
UpTrend = (Lval1 - Lval2)/(Lbar2 - Lbar1)*Lbar1 + Lval1;
plot1(UpTrend, "상승추세선");
}
Else
var1 = 0;
If Hval1 < Hval2 Then
{
var2 = 1;
DnTrend = (Hval1 - Hval2)/(Hbar2 - Hbar1)*Hbar1 + Hval1 ;
plot2(DnTrend, "하락추세선");
}
Else
var2 = 0;
if var1 == 1 and var1[1] != 1 or (Lbar1 < Lbar1[1]) Then
{
var11 = sdate;
var12 = stime;
var13 = H;
Condition1 = false;
}
if var1 == 1 then
{
if H > var13 Then
var13 = H;
if var1[1] == 1 and Condition1 == false and CrossDown(L,UpTrend) Then
{
Condition1 = true;
var14 = UpTrend;
var15 = var14-(var13-var14);
//TL1 = TL_New(var11,var12,var15,sdate,stime,var15);
TL_SetColor(TL1,CYAN);
}
if Condition1 == true then
{
TL_SetEnd(TL1,sdate,stime,var15);
}
}
if var2 == 1 and var2[1] != 1 or (Hbar1 < Hbar1[1]) Then
{
var21 = sdate;
var22 = stime;
var23 = L;
Condition2 = false;
}
if var2 == 1 then
{
if L < var23 Then
var23 = L;
if var2[1] == 1 and Condition2 == false and CrossDown(H,DnTrend) Then
{
Condition2 = true;
var24 = DnTrend;
var25 = var24+(var24-var23);
//TL2 = TL_New(var21,var22,var25,sdate,stime,var25);
TL_SetColor(TL2,MAGENTA);
}
if Condition2 == true then
{
TL_SetEnd(TL2,sdate,stime,var25);
}
}
#상승추세선 시작
if var1 == 1 and var1[1] == 0 then
{
TL11 = TL_New(sdate,stime,9999999,sdate,stime,0);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
TL_SetColor(TL11,RED);
TL_SetSize(TL11,굵기1);
}
#상승추세선 끝
if var1 == 0 and var1[1] == 1 then
{
TL12 = TL_New(sdate[1],stime[1],9999999,sdate[1],stime[1],0);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
TL_SetColor(TL12,blue);
TL_SetSize(TL13,굵기2);
}
#하락추세선 시작
if var2 == 1 and var2[1] == 0 then
{
TL13 = TL_New(sdate,stime,9999999,sdate,stime,0);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
TL_SetColor(TL13,blue);
TL_SetSize(TL13,굵기3);
}
#하락추세선 끝
if var2 == 0 and var2[1] == 1 then
{
TL14 = TL_New(sdate[1],stime[1],9999999,sdate[1],stime[1],0);
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
TL_SetColor(TL14,red);
TL_SetSize(TL14,굵기4);
}
즐거운 하루되세요
> 유로파54 님이 쓴 글입니다.
> 제목 : 61259번 재문의 드렸습니다 !!!
> 수고스럽겠지만 다시한번 검토 부탁드립니다