예스스탁
예스스탁 답변
2022-01-26 09:35:53
안녕하세요
예스스탁입니다.
input : 색1(RED),굵기1(1);
input : 색2(BLUE),굵기2(1);
input : 색3(GREEN),굵기3(1);
input : 색4(YELLOW),굵기4(1);
var : d1month(0,Data1),d1nday(0,Data1),d1week(0,Data1);
var : d1EX(false,Data1),d1HH(0,Data1),d1LL(0,Data1),d1OO(0,Data1),d1plot2(0,Data1);
var : d1CC(0,Data1),d1DD(0,Data1),d1HH1(0,Data1),d1LL1(0,Data1),d1OO1(0,Data1),d1cond1(False,Data1);
var : d1var1(0,Data1),d1var2(0,Data1),d1var3(0,Data1),d1var4(0,Data1),d1var5(0,Data1),d1var6(0,Data1);
var : d2month(0,Data2),d2nday(0,Data2),d2week(0,Data2);
var : d2EX(false,Data2),d2HH(0,Data2),d2LL(0,Data2),d2OO(0,Data2),d2plot2(0,Data1);
var : d2CC(0,Data2),d2DD(0,Data2),d2HH1(0,Data2),d2LL1(0,Data2),d2OO1(0,Data2),d2cond1(False,Data2);
var : d2var1(0,Data2),d2var2(0,Data2),d2var3(0,Data2),d2var4(0,Data2),d2var5(0,Data2),d2var6(0,Data2);
var : tl(0);
#Data1
d1month = data1(int(date/100)-int(date/10000)*100);
d1nday = data1(date - int(date/100)*100);
d1week = data1(DayOfWeek(date));
#선물만기
#if d1Month%3 == 0 and d1nday >= 8 and d1nday <= 14 and d1week == 4 then
if d1nday >= 8 and d1nday <= 14 and d1week == 4 then#옵션만기
d1EX = true;
Else
d1EX = false;
if d1EX == false and d1EX[1] == true Then
{
d1Cond1 = true;
d1DD = sDate;
d1HH = data1(H);
d1LL = data1(L);
d1OO = data1(O);
d1CC = data1(C);
d1HH1 = d1HH[1];
d1LL1 = d1LL[1];
d1OO1 = d1OO[1];
}
if d1Cond1 == true then
{
if data1(H) > d1HH Then
d1HH = data1(H);
if data1(L) < d1LL Then
d1LL = data1(L);
d1var1 = d1HH;
d1var2 = d1LL;
d1var3 = d1var1-d1var2;
d1plot2 = d1var2+d1var3*0.500;
plot1(d1var1,"Maxi");
plot2(d1var2+d1var3*0.500,"중심");
plot3(d1var2,"Mini");
if sDate == d1DD Then
{
d1Var4 = data1(OpenD(0));
d1Var5 = data1(HighD(0));
d1Var6 = data1(LowD(0));
}
Plot4(d1Var4,"첫날시가",IFf(d1oo1 < data1(OpenD(0)) ,MAGENTA,BLUE));
if d1HH1 > 0 and d1LL1 > 0 Then
{
Plot5(d1HH1,"전월물최고");
Plot6(d1LL1,"전월물최저");
}
}
#Data1
d2month = data2(int(date/100)-int(date/10000)*100);
d2nday = data2(date - int(date/100)*100);
d2week = data2(DayOfWeek(date));
#선물만기
#if d2Month%3 == 0 and d2nday >= 8 and d2nday <= 14 and d2week == 4 then
if d2nday >= 8 and d2nday <= 14 and d2week == 4 then#옵션만기
d2EX = true;
Else
d2EX = false;
if d2EX == false and d2EX[1] == true Then
{
d2Cond1 = true;
d2DD = sDate;
d2HH = data2(H);
d2LL = data2(L);
d2OO = data2(O);
d2CC = data2(C);
d2HH1 = d2HH[1];
d2LL1 = d2LL[1];
d2OO1 = d2OO[1];
}
if d2Cond1 == true then
{
if data2(H) > d2HH Then
d2HH = data2(H);
if data2(L) < d2LL Then
d2LL = data2(L);
d2var1 = d2HH;
d2var2 = d2LL;
d2var3 = d2var1-d2var2;
d2plot2 = d1var2+d1var3*0.500;
plot7(d2var1,"Maxi");
plot8(d2var2+d2var3*0.500,"중심");
plot9(d2var2,"Mini");
if sDate == d2DD Then
{
d2Var4 = data2(OpenD(0));
d2Var5 = data2(HighD(0));
d2Var6 = data2(LowD(0));
}
Plot10(d2Var4,"첫날시가",IFf(d2oo1 < data2(OpenD(0)) ,MAGENTA,BLUE));
if d2HH1 > 0 and d2LL1 > 0 Then
{
Plot11(d2HH1,"전월물최고");
Plot12(d2LL1,"전월물최저");
}
}
if Data1(CrossUp(h,d1plot2) or CrossDown(l,d1plot2)) Then
{
tl = TL_New_Self(sDate,sTime,0,sDate,sTime,99999999);
TL_SetColor(tl,색1);
TL_SetSize(Tl,굵기1);
PlaySound("");
}
if Data2(CrossUp(h,d1plot2) or CrossDown(l,d1plot2)) Then
{
tl = TL_New_Self(sDate,sTime,0,sDate,sTime,99999999);
TL_SetColor(tl,색2);
TL_SetSize(Tl,굵기2);
PlaySound("");
}
if Data1(CrossUp(h,d2plot2) or CrossDown(l,d2plot2)) Then
{
tl = TL_New_Self(sDate,sTime,0,sDate,sTime,99999999);
TL_SetColor(tl,색3);
TL_SetSize(Tl,굵기3);
PlaySound("");
}
if Data2(CrossUp(h,d2plot2) or CrossDown(l,d2plot2)) Then
{
tl = TL_New_Self(sDate,sTime,0,sDate,sTime,99999999);
TL_SetColor(tl,색4);
TL_SetSize(Tl,굵기4);
PlaySound("");
}
즐거운 하루되세요
> 유로파54 님이 쓴 글입니다.
> 제목 : 문의 드립니다!
> 안녕하세요!
아래수식에서 plot2와 캔들이 만날때 세로선과 알람신호가 발생토록 부탁드립니다
* data1(풋)과 data2(콜)를 설정한 교차챠트의 2개캔들 모두에 이지표를 적용하고자 하는데요
이때 상대캔들과 이지표가 만날때도 세로선이 발생토록 부탁드립니다
즉, 콜캔들에 적용한 지표에 풋캔들이 만났을때와 이 반대의 경우도 해당됩니다
(* 선의 두께와 색은 임의로 조정가능토록 부탁드립니다)
항상 친절하고 자세히 도와주심에 진심으로 감사드립니다
-----------------------------------------------------
var : month(0),nday(0),week(0);
var :EX(false),HH(0),LL(0),OO(0),CC(0),DD(0),HH1(0),LL1(0),OO1(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;
DD = sDate;
HH = H;
LL = L;
OO = O;
CC = C;
HH1 = HH[1];
LL1 = LL[1];
OO1 = OO[1];
}
if Condition1 == true then
{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
var1 = HH;
var2 = LL;
var3 = var1-var2;
plot1(var1,"Maxi");
plot2(var2+var3*0.500,"중심");
plot3(var2,"Mini");
if sDate == DD Then
{
Var4 = DayOpen;
Var5 = DayHigh;
Var6 = DayLow;
}
Plot4(Var4,"첫날시가",IFf(oo1 < DayOpen(0) ,MAGENTA,BLUE));
if HH1 > 0 and LL1 > 0 Then
{
Plot5(HH1,"전월물최고");
Plot6(LL1,"전월물최저");
}
}