답변완료
키움수식
가=MA(C,5);
나=(highest(high,9)+lowest(low,9))/2;
다=(highest(high,6)+lowest(low,6))/2;
라=(highest(high,5)+lowest(low,5))/2;
M40=ma(C, 40);
M5=ma(C, 5);
DP=
eavg(Diplus(period)/(Diplus(period)+Diminus(period)),period)*100;
M=ma(C, 20);
Dp>Dp(1) && M >M(1) && C>가&&
C>나 &&
C>다 &&
C>라 &&
M5 > M40 &&
M40>M40(1)
감사합니다
2024-11-02
635
글번호 184911
종목검색
답변완료
종목검색식 부탁드립니다.
종목검색식 부탁드립니다.
감사합니다...^^
M1 = ma(C, 기간1, 가중);
M2 = ma(C, 기간2, 가중);
M3 = ma(C, 기간3, 단순);
저점 = M1 > M1(1) && M1(1) < M1(2);
고점 = Highestsince(1, 저점, H);
첫바닥1 = Valuewhen(1, 저점, M1(1));
첫바닥2 = Valuewhen(1, 저점, M2(1));
쌍바닥1 = Valuewhen(2, 저점, M1(1));
쌍바닥2 = Valuewhen(2, 저점, M2(1));
전고점 = Valuewhen(1, 저점, 고점(1));
첫바닥1 < 첫바닥2 &&
쌍바닥1 < 쌍바닥2 &&
M2 < M1 &&
CrossUp(H, 전고점) &&
C > M3 &&
C > O
2024-11-02
779
글번호 184909
종목검색
답변완료
수정부탁드립니다.
변곡점 수직선 적색 청색 변경부탁드립니다。
Input:Cnt(60),선TL선(4),사각박스굵기(1);
Var:nj(0),turnPntBit(""),TdL1(0),color(0),vtx(0),box1(0),box2(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
// 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가
For nj = 0 To 9
{
barArr[nj] = barArr[nj] + 1;
}
// 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다
// 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다
Condition1 = Highest(H,Cnt)[Cnt+1] <= H[Cnt] and H[Cnt] > Highest(H,Cnt);
Condition2 = Lowest(L,Cnt)[Cnt+1] >= L[Cnt] and L[Cnt] < Lowest(L,Cnt);
// 전환점구분 null값으로 초기화;
// if 고점조건, 저점조건 동시 만족시 then
// if 이전 고점,저점 범위를 모두 벗어났을 때
// 전환점구분 = 고저점;
// else if 이전 고점을 갱신했다면 전환점구분 = 고점;
// else if 이전 저점을 갱신했다면 전환점구분 = 저점;
// else if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점;
// else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점;
// else if 고점조건 만족하면 전환점구분 = 고점;
// else if 저점조건 만족하면 전환전구분 = 저점;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H[Cnt] and Min(valArr[1],valArr[2]) > L[Cnt] Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H[Cnt] Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L[Cnt] Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Hi" Then turnPntBit = "Lo";
Else If turnPntArr[1] == "Lo" Then turnPntBit = "Hi";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
// if 전환점구분에 값이 있을 때만 아래 실행, 없으면 통과
If turnPntBit <> "" Then
{
// if 전환점구분이 고저점이면 then
// 이전 파동은 연장시키고 아래에서 새로이 파동선을 추가토록 한다.
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H[Cnt],L[Cnt]);
barArr[1] = Cnt;
TL_SetEnd(TdL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
// if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then
// 배열값들을 이전값으로 Move;
If turnPntBit <> turnPntArr[1] Then
{
for nj = 8 downto 1
{
valArr[nj+1] = valArr[nj];
barArr[nj+1] = barArr[nj];
turnPntArr[nj+1] = turnPntArr[nj];
}
}
// if 전환점구분이 바뀌었거나 또는
// (전환점구분은 안바뀌었는데
// (이전 고점보다 높은 고점이 발생했거나 또는
// 이전 저점보다 낮은 저점이 발생했으면)) then
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H[Cnt]) or
(turnPntBit == "Lo" and valArr[1] > L[Cnt]))) Then
{
// 값 배열에는 고점 또는 저점을 대입;
// 봉개수 배열에는 입력변수의 봉개수 대입;
// 전환점 배열에 전환점구분값을 대입;
valArr[1] = IFF(turnPntBit == "Hi",H[Cnt],L[Cnt]);
barArr[1] = Cnt;
turnPntArr[1] = turnPntBit;
// if 이전봉대비 전환점구분이 바뀌었다면 추세선 새로 그리고;
// else 전환점구분이 안바뀌었으면 값만 바뀐거므로 추세선 연장;
If turnPntArr[1][1] <> turnPntArr[1][0] Then
{
TdL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
// vtx = text_new(sDate[barArr[1]],sTime[barArr[1]],valArr[1],NumToStr(valArr[1],2));
if turnPntArr[1][1] > turnPntArr[1][0] then
{
color = red;
Text_SetStyle(vtx,2,1);
}
Else
{
color = blue;
Text_SetStyle(vtx,2,0);
}
box1 = box_new(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
Box_SetColor(box1,color);
Box_SetFill(box1,true);
box2 = box_new(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
Box_SetColor(box2,color);
Box_SetSize(box2,사각박스굵기);
}
Else
{
TL_SetEnd(TdL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
Box_SetEnd(box1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
Box_SetEnd(box2,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
}
TL_SetSize(TdL1,선TL선);
TL_Setcolor(TdL1,color);
2024-11-01
680
글번호 184903
지표