커뮤니티
부탁드립니다.
2016-08-01 03:43:17
128
글번호 100556
도움주심에 깊이 감사드립니다.
질문1)->매수 매도 전용
1)var1이 red로 변경된후에 var2,var3 모두가 red로 변하면 매수 진입
2)var1,var2가 black로 변하면 청산
3)var1,var2,var3가 모두 black로 변하면 매도 진입
4)var1,var2가 red로 변하면 청산
질문2) 매수 전용
1)var1이 red로 변경된후에 var2,var3 모두가 red로 변하면 매수 진입
2)var1,var2가 black로 변하면 청산
3)->1)번과 같이 무한 반복
질문3) 매도 전용
1)var1이 black로 변경된후에 var2,var3 모두가 black로 변하면 매도 진입
2)var1,var2가 red로 변하면 청산
3)->1)번과 같이 무한 반복
Input: p1(5),p3(10),p5(15);
var1=ma(c,p1);
var2=ma(c,p3);
var3=ma(c,p5);
if var1>var1[1] then
plot1(var1,"p1",red,def,1);
else
plot1(var1,"p1",black,def,1);
if var2>var2[1] then
plot2(var2,"p2",red,def,1);
else
plot2(var2,"p2",black,def,1);
if var3>var3[1] then
plot3(var3,"p3",red,def,1);
else
plot3(var3,"p3",black,def,1);
질문4)
1)해선 영업시간(07:00~익일 06:00)에 나타나도록 표시
2)r[2] = 0.50; 을 다른색상 또는 다른굵기로 부탁 드립니다.
Input:inDate(20160729);
Var:j(0),date11(0),date12(0),time11(0),time12(0),TL1(0),
date21(0),date22(0),time21(0),time22(0),
hiVal(0),loVal(0),hiBar(0),loBar(0);
Array:r[5](0),fr[5](0),TL2[5](0);
r[0] = 0;
r[1] = 0.236;
r[2] = 0.50;
r[3] = 0.764;
r[4] = 1;
if DayClose(1) > DayHigh(0) then {
hiVal = DayClose(1);
hiBar = DayIndex + 1;
}
else {
hiVal = DayHigh(0);
hiBar = _DayHighBar(0);
}
if DayClose(1) < DayLow(0) then {
loVal = DayClose(1);
loBar = DayIndex + 1;
}
else {
loVal = DayLow(0);
loBar = _DayLowBar(0);
}
if (Date == CurrentDate and inDate == 0) ||
Date == inDate then {
if hiBar > loBar then {
date11 = date[hiBar];
time11 = stime[hiBar];
date12 = date[loBar];
time12 = stime[loBar];
TL_Delete(TL1);
TL1 = TL_New(date11,time11,hiVal,date12,time12,loVal);
date21 = date[hiBar];
time21 = stime[hiBar];
date22 = date[0];
time22 = stime[0];
for j = 0 to 4 {
fr[j] = hiVal - ((hiVal - loVal) * r[j]);
TL_Delete(TL2[j]);
TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]);
}
}
else {
date11 = date[loBar];
time11 = stime[loBar];
date12 = date[hiBar];
time12 = stime[hiBar];
TL_Delete(TL1);
TL1 = TL_New(date11,time11,loVal,date12,time12,hiVal);
date21 = date[loBar];
time21 = stime[loBar];
date22 = date[0];
time22 = stime[0];
for j = 0 to 4 {
fr[j] = loVal + ((hiVal - loVal) * r[j]);
TL_Delete(TL2[j]);
TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]);
}
}
}
TL_SetSize(TL1,1);
답변 1
예스스탁 예스스탁 답변
2016-08-01 16:31:21
안녕하세요
예스스탁입니다.
1.
Input: p1(5),p3(10),p5(15);
var : T1(0),T2(0),T3(0);
var1=ma(c,p1);
var2=ma(c,p3);
var3=ma(c,p5);
if var1>var1[1] then
T1 = 1;
else
T1 = -1;
if var2>var2[1] then
T2 = 1;
Else
T2 = -1;
if var3>var3[1] then
T3 = 1;
else
T3 = -1;
Condition1 = T1 == 1 and T2 == 1 and T3 == 1;
Condition2 = T1 == -1 and T2 == -1 and T3 == -1;
if Condition1 == true and Condition1[1] == false Then
buy();
if Condition2 == true and Condition2[1] == false Then
sell();
if MarketPosition == 1 and var1 == -1 and var2 == -1 Then
exitlong();
if MarketPosition == -1 and var1 == 1 and var2 == 1 Then
ExitShort();
2
Input: p1(5),p3(10),p5(15);
var : T1(0),T2(0),T3(0);
var1=ma(c,p1);
var2=ma(c,p3);
var3=ma(c,p5);
if var1>var1[1] then
T1 = 1;
else
T1 = -1;
if var2>var2[1] then
T2 = 1;
Else
T2 = -1;
if var3>var3[1] then
T3 = 1;
else
T3 = -1;
Condition1 = T1 == 1 and T2 == 1 and T3 == 1;
Condition2 = T1 == -1 and T2 == -1 and T3 == -1;
if Condition1 == true and Condition1[1] == false Then
buy();
if MarketPosition == 1 and var1 == -1 and var2 == -1 Then
exitlong();
3
Input: p1(5),p3(10),p5(15);
var : T1(0),T2(0),T3(0);
var1=ma(c,p1);
var2=ma(c,p3);
var3=ma(c,p5);
if var1>var1[1] then
T1 = 1;
else
T1 = -1;
if var2>var2[1] then
T2 = 1;
Else
T2 = -1;
if var3>var3[1] then
T3 = 1;
else
T3 = -1;
Condition1 = T1 == 1 and T2 == 1 and T3 == 1;
Condition2 = T1 == -1 and T2 == -1 and T3 == -1;
if Condition2 == true and Condition2[1] == false Then
sell();
if MarketPosition == -1 and var1 == 1 and var2 == 1 Then
ExitShort();
4
Input:inDate(20160729);
Var:j(0),date11(0),date12(0),time11(0),time12(0),TL1(0),
date21(0),date22(0),time21(0),time22(0),
hiVal(0),loVal(0),hiBar(0),loBar(0);
Array:r[5](0),fr[5](0),TL2[5](0);
r[0] = 0;
r[1] = 0.236;
r[2] = 0.50;
r[3] = 0.764;
r[4] = 1;
if DayClose(1) > DayHigh(0) then {
hiVal = DayClose(1);
hiBar = DayIndex + 1;
}
else {
hiVal = DayHigh(0);
hiBar = _DayHighBar(0);
}
if DayClose(1) < DayLow(0) then {
loVal = DayClose(1);
loBar = DayIndex + 1;
}
else {
loVal = DayLow(0);
loBar = _DayLowBar(0);
}
if (Date == CurrentDate and inDate == 0) ||
Date == inDate then {
if hiBar > loBar then {
date11 = date[hiBar];
time11 = stime[hiBar];
date12 = date[loBar];
time12 = stime[loBar];
TL_Delete(TL1);
TL1 = TL_New(date11,time11,hiVal,date12,time12,loVal);
date21 = date[hiBar];
time21 = stime[hiBar];
date22 = date[0];
time22 = stime[0];
for j = 0 to 4 {
fr[j] = hiVal - ((hiVal - loVal) * r[j]);
TL_Delete(TL2[j]);
TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]);
TL_SetColor(TL2[2],RED);
TL_SetSize(TL2[2],3);
}
}
else {
date11 = date[loBar];
time11 = stime[loBar];
date12 = date[hiBar];
time12 = stime[hiBar];
TL_Delete(TL1);
TL1 = TL_New(date11,time11,loVal,date12,time12,hiVal);
date21 = date[loBar];
time21 = stime[loBar];
date22 = date[0];
time22 = stime[0];
for j = 0 to 4 {
fr[j] = loVal + ((hiVal - loVal) * r[j]);
TL_Delete(TL2[j]);
TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]);
TL_SetColor(TL2[2],RED);
TL_SetSize(TL2[2],3);
}
}
}
TL_SetSize(TL1,1);
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 도움주심에 깊이 감사드립니다.
질문1)->매수 매도 전용
1)var1이 red로 변경된후에 var2,var3 모두가 red로 변하면 매수 진입
2)var1,var2가 black로 변하면 청산
3)var1,var2,var3가 모두 black로 변하면 매도 진입
4)var1,var2가 red로 변하면 청산
질문2) 매수 전용
1)var1이 red로 변경된후에 var2,var3 모두가 red로 변하면 매수 진입
2)var1,var2가 black로 변하면 청산
3)->1)번과 같이 무한 반복
질문3) 매도 전용
1)var1이 black로 변경된후에 var2,var3 모두가 black로 변하면 매도 진입
2)var1,var2가 red로 변하면 청산
3)->1)번과 같이 무한 반복
Input: p1(5),p3(10),p5(15);
var1=ma(c,p1);
var2=ma(c,p3);
var3=ma(c,p5);
if var1>var1[1] then
plot1(var1,"p1",red,def,1);
else
plot1(var1,"p1",black,def,1);
if var2>var2[1] then
plot2(var2,"p2",red,def,1);
else
plot2(var2,"p2",black,def,1);
if var3>var3[1] then
plot3(var3,"p3",red,def,1);
else
plot3(var3,"p3",black,def,1);
질문4)
1)해선 영업시간(07:00~익일 06:00)에 나타나도록 표시
2)r[2] = 0.50; 을 다른색상 또는 다른굵기로 부탁 드립니다.
Input:inDate(20160729);
Var:j(0),date11(0),date12(0),time11(0),time12(0),TL1(0),
date21(0),date22(0),time21(0),time22(0),
hiVal(0),loVal(0),hiBar(0),loBar(0);
Array:r[5](0),fr[5](0),TL2[5](0);
r[0] = 0;
r[1] = 0.236;
r[2] = 0.50;
r[3] = 0.764;
r[4] = 1;
if DayClose(1) > DayHigh(0) then {
hiVal = DayClose(1);
hiBar = DayIndex + 1;
}
else {
hiVal = DayHigh(0);
hiBar = _DayHighBar(0);
}
if DayClose(1) < DayLow(0) then {
loVal = DayClose(1);
loBar = DayIndex + 1;
}
else {
loVal = DayLow(0);
loBar = _DayLowBar(0);
}
if (Date == CurrentDate and inDate == 0) ||
Date == inDate then {
if hiBar > loBar then {
date11 = date[hiBar];
time11 = stime[hiBar];
date12 = date[loBar];
time12 = stime[loBar];
TL_Delete(TL1);
TL1 = TL_New(date11,time11,hiVal,date12,time12,loVal);
date21 = date[hiBar];
time21 = stime[hiBar];
date22 = date[0];
time22 = stime[0];
for j = 0 to 4 {
fr[j] = hiVal - ((hiVal - loVal) * r[j]);
TL_Delete(TL2[j]);
TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]);
}
}
else {
date11 = date[loBar];
time11 = stime[loBar];
date12 = date[hiBar];
time12 = stime[hiBar];
TL_Delete(TL1);
TL1 = TL_New(date11,time11,loVal,date12,time12,hiVal);
date21 = date[loBar];
time21 = stime[loBar];
date22 = date[0];
time22 = stime[0];
for j = 0 to 4 {
fr[j] = loVal + ((hiVal - loVal) * r[j]);
TL_Delete(TL2[j]);
TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]);
}
}
}
TL_SetSize(TL1,1);
다음글