답변완료
지그재그 시스템 적용 부탁 드립니다.
지그재그 지표 확인 중 시스템 적용이 부탁 드립니다.
최저점 확인 후 매수 진행
최고점 확인 후 매도 진행
감사 합니다.
Input:length(12);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),Text1(0),처리구분("");
var:d1(0),t1(0);
Array:고점[10,2](0),저점[10,2](0); //가격,위치
처리구분 = "";
If Highest(H,length) == H and lastHiVal <> H and
Lowest(L,length) == L and lastLoVal <> L Then
{
If 저점[1,1] > L Then 처리구분 = "저점처리";
If 고점[1,1] < H Then 처리구분 = "고점처리";
}
Else If Highest(H,length) == H and lastHiVal <> H Then
처리구분 = "고점처리";
Else If Lowest(L,length) == L and lastLoVal <> L Then
처리구분 = "저점처리";
If 처리구분 == "고점처리" Then
{
lastHiVal = H;
If 고점[1,2] < 저점[1,2] Then
{
For j = 10 DownTo 2
{
고점[j,1] = 고점[j-1,1];
고점[j,2] = 고점[j-1,2];
}
}
If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then
{
고점[1,1] = H;
고점[1,2] = Index;
sBar = Index - 저점[1,2];
eBar = 0;
If d1 == sDate[sBar] and
t1 == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
#TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]);
d1 = sDate[sBar];
t1 = stime[sBar];
Text1 = Text_New(sDate[eBar],sTime[eBar],고점[1,1],NumToStr(고점[1,1],2));
Text_SetStyle(Text1, 2, 1);
}
}
If 처리구분 == "저점처리" Then
{
lastLoVal = L;
If 저점[1,2] < 고점[1,2] then
{
For j = 10 DownTo 2
{
저점[j,1] = 저점[j-1,1];
저점[j,2] = 저점[j-1,2];
}
}
If 저점[1,2] < 고점[1,2] or 저점[1,1] > L then
{
저점[1,1] = L;
저점[1,2] = Index;
sBar = Index - 고점[1,2];
eBar = 0;
If d1 == sDate[sBar] and
t1 == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
#TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]);
d1 = sDate[sBar];
t1 = stime[sBar];
Text1 = Text_New(sDate[eBar],sTime[eBar],저점[1,1],NumToStr(저점[1,1],2));
Text_SetStyle(Text1, 2, 0);
}
}
TL_SetSize(TL1,3);
TL_SetColor(TL1,CYAN);
2021-06-12
1145
글번호 149887
시스템
답변완료
타주기 이평추가요청
안녕하세요?
아래 내용에서 2분봉의 240선과 480선 타주기 이평선을 추가가고자 합니다.
또 감사드립니다. 꾸벅
input : ntime1(2),P1(60),P2(120),dayp(2);
input : ntime2(30);
var : S1(0),D1(0),TM(0),TF1(0),cnt(0),TF2(0);
var : sum1(0),mav1(0),sum2(0),mav2(0);
var : sum(0),dmav(0),HH(0),LL(0);
Array : CC[200](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or
(Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then
{
for cnt = 1 to 199
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[P1-1] > 0 then
{
sum1 = 0;
for cnt = 0 to P1-1
{
sum1 = sum1+CC[cnt];
}
mav1 = sum1/P1;
#plot1(mav1,"이평1");
}
if CC[P2-1] > 0 then
{
sum2 = 0;
for cnt = 0 to P2-1
{
sum2 = sum2+CC[cnt];
}
mav2 = sum2/P2;
#plot2(mav2,"이평2");
}
TF2 = TM%ntime2;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and ntime2 > 1 and TM >= TM[1]+ntime2) or
(Bdate == Bdate[1] and ntime2 == 1 and TM > TM[1]) Then
{
if mav1 > 0 Then
var1 = mav1;
if mav2 > 0 Then
var2 = mav2;
}
if var1 > 0 Then
Plot3(var1);
if var2 > 0 Then
Plot4(var2);
}
#일간이평계산
sum = 0;
For cnt = 0 to dayP-1
{
sum = sum + DayClose(cnt);
}
dmav = sum/dayP;
#일간이평 당일최고가와 최저가 계산
if Bdate != Bdate[1] Then
{
HH = dmav;
LL = dmav;
}
if HH > 0 and dmav > HH Then
HH = dmav;
if HH > 0 and dmav < LL Then
LL = dmav;
plot5(dmav,"일간이평");
plot6(HH,"당일최고");
plot7(LL+(HH-LL)*0.236,"23.6%");
plot8(LL+(HH-LL)*0.382,"38.2%");
plot9(LL+(HH-LL)*0.500,"50.0%");
plot10(LL+(HH-LL)*0.618,"61.8%");
plot11(LL+(HH-LL)*0.764,"76.4");
plot12(LL,"당일최저");
2021-06-11
1075
글번호 149879
지표