커뮤니티
안녕하세요***
2016-12-24 15:42:04
228
글번호 54013
안녕하세요
망설이다가 문의합니다
정배열:5>20
1. RSI가 50위
2. RSI > 시그널
3. MACD 양오실
4. CCI > 시그널
위 사항만족시 매수/반대 매도
*******************
아래답변에 감사드립니다
추가로 한가지 더부탁할까합니다.
*아래공식과 2배수에 동시만족시 매수 /매도
감사합니다.
답변 2
예스스탁 예스스탁 답변
2012-08-23 09:07:30
안녕하세요
예스스탁입니다.
input : maP1(5),maP2(20),RSIP(9),RSIsig(10),MACDP1(12),MACDP2(26),MACDP3(9),CCIP(9),CCIsig(10);
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();
즐거운 하루되세요
> jbouu123 님이 쓴 글입니다.
> 제목 : 안녕하세요
> 안녕하세요
망설이다가 문의합니다
정배열:5>20
1. RSI가 50위
2. RSI > 시그널
3. MACD 양오실
4. CCI > 시그널
위 사항만족시 매수/반대 매도
감사합니다.
예스스탁 예스스탁 답변
2012-08-28 10:10:11
안녕하세요
예스스탁입니다.
Inputs:Atime(60), maP1(5),maP2(20),RSIP(9),RSIsig(10),CCIP(9),CCIsig(10),MACDP1(12),MACDP2(26),MACDP3(9);
var : SigSum(0),count2(0),RSIs(0);
Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0);
var : Dindex(0), PreUpAvg(0), preDownAvg(0),cnt1(0);
Var : Sum(0), MD(0), Avgvalue(0),CCIv(0);
var : cnt(0),count(0),sum1(0),mav(0);
Var : Ep1(0), CCIS(0), DINDEX1(0), PreCCIS(0);
Var : mEp1(0), mJISU1(0),mPreJISU1(0);
Var : mEp2(0), mJISU2(0), mPreJISU2(0);
Var : mEp3(0), mJISU3(0), mPreMACDSIG(0);
var : MACDVal(0),MACDSig(0),MACDOsc(0),mPreMACDOsc(0);
var : masum1(0),masum2(0),mav1(0),mav2(0);
Array : CC[100](0),RSIV[100](0),LL[100](0),HH[100](0);
value1 = TimeToMinutes(stime)%Atime;
if dayindex() == 0 or (value1 <= value1[1] and stime > stime[1]) Then{
for cnt1 = 1 to 99{
CC[cnt1] = CC[cnt1-1][1];
}
PreUpAvg = UpAvg[1];
preDownAvg = DownAvg[1];
DINDEX1 = DINDEX1 + 1;
PreCCIS = CCIS[1];
HH[0] = H;
LL[0] = L;
CC[1] = C[1];
for cnt = 1 to 99{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
if cnt >= 2 Then
CC[cnt] = CC[cnt-1][1];
}
mPreJISU1 = mJISU1[1];
mPreJISU2 = mJISU2[1];
mPreMACDOsc = MACDOsc[1];
if Dindex1 >= 2 Then
mPreMACDSIG = MACDSIG[1];
}
CC[0] = C;
masum1 = 0;
masum2 = 0;
for count = 0 to map2{
if count < maP1 Then
masum1 = masum1+CC[count];
if count < maP2 Then
masum2 = masum2+CC[count];
}
mav1 = masum1/maP1;
mav2 = masum2/maP2;
If Dindex == RSIP Then Begin
UpSum = 0;
DownSum = 0;
For Counter = 0 To RSIP - 1 Begin
UpAmt = C[Counter] - C[Counter+1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
End;
UpAvg = UpSum / RSIP;
DownAvg = DownSum / RSIP;
End
If Dindex > RSIP Then {
UpAmt = CC[0]-Cc[1];
If UpAmt >= 0 Then
DownAmt = 0;
Else
{
DownAmt = -UpAmt;
UpAmt = 0;
}
if Dindex <=1 Then {
UpAvg = 1;
DownAvg = 1;
}
Else {
UpAvg = (PreUpAvg * (RSIP - 1) + UpAmt) / RSIP;
DownAvg = (preDownAvg * (RSIP - 1) + DownAmt) / RSIP;
}
}
If UpAvg + DownAvg <> 0 Then
RSIv[0] = 100 * UpAvg / (UpAvg + DownAvg);
Else
RSIv[0] = 0;
SigSum = 0;
for count2 = 0 to RSIsig-1{
SigSum = SigSum+RSIv[count2];
}
RSIs = SigSum/RSIsig;
CC[0] = C;
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
sum1 = 0;
for count = 0 to CCIP-1{
sum1 = sum1+(CC[count]+HH[count]+LL[count]);
}
mav = sum1/CCIP;
If HH[CCIP] > 0 Then Begin
Avgvalue = mav;
MD = 0;
For counter = 0 To CCIP - 1 Begin
MD = MD + Abs(HH[counter] + LL[counter] + CC[counter] - Avgvalue);
End;
MD = MD / CCIP;
If MD == 0 Then
CCIv = 0;
Else
CCIv = (HH[0] + LL[0] + CC[0] - Avgvalue) / (0.015 * MD);
End
Else
CCIv = 0;
Ep1 = 2/(CCIsig+1);
if DINDEX1 <= CCISig then {
CCIS = CCIv;
}
else{
CCIS = CCIv * EP1 + PreCCIS * (1-EP1);
}
mEp1 = 2/(MACDP1+1);
mEp2 = 2/(MACDP2+1);
mEp3 = 2/(MACDP3+1);
if DINDEX1 <= 1 then {
mJISU1 = C;
mJISU2 = C;
}
else{
mJISU1 = C * mEP1 + mPreJISU1 * (1-mEP1);
mJISU2 = C * mEP2 + mPreJISU2 * (1-mEP2);
}
MACDVal = mJisu1-mJisu2;
if DINDEX1 <= 2 then {
MACDSIG = mJisu1-mjisu2;
}
else{
MACDSIG = MACDVal * mEP3 + mPreMACDSIG * (1-mEP3);
}
MACDOsc = MACDVal-MACDsig;
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 and
mav1 > mav2 and
RSIv[0] > 50 and
RSIV[0] > RSIsig and
MACDosc > 0 and
CCIV > CCIS Then
buy();
if var1 < var2 and
var3 < 50 and
var3 < var4 and
var5 < 0 and
var6 < var7 and
mav1 < mav2 and
RSIv[0] < 50 and
RSIV[0] < RSIsig and
MACDosc < 0 and
CCIV < CCIS Then
sell();
즐거운 하루되세요
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 안녕하세요
> 안녕하세요
예스스탁입니다.
input : maP1(5),maP2(20),RSIP(9),RSIsig(10),MACDP1(12),MACDP2(26),MACDP3(9),CCIP(9),CCIsig(10);
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();
즐거운 하루되세요
> jbouu123 님이 쓴 글입니다.
> 제목 : 안녕하세요
> 안녕하세요
망설이다가 문의합니다
정배열:5>20
1. RSI가 50위
2. RSI > 시그널
3. MACD 양오실
4. CCI > 시그널
위 사항만족시 매수/반대 매도
감사합니다.