커뮤니티
문의드립니다
2016-10-11 01:53:05
197
글번호 102777
첨부 이미지
그림1
(20161011).jpg&post_key=102777 "Crude_Oil(16-11_USD)(20161011).jpg")
input :len1(5);
var : ii(0),j(0);
Array : hvalue[10,2](0),lvalue[10,2](0);
If SwingHighBar(1,high,len1,len1,len1+len1+1) == len1 Then{
Var1=999999;
For ii = 9 downTo 1 {
hvalue[ii,0] = hvalue[ii-1,0];
hvalue[ii,1] = hvalue[ii-1,1];
}
hvalue[0,0] = SwingHigh(1,high,len1,len1,len1+len1+1);
hvalue[0,1] = index;
For j = 1 To 9{
If hvalue[j,0] > hvalue[0,0] Then{
Var1=j;
j=11;
}
}
If Var1<=10 then{
If (hvalue[0,1]- hvalue[Var1,1])*SwingHighBar(1,high,len1,len1,len1+len1+1) +hvalue[0,0] <> 0 then{
Var10=(hvalue[0,0]-hvalue[Var1,0])/(hvalue[0,1]-hvalue[Var1,1]) * SwingHighBar(1,high,len1,len1,len1+len1+1)+hvalue[0,0];
}
}
#Else
# Var10=999999;
}
If SwingLowBar(1,Low,len1,len1,len1+len1+1) == len1 then{
Var2=999999;
For ii = 9 downTo 1 {
lvalue[ii,0] = lvalue[ii-1,0];
lvalue[ii,1] = lvalue[ii-1,1];
}
lvalue[0,0] = SwingLow(1,Low,len1,len1,len1+len1+1);
lvalue[0,1] = index;
For j = 1 To 9 {
If lvalue[j,0] < lvalue[0,0] then{
Var2=j;
j=11;
}
}
If Var2<=10 then{
If (hvalue[0,1]- hvalue[Var2,1])*SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]<>0 then{
Var11=(lvalue[0,0]-lvalue[Var2,0])/(lvalue[0,1]-lvalue[Var2,1])* SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0];
}
}
#Else
# Var11=99999;
}
plot1(var10);
plot2(var11);
미리감사드립니다49984번재문의드립니다
`` 그런데 파일처림추세선이 나와야 되는데 이렇게 나오지않고 수평으로 나옵니다 다시한번수정부탁드립니다
- 1. Crude_Oil(16-11_USD)(20161011).jpg (0.19 MB)
(20161011).jpg&post_key=102777){kind=link}
답변 2
예스스탁 예스스탁 답변
2016-10-11 11:05:58
> 장군 님이 쓴 글입니다.
> 제목 : 문의드립니다
> input :len1(5);
var : ii(0),j(0);
Array : hvalue[10,2](0),lvalue[10,2](0);
If SwingHighBar(1,high,len1,len1,len1+len1+1) == len1 Then{
Var1=999999;
For ii = 9 downTo 1 {
hvalue[ii,0] = hvalue[ii-1,0];
hvalue[ii,1] = hvalue[ii-1,1];
}
hvalue[0,0] = SwingHigh(1,high,len1,len1,len1+len1+1);
hvalue[0,1] = index;
For j = 1 To 9{
If hvalue[j,0] > hvalue[0,0] Then{
Var1=j;
j=11;
}
}
If Var1<=10 then{
If (hvalue[0,1]- hvalue[Var1,1])*SwingHighBar(1,high,len1,len1,len1+len1+1) +hvalue[0,0] <> 0 then{
Var10=(hvalue[0,0]-hvalue[Var1,0])/(hvalue[0,1]-hvalue[Var1,1]) * SwingHighBar(1,high,len1,len1,len1+len1+1)+hvalue[0,0];
}
}
#Else
# Var10=999999;
}
If SwingLowBar(1,Low,len1,len1,len1+len1+1) == len1 then{
Var2=999999;
For ii = 9 downTo 1 {
lvalue[ii,0] = lvalue[ii-1,0];
lvalue[ii,1] = lvalue[ii-1,1];
}
lvalue[0,0] = SwingLow(1,Low,len1,len1,len1+len1+1);
lvalue[0,1] = index;
For j = 1 To 9 {
If lvalue[j,0] < lvalue[0,0] then{
Var2=j;
j=11;
}
}
If Var2<=10 then{
If (hvalue[0,1]- hvalue[Var2,1])*SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]<>0 then{
Var11=(lvalue[0,0]-lvalue[Var2,0])/(lvalue[0,1]-lvalue[Var2,1])* SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0];
}
}
#Else
# Var11=99999;
}
plot1(var10);
plot2(var11);
미리감사드립니다49984번재문의드립니다
`` 그런데 파일처림추세선이 나와야 되는데 이렇게 나오지않고 수평으로 나옵니다 다시한번수정부탁드립니다
예스스탁 예스스탁 답변
2016-10-11 16:37:12
안녕하세요
예스스탁입니다.
아래식 참고하시기 바랍니다.
#주가가 고점연결선보다 크면 추세선 삭제
if Condition1 == true and C > TL_GetValue(TL1,sdate,stime) Then
TL_Delete(TL1);
#주가가 저점연결선보다 작으면 추세선 삭제
if Condition2 == true and C < TL_GetValue(TL2,sdate,stime) Then
TL_Delete(TL2);
수식 하단의 위 내용 삭제하시면
가장 최근 고점연결선과 저점연결선이 항상 표시 됩니다.
input :len1(5);
var : cnt(0),TL1(0),TL2(0);
var : HHv(0),HDv(0),HTv(0);
var : LLv(0),LDv(0),LTv(0);
Array : HH[10](0),HD[10](0),HT[10](0);
Array : LL[10](0),LD[10](0),LT[10](0);
If SwingHighBar(1,high,len1,len1,len1+len1+1) != -1 Then{
HH[0] = H[Len1];
HD[0] = sdate[Len1];
HT[0] = stime[Len1];
For cnt = 1 To 9{
HH[cnt] = HH[cnt-1][1];
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
}
Condition1 = false;
For cnt = 1 To 9{
if Condition1 == false and HH[cnt] > HH[0] and HH[cnt] > 0 Then{
Condition1 = true;
HHv = HH[cnt];
HDv = HD[cnt];
HTv = HT[cnt];
}
}
#이전 9개의 고점 중 현재 고점보다 높은 고점이 있으면
#고점연결선 출력
if Condition1 == true then{
TL_Delete(TL1);
TL1 = TL_New(HDv,HTv,HHv,HD[0],HT[0],HH[0]);
TL_SetColor(TL1,RED);
TL_SetExtRight(TL1,true);
}
}
If SwingLow(1,L,len1,len1,len1+len1+1) != -1 Then{
LL[0] = L[Len1];
LD[0] = sdate[Len1];
LT[0] = stime[Len1];
For cnt = 1 To 9{
LL[cnt] = LL[cnt-1][1];
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
}
Condition2 = false;
For cnt = 1 To 9{
if Condition2 == false and LL[cnt] < LL[0] and LL[cnt] > 0 Then{
Condition2 = true;
LLv = LL[cnt];
LDv = LD[cnt];
LTv = LT[cnt];
}
}
#이전 9개의 저점 중 현재 저점보다 낮은 저점이 있으면
#저점 연결선 출력
if Condition2 == true then{
TL_Delete(TL2);
TL2 = TL_New(LDv,LTv,LLv,LD[0],LT[0],LL[0]);
TL_SetColor(TL2,blue);
TL_SetExtRight(TL2,true);
}
}
#주가가 고점연결선보다 크면 추세선 삭제
if Condition1 == true and C > TL_GetValue(TL1,sdate,stime) Then
TL_Delete(TL1);
#주가가 저점연결선보다 작으면 추세선 삭제
if Condition2 == true and C < TL_GetValue(TL2,sdate,stime) Then
TL_Delete(TL2);
즐거운 하루되세요
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re :전화주시기 바랍니다(02-3453-1060)
>
> 장군 님이 쓴 글입니다.
> 제목 : 문의드립니다
> input :len1(5);
var : ii(0),j(0);
Array : hvalue[10,2](0),lvalue[10,2](0);
If SwingHighBar(1,high,len1,len1,len1+len1+1) == len1 Then{
Var1=999999;
For ii = 9 downTo 1 {
hvalue[ii,0] = hvalue[ii-1,0];
hvalue[ii,1] = hvalue[ii-1,1];
}
hvalue[0,0] = SwingHigh(1,high,len1,len1,len1+len1+1);
hvalue[0,1] = index;
For j = 1 To 9{
If hvalue[j,0] > hvalue[0,0] Then{
Var1=j;
j=11;
}
}
If Var1<=10 then{
If (hvalue[0,1]- hvalue[Var1,1])*SwingHighBar(1,high,len1,len1,len1+len1+1) +hvalue[0,0] <> 0 then{
Var10=(hvalue[0,0]-hvalue[Var1,0])/(hvalue[0,1]-hvalue[Var1,1]) * SwingHighBar(1,high,len1,len1,len1+len1+1)+hvalue[0,0];
}
}
#Else
# Var10=999999;
}
If SwingLowBar(1,Low,len1,len1,len1+len1+1) == len1 then{
Var2=999999;
For ii = 9 downTo 1 {
lvalue[ii,0] = lvalue[ii-1,0];
lvalue[ii,1] = lvalue[ii-1,1];
}
lvalue[0,0] = SwingLow(1,Low,len1,len1,len1+len1+1);
lvalue[0,1] = index;
For j = 1 To 9 {
If lvalue[j,0] < lvalue[0,0] then{
Var2=j;
j=11;
}
}
If Var2<=10 then{
If (hvalue[0,1]- hvalue[Var2,1])*SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]<>0 then{
Var11=(lvalue[0,0]-lvalue[Var2,0])/(lvalue[0,1]-lvalue[Var2,1])* SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0];
}
}
#Else
# Var11=99999;
}
plot1(var10);
plot2(var11);
미리감사드립니다49984번재문의드립니다
`` 그런데 파일처림추세선이 나와야 되는데 이렇게 나오지않고 수평으로 나옵니다 다시한번수정부탁드립니다
다음글
이전글