커뮤니티
안녕하세요
2019-01-06 19:42:38
193
글번호 124994
안녕 하세요.
아래 지표식에서 중간 추세선은(( // )) 으로 인식 못하게 했는데요.
아레지표식에서 고점과 고점을 연결한 선 저점과저점을 쭈욱그은 선에 색상을 넣을수 있는지
궁금 합니다.
가능 하다면 고점과 고점선을 이은선은 파랑색으로 굵기 1
저점과 저점을 이은 선은 노랑색 굵기 1 로 나오도록 부탁을 드립니다.
그리고 차트에 수치를 나오게 하는 수식부분에 주석을 좀 부탁드립니다.^^
매번 도움 주셔서 감사드립니다.
input:barCnt(5);
Var:j(0),turnPntBit(""),TL1(0),TL33(0),TL44(0),HD(0),HT(0),LD(0),LT(0),HH(0),LL(0);
var : TL121(0),TL122(0),tx121(0),tx122(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
// 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가
For j = 0 To 9 {
barArr[j] = barArr[j] + 1;
}
// 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다
// 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다
Condition1 = Highest(H,barCnt)[barCnt+1] <= H[barCnt] and H[barCnt] > Highest(H,barCnt);
Condition2 = Lowest(L,barCnt)[barCnt+1] >= L[barCnt] and L[barCnt] < Lowest(L,barCnt);
// 전환점구분 null값으로 초기화;
// if 고점조건, 저점조건 동시 만족시 then
// if 이전 고점,저점 범위를 모두 벗어났을 때
// 전환점구분 = 고저점;
// else if 이전 고점을 갱신했다면 전환점구분 = 고점;
// else if 이전 저점을 갱신했다면 전환점구분 = 저점;
// else if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점;
// else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점;
// else if 고점조건 만족하면 전환점구분 = 고점;
// else if 저점조건 만족하면 전환전구분 = 저점;
turnPntBit = "";
If Condition1 and Condition2 Then {
If Max(valArr[1],valArr[2]) < H[barCnt] and Min(valArr[1],valArr[2]) > L[barCnt] Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H[barCnt] Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L[barCnt] Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Hi" Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Lo" Then turnPntBit = "Hi";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
// if 전환점구분에 값이 있을 때만 아래 실행, 없으면 통과
If turnPntBit <> "" Then
{
// if 전환점구분이 고저점이면 then
// 이전 파동은 연장시키고 아래에서 새로이 파동선을 추가토록 한다.
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H[barCnt],L[barCnt]);
barArr[1] = barCnt;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
// if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then
// 배열값들을 이전값으로 Move;
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
// if 전환점구분이 바뀌었거나 또는
// (전환점구분은 안바뀌었는데
// (이전 고점보다 높은 고점이 발생했거나 또는
// 이전 저점보다 낮은 저점이 발생했으면)) then
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H[barCnt]) or
(turnPntBit == "Lo" and valArr[1] > L[barCnt]))) Then {
// 값 배열에는 고점 또는 저점을 대입;
// 봉개수 배열에는 입력변수의 봉개수 대입;
// 전환점 배열에 전환점구분값을 대입;
valArr[1] = IFF(turnPntBit == "Hi",H[barCnt],L[barCnt]);
barArr[1] = barCnt;
turnPntArr[1] = turnPntBit;
// if 이전봉대비 전환점구분이 바뀌었다면 추세선 새로 그리고;
// else 전환점구분이 안바뀌었으면 값만 바뀐거므로 추세선 연장;
// If turnPntArr[1][1] <> turnPntArr[1][0] Then
// TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],
// sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
// Else
// TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
// TL_SetSize(TL1,0);
// TL_SetColor(TL1,GREEN);
var : TL11(0),TL12(0);
if turnPntArr[1][0] == "Hi" Then
{
TL_delete(TL12);
TL_Delete(TL11);
TL11 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
TL_SetExtRight(TL11,true);
TL_SetColor(TL11,BLUE);
TL_SetSize(TL11,3);
TL_Delete(TL121);
var1 = valArr[1]-abs(valArr[1]-valArr[2])*0.382;
var2 = valArr[1]-abs(valArr[1]-valArr[2])*0.618;
TL_SetExtRight(TL121,true);
TL_SetColor(TL121,GREEN);
TL_SetSize(TL121,1);
TL_Delete(TL122);
TL_SetExtRight(TL122,true);
TL_SetColor(TL122,GREEN);
TL_SetSize(TL122,1);
Text_Delete(tx121);
Text_Delete(tx122);
tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2));
}
if turnPntArr[1][0] == "Lo" Then
{
TL_delete(TL11);
TL_Delete(TL12);
TL12 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
TL_SetExtRight(TL12,true);
TL_SetColor(TL12,RED);
TL_SetSize(TL12,3);
TL_Delete(TL121);
var1 = valArr[1]+abs(valArr[1]-valArr[2])*0.382;
var2 = valArr[1]+abs(valArr[1]-valArr[2])*0.618;
TL_SetExtRight(TL121,true);
TL_SetColor(TL121,GREEN);
TL_SetSize(TL121,1);
TL_Delete(TL122);
TL_SetExtRight(TL122,true);
TL_SetColor(TL122,GREEN);
TL_SetSize(TL122,1);
Text_Delete(tx121);
Text_Delete(tx122);
tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2));
}
if bdate != BDate[1] Then{
HD = sdate;
HT = stime;
LD = sdate;
LT = stime;
HH = H;
LL = L;
}
if H > HH Then{
HH = H;
HD = sdate;
HT = stime;
}
TL_Delete(TL33);
if turnPntArr[1][0] == "Hi" Then{
TL33 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],HD,HT,dayhigh);
}
if turnPntArr[1][0] == "Lo" Then{
TL33 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],HD,HT,dayhigh);
}
TL_SetExtRight(TL33,true);
if L < LL Then{
LL = L;
LD = sdate;
LT = stime;
}
TL_Delete(TL44);
if turnPntArr[1][0] == "Hi" Then{
TL44 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],LD,LT,daylow);
}
if turnPntArr[1][0] == "Lo" Then{
TL44 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],LD,LT,daylow);
}
TL_SetExtRight(TL44,true);
Text_SetLocation(Tx121,sdate,stime,Text_GetValue(Tx121));
Text_SetLocation(Tx122,sdate,stime,Text_GetValue(Tx122));
Text_SetStyle(tx121,0,1);
Text_SetStyle(tx122,0,1);
답변 1
예스스탁 예스스탁 답변
2019-01-07 11:13:18
안녕하세요
예스스탁입니다.
input:barCnt(5);
Var:j(0),turnPntBit(""),TL1(0),TL33(0),TL44(0),HD(0),HT(0),LD(0),LT(0),HH(0),LL(0);
var : TL121(0),TL122(0),tx121(0),tx122(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
// 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가
For j = 0 To 9 {
barArr[j] = barArr[j] + 1;
}
// 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다
// 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다
Condition1 = Highest(H,barCnt)[barCnt+1] <= H[barCnt] and H[barCnt] > Highest(H,barCnt);
Condition2 = Lowest(L,barCnt)[barCnt+1] >= L[barCnt] and L[barCnt] < Lowest(L,barCnt);
// 전환점구분 null값으로 초기화;
// if 고점조건, 저점조건 동시 만족시 then
// if 이전 고점,저점 범위를 모두 벗어났을 때
// 전환점구분 = 고저점;
// else if 이전 고점을 갱신했다면 전환점구분 = 고점;
// else if 이전 저점을 갱신했다면 전환점구분 = 저점;
// else if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점;
// else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점;
// else if 고점조건 만족하면 전환점구분 = 고점;
// else if 저점조건 만족하면 전환전구분 = 저점;
turnPntBit = "";
If Condition1 and Condition2 Then {
If Max(valArr[1],valArr[2]) < H[barCnt] and Min(valArr[1],valArr[2]) > L[barCnt] Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H[barCnt] Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L[barCnt] Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Hi" Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Lo" Then turnPntBit = "Hi";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
// if 전환점구분에 값이 있을 때만 아래 실행, 없으면 통과
If turnPntBit <> "" Then
{
// if 전환점구분이 고저점이면 then
// 이전 파동은 연장시키고 아래에서 새로이 파동선을 추가토록 한다.
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H[barCnt],L[barCnt]);
barArr[1] = barCnt;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
// if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then
// 배열값들을 이전값으로 Move;
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
// if 전환점구분이 바뀌었거나 또는
// (전환점구분은 안바뀌었는데
// (이전 고점보다 높은 고점이 발생했거나 또는
// 이전 저점보다 낮은 저점이 발생했으면)) then
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H[barCnt]) or
(turnPntBit == "Lo" and valArr[1] > L[barCnt]))) Then {
// 값 배열에는 고점 또는 저점을 대입;
// 봉개수 배열에는 입력변수의 봉개수 대입;
// 전환점 배열에 전환점구분값을 대입;
valArr[1] = IFF(turnPntBit == "Hi",H[barCnt],L[barCnt]);
barArr[1] = barCnt;
turnPntArr[1] = turnPntBit;
// if 이전봉대비 전환점구분이 바뀌었다면 추세선 새로 그리고;
// else 전환점구분이 안바뀌었으면 값만 바뀐거므로 추세선 연장;
// If turnPntArr[1][1] <> turnPntArr[1][0] Then
// TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],
// sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
// Else
// TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
// TL_SetSize(TL1,0);
// TL_SetColor(TL1,GREEN);
var : TL11(0),TL12(0);
if turnPntArr[1][0] == "Hi" Then
{
TL_delete(TL12);
TL_Delete(TL11);
TL11 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
TL_SetExtRight(TL11,true);
TL_SetColor(TL11,BLUE);
TL_SetSize(TL11,3);
TL_Delete(TL121);
var1 = valArr[1]-abs(valArr[1]-valArr[2])*0.382;
var2 = valArr[1]-abs(valArr[1]-valArr[2])*0.618;
TL_SetExtRight(TL121,true);
TL_SetColor(TL121,GREEN);
TL_SetSize(TL121,1);
TL_Delete(TL122);
TL_SetExtRight(TL122,true);
TL_SetColor(TL122,GREEN);
TL_SetSize(TL122,1);
#텍스트 출력
#출력전에 이전에 출력한 것은 삭제(즉 매봉 새로 출력)
Text_Delete(tx121);
Text_Delete(tx122);
#고점-38.2 값 출력
#고점-61.8 값 출력
tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2));
}
if turnPntArr[1][0] == "Lo" Then
{
TL_delete(TL11);
TL_Delete(TL12);
TL12 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
TL_SetExtRight(TL12,true);
TL_SetColor(TL12,RED);
TL_SetSize(TL12,3);
TL_Delete(TL121);
var1 = valArr[1]+abs(valArr[1]-valArr[2])*0.382;
var2 = valArr[1]+abs(valArr[1]-valArr[2])*0.618;
TL_SetExtRight(TL121,true);
TL_SetColor(TL121,GREEN);
TL_SetSize(TL121,1);
TL_Delete(TL122);
TL_SetExtRight(TL122,true);
TL_SetColor(TL122,GREEN);
TL_SetSize(TL122,1);
#텍스트 출력
#출력전에 이전에 출력한 것은 삭제(즉 매봉 새로 출력)
Text_Delete(tx121);
Text_Delete(tx122);
#저점+38.2 값 출력
#저점+61.8 값 출력
tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2));
}
if bdate != BDate[1] Then{
HD = sdate;
HT = stime;
LD = sdate;
LT = stime;
HH = H;
LL = L;
}
if H > HH Then{
HH = H;
HD = sdate;
HT = stime;
}
TL_Delete(TL33);
if turnPntArr[1][0] == "Hi" Then{
TL33 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],HD,HT,dayhigh);
}
if turnPntArr[1][0] == "Lo" Then{
TL33 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],HD,HT,dayhigh);
}
TL_SetExtRight(TL33,true);
TL_setcolor(TL33,blue);
TL_setsize(TL33,1);
if L < LL Then{
LL = L;
LD = sdate;
LT = stime;
}
TL_Delete(TL44);
if turnPntArr[1][0] == "Hi" Then{
TL44 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],LD,LT,daylow);
}
if turnPntArr[1][0] == "Lo" Then{
TL44 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],LD,LT,daylow);
}
TL_SetExtRight(TL44,true);
TL_setcolor(TL44,YELLOW);
TL_setsize(TL44,1);
#텍스트 출력값 위치를 항상 마지막완성봉 위치로 옮김
Text_SetLocation(Tx121,sdate,stime,Text_GetValue(Tx121));
Text_SetLocation(Tx122,sdate,stime,Text_GetValue(Tx122));
#텍스트는 정렬
Text_SetStyle(tx121,0,1);
Text_SetStyle(tx122,0,1);
즐거운 하루되세요
> 천년의사랑 님이 쓴 글입니다.
> 제목 : 안녕하세요
> 안녕 하세요.
아래 지표식에서 중간 추세선은(( // )) 으로 인식 못하게 했는데요.
아레지표식에서 고점과 고점을 연결한 선 저점과저점을 쭈욱그은 선에 색상을 넣을수 있는지
궁금 합니다.
가능 하다면 고점과 고점선을 이은선은 파랑색으로 굵기 1
저점과 저점을 이은 선은 노랑색 굵기 1 로 나오도록 부탁을 드립니다.
그리고 차트에 수치를 나오게 하는 수식부분에 주석을 좀 부탁드립니다.^^
매번 도움 주셔서 감사드립니다.
input:barCnt(5);
Var:j(0),turnPntBit(""),TL1(0),TL33(0),TL44(0),HD(0),HT(0),LD(0),LT(0),HH(0),LL(0);
var : TL121(0),TL122(0),tx121(0),tx122(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
// 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가
For j = 0 To 9 {
barArr[j] = barArr[j] + 1;
}
// 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다
// 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다
Condition1 = Highest(H,barCnt)[barCnt+1] <= H[barCnt] and H[barCnt] > Highest(H,barCnt);
Condition2 = Lowest(L,barCnt)[barCnt+1] >= L[barCnt] and L[barCnt] < Lowest(L,barCnt);
// 전환점구분 null값으로 초기화;
// if 고점조건, 저점조건 동시 만족시 then
// if 이전 고점,저점 범위를 모두 벗어났을 때
// 전환점구분 = 고저점;
// else if 이전 고점을 갱신했다면 전환점구분 = 고점;
// else if 이전 저점을 갱신했다면 전환점구분 = 저점;
// else if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점;
// else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점;
// else if 고점조건 만족하면 전환점구분 = 고점;
// else if 저점조건 만족하면 전환전구분 = 저점;
turnPntBit = "";
If Condition1 and Condition2 Then {
If Max(valArr[1],valArr[2]) < H[barCnt] and Min(valArr[1],valArr[2]) > L[barCnt] Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H[barCnt] Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L[barCnt] Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Hi" Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Lo" Then turnPntBit = "Hi";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
// if 전환점구분에 값이 있을 때만 아래 실행, 없으면 통과
If turnPntBit <> "" Then
{
// if 전환점구분이 고저점이면 then
// 이전 파동은 연장시키고 아래에서 새로이 파동선을 추가토록 한다.
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H[barCnt],L[barCnt]);
barArr[1] = barCnt;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
// if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then
// 배열값들을 이전값으로 Move;
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
// if 전환점구분이 바뀌었거나 또는
// (전환점구분은 안바뀌었는데
// (이전 고점보다 높은 고점이 발생했거나 또는
// 이전 저점보다 낮은 저점이 발생했으면)) then
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H[barCnt]) or
(turnPntBit == "Lo" and valArr[1] > L[barCnt]))) Then {
// 값 배열에는 고점 또는 저점을 대입;
// 봉개수 배열에는 입력변수의 봉개수 대입;
// 전환점 배열에 전환점구분값을 대입;
valArr[1] = IFF(turnPntBit == "Hi",H[barCnt],L[barCnt]);
barArr[1] = barCnt;
turnPntArr[1] = turnPntBit;
// if 이전봉대비 전환점구분이 바뀌었다면 추세선 새로 그리고;
// else 전환점구분이 안바뀌었으면 값만 바뀐거므로 추세선 연장;
// If turnPntArr[1][1] <> turnPntArr[1][0] Then
// TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],
// sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
// Else
// TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
// TL_SetSize(TL1,0);
// TL_SetColor(TL1,GREEN);
var : TL11(0),TL12(0);
if turnPntArr[1][0] == "Hi" Then
{
TL_delete(TL12);
TL_Delete(TL11);
TL11 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
TL_SetExtRight(TL11,true);
TL_SetColor(TL11,BLUE);
TL_SetSize(TL11,3);
TL_Delete(TL121);
var1 = valArr[1]-abs(valArr[1]-valArr[2])*0.382;
var2 = valArr[1]-abs(valArr[1]-valArr[2])*0.618;
TL_SetExtRight(TL121,true);
TL_SetColor(TL121,GREEN);
TL_SetSize(TL121,1);
TL_Delete(TL122);
TL_SetExtRight(TL122,true);
TL_SetColor(TL122,GREEN);
TL_SetSize(TL122,1);
Text_Delete(tx121);
Text_Delete(tx122);
tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2));
}
if turnPntArr[1][0] == "Lo" Then
{
TL_delete(TL11);
TL_Delete(TL12);
TL12 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
TL_SetExtRight(TL12,true);
TL_SetColor(TL12,RED);
TL_SetSize(TL12,3);
TL_Delete(TL121);
var1 = valArr[1]+abs(valArr[1]-valArr[2])*0.382;
var2 = valArr[1]+abs(valArr[1]-valArr[2])*0.618;
TL_SetExtRight(TL121,true);
TL_SetColor(TL121,GREEN);
TL_SetSize(TL121,1);
TL_Delete(TL122);
TL_SetExtRight(TL122,true);
TL_SetColor(TL122,GREEN);
TL_SetSize(TL122,1);
Text_Delete(tx121);
Text_Delete(tx122);
tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2));
}
if bdate != BDate[1] Then{
HD = sdate;
HT = stime;
LD = sdate;
LT = stime;
HH = H;
LL = L;
}
if H > HH Then{
HH = H;
HD = sdate;
HT = stime;
}
TL_Delete(TL33);
if turnPntArr[1][0] == "Hi" Then{
TL33 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],HD,HT,dayhigh);
}
if turnPntArr[1][0] == "Lo" Then{
TL33 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],HD,HT,dayhigh);
}
TL_SetExtRight(TL33,true);
if L < LL Then{
LL = L;
LD = sdate;
LT = stime;
}
TL_Delete(TL44);
if turnPntArr[1][0] == "Hi" Then{
TL44 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],LD,LT,daylow);
}
if turnPntArr[1][0] == "Lo" Then{
TL44 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],LD,LT,daylow);
}
TL_SetExtRight(TL44,true);
Text_SetLocation(Tx121,sdate,stime,Text_GetValue(Tx121));
Text_SetLocation(Tx122,sdate,stime,Text_GetValue(Tx122));
Text_SetStyle(tx121,0,1);
Text_SetStyle(tx122,0,1);
다음글
이전글