답변완료
수식수정
Inputs : Period(20), Sence(1.5);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0),T(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
#Plot1(VLineUp,"VLineUp");
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
#Plot2(VLineDn,"VLineDn");
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
if UpWave[1] then
{
T = 1;
}
else if DnWave[1] then
{
T = -1;
}
end;
Input : BBP(120), MultiD(2);
var : BBmd(0),BBup(0),BBdn(0);
BBmd = ma(C,Period);
BBup = BollBandUp(BBP,MultiD);
BBdn = BollBandDown(BBP,MultiD);
if CrossDown(C,BBup) and t == -1 Then
sell();
if crossup(C,BBdn) and t == 1 Then
buy();
안녕하세요
85994글입니다
수식적용결과
Sw2선이 전혀 안맞음
양선 적색선에서 매수
음선 청색선에서 매도
이나 반대나옴
2024-02-27
869
글번호 177013
시스템
답변완료
시간 봉에서 일봉의 이평선 값 표현 2개
안녕하세요 항상 노고에 너무 감사드립니다.
시간봉에서 일봉의 이평선 값을 표현하고 싶습니다.
주식이 아니라 해외선물 또는 코인에서 사용할 예정입니다.
비슷한 자료를 찾아 봤는데,
-------
Input : Period(5);
Var : Ep(0), JISU(0), DINDEX(0), PreJISU(0);
Ep = 2/(Period+1); //평활계수
if date != date[1] then { //날짜가 변경될 경우에(매일의 첫번째 봉)
DINDEX = DINDEX + 1; //일봉상의 index를 구한다
PreJISU = JISU[1]; //전봉(전일 마지막 봉)의 JISU값을 preJISU에 저장한다.
}
if DINDEX <= 1 then //일봉상의 인덱스가 1이하이면(차트 맨 앞 첫구간을 의미)
JISU = C; //종가를 지수이동평균값으로 저장한다.
else //이외의 경우에는 (두번째 구간 부터는)
JISU = C * EP + PreJISU * (1-EP); //위 지수이평 계산식에 의해 계산된 값을 지수이평값으로 저장한다.
plot1(JISU,"지수이동평균"); //지수이동평균을 출력한다.
--------
이렇게 있더라구요, 문제는 해외선물 같은 경우, 세션이 끝나고 그 다음 세션을 기준으로 새로운 봉이 만들어지는데(같은 날일지라도), 저 식대로하면 12시가 지났을때 새로 표현이 되는 것 같아서 제대로 표현이 안될까봐 고민입니다.
결론은, 시간 봉(60분봉이나 240분봉)사용 시, 당일 일봉상의 12일 가중이평선을 표시하는 사용자 함수를 부탁드립니다.
ex)DailyEMA(12);
전일 일봉상의 12일 가중이평선을 표시하길 원할 경우
DailyEMA(12)[1] 이렇게 사용할 수 있도록 부탁드립니다. (__)
항상 감사드립니다.
2024-02-27
785
글번호 177011
사용자 함수
답변완료
수식추가
Input : Period(120), MultiD(2);
var : BBmd(0),BBup(0),BBdn(0);
BBmd = ma(C,Period);
BBup = BollBandUp(Period,MultiD);
BBdn = BollBandDown(Period,MultiD);
if CrossDown(C,BBup) Then
sell();
if crossup(C,BBdn) Then
buy();
안녕하세요
위식에 sw2선 추가부탁드립니다
매수 sw2선 양선일때.
매도 sw2선 음선일때.
첨부 sw2 82414번 에있습니다
2024-02-27
777
글번호 176986
시스템