커뮤니티
부탁 드립니다.
2015-12-21 17:07:25
184
글번호 93665
첨부 이미지
그림1
너무나 큰 도움에 깊이 감사드리며
경배 올립니다.
그림과 같이
상승 추세선이 만들어 지면
하락 방향으로 5개의 수평선을,
다시 하락 추세선이 만들어 지면
기존 수평선을 삭제하고
상승 방향으로 5개의 수평선을 부탁 드립니다.
input:p10(5),p20(20);
var : crossupD(0),crossupT(0),crossupV(0);
var : crossdnD(0),crossdnT(0),crossdnV(0);
var : TL1(0),TL2(0),TL3(0);
var1 = ma(c,p10);
var2 = ma(C,p20);
if crossup(var1,var2) Then{
TL3 = TL2[1];
TL2 = TL1[1];
TL_Delete(TL3);
crossupD = sdate;
crossupT = stime;
crossupV = var1;
if CrossDnD > 0 Then{
TL1 = TL_New(crossdnD,crossdnT,CrossdnV,crossupD,crossupT,crossupV);
TL_SetSize(TL1,2);
TL_SetColor(TL1,YELLOW);
}
}
if CrossDown(var1,var2) Then{
TL3 = TL2[1];
TL2 = TL1[1];
TL_Delete(TL3);
crossDnD = sdate;
crossDnT = stime;
crossDnV = var1;
if crossupD > 0 Then{
TL1 = TL_New(crossupD,crossupT,crossupV,crossdnD,crossdnT,CrossdnV);
TL_SetSize(TL1,2);
TL_SetColor(TL1,YELLOW);
}
}
- 1. 11qqq.jpg (0.14 MB)
답변 1
예스스탁 예스스탁 답변
2015-12-21 18:21:56
안녕하세요
예스스탁입니다.
사선부터 추세선을 그을순 없습니다.
이전 크로스 지점에서 현재지점까지 그리고
우측으로 연장하게 작성했습니다.
input:p10(5),p20(20);
var : crossupD(0),crossupT(0),crossupV(0);
var : crossdnD(0),crossdnT(0),crossdnV(0);
var : TL1(0),TL2(0),TL3(0);
var : TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : maxv(0),minv(0),diff(0);
var1 = ma(c,p10);
var2 = ma(C,p20);
if crossup(var1,var2) Then{
TL3 = TL2[1];
TL2 = TL1[1];
TL_Delete(TL3);
crossupD = sdate;
crossupT = stime;
crossupV = var1;
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
if CrossDnD > 0 Then{
TL1 = TL_New(crossdnD,crossdnT,CrossdnV,crossupD,crossupT,crossupV);
TL_SetSize(TL1,2);
TL_SetColor(TL1,YELLOW);
maxv = max(crossupV,crossDnV);
minv = min(crossupV,crossDnV);
diff = abs(crossupV-crossDnV);
#상단
TL4 = TL_New(crossdnD,crossdnT,maxv,crossupD,crossupT,maxv);
TL_SetColor(TL4,RED);
TL_SetSize(TL4,1);
TL_SetExtRight(TL4,true);
#38.2%
TL5 = TL_New(crossdnD,crossdnT,maxv-diff*0.382,crossupD,crossupT,maxv-diff*0.382);
TL_SetColor(TL5,BLACK);
TL_SetSize(TL5,1);
TL_SetExtRight(TL5,true);
#50.0%
TL6 = TL_New(crossdnD,crossdnT,maxv-diff*0.500,crossupD,crossupT,maxv-diff*0.500);
TL_SetColor(TL6,BLACK);
TL_SetSize(TL6,1);
TL_SetExtRight(TL6,true);
#61.8%
TL7 = TL_New(crossdnD,crossdnT,maxv-diff*0.618,crossupD,crossupT,maxv-diff*0.618);
TL_SetColor(TL7,BLACK);
TL_SetSize(TL7,1);
TL_SetExtRight(TL7,true);
#하단
TL8 = TL_New(crossdnD,crossdnT,minv,crossupD,crossupT,minv);
TL_SetColor(TL8,blue);
TL_SetSize(TL8,1);
TL_SetExtRight(TL8,true);
}
}
if CrossDown(var1,var2) Then{
TL3 = TL2[1];
TL2 = TL1[1];
TL_Delete(TL3);
crossDnD = sdate;
crossDnT = stime;
crossDnV = var1;
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
if crossupD > 0 Then{
TL1 = TL_New(crossupD,crossupT,crossupV,crossdnD,crossdnT,CrossdnV);
TL_SetSize(TL1,2);
TL_SetColor(TL1,YELLOW);
maxv = max(crossupV,crossDnV);
minv = min(crossupV,crossDnV);
diff = abs(crossupV-crossDnV);
#상단
TL4 = TL_New(crossdnD,crossdnT,maxv,crossupD,crossupT,maxv);
TL_SetColor(TL4,RED);
TL_SetSize(TL4,1);
TL_SetExtRight(TL4,true);
#38.2%
TL5 = TL_New(crossdnD,crossdnT,maxv-diff*0.382,crossupD,crossupT,maxv-diff*0.382);
TL_SetColor(TL5,BLACK);
TL_SetSize(TL5,1);
TL_SetExtRight(TL5,true);
#50.0%
TL6 = TL_New(crossdnD,crossdnT,maxv-diff*0.500,crossupD,crossupT,maxv-diff*0.500);
TL_SetColor(TL6,BLACK);
TL_SetSize(TL6,1);
TL_SetExtRight(TL6,true);
#61.8%
TL7 = TL_New(crossdnD,crossdnT,maxv-diff*0.618,crossupD,crossupT,maxv-diff*0.618);
TL_SetColor(TL7,BLACK);
TL_SetSize(TL7,1);
TL_SetExtRight(TL7,true);
#하단
TL8 = TL_New(crossdnD,crossdnT,minv,crossupD,crossupT,minv);
TL_SetColor(TL8,blue);
TL_SetSize(TL8,1);
TL_SetExtRight(TL8,true);
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 너무나 큰 도움에 깊이 감사드리며
경배 올립니다.
그림과 같이
상승 추세선이 만들어 지면
하락 방향으로 5개의 수평선을,
다시 하락 추세선이 만들어 지면
기존 수평선을 삭제하고
상승 방향으로 5개의 수평선을 부탁 드립니다.
input:p10(5),p20(20);
var : crossupD(0),crossupT(0),crossupV(0);
var : crossdnD(0),crossdnT(0),crossdnV(0);
var : TL1(0),TL2(0),TL3(0);
var1 = ma(c,p10);
var2 = ma(C,p20);
if crossup(var1,var2) Then{
TL3 = TL2[1];
TL2 = TL1[1];
TL_Delete(TL3);
crossupD = sdate;
crossupT = stime;
crossupV = var1;
if CrossDnD > 0 Then{
TL1 = TL_New(crossdnD,crossdnT,CrossdnV,crossupD,crossupT,crossupV);
TL_SetSize(TL1,2);
TL_SetColor(TL1,YELLOW);
}
}
if CrossDown(var1,var2) Then{
TL3 = TL2[1];
TL2 = TL1[1];
TL_Delete(TL3);
crossDnD = sdate;
crossDnT = stime;
crossDnV = var1;
if crossupD > 0 Then{
TL1 = TL_New(crossupD,crossupT,crossupV,crossdnD,crossdnT,CrossdnV);
TL_SetSize(TL1,2);
TL_SetColor(TL1,YELLOW);
}
}