커뮤니티
부탁드립니다----------
2011-10-28 09:43:57
397
글번호 44183
Var : LENGTH1(9), period(1),m3(0.001),큰폭(120),시작시각(90000);
Var : value(0), TEMA1(0);
var:Ma5(0),ma20(0),ma60(0),MA120(0),ma200(0),MA320(0)
,k(0),d(0),m8(9);
MA5=ma(C,5);
MA20=ma(C,20);
ma60=ma(c,60);
MA120=ma(C,120);
MA200=ma(C,200);
MA320=ma(C,320);
k=StochasticsK(20,12);
d=StochasticsD(20,12,12);
value = ma(bids,period)-ma(asks,period);
TEMA1 = (3 * Ema(value,LENGTH1)) - (3 * Ema(Ema(value,LENGTH1),LENGTH1)) +
(Ema(Ema(Ema(value,LENGTH1),LENGTH1),LENGTH1));
//오늘지정필요
condition1= highest(H,5)[1] <= C*(1+m3) and lowest(L,5)[1]>= C*(1-m3);
//매수진입
if stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
and countif(tema1 >= tema1[1],3) ==3 && k<80 && ma20>ma20[1] Then buy("b");
If stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
And TEMA1 > TEMA1[1]+큰폭 and countif(tema1 > tema1[1],1) == 1 && k<80
&& ma5>ma5[1] Then buy("b1");
if MarketPosition == 1 and countif(tema1 < tema1[1],m8) == m8 Then exitlong("xb");
if MarketPosition ==- 1 and CrossUp(ma5,ma20) && k<20 Then buy("xs11");
//매도진입
if stime >= 시작시각 and MarketPosition == 0 and Condition1 ==False
and countif(tema1 <= tema1[1],3) == 3 && k>20 && ma20<ma20[1] Then Sell("s");
If stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
And TEMA1 < TEMA1[1]-큰폭 and countif(tema1 < tema1[1],1) ==1 && k>20
&& ma5<ma5[1] Then Sell("s1");
if MarketPosition == -1 and countif(tema1 > tema1[1],m8) == m8 Then ExitShort("xs");
if MarketPosition == 1 and CrossDown(ma5,ma20) && k>80 Then Sell("xb11");
#청산
위식은 분봉을적용 하는 시스템인데 만일 일봉의 tema(10)이 상승이면 위분봉 적용에서 매수만 진입하고 하락이면 매도만 진입 할수있나요? 부탁드립니다
답변 1
예스스탁 예스스탁 답변
2011-10-28 11:26:15
안녕하세요
예스스탁입니다.
TEMA의 기본이 되는 지수이동평균은 차트 전체의 봉수에 영향을 받는 식입니다.
그러므로 분봉에서 일봉값을 계산하면 분봉에서 차트전체 일수 부족으로
일봉차트에서 보시는 값하고 차트이 발생할 수 있습니다.
이용에 참고하시기 바랍니다.
Var : LENGTH1(9), period(1),m3(0.001),큰폭(120),시작시각(90000);
Var : value(0), TEMA1(0);
var:Ma5(0),ma20(0),ma60(0),MA120(0),ma200(0),MA320(0),k(0),d(0),m8(9);
Input : TEMAP(10);
Var : Ep(0), DINDEX(0),PRedayTEMA(0);
var : JISU1(0),JISU2(0),JISU3(0),dayTEMA(0);
var : PreJISU1(0),PreJISU2(0),PreJISU3(0);
Ep = 2/(TEMAP+1);
if date != date[1] then{
DINDEX = DINDEX + 1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreJISU3 = JISU3[1];
PRedayTEMA = dayTEMA[1];
}
if DINDEX <= 1 then{
JISU1 = C;
}
else{
JISU1 = C * EP + PreJISU1 * (1-EP);
}
if DINDEX <= 2 then{
JISU2 = JISU1;
}
else{
JISU2 = JISU1 * EP + PreJISU2 * (1-EP);
}
if DINDEX <= 3 then{
JISU3 = JISU2;
}
else{
JISU3 = JISU2 * EP + PreJISU3 * (1-EP);
}
dayTEMA = (3 * JISU1) - (3 * JISU2) + (JISU3);
MA5=ma(C,5);
MA20=ma(C,20);
ma60=ma(c,60);
MA120=ma(C,120);
MA200=ma(C,200);
MA320=ma(C,320);
k=StochasticsK(20,12);
d=StochasticsD(20,12,12);
value = ma(bids,period)-ma(asks,period);
TEMA1 = (3 * Ema(value,LENGTH1)) - (3 * Ema(Ema(value,LENGTH1),LENGTH1))+
(Ema(Ema(Ema(value,LENGTH1),LENGTH1),LENGTH1));
//오늘지정필요
condition1= highest(H,5)[1] <= C*(1+m3) and lowest(L,5)[1]>= C*(1-m3);
//매수진입
if dayTEMA > predayTEMA and stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
and countif(tema1 >= tema1[1],3) ==3 && k<80 && ma20>ma20[1] Then buy("b");
If dayTEMA > predayTEMA and stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
And TEMA1 > TEMA1[1]+큰폭 and countif(tema1 > tema1[1],1) == 1 && k<80
&& ma5>ma5[1] Then buy("b1");
if MarketPosition == 1 and countif(tema1 < tema1[1],m8) == m8 Then exitlong("xb");
if MarketPosition ==- 1 and CrossUp(ma5,ma20) && k<20 Then buy("xs11");
//매도진입
if dayTEMA < predayTEMA and stime >= 시작시각 and MarketPosition == 0 and Condition1 ==False
and countif(tema1 <= tema1[1],3) == 3 && k>20 && ma20<ma20[1] Then Sell("s");
If dayTEMA < predayTEMA and stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
And TEMA1 < TEMA1[1]-큰폭 and countif(tema1 < tema1[1],1) ==1 && k>20
&& ma5<ma5[1] Then Sell("s1");
if MarketPosition == -1 and countif(tema1 > tema1[1],m8) == m8 Then ExitShort("xs");
if MarketPosition == 1 and CrossDown(ma5,ma20) && k>80 Then Sell("xb11");
#청산
즐거운 하루되세여
> leekss1 님이 쓴 글입니다.
> 제목 : 부탁드립니다----------
> Var : LENGTH1(9), period(1),m3(0.001),큰폭(120),시작시각(90000);
Var : value(0), TEMA1(0);
var:Ma5(0),ma20(0),ma60(0),MA120(0),ma200(0),MA320(0)
,k(0),d(0),m8(9);
MA5=ma(C,5);
MA20=ma(C,20);
ma60=ma(c,60);
MA120=ma(C,120);
MA200=ma(C,200);
MA320=ma(C,320);
k=StochasticsK(20,12);
d=StochasticsD(20,12,12);
value = ma(bids,period)-ma(asks,period);
TEMA1 = (3 * Ema(value,LENGTH1)) - (3 * Ema(Ema(value,LENGTH1),LENGTH1)) +
(Ema(Ema(Ema(value,LENGTH1),LENGTH1),LENGTH1));
//오늘지정필요
condition1= highest(H,5)[1] <= C*(1+m3) and lowest(L,5)[1]>= C*(1-m3);
//매수진입
if stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
and countif(tema1 >= tema1[1],3) ==3 && k<80 && ma20>ma20[1] Then buy("b");
If stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
And TEMA1 > TEMA1[1]+큰폭 and countif(tema1 > tema1[1],1) == 1 && k<80
&& ma5>ma5[1] Then buy("b1");
if MarketPosition == 1 and countif(tema1 < tema1[1],m8) == m8 Then exitlong("xb");
if MarketPosition ==- 1 and CrossUp(ma5,ma20) && k<20 Then buy("xs11");
//매도진입
if stime >= 시작시각 and MarketPosition == 0 and Condition1 ==False
and countif(tema1 <= tema1[1],3) == 3 && k>20 && ma20<ma20[1] Then Sell("s");
If stime >= 시작시각 and MarketPosition == 0 and Condition1 == False
And TEMA1 < TEMA1[1]-큰폭 and countif(tema1 < tema1[1],1) ==1 && k>20
&& ma5<ma5[1] Then Sell("s1");
if MarketPosition == -1 and countif(tema1 > tema1[1],m8) == m8 Then ExitShort("xs");
if MarketPosition == 1 and CrossDown(ma5,ma20) && k>80 Then Sell("xb11");
#청산
위식은 분봉을적용 하는 시스템인데 만일 일봉의 tema(10)이 상승이면 위분봉 적용에서 매수만 진입하고 하락이면 매도만 진입 할수있나요? 부탁드립니다