예스스탁
예스스탁 답변
2020-02-26 13:51:11
안녕하세요
예스스탁입니다.
시간관계상 전체 선을 처리해 드릴수 없습니다.
var11과 var21에 대해서만 작성해 드립니다.
참고하셔서 나머지 내용들 추가하시기 바랍니다.
## 고가선
var11 = highest(H,5);
var12 = highest(H,10);
var13 = highest(H,15);
var14 = highest(H,20);
var15 = highest(H,30);
## 저가선
var21 = Lowest(L,5) ;
var22 = Lowest(L,10);
var23 = Lowest(L,15);
var24 = Lowest(L,20);
var25 = Lowest(L,30);
var: HP1(0),HI1(0),HTL1(0),HTX1(0),HTX2(0),HTX3(0);
if var11 != var11[1] Then
{
HP1 = var11;
Hi1 = 0;
HTL1 = TL_New(sdate,stime,HP1,NextBarSdate,NextBarStime,HP1); ## 수평선
HTX1 = Text_New(sdate,stime, HP1 ,"■");
Text_SetStyle(HTX1,2,2);
HTX2 = Text_New(NextBarSdate,NextBarStime,HP1,NumToStr(HP1,2));
Text_SetSize(HTX2,23);
Text_SetStyle(HTX2,2,1); ## 가격 찍기
}
Else
{
Hi1 = Hi1+1;
if Hi1>0 and Hi1<20 then
{
TL_SetEnd(HTL1,NextBarSdate,NextBarStime,HP1);
Text_SetLocation(HTX2,NextBarSdate,NextBarStime,HP1);
}
if Hi1 == 10 then
{
HTX3 = Text_New(Sdate,Stime,HI1,NumToStr(HI1,0));
}
if Hi1 > 10 then
{
Text_SetLocation(HTX3,sDate,stime,HI1);
Text_SetString(HTX3,NumToStr(HI1,0));
}
}
var: LP1(0),LI1(0),LTL1(0),LTX1(0),LTX2(0),LTX3(0);
if var21 != var21[1] Then
{
LP1 = var21;
Li1 = 0;
LTL1 = TL_New(sdate,stime,LP1,NextBarSdate,NextBarStime,LP1); ## 수평선
LTX1 = Text_New(sdate,stime, LP1 ,"■");
Text_SetStyle(LTX1,2,2);
LTX2 = Text_New(NextBarSdate,NextBarStime,LP1,NumToStr(LP1,2));
Text_SetSize(LTX2,23);
Text_SetStyle(LTX2,2,1); ## 가격 찍기
}
Else
{
Li1 = Li1+1;
if Li1>0 and Li1<20 then
{
TL_SetEnd(LTL1,NextBarSdate,NextBarStime,LP1);
Text_SetLocation(LTX2,NextBarSdate,NextBarStime,LP1);
}
if Li1 == 10 then
{
LTX3 = Text_New(Sdate,Stime,LI1,NumToStr(LI1,0));
}
if Li1 > 10 then
{
Text_SetLocation(LTX3,sDate,stime,LI1);
Text_SetString(LTX3,NumToStr(LI1,0));
}
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 지표 좀 부탁 드립니다.
> * 많은 도움에 고맙습니다.
* 수평선좀 요청 드립니다.
즉 최근 5개선 까지 고가선 과 저가선을 표현 부탁 드립니다.
그리고 선과 선 사이에 경과 봉수 도 수치로 부탁 드립니다.
(전고점 과 10개 봉 이상 차이가 날 경우만 봉수 표시)
아래는 공부중인데 수평선이 잘 안되요... -.-
## 고가선
var11 = highest(H,5);
var12 = highest(H,10);
var13 = highest(H,15);
var14 = highest(H,20);
## 저가선
var15 = highest(H,30);
var21 = Lowest(L,5) ;
var22 = Lowest(L,10);
var23 = Lowest(L,15);
var24 = Lowest(L,20);
var25 = Lowest(L,30);
var: TL31(0),Tx31(0),Tx32(0);
if var11 Then
{Tx31 = Text_New(sdate,stime, C ,"■");
Text_SetStyle(Tx31,2,2);
value1 = lowest(L,3) ; value2 = 0 ; ## 봉가격
TL31 = TL_New(sdate,stime,c,NextBarSdate,NextBarStime,value1); ## 수평선
Tx32 = Text_New(NextBarSdate,NextBarStime,c,NumToStr(value1,1));
Text_SetSize(Tx32,23 );
Text_SetStyle(Tx32,2,1); ## 가격 찍기
} Else
{value2=value2+1; if value1>0 and value2<20 then
{TL_SetEnd(TL31,NextBarSdate,NextBarStime,value1);
Text_SetLocation(Tx32,NextBarSdate,NextBarStime,Value1); }}
* 좋은 하루 되십시요^^ 고맙습니다.