커뮤니티
부탁드립니다.
2014-10-30 14:24:44
131
글번호 79916
안녕하세요? 항상 도움을 받고 있어서 감사드립니다.
아래는 게시판에 있는 수식입니다.
첫번째, 이걸 빨간색일때만 또는 파란색, 회색일때만 검색식으로 부탁합니다.
두번째, 분봉차트에서 일봉, 주봉의 데이터가 나올 수 있게 부탁드립니다.
input : EmaP(13),P1(12),P2(26),P3(9);
var1 = ema(c,emaP);
var2 = macd(P1,P2);
var3 = ema(var2,P3);
if var1 > var1[1] and var2 > var3 and var2 > var2[1] Then
plot1(H,"1",RED);
else if var1 < var1[1] and var2 < var3 and var2 < var2[1] Then
plot1(H,"1",BLUE);
Else
plot1(H,"1",GRAY);
답변 1
예스스탁 예스스탁 답변
2014-10-30 15:58:57
안녕하세요
예스스탁입니다.
1-1 빨간색만
input : EmaP(13),P1(12),P2(26),P3(9);
var1 = ema(c,emaP);
var2 = macd(P1,P2);
var3 = ema(var2,P3);
if var1 > var1[1] and var2 > var3 and var2 > var2[1] Then
plot1(H,"1",RED);
1-2 파란색만
input : EmaP(13),P1(12),P2(26),P3(9);
var1 = ema(c,emaP);
var2 = macd(P1,P2);
var3 = ema(var2,P3);
if var1 < var1[1] and var2 < var3 and var2 < var2[1] Then
plot1(H,"1",BLUE);
1-3 회색만
input : EmaP(13),P1(12),P2(26),P3(9);
var1 = ema(c,emaP);
var2 = macd(P1,P2);
var3 = ema(var2,P3);
if !(var1 > var1[1] and var2 > var3 and var2 > var2[1]) and
!( var1 < var1[1] and var2 < var3 and var2 < var2[1]) Then
plot1(H,"1",GRAY);
2-1 일봉(빨강)
Input : EmaP(13),P1(12),P2(26),P3(9);
Var : Ep1(0), JISU1(0), DINDEX1(0), PreJISU1(0);
Var : Ep2(0), JISU2(0), PreJISU2(0);
Var : Ep3(0), JISU3(0), PreMACDSIG(0),PreMACDVal(0);
var : MACDVal(0),MACDSig(0),EP0(0),PreEmav1(0),emav(0);
EP0 = 2/(EmaP+1);
Ep1 = 2/(P1+1);
Ep2 = 2/(P2+1);
Ep3 = 2/(P3+1);
if date != date[1] Then{
DINDEX1 = DINDEX1 + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreEmav1 = emav[1];
PreMACDVal = MACDVal[1];
PreMACDSIG = MACDSIG[1];
}
if DINDEX1 <= 1 then {
JISU1 = C;
JISU2 = C;
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal;
Emav = C;
}
else{
Emav = C * EP0 + PreEmav1 * (1-EP0);
JISU1 = C * EP1 + PreJISU1 * (1-EP1);
JISU2 = C * EP2 + PreJISU2 * (1-EP2);
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal * EP3 + PreMACDSIG * (1-EP3);
}
if emav > preemav1 and MACDVal > MACDSIG and MACDVal > MACDVal[1] then
plot1(H,"1",RED);
2-2 일봉(파랑)
Input : EmaP(13),P1(12),P2(26),P3(9);
Var : Ep1(0), JISU1(0), DINDEX1(0), PreJISU1(0);
Var : Ep2(0), JISU2(0), PreJISU2(0);
Var : Ep3(0), JISU3(0), PreMACDSIG(0),PreMACDVal(0);
var : MACDVal(0),MACDSig(0),EP0(0),PreEmav1(0),emav(0);
EP0 = 2/(EmaP+1);
Ep1 = 2/(P1+1);
Ep2 = 2/(P2+1);
Ep3 = 2/(P3+1);
if date != date[1] Then{
DINDEX1 = DINDEX1 + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreEmav1 = emav[1];
PreMACDVal = MACDVal[1];
PreMACDSIG = MACDSIG[1];
}
if DINDEX1 <= 1 then {
JISU1 = C;
JISU2 = C;
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal;
Emav = C;
}
else{
Emav = C * EP0 + PreEmav1 * (1-EP0);
JISU1 = C * EP1 + PreJISU1 * (1-EP1);
JISU2 = C * EP2 + PreJISU2 * (1-EP2);
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal * EP3 + PreMACDSIG * (1-EP3);
}
if emav < preemav1 and MACDVal < MACDSIG and MACDVal < MACDVal[1] then
plot1(H,"1",BLUE);
2-3 일봉(회색)
Input : EmaP(13),P1(12),P2(26),P3(9);
Var : Ep1(0), JISU1(0), DINDEX1(0), PreJISU1(0);
Var : Ep2(0), JISU2(0), PreJISU2(0);
Var : Ep3(0), JISU3(0), PreMACDSIG(0),PreMACDVal(0);
var : MACDVal(0),MACDSig(0),EP0(0),PreEmav1(0),emav(0);
EP0 = 2/(EmaP+1);
Ep1 = 2/(P1+1);
Ep2 = 2/(P2+1);
Ep3 = 2/(P3+1);
if date != date[1] Then{
DINDEX1 = DINDEX1 + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreEmav1 = emav[1];
PreMACDVal = MACDVal[1];
PreMACDSIG = MACDSIG[1];
}
if DINDEX1 <= 1 then {
JISU1 = C;
JISU2 = C;
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal;
Emav = C;
}
else{
Emav = C * EP0 + PreEmav1 * (1-EP0);
JISU1 = C * EP1 + PreJISU1 * (1-EP1);
JISU2 = C * EP2 + PreJISU2 * (1-EP2);
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal * EP3 + PreMACDSIG * (1-EP3);
}
if !(emav > preemav1 and MACDVal > MACDSIG and MACDVal > MACDVal[1]) and
!(emav < preemav1 and MACDVal < MACDSIG and MACDVal < MACDVal[1]) then
plot1(H,"1",GRAY);
3-1 주봉(빨강)
Input : EmaP(13),P1(12),P2(26),P3(9);
Var : Ep1(0), JISU1(0), DINDEX1(0), PreJISU1(0);
Var : Ep2(0), JISU2(0), PreJISU2(0);
Var : Ep3(0), JISU3(0), PreMACDSIG(0),PreMACDVal(0);
var : MACDVal(0),MACDSig(0),EP0(0),PreEmav1(0),emav(0);
EP0 = 2/(EmaP+1);
Ep1 = 2/(P1+1);
Ep2 = 2/(P2+1);
Ep3 = 2/(P3+1);
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
DINDEX1 = DINDEX1 + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreEmav1 = emav[1];
PreMACDVal = MACDVal[1];
PreMACDSIG = MACDSIG[1];
}
if DINDEX1 <= 1 then {
JISU1 = C;
JISU2 = C;
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal;
Emav = C;
}
else{
Emav = C * EP0 + PreEmav1 * (1-EP0);
JISU1 = C * EP1 + PreJISU1 * (1-EP1);
JISU2 = C * EP2 + PreJISU2 * (1-EP2);
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal * EP3 + PreMACDSIG * (1-EP3);
}
if emav > preemav1 and MACDVal > MACDSIG and MACDVal > MACDVal[1] then
plot1(H,"1",RED);
3-2 주봉(파랑)
Input : EmaP(13),P1(12),P2(26),P3(9);
Var : Ep1(0), JISU1(0), DINDEX1(0), PreJISU1(0);
Var : Ep2(0), JISU2(0), PreJISU2(0);
Var : Ep3(0), JISU3(0), PreMACDSIG(0),PreMACDVal(0);
var : MACDVal(0),MACDSig(0),EP0(0),PreEmav1(0),emav(0);
EP0 = 2/(EmaP+1);
Ep1 = 2/(P1+1);
Ep2 = 2/(P2+1);
Ep3 = 2/(P3+1);
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
DINDEX1 = DINDEX1 + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreEmav1 = emav[1];
PreMACDVal = MACDVal[1];
PreMACDSIG = MACDSIG[1];
}
if DINDEX1 <= 1 then {
JISU1 = C;
JISU2 = C;
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal;
Emav = C;
}
else{
Emav = C * EP0 + PreEmav1 * (1-EP0);
JISU1 = C * EP1 + PreJISU1 * (1-EP1);
JISU2 = C * EP2 + PreJISU2 * (1-EP2);
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal * EP3 + PreMACDSIG * (1-EP3);
}
if emav < preemav1 and MACDVal < MACDSIG and MACDVal < MACDVal[1] then
plot1(H,"1",BLUE);
3-3 주봉(회색)
Input : EmaP(13),P1(12),P2(26),P3(9);
Var : Ep1(0), JISU1(0), DINDEX1(0), PreJISU1(0);
Var : Ep2(0), JISU2(0), PreJISU2(0);
Var : Ep3(0), JISU3(0), PreMACDSIG(0),PreMACDVal(0);
var : MACDVal(0),MACDSig(0),EP0(0),PreEmav1(0),emav(0);
EP0 = 2/(EmaP+1);
Ep1 = 2/(P1+1);
Ep2 = 2/(P2+1);
Ep3 = 2/(P3+1);
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
DINDEX1 = DINDEX1 + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreEmav1 = emav[1];
PreMACDVal = MACDVal[1];
PreMACDSIG = MACDSIG[1];
}
if DINDEX1 <= 1 then {
JISU1 = C;
JISU2 = C;
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal;
Emav = C;
}
else{
Emav = C * EP0 + PreEmav1 * (1-EP0);
JISU1 = C * EP1 + PreJISU1 * (1-EP1);
JISU2 = C * EP2 + PreJISU2 * (1-EP2);
MACDVal = JiSu1-Jisu2;
MACDSIG = MACDVal * EP3 + PreMACDSIG * (1-EP3);
}
if !(emav > preemav1 and MACDVal > MACDSIG and MACDVal > MACDVal[1]) and
!(emav < preemav1 and MACDVal < MACDSIG and MACDVal < MACDVal[1]) then
plot1(H,"1",GRAY);
즐거운 하루되세요
> 에리조나 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 안녕하세요? 항상 도움을 받고 있어서 감사드립니다.
아래는 게시판에 있는 수식입니다.
첫번째, 이걸 빨간색일때만 또는 파란색, 회색일때만 검색식으로 부탁합니다.
두번째, 분봉차트에서 일봉, 주봉의 데이터가 나올 수 있게 부탁드립니다.
input : EmaP(13),P1(12),P2(26),P3(9);
var1 = ema(c,emaP);
var2 = macd(P1,P2);
var3 = ema(var2,P3);
if var1 > var1[1] and var2 > var3 and var2 > var2[1] Then
plot1(H,"1",RED);
else if var1 < var1[1] and var2 < var3 and var2 < var2[1] Then
plot1(H,"1",BLUE);
Else
plot1(H,"1",GRAY);
다음글
이전글