커뮤니티
수평선 가격표시
2018-05-17 07:33:58
178
글번호 118970
감사합니다
1)
각 분봉 단위 1봉전 고가기준 +가% -가%선을
현재 분봉에 표시
각 분봉 단위 및 고가기준 +-%선은 변수 처리
2)
현재 분봉이 5분봉이라면
이전 15분봉의 고가기준 +가% -가%선을
현재 5분봉에 표시
타주기 분봉 및 고가기준 +-%선은 변수 처리
3)
지정가 기준 +가% -가%선을 추세선 지표로
표시하고 가격값 표시
지정가 변수처리
답변 1
예스스탁 예스스탁 답변
2018-05-17 15:57:14
안녕하세요
예스스탁입니다.
시고저종등은 변수처리되지 않습니다.
수식안에서 내용을 직접 변경하셔야 합니다.
1
input : n(1),per(1);
var : price(0);
price = h;//고가
plot1(price[n]*(1+per/100));
plot2(price[n]*(1-per/100));
2
input : 타주기분(15),N(1),per(1);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Array : OO[100](0),HH[100](0),LL[100](0),CC[100](0);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
OO[0] = O;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
plot1(HH[n]*(1+per/100));
plot2(HH[n]*(1-per/100));
}
3
input : Price(1000),per(1);
if index == 1 Then
{
var1 = TL_New(sdate[1],stime[1],price*(1+per/100),sdate,stime,price*(1+per/100));
var2 = TL_New(sdate[1],stime[1],price*(1-per/100),sdate,stime,price*(1-per/100));
TL_SetExtRight(var1,true);
TL_SetExtRight(var2,true);
value1 = Text_New(sdate,stime,price*(1+per/100),NumToStr(price*(1+per/100),2));
value2 = Text_New(sdate,stime,price*(1-per/100),NumToStr(price*(1-per/100),2));
}
Text_SetLocation(value1,sdate,stime,price*(1+per/100));
Text_SetLocation(value2,sdate,stime,price*(1-per/100));
즐거운 하루되세요
> jdavid 님이 쓴 글입니다.
> 제목 : 수평선 가격표시
> 감사합니다
1)
각 분봉 단위 1봉전 고가기준 +가% -가%선을
현재 분봉에 표시
각 분봉 단위 및 고가기준 +-%선은 변수 처리
2)
현재 분봉이 5분봉이라면
이전 15분봉의 고가기준 +가% -가%선을
현재 5분봉에 표시
타주기 분봉 및 고가기준 +-%선은 변수 처리
3)
지정가 기준 +가% -가%선을 추세선 지표로
표시하고 가격값 표시
지정가 변수처리