커뮤니티
문의드립니다
2014-11-15 20:41:36
228
글번호 80400
첨부 이미지
그림1
1.
그림과 같이 1번에서 5번까지 각각 0.7포인트 이상 오르거나 내리면
자동으로 1번에서 5번까지 각각 눌림목 6.18 과 반등 6.18 을 다 선으로 자동으로 계산되어 표시되도록 부탁드립니다
2.
매달 만기일 선물 저가고가가 자동으로 선으로 표시 되게 하여 주세요
만기일 다음날이 되면 전 만기일의 고점 저점은 자동으로 사라지고 어제 만기일 선물 고점 저점이 자동으로 표시 되도록 부탁드립니다
고점과 저점은 선두께를 5으로 표시되고 고점은 빨강 저점은 파랑으로 부탁드립니다
- 1. 눌림목-1.GIF (0.01 MB)
답변 1
예스스탁 예스스탁 답변
2014-11-17 10:34:59
안녕하세요
예스스탁입니다.
1.
input : Left(3),Right(3);
var : cnt(0),T(0);
Array : SHD[5](0),SHT[5](0),SHV[5](0);
Array : SLD[5](0),SLT[5](0),SLV[5](0);
if SwingHigh(1,H,Left,Right,Left+right+1) != -1 Then{
T = 1;
SHD[0] = sdate[Right];
SHT[0] = stime[Right];
SHV[0] = H[Right];
for cnt = 1 to 4{
SHD[cnt] = SHD[cnt-1][1];
SHT[cnt] = SHT[cnt-1][1];
SHV[cnt] = SHV[cnt-1][1];
}
}
if SwingLow(1,H,Left,Right,Left+right+1) != -1 Then{
T = -1;
SLD[0] = sdate[Right];
SLT[0] = stime[Right];
SLV[0] = L[Right];
for cnt = 1 to 4{
SLD[cnt] = SLD[cnt-1][1];
SLT[cnt] = SLT[cnt-1][1];
SLV[cnt] = SLV[cnt-1][1];
}
}
if T == 1 and
SHV[0] >= SLV[0]+0.7 and
SLV[0] <= SHV[1]-0.7 and
SHV[1] >= SLV[1]+0.7 and
SLV[1] <= SHV[2]-0.7 Then{
TL_Delete(var1);
var1 = TL_New(SHD[0],SHT[0],SLV[0]+Abs(SHV[0]-SLV[0])*0.618,sdate,stime,SLV[0]+abs(SHV[0]-SLV[0])*0.618);
TL_Delete(var2);
var2 = TL_New(SLD[0],SLT[0],SHV[1]-abs(SHV[1]-SLV[0])*0.618,sdate,stime,SHV[1]-abs(SHV[1]-SLV[0])*0.618);
TL_Delete(var3);
var3 = TL_New(SHD[1],SHT[1],SLV[1]+abs(SHV[1]-SLV[1])*0.618,sdate,stime,SLV[1]+abs(SHV[1]-SLV[1])*0.618);
TL_Delete(var4);
var4 = TL_New(SLD[1],SLT[1],SHV[2]-abs(SHV[2]-SLV[1])*0.618,sdate,stime,SHV[2]-(SHV[2]-SLV[1])*0.618);
TL_Delete(var5);
var5 = TL_New(SHD[2],SHT[2],SHV[2]-abs(SHV[2]-SLV[2])*0.618,sdate,stime,SHV[2]-(SHV[2]-SLV[2])*0.618);
}
if T == -1 and
SLV[0] <= SHV[0]-0.7 and
SHV[0] >= SLV[1]+0.7 and
SLV[1] <= SHV[1]-0.7 and
SHV[1] >= SLV[2]+0.7 Then{
TL_Delete(var1);
var1 = TL_New(SLD[0],SLT[0],SHV[0]-Abs(SHV[0]-SLV[0])*0.618,sdate,stime,SHV[0]-abs(SHV[0]-SLV[0])*0.618);
TL_Delete(var2);
var2 = TL_New(SHD[0],SHT[0],SLV[1]+abs(SLV[1]-SHV[0])*0.618,sdate,stime,SLV[1]+abs(SLV[1]-SHV[0])*0.618);
TL_Delete(var3);
var3 = TL_New(SLD[1],SLT[1],SHV[1]-abs(SHV[1]-SLV[1])*0.618,sdate,stime,SHV[1]-abs(SHV[1]-SLV[1])*0.618);
TL_Delete(var4);
var4 = TL_New(SHD[1],SHT[1],SLV[2]+abs(SLV[2]-SHV[1])*0.618,sdate,stime,SLV[2]+abs(SLV[2]-SHV[1])*0.618);
TL_Delete(var5);
var5 = TL_New(SLD[2],SLT[2],SHV[2]-abs(SHV[2]-SLV[2])*0.618,sdate,stime,SHV[2]-(SHV[2]-SLV[2])*0.618);
}
2.
var: H1(0),L1(0),cond1(false),month1(0),nday1(0),week1(0);
month1 = int(date/100)-int(date/10000)*100;
nday1 = date - int(date/100)*100;
week1 = DayOfWeek(date);
#선물만기일이면 month%3 == 0 조건 추가
if (month1%3 == 0 and nday1 >= 8 and nday1 <= 14 and week1 == 4) or data1(sdate == 20141008) then #만기일이 공휴일이어서 날짜가 당겨진날 지정
Cond1 = True;
Else
Cond1 = false;
if Cond1 == false and Cond1[1] == true and date != date[1] Then{
H1 = dayhigh(1);
L1 = DayLow(1);
}
if H1 > 0 and L1 > 0 Then{
plot1(H1,"1",RED,def,5);
plot2(L1,"2",blue,def,5);
}
즐거운 하루되세요
> bbcc 님이 쓴 글입니다.
> 제목 : 문의드립니다
> 1.
그림과 같이 1번에서 5번까지 각각 0.7포인트 이상 오르거나 내리면
자동으로 1번에서 5번까지 각각 눌림목 6.18 과 반등 6.18 을 다 선으로 자동으로 계산되어 표시되도록 부탁드립니다
2.
매달 만기일 선물 저가고가가 자동으로 선으로 표시 되게 하여 주세요
만기일 다음날이 되면 전 만기일의 고점 저점은 자동으로 사라지고 어제 만기일 선물 고점 저점이 자동으로 표시 되도록 부탁드립니다
고점과 저점은 선두께를 5으로 표시되고 고점은 빨강 저점은 파랑으로 부탁드립니다
이전글