커뮤니티
분봉에서 일봉값을 참조할수 있는 함수를 부탁드립니다.
2014-02-13 08:43:58
188
글번호 72496
안녕하세요.
분봉내에서 일봉 Binary Wave Seven을 사용할 수 있는 함수를 부탁을 드립니다.
그럼 수고하십시요.
답변 1
예스스탁 예스스탁 답변
2014-02-13 14:11:05
안녕하세요
예스스탁입니다.
Input : MACDP1(12),MACDP2(26),MACDsig(9);#MACD기간
input : maP(20);#이평기간
input : ROCPeriod(12);#ROC기간
input : stoP1(5), stoP2(3);#스토케스틱 슬로우K 기간
Var : Ep1(0), EP2(0), EP3(0);
var : DayJISU1(0), DayJISU2(0),DayPreJISU1(0), DayPreJISU2(0),DayPreMacdSig(0),daycnt(0);
Var : DaymacdVal(0), DaypreMacdVal(0), DaymacdSig(0),DaymacdOsc(0),DayPremacdOsc(0);
var : sumV(0), maV(0), count(0);
var : cnt(0), highVal(0), lowVal(0), FK(0), SK(0), SD(0);
var : sEp1(0), sEp2(0), PreSK(0), PreSD(0);
var : ROC(0),value(0),BinaryWave(0);
Ep1 = 2/(MACDP1+1);
EP2 = 2/(MACDP2+1);
EP3 = 2/(MACDsig+1);
if date != date[1] then {
Daycnt = daycnt+1;
DayPreJISU1 = DayJISU1[1];
DayPreJISU2 = DayJISU2[1];
DayPreMacdVal = DaymacdVal[1];
DayPreMacdSig = DaymacdSig[1];
}
if daycnt < 1 Then
{
DayJisu1 = C;
DayJISU2 = C;
}
Else
{
DayJISU1 = C * Ep1 + DayPreJISU1 * (1-Ep1);
DayJISU2 = C * Ep2 + DayPreJISU2 * (1-Ep2);
}
DaymacdVal = DayJISU1 - DayJISU2;
if daycnt < 2 Then
DaymacdSig = DaymacdVal;
Else
DaymacdSig = DaymacdVal * Ep3 + DayPreMacdSig * (1-Ep3);
sumV = 0;
for count = 0 to maP-1 {
sumV = sumV+DayClose(count);
}
maV = sumV / maP;
#N일간 최고가 및 최저가
highVal = dayhigh(0);
lowVal = daylow(0);
for cnt = 0 to stoP1-1 {
if dayHigh(cnt) > highVal then
highVal = dayhigh(cnt);
if dayLow(cnt) < lowVal then
lowVal = dayLow(cnt);
}
#Fast StochasticsK
fK = (C-lowVal)/(highVal-lowVal)*100;
#Slow StochasticsK / Slow StochasticsD
sEp1 = 2/(stoP2+1);
if date != date[1] then {
PreSK = SK[1];
PreSD = SD[1];
}
SK = FK * sEP1 + PreSK * (1-sEP1);
ROC = (C - DayClose(ROCPeriod)) / DayClose(ROCPeriod) * 100;
If DaymacdVal > DaymacdSig Then
value = 1;
Else
value = -1;
If C > mav Then
value = value + 1;
Else
value = value - 1;
If ROC > 0 Then
value = value + 1;
Else
value = value - 1;
If SK > 50 Then
value = value + 1;
Else
value = value - 1;
BinaryWave = value;
plot1(BinaryWave);
즐거운 하루되세요
> 이조만 님이 쓴 글입니다.
> 제목 : 분봉에서 일봉값을 참조할수 있는 함수를 부탁드립니다.
>
안녕하세요.
분봉내에서 일봉 Binary Wave Seven을 사용할 수 있는 함수를 부탁을 드립니다.
그럼 수고하십시요.
다음글
이전글