커뮤니티
49914에 대한 추가질문 드립니다.
2016-10-10 11:34:44
200
글번호 102698
첨부 이미지
그림1
항상 도움 주셔서 감사드립니다.
보내주신 답변대로 적용해보니 몇가지 에러가 생겨서 챠트 캡쳐를 보내드립니다.
캡쳐된 그림에 질문을 직접 적어 놓았읍니다.
또한 몇가지 추가 요청 사항도 부탁드립니다.
1) 글자의 색(빨강,파랑)이 반영되지 않습니다. ==> 전부검정
2) 글자가 봉과 겹쳐서 잘 보이지 않는데요. 상방은 더 봉위로, 하방은 더 봉아래로 표시하고 위치를 임의로 조정할수있게 설정했으면 좋겠네요.
3)직전고저점 연결선을 좀더 굵게(3pt) 표시할 수 있었으면 좋겠읍니다
4) 지표식에 보면 input: "소숫점아래자리수"(오일은 1, 골드는 2, 항셍은 0 이됩니다)와 "틱가치"를 상품에 따라 입력하게 해놓았는데요. price scale 처럼 다 상품에 자동으로 적용되는 방법이 있으면 수정부탁드립니다.
5) 지표식 맨아래 현재봉 이격틱수 표시하는 부분도 변경된 직전고점(저점) 기준을 적용할 수 있도록 수정 부탁드립니다
도움부탁드립니다. 감사합니다.
===========================================================================
<적용한 지표식입니다. 편리성을 고려해서 input 명령으로 수치와 조건을 선택할수있도록
간단하게 수정했구요. 기본 수식은 건드리지 않았읍니다>
input : Left(10),Right(10),틱가치(0.01),소수점아래자리수(2),숫자표시이격(0),눌림(382),가격진폭표시(0),진폭만표시(1),가격만표시(0),선긋기(1);
var : T(0),TL(0),tx(0),tx1(0),HD(0),HT(0),HH(0),HC(0),LD(0),LT(0),LL(0),LC(0);
var : cnt(0);
if T == 0 and SwingHigh(1,H,Left,Right,Left+Right+1) != -1 Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
LL = HH;
T = 1;
}
if T == 0 and SwingLow(1,L,Left,Right,Left+Right+1) != -1 Then{
LD = sDate[Right];
T = sTime[Right];
LL = L[Right];
LC = C[right];
HH = LL;
T = -1;
}
if T == -1 Then{
if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 and H[right] > HH Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
}
if HH > LL and L <= HH-(HH-LL)*눌림/1000 Then{
T = 1;
if 선긋기 ==1 then {
TL = TL_New(LD,LT,LL,HD,HT,HH);
TL_SetColor(TL,RED);
}
if 진폭만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HH,소수점아래자리수)); }
//tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(HH,소수점아래자리수)); }
Text_SetStyle(tx,2,2);
LL = HH;
}
}
if T == 1 Then{
if SwingLow(1,L,Left,Right,Left+Right+1) != -1 and L[right] < LL Then{
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[Right];
}
if LL < HH and H >= LL+(HH-LL)*눌림/1000 Then{
T = -1;
if 선긋기 ==1 then {
TL= TL_New(HD,HT,HH,LD,LT,LL);
TL_SetColor(TL,blue);
}
if 진폭만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)); }
//tx = Text_New(LD,LT,LL,NumToStr(LC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)+NewLine+NumToStr(abs(HH-LL)/PriceScale,0)); }
// tx = Text_New(LD,LT,LL,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(LC,소수점아래자리수));
Text_SetStyle(tx,2,2);
HH = LL;
}
}
############### 직전 고점(저점)으로 현재봉 저점(고점) 이격틱수 표시
Text_Delete(tx1);
#최근 고점 발생
if T == 1 then{
Tx1 = Text_New(sdate,stime,L-숫자표시이격*틱가치,NumToStr((HH-l)/틱가치,0));
Text_SetColor(tx1,blue);
Text_SetStyle(tx1,0,1);
}
#최근 저점 발생
if T == -1 then{
tx1 = Text_New(sdate,stime,H+숫자표시이격*틱가치,NumToStr((h-LL)/틱가치,0));
Text_SetColor(tx1,red);
Text_SetStyle(tx1,0,1);
}
- 1. bandicam_2016-10-09_19-36-09-326.jpg (0.34 MB)
답변 2
예스스탁 예스스탁 답변
2016-10-10 14:46:08
안녕하세요
예스스탁입니다.
수식을 수정했습니다.
의도와 다른부분이 있으시면 다시 글 올려주시기 바랍니다.
텍스트는 지정하신 숫자표시이격에 지정한 틱수만큰 위아래로 출력하게 했습니다.
소수점아래자릿수는 따로 자동으로 체크되게 할수가 없습니다.
input : Left(10),Right(10),소수점아래자리수(2),숫자표시이격(0),눌림(382),가격진폭표시(0),진폭만표시(1),가격만표시(0),선긋기(1);
var : T(0),TL(0),tx(0),tx1(0),HD(0),HT(0),HH(0),HC(0),LD(0),LT(0),LL(0),LC(0);
var : cnt(0),틱가치(0);
틱가치 = PriceScale;
if T == 0 and SwingHigh(1,H,Left,Right,Left+Right+1) != -1 Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
LL = HH;
T = 1;
}
if T == 0 and SwingLow(1,L,Left,Right,Left+Right+1) != -1 Then{
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[right];
HH = LL;
T = -1;
}
if T == -1 Then{
if SwingLow(1,L,Left,Right,Left+Right+1) != -1 and L[right] < LL Then{
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[Right];
TL_SetEnd(TL,LD,LT,LL);
HH = LL;
}
if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 and H[right] > HH Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
}
if HH > LL and L <= HH-(HH-LL)*눌림/1000 Then{
T = 1;
if 선긋기 ==1 then {
TL = TL_New(LD,LT,LL,HD,HT,HH);
TL_SetColor(TL,RED);
TL_SetSize(TL,3);
}
if 진폭만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HH,소수점아래자리수)); }
//tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(HH,소수점아래자리수));
}
Text_SetStyle(tx,2,2);
Text_SetColor(tx,red);
LL = HH;
}
}
if T == 1 Then{
if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 and H[right] > HH Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
TL_SetEnd(TL,HD,HT,HH);
LL = HH;
}
if SwingLow(1,L,Left,Right,Left+Right+1) != -1 and L[right] < LL Then{
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[Right];
}
if LL < HH and H >= LL+(HH-LL)*눌림/1000 Then{
T = -1;
if 선긋기 ==1 then {
TL= TL_New(HD,HT,HH,LD,LT,LL);
TL_SetColor(TL,blue);
TL_SetSize(TL,3);
}
if 진폭만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)); }
//tx = Text_New(LD,LT,LL,NumToStr(LC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)+NewLine+NumToStr(abs(HH-LL)/PriceScale,0));
}
// tx = Text_New(LD,LT,LL,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(LC,소수점아래자리수));
Text_SetStyle(tx,2,2);
Text_SetColor(tx,blue);
HH = LL;
}
}
############### 직전 고점(저점)으로 현재봉 저점(고점) 이격틱수 표시
Text_Delete(tx1);
#최근 고점 발생
if T == 1 then{
Tx1 = Text_New(sdate,stime,L-숫자표시이격*틱가치,NumToStr((HH-l)/틱가치,0));
Text_SetColor(tx1,blue);
Text_SetStyle(tx1,0,1);
}
#최근 저점 발생
if T == -1 then{
tx1 = Text_New(sdate,stime,H+숫자표시이격*틱가치,NumToStr((h-LL)/틱가치,0));
Text_SetColor(tx1,red);
Text_SetStyle(tx1,0,1);
}
즐거운 하루되세요
> 스로우 님이 쓴 글입니다.
> 제목 : 49914에 대한 추가질문 드립니다.
> 항상 도움 주셔서 감사드립니다.
보내주신 답변대로 적용해보니 몇가지 에러가 생겨서 챠트 캡쳐를 보내드립니다.
캡쳐된 그림에 질문을 직접 적어 놓았읍니다.
또한 몇가지 추가 요청 사항도 부탁드립니다.
1) 글자의 색(빨강,파랑)이 반영되지 않습니다. ==> 전부검정
2) 글자가 봉과 겹쳐서 잘 보이지 않는데요. 상방은 더 봉위로, 하방은 더 봉아래로 표시하고 위치를 임의로 조정할수있게 설정했으면 좋겠네요.
3)직전고저점 연결선을 좀더 굵게(3pt) 표시할 수 있었으면 좋겠읍니다
4) 지표식에 보면 input: "소숫점아래자리수"(오일은 1, 골드는 2, 항셍은 0 이됩니다)와 "틱가치"를 상품에 따라 입력하게 해놓았는데요. price scale 처럼 다 상품에 자동으로 적용되는 방법이 있으면 수정부탁드립니다.
5) 지표식 맨아래 현재봉 이격틱수 표시하는 부분도 변경된 직전고점(저점) 기준을 적용할 수 있도록 수정 부탁드립니다
도움부탁드립니다. 감사합니다.
===========================================================================
<적용한 지표식입니다. 편리성을 고려해서 input 명령으로 수치와 조건을 선택할수있도록
간단하게 수정했구요. 기본 수식은 건드리지 않았읍니다>
input : Left(10),Right(10),틱가치(0.01),소수점아래자리수(2),숫자표시이격(0),눌림(382),가격진폭표시(0),진폭만표시(1),가격만표시(0),선긋기(1);
var : T(0),TL(0),tx(0),tx1(0),HD(0),HT(0),HH(0),HC(0),LD(0),LT(0),LL(0),LC(0);
var : cnt(0);
if T == 0 and SwingHigh(1,H,Left,Right,Left+Right+1) != -1 Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
LL = HH;
T = 1;
}
if T == 0 and SwingLow(1,L,Left,Right,Left+Right+1) != -1 Then{
LD = sDate[Right];
T = sTime[Right];
LL = L[Right];
LC = C[right];
HH = LL;
T = -1;
}
if T == -1 Then{
if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 and H[right] > HH Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
}
if HH > LL and L <= HH-(HH-LL)*눌림/1000 Then{
T = 1;
if 선긋기 ==1 then {
TL = TL_New(LD,LT,LL,HD,HT,HH);
TL_SetColor(TL,RED);
}
if 진폭만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HH,소수점아래자리수)); }
//tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(HH,소수점아래자리수)); }
Text_SetStyle(tx,2,2);
LL = HH;
}
}
if T == 1 Then{
if SwingLow(1,L,Left,Right,Left+Right+1) != -1 and L[right] < LL Then{
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[Right];
}
if LL < HH and H >= LL+(HH-LL)*눌림/1000 Then{
T = -1;
if 선긋기 ==1 then {
TL= TL_New(HD,HT,HH,LD,LT,LL);
TL_SetColor(TL,blue);
}
if 진폭만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)); }
//tx = Text_New(LD,LT,LL,NumToStr(LC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)+NewLine+NumToStr(abs(HH-LL)/PriceScale,0)); }
// tx = Text_New(LD,LT,LL,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(LC,소수점아래자리수));
Text_SetStyle(tx,2,2);
HH = LL;
}
}
############### 직전 고점(저점)으로 현재봉 저점(고점) 이격틱수 표시
Text_Delete(tx1);
#최근 고점 발생
if T == 1 then{
Tx1 = Text_New(sdate,stime,L-숫자표시이격*틱가치,NumToStr((HH-l)/틱가치,0));
Text_SetColor(tx1,blue);
Text_SetStyle(tx1,0,1);
}
#최근 저점 발생
if T == -1 then{
tx1 = Text_New(sdate,stime,H+숫자표시이격*틱가치,NumToStr((h-LL)/틱가치,0));
Text_SetColor(tx1,red);
Text_SetStyle(tx1,0,1);
}
스로우
2016-10-11 20:16:21
답변 감사드립니다, ^^
> 스로우 님이 쓴 글입니다.
> 제목 : 49914에 대한 추가질문 드립니다.
> 항상 도움 주셔서 감사드립니다.
보내주신 답변대로 적용해보니 몇가지 에러가 생겨서 챠트 캡쳐를 보내드립니다.
캡쳐된 그림에 질문을 직접 적어 놓았읍니다.
또한 몇가지 추가 요청 사항도 부탁드립니다.
1) 글자의 색(빨강,파랑)이 반영되지 않습니다. ==> 전부검정
2) 글자가 봉과 겹쳐서 잘 보이지 않는데요. 상방은 더 봉위로, 하방은 더 봉아래로 표시하고 위치를 임의로 조정할수있게 설정했으면 좋겠네요.
3)직전고저점 연결선을 좀더 굵게(3pt) 표시할 수 있었으면 좋겠읍니다
4) 지표식에 보면 input: "소숫점아래자리수"(오일은 1, 골드는 2, 항셍은 0 이됩니다)와 "틱가치"를 상품에 따라 입력하게 해놓았는데요. price scale 처럼 다 상품에 자동으로 적용되는 방법이 있으면 수정부탁드립니다.
5) 지표식 맨아래 현재봉 이격틱수 표시하는 부분도 변경된 직전고점(저점) 기준을 적용할 수 있도록 수정 부탁드립니다
도움부탁드립니다. 감사합니다.
===========================================================================
<적용한 지표식입니다. 편리성을 고려해서 input 명령으로 수치와 조건을 선택할수있도록
간단하게 수정했구요. 기본 수식은 건드리지 않았읍니다>
input : Left(10),Right(10),틱가치(0.01),소수점아래자리수(2),숫자표시이격(0),눌림(382),가격진폭표시(0),진폭만표시(1),가격만표시(0),선긋기(1);
var : T(0),TL(0),tx(0),tx1(0),HD(0),HT(0),HH(0),HC(0),LD(0),LT(0),LL(0),LC(0);
var : cnt(0);
if T == 0 and SwingHigh(1,H,Left,Right,Left+Right+1) != -1 Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
LL = HH;
T = 1;
}
if T == 0 and SwingLow(1,L,Left,Right,Left+Right+1) != -1 Then{
LD = sDate[Right];
T = sTime[Right];
LL = L[Right];
LC = C[right];
HH = LL;
T = -1;
}
if T == -1 Then{
if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 and H[right] > HH Then{
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
}
if HH > LL and L <= HH-(HH-LL)*눌림/1000 Then{
T = 1;
if 선긋기 ==1 then {
TL = TL_New(LD,LT,LL,HD,HT,HH);
TL_SetColor(TL,RED);
}
if 진폭만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HH,소수점아래자리수)); }
//tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(HC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(HD,HT,HH+숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(HH,소수점아래자리수)); }
Text_SetStyle(tx,2,2);
LL = HH;
}
}
if T == 1 Then{
if SwingLow(1,L,Left,Right,Left+Right+1) != -1 and L[right] < LL Then{
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[Right];
}
if LL < HH and H >= LL+(HH-LL)*눌림/1000 Then{
T = -1;
if 선긋기 ==1 then {
TL= TL_New(HD,HT,HH,LD,LT,LL);
TL_SetColor(TL,blue);
}
if 진폭만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(abs(HH-LL)/PriceScale,0)); }
if 가격만표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)); }
//tx = Text_New(LD,LT,LL,NumToStr(LC,소수점아래자리수)); }
if 가격진폭표시 == 1 then {
tx = Text_New(LD,LT,LL-숫자표시이격*틱가치,NumToStr(LL,소수점아래자리수)+NewLine+NumToStr(abs(HH-LL)/PriceScale,0)); }
// tx = Text_New(LD,LT,LL,NumToStr(abs(HH-LL)/PriceScale,0)+NewLine+NumToStr(LC,소수점아래자리수));
Text_SetStyle(tx,2,2);
HH = LL;
}
}
############### 직전 고점(저점)으로 현재봉 저점(고점) 이격틱수 표시
Text_Delete(tx1);
#최근 고점 발생
if T == 1 then{
Tx1 = Text_New(sdate,stime,L-숫자표시이격*틱가치,NumToStr((HH-l)/틱가치,0));
Text_SetColor(tx1,blue);
Text_SetStyle(tx1,0,1);
}
#최근 저점 발생
if T == -1 then{
tx1 = Text_New(sdate,stime,H+숫자표시이격*틱가치,NumToStr((h-LL)/틱가치,0));
Text_SetColor(tx1,red);
Text_SetStyle(tx1,0,1);
}