커뮤니티
타주기 지표변환
2023-10-31 08:44:13
909
글번호 173520
감사합니다.
아래지표를 변환 부탁드립니다.
1. 분봉지표를 타분봉에서 사용할 수 있도록 변환부탁드립니다.
2. 일봉지표를 분봉에서 사용할 수 있도록 변환부탁드립니다.
input : P1(3);
var : LT(0),HT(0),NewH(0),BOX1(false),Top(0),BTM(0);
LT=LOWEST(L,P1);
HT=HIGHEST(H,P1);
if H > HT[1] Then{
NewH = H;
var1 = index;
}
BOX1=HIGHEST(H,P1-2)<HIGHEST(H,P1-1);
if index-var1 == P1-2 and BOX1 Then
Top = NewH;
if index-var1 == P1-2 and BOX1 Then
BTM = LT;
plot1(TOP,"상단");
plot2(BTM,"하단");
답변 1
예스스탁 예스스탁 답변
2023-11-01 09:22:42
안녕하세요
예스스탁입니다.
1
input : ntime1(30),P1(3);
var : LT(0),HT(0),NewH(0),BOX1(false),Top(0),BTM(0);
var : HH1(0),HH2(0);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),B(0);
Array : CC[100](0),HH[100](0),LL[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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime1 > 1 and TF < TF[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
{
B = B+1;
for cnt = 99 downto 1
{
CC[cnt] = CC[cnt-1];
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
}
HH[0] = H;
LL[0] = L;
if HH[P1+1] > 0 and LL[P1+1] > 0 Then
{
HT = 0;
LT = 0;
For cnt = 1 to P1
{
if HT == 0 or (HT > 0 and HH[cnt+1] > HT) Then
HT = HH[cnt+1];
if LT == 0 or (LT > 0 and LL[cnt] < LT) Then
LT = LL[cnt];
}
HH1 = 0;
For cnt = 1 to P1-2
{
if HH1 == 0 or (HH1 > 0 and HH[cnt] > HH1) Then
HH1 = HH[cnt];
}
HH2 = 0;
For cnt = 1 to P1-1
{
if HH2 == 0 or (HH2 > 0 and HH[cnt] > HH2) Then
HH2 = HH[cnt];
}
}
if HH[1] > HT Then
{
NewH = HH[1];
var1 = B[1];
}
BOX1=HH1<HH2;
if B[1]-var1 == P1-2 and BOX1 Then
Top = NewH;
if B[1]-var1 == P1-2 and BOX1 Then
BTM = LT;
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
if Top > 0 Then
{
plot1(TOP,"상단");
plot2(BTM,"하단");
}
}
2
input : ntime1(30),P1(3);
var : LT(0),HT(0),NewH(0),BOX1(false),Top(0),BTM(0);
var : HH1(0),HH2(0);
var : cnt(0),B(0);
Array : CC[100](0),HH[100](0),LL[100](0);
if Bdate != Bdate[1] Then
{
B = B+1;
for cnt = 99 downto 1
{
CC[cnt] = CC[cnt-1];
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
}
HH[0] = H;
LL[0] = L;
if HH[P1+1] > 0 and LL[P1+1] > 0 Then
{
HT = 0;
LT = 0;
For cnt = 1 to P1
{
if HT == 0 or (HT > 0 and HH[cnt+1] > HT) Then
HT = HH[cnt+1];
if LT == 0 or (LT > 0 and LL[cnt] < LT) Then
LT = LL[cnt];
}
HH1 = 0;
For cnt = 1 to P1-2
{
if HH1 == 0 or (HH1 > 0 and HH[cnt] > HH1) Then
HH1 = HH[cnt];
}
HH2 = 0;
For cnt = 1 to P1-1
{
if HH2 == 0 or (HH2 > 0 and HH[cnt] > HH2) Then
HH2 = HH[cnt];
}
}
if HH[1] > HT Then
{
NewH = HH[1];
var1 = B[1];
}
BOX1=HH1<HH2;
if B[1]-var1 == P1-2 and BOX1 Then
Top = NewH;
if B[1]-var1 == P1-2 and BOX1 Then
BTM = LT;
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
if Top > 0 Then
{
plot1(TOP,"상단");
plot2(BTM,"하단");
}
즐거운 하루되세요
> jdavid 님이 쓴 글입니다.
> 제목 : 타주기 지표변환
> 감사합니다.
아래지표를 변환 부탁드립니다.
1. 분봉지표를 타분봉에서 사용할 수 있도록 변환부탁드립니다.
2. 일봉지표를 분봉에서 사용할 수 있도록 변환부탁드립니다.
input : P1(3);
var : LT(0),HT(0),NewH(0),BOX1(false),Top(0),BTM(0);
LT=LOWEST(L,P1);
HT=HIGHEST(H,P1);
if H > HT[1] Then{
NewH = H;
var1 = index;
}
BOX1=HIGHEST(H,P1-2)<HIGHEST(H,P1-1);
if index-var1 == P1-2 and BOX1 Then
Top = NewH;
if index-var1 == P1-2 and BOX1 Then
BTM = LT;
plot1(TOP,"상단");
plot2(BTM,"하단");
다음글
이전글