예스스탁
예스스탁 답변
2025-06-04 14:42:39
안녕하세요
예스스탁입니다.
INPUT:P1(1), TH(1.5),P2(2);
VAR: TRV(0), BULL(0), BEAR(0), BULLP(0), BEARP(0),BPO(0);
TRV= V/ATR(P1);
BULL =
Iff( C < O, Iff( C[1] < O, Max( H - C[1], C - L ), Max( H - O, C - L ) ),
Iff( C > O, Iff( C[1] > O, H - L, Max( O - C[1], H - L ) ),
Iff( H - C > C - L, Iff( C[1] < O, Max( H - C[1], C - L ), H - O ),
Iff( H - C < C - L, Iff( C[1] > O, H - L, Max( O - C[1], H - L ) ),
Iff( C[1] > O, Max( H - O, C - L ),
Iff( C[1] < O, Max( O - C[1], H - L ), H - L ) ) ) ) ) );
BEAR =
Iff( C < O,
Iff( C[1] > O, Max( C[1] - O, H - L ), H-L ),
Iff( C > O, Iff( C[1] > O, Max( C[1] - L, H - C ),Max( O - L, H - C ) ),
Iff( H - C > C - L, Iff( C[1] > O, Max( C[1] - O, H - L ),H - L ),
Iff( H - C < C - L,Iff( C[1] > O, Max( C[1] - L, H - C ),O - L ),
Iff( C[1] > O, Max( C[1] - O, H - L ),
Iff( C[1] < O,Max( O - L, H - C ), H - L ) ) ) ) ) ) ;
BULLP=MA(BULL,P2);
BEARP=MA(BEAR,P2);
BPO=BULLP/BEARP ;
if BULLP < BEARP Then
{
PLOT1(BEARP, "max",Blue);
PLOT2(BULLP, "min",Orange);
}
Else
{
PLOT1(BULLP, "max",Orange);
PLOT2(BEARP, "min",Blue);
}
IF TRV[1]>0 AND TRV/TRV[1]>TH AND BPO<1 THEN PLOT3(BULLP, "매수 대기신호");
IF TRV[1]>0 AND TRV/TRV[1]>TH AND BPO>1 THEN PLOT4(BEARP, "매도 대기신호");
PlotBaseLine1(0.05000);
PlotBaseLine2(0.04000);
PlotBaseLine3(0.06000);
즐거운 하루되세요
> 와라바다 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 지표 색상 분리 문의 드립니다.
수고하세요
INPUT:P1(1), TH(1.5),P2(2);
VAR: TRV(0), BULL(0), BEAR(0), BULLP(0), BEARP(0),BPO(0);
TRV= V/ATR(P1);
BULL =
Iff( C < O, Iff( C[1] < O, Max( H - C[1], C - L ), Max( H - O, C - L ) ),
Iff( C > O, Iff( C[1] > O, H - L, Max( O - C[1], H - L ) ),
Iff( H - C > C - L, Iff( C[1] < O, Max( H - C[1], C - L ), H - O ),
Iff( H - C < C - L, Iff( C[1] > O, H - L, Max( O - C[1], H - L ) ),
Iff( C[1] > O, Max( H - O, C - L ),
Iff( C[1] < O, Max( O - C[1], H - L ), H - L ) ) ) ) ) );
BEAR =
Iff( C < O,
Iff( C[1] > O, Max( C[1] - O, H - L ), H-L ),
Iff( C > O, Iff( C[1] > O, Max( C[1] - L, H - C ),Max( O - L, H - C ) ),
Iff( H - C > C - L, Iff( C[1] > O, Max( C[1] - O, H - L ),H - L ),
Iff( H - C < C - L,Iff( C[1] > O, Max( C[1] - L, H - C ),O - L ),
Iff( C[1] > O, Max( C[1] - O, H - L ),
Iff( C[1] < O,Max( O - L, H - C ), H - L ) ) ) ) ) ) ;
BULLP=MA(BULL,P2);
BEARP=MA(BEAR,P2);
BPO=BULLP/BEARP ;
PLOT1(BEARP, "매도");
PLOT2(BULLP, "매수");
IF TRV[1]>0 AND TRV/TRV[1]>TH AND BPO<1 THEN PLOT3(BULLP, "매수 대기신호");
IF TRV[1]>0 AND TRV/TRV[1]>TH AND BPO>1 THEN PLOT4(BEARP, "매도 대기신호");
PlotBaseLine1(0.05000);
PlotBaseLine2(0.04000);
PlotBaseLine3(0.06000);