커뮤니티
부탁 드립니다.
2016-05-09 17:49:48
129
글번호 97846
항상 도움 주심에 감사 드립니다.
아래 수식에서
tx1,tx4,tx5,tx6 등이 정상적이지 않습니다.
수정 부탁 드립니다.
미리 감사와 경배 올립니다.
input : per382(38.2),per500(50),per618(61.8);
var : cnt(0),diff(0);
Array : WH[100](0),WL[100](0);
if Bdate != Bdate[1] Then{
WH[0] = H;
WL[0] = l;
for cnt = 1 to 99{
WH[cnt] = WH[cnt-1][1];
WL[cnt] = WL[cnt-1][1];
}
}
if H > WH[0] Then
WH[0] = H;
if L < WL[0] Then
WL[0] = L;
if WH[1] > 0 and Wh[1] > 0 then{
diff = WH[1]-WL[1];
var10 = WL[1];
var30 = WL[1]+diff*(Per382/100);
var35 = WL[1]+diff*(Per500/100);
var40 = WL[1]+diff*(Per618/100);
var60 = WH[1];
Var : cond5(false);
INPUT:시작시간(170010),끝시간(160000);
var99=20160508;
var1=시작시간;
var2=끝시간;
if sdate == var99 and (stime == var1 or (stime > var1 and stime[1] < var1)) then{
cond5 = true;
}
if stime == var2 or (stime > var2 and stime[1] < var2 ) Then
Cond5 = false;
if cond5 == true then{
plot10(log10(Var10),"H",RED,DEF,1);
plot30(log10(var30),"38.2%",BLUE,DEF,1);
plot35(log10(var35),"50%",MAGENTA,DEF,0);
plot40(log10(var40),"61.8%",GREEN,DEF,1);
plot60(log10(var60),"L",BLACK,DEF,1);
var:tx1(0);
Text_Delete(tx1);
Tx1 = Text_New(sdate,stime,(WH[1]),NumToStr((WH[1]-WL[1]),10));//고점선과 저점선의 차이값
Text_SetColor(tx1,RED);
Text_SetStyle(tx1,2,1);
var:tx4(0);
Text_Delete(tx4);
Tx4 = Text_New(sdate,stime,var40,rightStr("61.8%",10));
Text_SetColor(tx4,white);
Text_SetStyle(tx4,2,0);
var:tx5(0);
Text_Delete(tx5);
Tx5 = Text_New(sdate,stime,var35,rightStr("중심값",10));
Text_SetColor(tx5,magenta);
Text_SetStyle(tx5,2,0);
var:tx6(0);
Text_Delete(tx6);
Tx6 = Text_New(sdate,stime,var30,rightStr("38.2%",10));
Text_SetColor(tx6,white);
Text_SetStyle(tx6,2,0);
}
}
답변 2
예스스탁 예스스탁 답변
2016-05-10 13:04:12
안녕하세요
예스스탁입니다.
1
변수 선언부분은 따로 빼서 상단에 위치하셔야 합니다.
if문에 넣으시면 안됩니다.
2
텍스트문 수정했습니다.
input : per382(38.2),per500(50),per618(61.8);
INPUT:시작시간(170010),끝시간(160000);
var : cnt(0),diff(0);
Var : cond5(false);
var:tx1(0);
var:tx4(0);
var:tx5(0);
var:tx6(0);
Array : WH[100](0),WL[100](0);
var99 = 20160508;
var1 = 시작시간;
var2 = 끝시간;
if Bdate != Bdate[1] Then{
WH[0] = H;
WL[0] = l;
for cnt = 1 to 99{
WH[cnt] = WH[cnt-1][1];
WL[cnt] = WL[cnt-1][1];
}
}
if H > WH[0] Then
WH[0] = H;
if L < WL[0] Then
WL[0] = L;
if WH[1] > 0 and Wh[1] > 0 then{
diff = WH[1]-WL[1];
var10 = WL[1];
var30 = WL[1]+diff*(Per382/100);
var35 = WL[1]+diff*(Per500/100);
var40 = WL[1]+diff*(Per618/100);
var60 = WH[1];
if sdate == var99 and (stime == var1 or (stime > var1 and stime[1] < var1)) then{
cond5 = true;
}
if stime == var2 or (stime > var2 and stime[1] < var2 ) Then
Cond5 = false;
if cond5 == true then{
plot10(log10(Var10),"H",RED,DEF,1);
plot30(log10(var30),"38.2%",BLUE,DEF,1);
plot35(log10(var35),"50%",MAGENTA,DEF,0);
plot40(log10(var40),"61.8%",GREEN,DEF,1);
plot60(log10(var60),"L",BLACK,DEF,1);
Text_Delete(tx1);
Tx1 = Text_New(sdate,stime,(WH[1]),"차이 :"+NumToStr((WH[1]-WL[1]),5));//고점선과 저점선의 차이값
Text_SetColor(tx1,RED);
Text_SetStyle(tx1,2,1);
Text_Delete(tx4);
Tx4 = Text_New(sdate,stime,var40,"61.8% "+ NumToStr(var40,5));
Text_SetColor(tx4,white);
Text_SetStyle(tx4,2,0);
Text_Delete(tx5);
Tx5 = Text_New(sdate,stime,var35,"중심값 "+ NumToStr(var35,5));
Text_SetColor(tx5,magenta);
Text_SetStyle(tx5,2,0);
Text_Delete(tx6);
Tx6 = Text_New(sdate,stime,var30,"38.2% "+ NumToStr(var30,5));
Text_SetColor(tx6,white);
Text_SetStyle(tx6,2,0);
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 항상 도움 주심에 감사 드립니다.
아래 수식에서
tx1,tx4,tx5,tx6 등이 정상적이지 않습니다.
수정 부탁 드립니다.
미리 감사와 경배 올립니다.
input : per382(38.2),per500(50),per618(61.8);
var : cnt(0),diff(0);
Array : WH[100](0),WL[100](0);
if Bdate != Bdate[1] Then{
WH[0] = H;
WL[0] = l;
for cnt = 1 to 99{
WH[cnt] = WH[cnt-1][1];
WL[cnt] = WL[cnt-1][1];
}
}
if H > WH[0] Then
WH[0] = H;
if L < WL[0] Then
WL[0] = L;
if WH[1] > 0 and Wh[1] > 0 then{
diff = WH[1]-WL[1];
var10 = WL[1];
var30 = WL[1]+diff*(Per382/100);
var35 = WL[1]+diff*(Per500/100);
var40 = WL[1]+diff*(Per618/100);
var60 = WH[1];
Var : cond5(false);
INPUT:시작시간(170010),끝시간(160000);
var99=20160508;
var1=시작시간;
var2=끝시간;
if sdate == var99 and (stime == var1 or (stime > var1 and stime[1] < var1)) then{
cond5 = true;
}
if stime == var2 or (stime > var2 and stime[1] < var2 ) Then
Cond5 = false;
if cond5 == true then{
plot10(log10(Var10),"H",RED,DEF,1);
plot30(log10(var30),"38.2%",BLUE,DEF,1);
plot35(log10(var35),"50%",MAGENTA,DEF,0);
plot40(log10(var40),"61.8%",GREEN,DEF,1);
plot60(log10(var60),"L",BLACK,DEF,1);
var:tx1(0);
Text_Delete(tx1);
Tx1 = Text_New(sdate,stime,(WH[1]),NumToStr((WH[1]-WL[1]),10));//고점선과 저점선의 차이값
Text_SetColor(tx1,RED);
Text_SetStyle(tx1,2,1);
var:tx4(0);
Text_Delete(tx4);
Tx4 = Text_New(sdate,stime,var40,rightStr("61.8%",10));
Text_SetColor(tx4,white);
Text_SetStyle(tx4,2,0);
var:tx5(0);
Text_Delete(tx5);
Tx5 = Text_New(sdate,stime,var35,rightStr("중심값",10));
Text_SetColor(tx5,magenta);
Text_SetStyle(tx5,2,0);
var:tx6(0);
Text_Delete(tx6);
Tx6 = Text_New(sdate,stime,var30,rightStr("38.2%",10));
Text_SetColor(tx6,white);
Text_SetStyle(tx6,2,0);
}
}
yes
2016-05-10 18:03:43
수식 답변에 감사 드립니다.
수식을 실행 결과 "Y축표시" 탭에서
"가격"을 "현재 설정값을 기본값으로 저장" 하였음에도
매번 그림과 같이 됩니다.
어떻게 하면 정상적으로 되는 지요?
미리 감사와 경배 올립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
> 안녕하세요
예스스탁입니다.
1
변수 선언부분은 따로 빼서 상단에 위치하셔야 합니다.
if문에 넣으시면 안됩니다.
2
텍스트문 수정했습니다.
input : per382(38.2),per500(50),per618(61.8);
INPUT:시작시간(170010),끝시간(160000);
var : cnt(0),diff(0);
Var : cond5(false);
var:tx1(0);
var:tx4(0);
var:tx5(0);
var:tx6(0);
Array : WH[100](0),WL[100](0);
var99 = 20160508;
var1 = 시작시간;
var2 = 끝시간;
if Bdate != Bdate[1] Then{
WH[0] = H;
WL[0] = l;
for cnt = 1 to 99{
WH[cnt] = WH[cnt-1][1];
WL[cnt] = WL[cnt-1][1];
}
}
if H > WH[0] Then
WH[0] = H;
if L < WL[0] Then
WL[0] = L;
if WH[1] > 0 and Wh[1] > 0 then{
diff = WH[1]-WL[1];
var10 = WL[1];
var30 = WL[1]+diff*(Per382/100);
var35 = WL[1]+diff*(Per500/100);
var40 = WL[1]+diff*(Per618/100);
var60 = WH[1];
if sdate == var99 and (stime == var1 or (stime > var1 and stime[1] < var1)) then{
cond5 = true;
}
if stime == var2 or (stime > var2 and stime[1] < var2 ) Then
Cond5 = false;
if cond5 == true then{
plot10(log10(Var10),"H",RED,DEF,1);
plot30(log10(var30),"38.2%",BLUE,DEF,1);
plot35(log10(var35),"50%",MAGENTA,DEF,0);
plot40(log10(var40),"61.8%",GREEN,DEF,1);
plot60(log10(var60),"L",BLACK,DEF,1);
Text_Delete(tx1);
Tx1 = Text_New(sdate,stime,(WH[1]),"차이 :"+NumToStr((WH[1]-WL[1]),5));//고점선과 저점선의 차이값
Text_SetColor(tx1,RED);
Text_SetStyle(tx1,2,1);
Text_Delete(tx4);
Tx4 = Text_New(sdate,stime,var40,"61.8% "+ NumToStr(var40,5));
Text_SetColor(tx4,white);
Text_SetStyle(tx4,2,0);
Text_Delete(tx5);
Tx5 = Text_New(sdate,stime,var35,"중심값 "+ NumToStr(var35,5));
Text_SetColor(tx5,magenta);
Text_SetStyle(tx5,2,0);
Text_Delete(tx6);
Tx6 = Text_New(sdate,stime,var30,"38.2% "+ NumToStr(var30,5));
Text_SetColor(tx6,white);
Text_SetStyle(tx6,2,0);
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 항상 도움 주심에 감사 드립니다.
아래 수식에서
tx1,tx4,tx5,tx6 등이 정상적이지 않습니다.
수정 부탁 드립니다.
미리 감사와 경배 올립니다.
input : per382(38.2),per500(50),per618(61.8);
var : cnt(0),diff(0);
Array : WH[100](0),WL[100](0);
if Bdate != Bdate[1] Then{
WH[0] = H;
WL[0] = l;
for cnt = 1 to 99{
WH[cnt] = WH[cnt-1][1];
WL[cnt] = WL[cnt-1][1];
}
}
if H > WH[0] Then
WH[0] = H;
if L < WL[0] Then
WL[0] = L;
if WH[1] > 0 and Wh[1] > 0 then{
diff = WH[1]-WL[1];
var10 = WL[1];
var30 = WL[1]+diff*(Per382/100);
var35 = WL[1]+diff*(Per500/100);
var40 = WL[1]+diff*(Per618/100);
var60 = WH[1];
Var : cond5(false);
INPUT:시작시간(170010),끝시간(160000);
var99=20160508;
var1=시작시간;
var2=끝시간;
if sdate == var99 and (stime == var1 or (stime > var1 and stime[1] < var1)) then{
cond5 = true;
}
if stime == var2 or (stime > var2 and stime[1] < var2 ) Then
Cond5 = false;
if cond5 == true then{
plot10(log10(Var10),"H",RED,DEF,1);
plot30(log10(var30),"38.2%",BLUE,DEF,1);
plot35(log10(var35),"50%",MAGENTA,DEF,0);
plot40(log10(var40),"61.8%",GREEN,DEF,1);
plot60(log10(var60),"L",BLACK,DEF,1);
var:tx1(0);
Text_Delete(tx1);
Tx1 = Text_New(sdate,stime,(WH[1]),NumToStr((WH[1]-WL[1]),10));//고점선과 저점선의 차이값
Text_SetColor(tx1,RED);
Text_SetStyle(tx1,2,1);
var:tx4(0);
Text_Delete(tx4);
Tx4 = Text_New(sdate,stime,var40,rightStr("61.8%",10));
Text_SetColor(tx4,white);
Text_SetStyle(tx4,2,0);
var:tx5(0);
Text_Delete(tx5);
Tx5 = Text_New(sdate,stime,var35,rightStr("중심값",10));
Text_SetColor(tx5,magenta);
Text_SetStyle(tx5,2,0);
var:tx6(0);
Text_Delete(tx6);
Tx6 = Text_New(sdate,stime,var30,rightStr("38.2%",10));
Text_SetColor(tx6,white);
Text_SetStyle(tx6,2,0);
}
}
다음글
이전글