커뮤니티
수식부탁드립니다.
2018-06-30 15:45:11
195
글번호 120191
###,아래수식을 해선 틱 차트에도 적용가능 하도록 도움 부탁드립니다
var : month(0),nday(0),week(0);
var :EX(false),HH(0),LL(0);
var : t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0),t8(0),t9(0),t10(0);
month = int(date/100)-int(date/10000)*100;
nday = date - int(date/100)*100;
week = DayOfWeek(date);
#선물만기
#if Month%3 == 0 and nday >= 8 and nday <= 14 and week == 4 then
if nday >= 8 and nday <= 14 and week == 4 then#옵션만기
EX = true;
Else
EX = false;
if EX == false and EX[1] == true Then{
Condition1 = true;
HH = H;
LL = L;
}
if Condition1 == true then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
var1 = HH;
var2 = LL;
var3 = var1-var2;
var4 = DayOpen(0);
plot1(var1,"최고");
plot2(var2+var3*0.882,"88.2%");
plot3(var2+var3*0.764,"76.4%");
plot4(var2+var3*0.618,"61.8%");
plot5(var2+var3*0.500,"50.0%");
plot6(var2+var3*0.382,"38.2%");
plot7(var2+var3*0.236,"23.6%");
plot8(var2+var3*0.112,"11.2%");
plot9(var2,"최저");
plot10(var4,"시가");
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
Text_Delete(t6);
Text_Delete(t7);
Text_Delete(t8);
Text_Delete(t9);
Text_Delete(t10);
t1 = Text_New(sdate,stime,var1," 최고 :"+NumToStr(var1,2));
t2 = Text_New(sdate,stime,var2+var3*0.882," 88.2% :"+NumToStr(var2+var3*0.882,2));
t3 = Text_New(sdate,stime,var2+var3*0.764," 76.4% :"+NumToStr(var2+var3*0.764,2));
t4 = Text_New(sdate,stime,var2+var3*0.618," 61.8% :"+NumToStr(var2+var3*0.618,2));
t5 = Text_New(sdate,stime,var2+var3*0.500," 50.0% :"+NumToStr(var2+var3*0.500,2));
t6 = Text_New(sdate,stime,var2+var3*0.382," 38.2% :"+NumToStr(var2+var3*0.382,2));
t7 = Text_New(sdate,stime,var2+var3*0.236," 23.6% :"+NumToStr(var2+var3*0.236,2));
t8 = Text_New(sdate,stime,var2+var3*0.112," 11.2% :"+NumToStr(var2+var3*0.112,2));
t9 = Text_New(sdate,stime,var2," 최저 : "+NumToStr(var2,2));
t10 = Text_New(sdate,stime,var4," 시가 : "+NumToStr(var4,2));
답변 1
예스스탁 예스스탁 답변
2018-07-02 14:26:10
안녕하세요
예스스탁입니다.
올려주신 내용은 만기일기준인데
해선으로 변경을 해드릴수 없습니다
예를 들어 크루드오일 같은 경우
[만기월 전월 25일의 3영업일전]
와 같은데 해당 내용이 수식으로는 체크할수 없습니다.
해외선물은 만기기준으로 저희가 식을 작성해 드리기 어렵습니다.
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식부탁드립니다.
> ###,아래수식을 해선 틱 차트에도 적용가능 하도록 도움 부탁드립니다
var : month(0),nday(0),week(0);
var :EX(false),HH(0),LL(0);
var : t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0),t8(0),t9(0),t10(0);
month = int(date/100)-int(date/10000)*100;
nday = date - int(date/100)*100;
week = DayOfWeek(date);
#선물만기
#if Month%3 == 0 and nday >= 8 and nday <= 14 and week == 4 then
if nday >= 8 and nday <= 14 and week == 4 then#옵션만기
EX = true;
Else
EX = false;
if EX == false and EX[1] == true Then{
Condition1 = true;
HH = H;
LL = L;
}
if Condition1 == true then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
var1 = HH;
var2 = LL;
var3 = var1-var2;
var4 = DayOpen(0);
plot1(var1,"최고");
plot2(var2+var3*0.882,"88.2%");
plot3(var2+var3*0.764,"76.4%");
plot4(var2+var3*0.618,"61.8%");
plot5(var2+var3*0.500,"50.0%");
plot6(var2+var3*0.382,"38.2%");
plot7(var2+var3*0.236,"23.6%");
plot8(var2+var3*0.112,"11.2%");
plot9(var2,"최저");
plot10(var4,"시가");
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
Text_Delete(t6);
Text_Delete(t7);
Text_Delete(t8);
Text_Delete(t9);
Text_Delete(t10);
t1 = Text_New(sdate,stime,var1," 최고 :"+NumToStr(var1,2));
t2 = Text_New(sdate,stime,var2+var3*0.882," 88.2% :"+NumToStr(var2+var3*0.882,2));
t3 = Text_New(sdate,stime,var2+var3*0.764," 76.4% :"+NumToStr(var2+var3*0.764,2));
t4 = Text_New(sdate,stime,var2+var3*0.618," 61.8% :"+NumToStr(var2+var3*0.618,2));
t5 = Text_New(sdate,stime,var2+var3*0.500," 50.0% :"+NumToStr(var2+var3*0.500,2));
t6 = Text_New(sdate,stime,var2+var3*0.382," 38.2% :"+NumToStr(var2+var3*0.382,2));
t7 = Text_New(sdate,stime,var2+var3*0.236," 23.6% :"+NumToStr(var2+var3*0.236,2));
t8 = Text_New(sdate,stime,var2+var3*0.112," 11.2% :"+NumToStr(var2+var3*0.112,2));
t9 = Text_New(sdate,stime,var2," 최저 : "+NumToStr(var2,2));
t10 = Text_New(sdate,stime,var4," 시가 : "+NumToStr(var4,2));