커뮤니티
수식부탁
2008-06-23 09:50:48
955
글번호 15832
안녕하십니까?
항상 감사드립니다.
다음 종목 검색식을 갭보정된 분봉차트에서 검색될수 있도록 수정을 부탁드립니다.
Input : shortPeriod(12), longPeriod(26), Period(9),P1(120);
Var : MACDv(0), MACDs(0),MACDo(0),Acandle(0),Hval(0),MACDSval(0);
MACDv = MACD(shortPeriod, longPeriod);
MACDs = ema(MACDv,Period);
MACDo = MACDv-MACDs;
Acandle = mro(crossup(MACDv,MACDs) and MACDs < 0 ,70,1);
Hval = H[Acandle];
MACDSval = MACDs[Acandle];
if Hval >= L and MACDSval < MACDs and MACDs < 0 and MACDv < MACDs
and MA(C,P1)>MA(C,P1)[1]
Then
{
If C == C[1] Then
value1 = 0.001;
Else
value1 = (C-C[1])/C[1]*100;
}
Else
value1 = 0;
Find(value1);
답변 1
예스스탁 예스스탁 답변
2008-06-23 14:25:12
안녕하세요
예스스탁입니다.
Input : shortPeriod(12), longPeriod(26), Period(9),P1(120);
Var : MACDv(0), MACDs(0),MACDo(0),Acandle(0),Hval(0),MACDSval(0);
input : Period1(5), Period2(60);
var : sumGap(0), gap(0), GC(0),GO(0),GL(0),GH(0);
var : Gma1(0), Gma2(0);
if date!=date[1] then { // 날짜가 변경되는 봉에서(분봉에서 첫번째 봉)
gap = Open-Close[1]; // 일간갭
sumGap = sumGap+gap; // 일간갭 누적
}
GC = C - sumGap; // 갭보정 종가
GO = O - sumGap; // 갭보정 시가
GH = H - sumGap; // 갭보정 고가
GL = L - sumGap; // 갭보정 저가
MACDv = ema(GC,shortPeriod) - ema(GC,longPeriod);
MACDs = ema(MACDv,Period);
MACDo = MACDv-MACDs;
Acandle = mro(crossup(MACDv,MACDs) and MACDs < 0 ,70,1);
Hval = GH[Acandle];
MACDSval = MACDs[Acandle];
if Hval >= GL and MACDSval < MACDs and MACDs < 0 and MACDv < MACDs
and MA(GC,P1)>MA(GC,P1)[1] Then
{
If GC == GC[1] Then
value1 = 0.001;
Else
value1 = (GC-GC[1])/GC[1]*100;
}
Else
value1 = 0;
Find(value1);
즐거운 하루되세요
> pareter 님이 쓴 글입니다.
> 제목 : 수식부탁
> 안녕하십니까?
항상 감사드립니다.
다음 종목 검색식을 갭보정된 분봉차트에서 검색될수 있도록 수정을 부탁드립니다.
Input : shortPeriod(12), longPeriod(26), Period(9),P1(120);
Var : MACDv(0), MACDs(0),MACDo(0),Acandle(0),Hval(0),MACDSval(0);
MACDv = MACD(shortPeriod, longPeriod);
MACDs = ema(MACDv,Period);
MACDo = MACDv-MACDs;
Acandle = mro(crossup(MACDv,MACDs) and MACDs < 0 ,70,1);
Hval = H[Acandle];
MACDSval = MACDs[Acandle];
if Hval >= L and MACDSval < MACDs and MACDs < 0 and MACDv < MACDs
and MA(C,P1)>MA(C,P1)[1]
Then
{
If C == C[1] Then
value1 = 0.001;
Else
value1 = (C-C[1])/C[1]*100;
}
Else
value1 = 0;
Find(value1);