커뮤니티
49964의 추가질문 드립니다
2016-10-21 12:31:21
183
글번호 103213
첨부 이미지
그림1
안녕하세요. 도움주신 지표식을 잘 사용하고 있읍니다.
그런데 약간의 에러가 발생되서 추가 질문 드립니다.
<아래는 수정 작성해 주신 지표식입니다>
<수정 내용은 첨부한 화면캡쳐에 기록해 놓았읍니다>
<도움 부탁드립니다. 감사합니다. ^^>
======================================
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);
}
- 1. bandicam_2016-10-21_12-37-51-316.jpg (0.24 MB)
답변 1
예스스탁 예스스탁 답변
2016-10-24 10:05:44
안녕하세요
예스스탁입니다.
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),Hv(0),Lv(0);
틱가치 = PriceScale;
if T == 0 and SwingHigh(1,H,Left,Right,Left+Right+1) != -1 Then{
Hv = H[right];
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{
Lv = L[right];
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{
Lv = L[right];
LD = sDate[Right];
LT = sTime[Right];
LL = L[Right];
LC = C[Right];
TL_SetEnd(TL,LD,LT,LL);
Text_Delete(tx);
if 진폭만표시 == 1 then {
tx = Text_New(LD,LT,Lv-숫자표시이격*틱가치,NumToStr(abs(Hv-Lv)/PriceScale,0));
}
if 가격만표시 == 1 then {
tx = Text_New(LD,LT,Lv-숫자표시이격*틱가치,NumToStr(Lv,소수점아래자리수));
}
if 가격진폭표시 == 1 then {
tx = Text_New(LD,LT,Lv-숫자표시이격*틱가치,NumToStr(Lv,소수점아래자리수)+NewLine+NumToStr(abs(Hv-Lv)/PriceScale,0));
}
Text_SetStyle(tx,2,2);
Text_SetColor(tx,blue);
HH = LL;
}
if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 and H[right] > HH Then{
Hv = H[right];
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,Hv+숫자표시이격*틱가치,NumToStr(abs(Hv-Lv)/PriceScale,0));
}
if 가격만표시 == 1 then {
tx = Text_New(HD,HT,Hv+숫자표시이격*틱가치,NumToStr(Hv,소수점아래자리수));
}
if 가격진폭표시 == 1 then {
tx = Text_New(HD,HT,Hv+숫자표시이격*틱가치,NumToStr(abs(Hv-Lv)/PriceScale,0)+NewLine+NumToStr(Hv,소수점아래자리수));
}
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{
Hv = H[right];
HD = sDate[Right];
HT = sTime[Right];
HH = H[Right];
HC = C[Right];
TL_SetEnd(TL,HD,HT,HH);
Text_Delete(tx);
if 진폭만표시 == 1 then {
tx = Text_new( HD,HT,Hv+숫자표시이격*틱가치,NumToStr(abs(Hv-Lv)/PriceScale,0));
}
if 가격만표시 == 1 then {
tx = Text_New(HD,HT,Hv+숫자표시이격*틱가치,NumToStr(Hv,소수점아래자리수));
}
if 가격진폭표시 == 1 then {
tx = Text_New(HD,HT,Hv+숫자표시이격*틱가치,NumToStr(abs(Hv-Lv)/PriceScale,0)+NewLine+NumToStr(Hv,소수점아래자리수));
}
Text_SetStyle(tx,2,2);
Text_SetColor(tx,red);
LL = HH;
}
if SwingLow(1,L,Left,Right,Left+Right+1) != -1 and L[right] < LL Then{
Lv = L[right];
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,Lv-숫자표시이격*틱가치,NumToStr(abs(Hv-Lv)/PriceScale,0));
}
if 가격만표시 == 1 then {
tx = Text_New(LD,LT,Lv-숫자표시이격*틱가치,NumToStr(Lv,소수점아래자리수));
}
if 가격진폭표시 == 1 then {
tx = Text_New(LD,LT,Lv-숫자표시이격*틱가치,NumToStr(Lv,소수점아래자리수)+NewLine+NumToStr(abs(Hv-Lv)/PriceScale,0));
}
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);
}
즐거운 하루되세요
> 스로우 님이 쓴 글입니다.
> 제목 : 49964의 추가질문 드립니다
> 안녕하세요. 도움주신 지표식을 잘 사용하고 있읍니다.
그런데 약간의 에러가 발생되서 추가 질문 드립니다.
<아래는 수정 작성해 주신 지표식입니다>
<수정 내용은 첨부한 화면캡쳐에 기록해 놓았읍니다>
<도움 부탁드립니다. 감사합니다. ^^>
======================================
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);
}
다음글
이전글