답변완료
검색식 부탁 드려요
2-1. 아래의 수식에서 본선이(수식1) 과열로 진입할때 종목 검색식
2-2 아래의 수식에서 본선이(수식1) 과열위에 있는 종목 검색식
2-3 아래의 수식에서 본선이(수식1) 시그널선을 돌파할때
2-4 아래의 수식에서 본선이(수식1) 침체에서 돌파할때 검색식 .
2-5 OSC 가 0기준선으로 양봉일때 종목 검색식 부탁드립니다.
(수식1) WTL
ap = (HIGH*LOW*CLOSE)/3;
esa = eavg(ap, 10);
d = eavg(abs(ap - esa), 10);
ci = (ap - esa) / (0.015 * d);
wt1 = eavg(ci,21);
wt2 = avg(wt1,4);
wt1
(수식2) SIGNAL
ap = (HIGH*LOW*CLOSE)/3;
esa = eavg(ap, 10);
d = eavg(abs(ap - esa), 10);
ci = (ap - esa) / (0.015 * d);
wt1 = eavg(ci,21);
wt2 = avg(wt1,4);
wt2
(수식3) OSC
ap = (HIGH*LOW*CLOSE)/3;
esa = eavg(ap, 10);
d = eavg(abs(ap - esa), 10);
ci = (ap - esa) / (0.015 * d);
wt1 = eavg(ci,21);
wt2 = avg(wt1,4);
(wt1-wt2)*1.5
- 지표조건설정
과열 53
침체 -53
2024-07-11
679
글번호 181396
종목검색
답변완료
다시 한번 확인 부탁드립니다.
알려주신 대로 IF maketposition==0 으로 변경하여 확인 하였더니 exitlong # exitshort #
사라졌으나
첨부파일을 보면 파란원안에 "bxL" "bxm" 로 신호명은 바르게 표기되어있으나, 빨간원 부근에서 청산되지를 않고
다음봉의 시가에 청산되어 손실이 두배이상 나옵니다.이런 현상이 2회나 발생합니다. 확인 좀 부탁드립니다.
참고로 진입은 IF maketposition==0 조건 then
Buy("b",OnClosE,DeF,2);
청산은 if MarketPosition == 1 Then
ExitLong("bxL",AtStop,L[BarsSinceEntry]); 이렇게 되어있습니다.
2024-07-11
793
글번호 181381
시스템
답변완료
수식작성 부탁드립니다
안녕하세요
수고많으십니다.
각항 검색식으로 부탁드려 봅니다.
input : P(5);
var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Array : H1[100](0),L1[100](0);
if Bdate > Bdate[1]+30 Then
{
H1[0] = h;
L1[0] = l;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if h > H1[0] Then
h1[0] = h;
if l < l1[0] Then
l1[0] = l;
if L1[P] > 0 Then
{
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + H1[cnt] * (P - cnt);
Sum2 = Sum2 + L1[cnt] * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
}
-----------------------------------------------------
input : P(5);
var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Array : H1[100](0),L1[100](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
H1[0] = h;
L1[0] = l;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if h > H1[0] Then
h1[0] = h;
if l < l1[0] Then
l1[0] = l;
if L1[P] > 0 Then
{
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + H1[cnt] * (P - cnt);
Sum2 = Sum2 + L1[cnt] * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
}
------------------------------------------------------------
input : P(5);
var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + DayHigh(cnt) * (P - cnt);
Sum2 = Sum2 + daylow(cnt) * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
---------------------------------------------------
input : ntime(480),P(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Array : H1[100](0),L1[100](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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
H1[0] = h;
L1[0] = l;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if h > H1[0] Then
h1[0] = h;
if l < l1[0] Then
l1[0] = l;
if L1[P] > 0 Then
{
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + H1[cnt] * (P - cnt);
Sum2 = Sum2 + L1[cnt] * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
}
}
항삼 감사 드립니다.
수고 하십시요
2024-07-11
958
글번호 181377
종목검색