커뮤니티
안녕하세요
2014-03-14 13:24:38
141
글번호 73477
안녕하세요.반갑습니다
매번미안합니다
현재챠트는 아래식이고요.2배수.4배수에서는 RSI시그널돌파만족.
(분봉용)
1)현재챠트(아래식)+2배수챠트RSI시그널돌파+4배수챠트RSI시그널돌파:매수
반대 :매도
**아래식
input : maP1(5),maP2(20),RSIP(14),RSIsig(9),MACDP1(12),MACDP2(26),MACDP3(9),CCIP(36),CCIsig(9);
var1 = ma(C,maP1);
var2 = ma(c,maP2);
var3 = RSI(RSIP);
var4 = ema(var3,RSIsig);
var5 = MACD_OSC(MACDP1,MACDP2,MACDP3);
var6 = CCI(CCIP);
var7 = ema(Var6,CCIsig);
if var1 > var2 and
var3 > 50 and
var3 > var4 and
var5 > 0 and
var6 > var7 Then
buy();
if var1 < var2 and
var3 < 50 and
var3 < var4 and
var5 < 0 and
var6 < var7 Then
sell();
감사합니다
답변 1
예스스탁 예스스탁 답변
2014-03-14 15:16:53
안녕하세요
예스스탁입니다.
input : maP1(5),maP2(20),RSIP(14),RSIsig(9),MACDP1(12),MACDP2(26),MACDP3(9),CCIP(36),CCIsig(9);
var : RSIV2(0),RSIS2(0), RSIV4(0),RSIS4(0);;
var : RSIdx2(0),PreUpAvg2(0),PreDownAvg2(0),UpSum2(0),DownSum2(0);
var : UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIEP2(0),PreRSIS2(0);
var : RSIdx4(0),PreUpAvg4(0),PreDownAvg4(0),UpSum4(0),DownSum4(0);
var : UpAmt4(0),DownAmt4(0),UpAvg4(0),DownAvg4(0),RSIEP4(0),PreRSIS4(0);
var : TT(0),TF2(0),TF4(0),cnt(0);
Array : O2[100](0),H2[100](0),L2[100](0),C2[100](0);
Array : O4[100](0),H4[100](0),L4[100](0),C4[100](0);
var1 = ma(C,maP1);
var2 = ma(c,maP2);
var3 = RSI(RSIP);
var4 = ema(var3,RSIsig);
var5 = MACD_OSC(MACDP1,MACDP2,MACDP3);
var6 = CCI(CCIP);
var7 = ema(Var6,CCIsig);
if date != date[1] Then
TT = TimeToMinutes(stime);
TF2 = (TimeToMinutes(stime)-TT)%Int(BarInterval*2);
TF4 = (TimeToMinutes(stime)-TT)%int(BarInterval*4);
if dayindex() == 0 or (TF2 < TF2[1]) or stime == 151500 Then{
O2[0] = O;
H2[0] = H;
L2[0] = L;
for cnt = 1 to 99{
O2[cnt] = O2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
C2[cnt] = C2[cnt-1][1];
}
}
C2[0] = C;
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
if dayindex() == 0 or (TF4 < TF4[1]) or stime == 151500 Then{
O4[0] = O;
H4[0] = H;
L4[0] = L;
for cnt = 1 to 99{
O4[cnt] = O4[cnt-1][1];
H4[cnt] = H4[cnt-1][1];
L4[cnt] = L4[cnt-1][1];
C4[cnt] = C4[cnt-1][1];
}
}
C4[0] = C;
if H > H4[0] Then
H4[0] = H;
if L < L4[0] Then
L4[0] = L;
#RSI
if dayindex() == 0 or (TF2 < TF2[1]) Then{
if C2[RSIP] > 0 Then
RSIdx2 = RSIdx2+1;
PreUpAvg2 = UpAvg2[1];
PreDownAvg2 = DownAvg2[1];
PreRSIS2 = RSIS2[1];
}
If RSIdx2 == 1 Then Begin
UpSum2 = 0;
DownSum2 = 0;
For cnt = 0 To RSIP - 1 Begin
UpAmt2 = C2[cnt] - C2[cnt+1];
If UpAmt2 >= 0 Then
DownAmt2 = 0;
Else Begin
DownAmt2 = -UpAmt2;
UpAmt2 = 0;
End;
UpSum2 = UpSum2 + UpAmt2;
DownSum2 = DownSum2 + DownAmt2;
End;
UpAvg2 = UpSum2 / RSIP;
DownAvg2 = DownSum2 / RSIP;
End
If RSIdx2 > 1 Then {
UpAmt2 = C2[0] - C2[1];
If UpAmt2 >= 0 Then
DownAmt2 = 0;
Else Begin
DownAmt2 = -UpAmt2;
UpAmt2 = 0;
End;
UpAvg2 = (PReUpAvg2 * (RSIP - 1) + UpAmt2) / RSIP;
DownAvg2 = (PreDownAvg2 * (RSIP - 1) + DownAmt2) / RSIP;
}
If UpAvg2 + DownAvg2 <> 0 Then
RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2);
Else
RSIv2 = 0;
RSIEP2 = 2/(RSIsig+1);
if RSIdx2 <= 1 then
RSIS2 = RSIV2;
else
RSIS2 = RSIV2 * RSIEP2 + PreRSIS2 * (1-RSIEP2);
if dayindex() == 0 or (TF4 < TF4[1]) Then{
if C4[RSIP] > 0 Then
RSIdx4 = RSIdx4+1;
PreUpAvg4 = UpAvg4[1];
PreDownAvg4 = DownAvg4[1];
PreRSIS4 = RSIS4[1];
}
C4[0] = C;
If RSIdx4 == 1 Then Begin
UpSum4 = 0;
DownSum4 = 0;
For cnt = 0 To RSIP - 1 Begin
UpAmt4 = C4[cnt] - C4[cnt+1];
If UpAmt4 >= 0 Then
DownAmt4 = 0;
Else Begin
DownAmt4 = -UpAmt4;
UpAmt4 = 0;
End;
UpSum4 = UpSum4 + UpAmt4;
DownSum4 = DownSum4 + DownAmt4;
End;
UpAvg4 = UpSum4 / RSIP;
DownAvg4 = DownSum4 / RSIP;
End
If RSIdx4 > 1 Then {
UpAmt4 = C4[0] - C4[1];
If UpAmt4 >= 0 Then
DownAmt4 = 0;
Else Begin
DownAmt4 = -UpAmt4;
UpAmt4 = 0;
End;
UpAvg4 = (PReUpAvg4 * (RSIP - 1) + UpAmt4) / RSIP;
DownAvg4 = (PreDownAvg4 * (RSIP - 1) + DownAmt4) / RSIP;
}
If UpAvg4 + DownAvg4 <> 0 Then
RSIv4 = 100 * UpAvg4 / (UpAvg4 + DownAvg4);
Else
RSIv4 = 0;
RSIEP4 = 2/(RSIsig+1);
if RSIdx4 <= 1 then
RSIS4 = RSIV4;
else
RSIS4 = RSIV4 * RSIEP4 + PreRSIS4 * (1-RSIEP4);
if var1 > var2 and
var3 > 50 and
var3 > var4 and
var5 > 0 and
var6 > var7 And
RSIV2 > RSIS2 And
RSIV4 > RSIS4 Then
buy();
if var1 < var2 and
var3 < 50 and
var3 < var4 and
var5 < 0 and
var6 < var7 And
RSIV2 < RSIS2 And
RSIV4 < RSIS4 Then
sell();
즐거운 하루되세요
> jbouu123 님이 쓴 글입니다.
> 제목 : 안녕하세요
> 안녕하세요.반갑습니다
매번미안합니다
현재챠트는 아래식이고요.2배수.4배수에서는 RSI시그널돌파만족.
(분봉용)
1)현재챠트(아래식)+2배수챠트RSI시그널돌파+4배수챠트RSI시그널돌파:매수
반대 :매도
**아래식
input : maP1(5),maP2(20),RSIP(14),RSIsig(9),MACDP1(12),MACDP2(26),MACDP3(9),CCIP(36),CCIsig(9);
var1 = ma(C,maP1);
var2 = ma(c,maP2);
var3 = RSI(RSIP);
var4 = ema(var3,RSIsig);
var5 = MACD_OSC(MACDP1,MACDP2,MACDP3);
var6 = CCI(CCIP);
var7 = ema(Var6,CCIsig);
if var1 > var2 and
var3 > 50 and
var3 > var4 and
var5 > 0 and
var6 > var7 Then
buy();
if var1 < var2 and
var3 < 50 and
var3 < var4 and
var5 < 0 and
var6 < var7 Then
sell();
감사합니다