답변완료
종목검색
shortPeriod(9),midPeriod(26),longPeriod(52)
가 = shift(close,(-26)+1)
나 = shift((highest(high,shortPeriod)+lowest(low,shortPeriod)+highest(high,midPeriod)+lowest(low,midPeriod))/4,midPeriod-1);
다 = shift((highest(high,longPeriod)+lowest(low,longPeriod))/2,midPeriod-1);
라 = (highest(high,26)+lowest(low,26))/2;
마 = (highest(high,9)+lowest(low,9))/2;
CROSSUP(가, 라) &&
CROSSUP(나, 다) &&
다(1) < 다&&
라(1) < 라&&
CROSSUP(C,라)&&
CROSSUP(C,마)&&
C(1) < C
삼복더위에 수고하십니다
감사합니다
고맙습니다
2024-07-26
856
글번호 181939
종목검색
답변완료
확인 부탁드립니다.
안녕하세요
수정하여 보내주신 시스템 수식은 잘 받았습니다.
그런데 챠트에 적용하여보니 신호가 나오지 않고 있습니다.
90틱 챠트에 적용해도 그렇고 3분봉 챠트에 적용하여 봐도 나오지 않고 있습니다.
다시한번 검토부탁드리며 아울러 지표도 같이 부탁드립니다.
다시한번 노고에 감사드립니다.
(수정하여 보내주신 시스템 수식)
input : 타주기분1(3),타주기분2(15),타주기분3(60),EMAP(5),TMAP(20);
var : S1(0),D1(0),TM(0),TF1(0),TF2(0),TF3(0),cnt(0);
var : O2(0),O3(0),O21(0),O31(0);
var : EP(0),i1(0),i2(0),i3(0),Pre1(0),Pre2(0),Pre3(0),E1(0),E2(0),E3(0);
Var : Sum1(0),sum2(0),Tma(0),TLen(0),TMA1(0);
Array : C1[100](0),M1[100](0);
EP = 2/(EMAP+1);
TLen = Ceiling((TMAP + 1) * .5);
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%타주기분1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 타주기분1 > 1 and TM >= TM[1]+타주기분1) or
(Bdate == Bdate[1] and 타주기분1 == 1 and TM > TM[1]) Then
{
i1 = i1+1;
Pre1 = E1[1];
for cnt = 99 downto 1
{
C1[cnt] = C1[cnt-1];
m1[cnt] = m1[cnt-1];
}
TMA1 = TMA[1];
}
C1[0] = c;
if C1[TLen-1] > 0 Then
{
Sum1 = 0;
For cnt = 0 To TLen - 1
{
Sum1 = Sum1 + C1[cnt];
}
m1[0] = sum1/TLen;
}
if m1[TLen-1] > 0 Then
{
Sum2 = 0;
For cnt = 0 To TLen - 1
{
Sum2 = Sum2 + m1[cnt];
}
Tma = sum2/TLen;
}
if i1 <= 1 then
E1 = C;
else
E1 = C * EP + Pre1 * (1-EP);
TF2 = TM%타주기분2;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분1) or
(Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then
{
i2 = i2+1;
O2 = O;
O21 = O2[1];
Pre2 = E2[1];
}
if i2 <= 1 then
E2 = C;
else
E2 = C * EP + Pre2 * (1-EP);
TF3 = TM%타주기분3;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or
(Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or
(Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then
{
i3 = i3+1;
O3 = O;
O31 = O2[1];
Pre3 = E3[1];
}
if i3 <= 1 then
E3 = C;
else
E3 = C * EP + Pre3 * (1-EP);
if TMA1 > 0 and
E3 > O3 and pre3 < O31 and
E2 > O2 and pre2 < O21 and
TMA > E1 and TMA1 < pre1 Then
Buy();
if TMA1 > 0 and
E3 < O3 and pre3 > O31 and
E2 < O2 and pre2 > O21 and
TMA < E1 and TMA1 > pre1 Then
Sell();
}
(수정의뢰하였던 기존 수식)
더운 날씨에 저희의 수고를 덜어주셔서 감사드립니다.
아래 시스템과 지표의 수식을 다시한번 수정 부탁드립니다.
고맙습니다.
진입은 틱챠트에서 합니다
1.매수조건 (3개의 조건이 한개라도 안맞을시 신호 불가)
- 1시간봉 시가선을 지수5 이평이 상향크로스
- 15 분봉 시가선을 지수5 이평이 상향크로스
- 3 분봉에서는 오직 20삼각가중선을 지수 5 이평이 상향 크로스할때 매수
(분봉 시가선, 삼각가중, 지수이평은 변수)
2.매도조건 (3개의 조건이 한개라도 안맞을시 신호 불가)
- 1시간봉 시가선을 지수5 이평이 하향크로스
- 15 분봉 시가선을 지수5 이평이 하향크로스
- 3 분봉에서는 오직 20삼각가중선을 지수 5 이평이 하향 크로스할때 매도
(분봉 시가선, 삼각가중, 지수이평은 변수)
1
input : 타주기분1(3),타주기분2(60),타주기분3(240),전환선기간(9);
var : S1(0),D1(0),TM(0),cnt(0),hh(0),ll(0),전환선(0);
var : TF1(0),TF2(0),TF3(0),O2(0),O3(0),H2(0),L2(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;
TF1 = TM%타주기분1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 타주기분1 > 1 and TM >= TM[1]+타주기분1) or
(Bdate == Bdate[1] and 타주기분1 == 1 and TM > TM[1]) Then
{
For cnt = 99 DownTo 1
{
H1[cnt] = H1[cnt-1];
L1[cnt] = L1[cnt-1];
}
H1[0] = H;
L1[0] = L;
}
if H1[0] > 0 and H > H1[0] Then
H1[0] = H;
if L1[0] > 0 and L < L1[0] Then
L1[0] = L;
TF2 = TM%타주기분2;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분1) or
(Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then
{
O2 = O;
H2 = H;
L2 = L;
}
if H2 > 0 and H > H2 Then
H2 = H;
if L2 > 0 and L < L2 Then
L2 = L;
TF3 = TM%타주기분3;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or
(Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or
(Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then
{
O3 = O;
}
if O2 > 0 and O3 > 0 and H1[전환선기간-1] > 0 and L1[전환선기간-1] > 0 Then
{
hh = 0;
ll = 0;
For cnt = 0 to 전환선기간-1
{
if hh == 0 or (hh > 0 and H1[cnt] > hh) Then
hh = H1[cnt];
if ll == 0 or (ll > 0 and L1[cnt] < ll) Then
ll = L1[cnt];
}
전환선 = (hh+ll)/2;
if C > O3 and
C > O2 and
C >= L2+(H2-L2)*0.25 and
C > 전환선 then
Buy();
if C < O3 and
C < O2 and
C <= H2-(H2-L2)*0.25 and
C < 전환선 then
Sell();
}
}
2
input : 타주기분1(3),타주기분2(60),타주기분3(240),전환선기간(9);
var : S1(0),D1(0),TM(0),cnt(0),hh(0),ll(0),전환선(0);
var : TF1(0),TF2(0),TF3(0),O2(0),O3(0),H2(0),L2(0),tx(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;
TF1 = TM%타주기분1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 타주기분1 > 1 and TM >= TM[1]+타주기분1) or
(Bdate == Bdate[1] and 타주기분1 == 1 and TM > TM[1]) Then
{
For cnt = 99 DownTo 1
{
H1[cnt] = H1[cnt-1];
L1[cnt] = L1[cnt-1];
}
H1[0] = H;
L1[0] = L;
}
if H1[0] > 0 and H > H1[0] Then
H1[0] = H;
if L1[0] > 0 and L < L1[0] Then
L1[0] = L;
TF2 = TM%타주기분2;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분1) or
(Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then
{
O2 = O;
H2 = H;
L2 = L;
}
if H2 > 0 and H > H2 Then
H2 = H;
if L2 > 0 and L < L2 Then
L2 = L;
TF3 = TM%타주기분3;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or
(Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or
(Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then
{
O3 = O;
}
if O2 > 0 and O3 > 0 and H1[전환선기간-1] > 0 and L1[전환선기간-1] > 0 Then
{
hh = 0;
ll = 0;
For cnt = 0 to 전환선기간-1
{
if hh == 0 or (hh > 0 and H1[cnt] > hh) Then
hh = H1[cnt];
if ll == 0 or (ll > 0 and L1[cnt] < ll) Then
ll = L1[cnt];
}
전환선 = (hh+ll)/2;
if C > O3 and
C > O2 and
C >= L2+(H2-L2)*0.25 and
C > 전환선 then
{
tx = Text_New(sDate,sTime,H,"●");
Text_SetColor(tx,Red);
Text_SetStyle(tx,2,1);
Text_SetSize(tx,12);
}
if C < O3 and
C < O2 and
C <= H2-(H2-L2)*0.25 and
C < 전환선 then
{
tx = Text_New(sDate,sTime,H,"●");
Text_SetColor(tx,Blue);
Text_SetStyle(tx,2,1);
Text_SetSize(tx,12);
}
plot1(O2);
plot2(O3);
plot3(전환선);
plot4(L2+(H2-L2)*0.25);
plot5(H2-(H2-L2)*0.25);
}
}
2024-07-26
766
글번호 181936
시스템
답변완료
종목검색
shortPeriod(9),midPeriod(26),longPeriod(52)
선행1=shift((highest(high,shortPeriod)+lowest(low,shortPeriod)+highest(high,midPeriod)+lowest(low,midPeriod))/4,midPeriod-1);
선행2=shift((highest(high,longPeriod)+lowest(low,longPeriod))/2,midPeriod-1);
후행스팬 = shift(close,-midPeriod+1);
M10 = ma(C, 10);
M60 = ma(C, 60);
CrossUP(선행1, 선행2,(-25)) &&
M10 > M60 &&
CROSSUP(후행스팬,M60)&&
M60(60)<M60&&
M60(1)<M60
감사합니다
2024-07-26
704
글번호 181935
종목검색