커뮤니티
문의드립니다.
2022-08-18 22:25:04
1391
글번호 161595
저번에 알려주신 수식을 DATA2수식으로 전환 부탁드립니다.
var : a(0),b(0);
var : HH(0),HD(0),HT(0);
var : HH1(0),HD1(0),HT1(0);
var : LL(0),LD(0),LT(0);
var : LL1(0),LD1(0),LT1(0);
var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
a = ma(C,5);
b = ma(c,20);
Condition1 = C > a and C > b;
Condition2 = C < a and C < b;
if Condition1 == true and Condition1[1] == False Then
Buy();
if Condition2 == true and Condition2[1] == False Then
Sell();
if MarketPosition == 1 Then
{
if MarketPosition != MarketPosition[1] Then
{
HD = sDate[BarsSinceEntry];
HT = sTime[BarsSinceEntry];
HH = H[BarsSinceEntry];
HD1 = HD[1];
HT1 = HT[1];
HH1 = HH[1];
if HH1 > 0 and LL > 0 Then
{
value1 = HH1;
Value2 = LL;
TL = TL_new(HD1,HT1,value1,LD,LT,Value2);
TL1 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Red);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL2,Magenta);
TL_SetColor(TL3,Magenta);
TL_SetColor(TL4,Magenta);
TL_SetColor(TL5,Magenta);
}
}
if H > HH Then
{
HD = sDate;
HT = sTime;
HH = H;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
if MarketPosition == -1 Then
{
if MarketPosition != MarketPosition[1] Then
{
LD = sDate[BarsSinceEntry];
LT = sTime[BarsSinceEntry];
LL = L[BarsSinceEntry];
LD1 = LD[1];
LT1 = LT[1];
LL1 = LL[1];
if LL1 > 0 and HH > 0 Then
{
value1 = HH;
Value2 = LL1;
TL = TL_new(LD1,LT1,LL1,HD,HT,HH);
TL1 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Blue);
TL_SetColor(TL1,Cyan);
TL_SetColor(TL2,Cyan);
TL_SetColor(TL3,Cyan);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
}
}
if L < LL Then
{
LD = sDate;
LT = sTime;
LL = L;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
답변 1
예스스탁 예스스탁 답변
2022-08-19 11:20:15
안녕하세요
예스스탁입니다.
시스템식은 참조데이타를 이용하는 내용으로 변경해도
기본적으로 기본차트 종목에 신호가 발생하는 내용입니다.
해당식 안에서 참조데이타에 추세선이 그려지게 작성할 수가 없습니다.
data2를 이용하는 추세선은 별도로 지표식으로 작성해 적용해 보셔야 하며
지표적용 후에 마우스로 끌어 참조데이타에 올리셔야 합니다.
수식에서 발생한 추세선은 마우스로 잡히지 않으므로
지표식에 plot으로 data2시초가 그려지게 추가해 드립니다.
1 시스템
var : a(0),b(0);
var : cond1(False,Data2),cond2(False,Data2);
a = data2(ma(C,5));
b = data2(ma(c,20));
Cond1 = data2(C > a and C > b);
Cond2 = data2(C < a and C < b);
if Cond1 == true and Cond1[1] == False Then
Buy();
if Cond2 == true and cond2[1] == False Then
Sell();
2 지표
var : a(0),b(0);
var : HH(0),HD(0),HT(0);
var : HH1(0),HD1(0),HT1(0);
var : LL(0),LD(0),LT(0);
var : LL1(0),LD1(0),LT1(0);
var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : cond1(False),cond2(False);
var : t(0),val1(0),val2(0);
a = data2(ma(C,5));
b = data2(ma(c,20));
Cond1 = data2(C > a and C > b);
Cond2 = data2(C < a and C < b);
if T <= 0 and Cond1 == true and Cond1[1] == False Then
T = 1;
if T >= 0 and Cond2 == true and Cond2[1] == False Then
T= -1;
if T == 1 Then
{
if T != T[1] Then
{
HD = data2(sDate);
HT = Data2(sTime);
HH = data2(H);
HD1 = HD[1];
HT1 = HT[1];
HH1 = HH[1];
if HH1 > 0 and LL > 0 Then
{
val1 = HH1;
val2 = LL;
TL = TL_New_Self(HD1,HT1,val1,LD,LT,val2);
TL1 = TL_New_Self(HD,HT,val1,data2(sDate),data2(stime),val1);
TL2 = TL_New_Self(HD,HT,val2,data2(sDate),data2(stime),val2);
TL3 = TL_New_Self(HD,HT,val1-(val1-val2)*0.382,data2(sDate),data2(stime),val1-(val1-val2)*0.382);
TL4 = TL_New_Self(HD,HT,val1-(val1-val2)*0.500,data2(sDate),data2(stime),val1-(val1-val2)*0.500);
TL5 = TL_New_Self(HD,HT,val1-(val1-val2)*0.618,data2(sDate),data2(stime),val1-(val1-val2)*0.618);
TL_SetColor(TL,Red);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL2,Magenta);
TL_SetColor(TL3,Magenta);
TL_SetColor(TL4,Magenta);
TL_SetColor(TL5,Magenta);
}
}
if data2(H) > HH Then
{
HD = data2(sDate);
HT = data2(sTime);
HH = data2(H);
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,data2(sDate),data2(stime),val1);
TL_SetEnd(TL2,data2(sDate),data2(stime),val2);
TL_SetEnd(TL3,data2(sDate),data2(stime),val1-(val1-val2)*0.382);
TL_SetEnd(TL4,data2(sDate),data2(stime),val1-(val1-val2)*0.500);
TL_SetEnd(TL5,data2(sDate),data2(stime),val1-(val1-val2)*0.618);
}
}
if T == -1 Then
{
if T != T[1] Then
{
LD = data2(sDate);
LT = data2(sTime);
LL = data2(L);
LD1 = LD[1];
LT1 = LT[1];
LL1 = LL[1];
if LL1 > 0 and HH > 0 Then
{
val1 = HH;
val2 = LL1;
TL = TL_New_Self(LD1,LT1,LL1,HD,HT,HH);
TL1 = TL_New_Self(LD,LT,val1,data2(sDate),data2(stime),val1);
TL2 = TL_New_Self(LD,LT,val2,data2(sDate),data2(stime),val2);
TL3 = TL_New_Self(LD,LT,val1-(val1-val2)*0.382,data2(sDate),data2(stime),val1-(val1-val2)*0.382);
TL4 = TL_New_Self(LD,LT,val1-(val1-val2)*0.500,data2(sDate),data2(stime),val1-(val1-val2)*0.500);
TL5 = TL_New_Self(LD,LT,val1-(val1-val2)*0.618,data2(sDate),data2(stime),val1-(val1-val2)*0.618);
TL_SetColor(TL,Blue);
TL_SetColor(TL1,Cyan);
TL_SetColor(TL2,Cyan);
TL_SetColor(TL3,Cyan);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
}
}
if data2(L) < LL Then
{
LD = data2(sDate);
LT = data2(sTime);
LL = data2(L);
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,data2(sDate),data2(stime),val1);
TL_SetEnd(TL2,data2(sDate),data2(stime),val2);
TL_SetEnd(TL3,data2(sDate),data2(stime),val1-(val1-val2)*0.382);
TL_SetEnd(TL4,data2(sDate),data2(stime),val1-(val1-val2)*0.500);
TL_SetEnd(TL5,data2(sDate),data2(stime),val1-(val1-val2)*0.618);
}
}
Plot1(Data2(OpenD(0)));
즐거운 하루되세요
> 아름다운아침 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 저번에 알려주신 수식을 DATA2수식으로 전환 부탁드립니다.
var : a(0),b(0);
var : HH(0),HD(0),HT(0);
var : HH1(0),HD1(0),HT1(0);
var : LL(0),LD(0),LT(0);
var : LL1(0),LD1(0),LT1(0);
var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
a = ma(C,5);
b = ma(c,20);
Condition1 = C > a and C > b;
Condition2 = C < a and C < b;
if Condition1 == true and Condition1[1] == False Then
Buy();
if Condition2 == true and Condition2[1] == False Then
Sell();
if MarketPosition == 1 Then
{
if MarketPosition != MarketPosition[1] Then
{
HD = sDate[BarsSinceEntry];
HT = sTime[BarsSinceEntry];
HH = H[BarsSinceEntry];
HD1 = HD[1];
HT1 = HT[1];
HH1 = HH[1];
if HH1 > 0 and LL > 0 Then
{
value1 = HH1;
Value2 = LL;
TL = TL_new(HD1,HT1,value1,LD,LT,Value2);
TL1 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Red);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL2,Magenta);
TL_SetColor(TL3,Magenta);
TL_SetColor(TL4,Magenta);
TL_SetColor(TL5,Magenta);
}
}
if H > HH Then
{
HD = sDate;
HT = sTime;
HH = H;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
if MarketPosition == -1 Then
{
if MarketPosition != MarketPosition[1] Then
{
LD = sDate[BarsSinceEntry];
LT = sTime[BarsSinceEntry];
LL = L[BarsSinceEntry];
LD1 = LD[1];
LT1 = LT[1];
LL1 = LL[1];
if LL1 > 0 and HH > 0 Then
{
value1 = HH;
Value2 = LL1;
TL = TL_new(LD1,LT1,LL1,HD,HT,HH);
TL1 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Blue);
TL_SetColor(TL1,Cyan);
TL_SetColor(TL2,Cyan);
TL_SetColor(TL3,Cyan);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
}
}
if L < LL Then
{
LD = sDate;
LT = sTime;
LL = L;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
다음글
이전글