커뮤니티
수식문의 드립니다.
2016-08-29 03:42:58
98
글번호 101429
특정일자는 변수로 집어넣고
특정일의 종가가 조건1보다 크고
특정일 다음날은 분봉에서 일봉rsi의 값이 70이상인경우 매수1,2,3 에서 매수하고
특정일 다음날부터는 매수1,2,3조건 만족시 매수하고 싶습니다.
매수 1
매수 2
매수 3
감사합니다.
답변 1
예스스탁 예스스탁 답변
2016-08-30 11:39:42
안녕하세요
예스스탁입니다.
Inputs: Length(14),특정일(20160801);
Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0);
var : RSIv(0),didx(0), UpAvg1(0), DownAvg1(0);
#일봉 RSI계산
if date != date[1] Then{
didx = didx+1;
UpAvg1 = UpAvg[1];
DownAvg1 = DownAvg[1];
}
If didx <= 1 AND Length > 0 Then Begin
UpSum = 0;
DownSum = 0;
For Counter = 0 To Length - 1 Begin
UpAmt = DayClose(Counter) - DayClose(Counter+1);
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
End;
UpAvg = UpSum / Length;
DownAvg = DownSum / Length;
End
Else If didx > 1 AND Length > 0 Then Begin
UpAmt = DayClose(0) - DayClose(1);
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpAvg = (UpAvg1 * (Length - 1) + UpAmt) / Length;
DownAvg = (DownAvg1 * (Length - 1) + DownAmt) / Length;
End;
If UpAvg + DownAvg <> 0 Then
RSIv = 100 * UpAvg / (UpAvg + DownAvg);
Else
RSIv = 0;
if sdate == 특정일 Then
var1 = C;
if sdate != sdate[1] and sdate == 특정일 Then
Didx = 0;
if sdate != sdate[1] and sdate > 특정일 Then
Didx = Didx+1;
if (Didx == 1 and RSIV >= 70 and var1 > 조건1) or
(Didx1 and var1 > 조건1) Then{
if 매수1 then
buy("b1");
if 매수2 then
buy("b2");
if 매수3 then
buy("b3");
}
즐거운 하루되세요
> 쭈니오빠 님이 쓴 글입니다.
> 제목 : 수식문의 드립니다.
> 특정일자는 변수로 집어넣고
특정일의 종가가 조건1보다 크고
특정일 다음날은 분봉에서 일봉rsi의 값이 70이상인경우 매수1,2,3 에서 매수하고
특정일 다음날부터는 매수1,2,3조건 만족시 매수하고 싶습니다.
매수 1
매수 2
매수 3
감사합니다.
다음글
이전글