커뮤니티
지표 요청 드립니다.(2개)
2024-07-01 06:51:45
666
글번호 181056
안녕 하세요^^
<수식 추가 요청>
아래 수식에서 추세선 마지막 에서 5개 까지 중심선좀 부탁 드립니다.
## 아래 수식
input :Peodd(10),d색상두께(50),d두께c(1),긁씨크기d(10);
Var:상승색j(rgb(255,0,0)), 하락색j(rgb(0,255,0));
Var:JW(0),JWT(0),dTL5사각(0),dText1사각(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),pvv(0),dTL(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),L저val[20](0),h고Bar[20](0),L저Bar[20](0);
Array:Ldr[7](0),Ldfr[7](0);
var : Udbox(0),Udbox1(0),tx(0);
Ldr[0] = 0;
Ldr[1] = 2;
Ldr[2] = 3.;
Ldr[3] = -1;
Ldr[4] = -2.;
Ldr[5] = 1;
Ldr[6] = 0.5;
For JW = 0 To 19
{
h고Bar[JW] = h고Bar[JW] + 1;
L저Bar[JW] = L저Bar[JW] + 1;
}
if crossup(c,highest(H,Peodd)[1]) Then
JWT = 1;
if CrossDown(c,Lowest(L,Peodd)[1]) Then
JWT = -1;
If JWT == -1 Then
{
If JWT[1] != -1 Then
{
For JW = 18 DownTo 0
{
L저val[JW+1] = L저val[JW];
L저Bar[JW+1] = L저Bar[JW];
//ZZ[j+1] = ZZ[j];
}
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JW = 0 to 6
{
Ldfr[JW] = L저val[1] + ((h고Val[0] - L저val[1]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue11);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,하락색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Blue);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,0);
}
If L저val[0] > L Then
{
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고22 = Date[0];
h시간22 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
If JWT == 1 Then
{
If JWT[1] != 1 Then
{
For JW = 18 DownTo 0
{
h고Val[JW+1] = h고Val[JW];
h고Bar[JW+1] = h고Bar[JW];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[L저Bar[0]];
h시간11 = stime[L저Bar[0]];
hVlue11 = L저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[L저Bar[0]];
h시간31 = stime[L저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JW = 0 to 5
{
Ldfr[JW] = L저val[0] + ((h고Val[1] - L저val[0]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue12);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,상승색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Red);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,1);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
* 신규 수식 요청
아래 기준으로 수식 좀 요청 드림니다.
var1 = ma(c,30) ;
var2 = ma(c,60) ; 일 경우 크로스업/다운 이 반복 되는데 구간 마다
var3 = var1 과 var2 크로스 구간 총 봉겟수( 60일선 기준)
var4 = var3 중 고저가 가 var2 보다 높은 봉겟수 율(%) 이평선 보다 높은거
var5 = var3 중 고저가 가 var2 에 걸처 있는 봉겟수 율(%) 이평선 걸친것
var6 = var3 중 고저가 가 var2 보다 낮은 봉겟수 율(%) 이평선 아래 인것
plot1(var4);
plot2(var5);
plot3(var6);
좀 부탁드립니다.
* 항상 많은 도움에 고맙 습니다. 수고하십시요.
답변 1
예스스탁 예스스탁 답변
2024-07-01 13:25:05
안녕하세요
예스스탁입니다.
1
input :Peodd(10),d색상두께(50),d두께c(1),긁씨크기d(10);
Var:상승색j(rgb(255,0,0)), 하락색j(rgb(0,255,0));
Var:JW(0),JWT(0),dTL5사각(0),dText1사각(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),pvv(0),dTL(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),L저val[20](0),h고Bar[20](0),L저Bar[20](0);
Array:Ldr[7](0),Ldfr[7](0);
var : Udbox(0),Udbox1(0),tx(0);
var : mm(0),cnt(0);
Array :TL[20](0);
Ldr[0] = 0;
Ldr[1] = 2;
Ldr[2] = 3.;
Ldr[3] = -1;
Ldr[4] = -2.;
Ldr[5] = 1;
Ldr[6] = 0.5;
For JW = 0 To 19
{
h고Bar[JW] = h고Bar[JW] + 1;
L저Bar[JW] = L저Bar[JW] + 1;
}
if crossup(c,highest(H,Peodd)[1]) Then
JWT = 1;
if CrossDown(c,Lowest(L,Peodd)[1]) Then
JWT = -1;
If JWT == -1 Then
{
If JWT[1] != -1 Then
{
For JW = 18 DownTo 0
{
L저val[JW+1] = L저val[JW];
L저Bar[JW+1] = L저Bar[JW];
//ZZ[j+1] = ZZ[j];
}
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JW = 0 to 6
{
Ldfr[JW] = L저val[1] + ((h고Val[0] - L저val[1]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue11);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,하락색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Blue);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,0);
TL_SetEnd(TL[0],h고11,h시간11,mm);
For cnt = 19 DownTo 1
{
TL[cnt] = TL[cnt-1][1];
}
mm = (hVlue11+hVlue12)/2;
TL[0] = TL_New(h고11,h시간11,mm,NextBarSdate,NextBarStime,mm);
TL_Delete(TL[5]);
}
If L저val[0] > L Then
{
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고22 = Date[0];
h시간22 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
mm = (hVlue11+hVlue12)/2;
TL_SetBegin(TL[0],h고11,h시간11,mm);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
mm = (hVlue11+hVlue12)/2;
TL_SetEnd(TL[0],sDate,sTime,mm);
}
If JWT == 1 Then
{
If JWT[1] != 1 Then
{
For JW = 18 DownTo 0
{
h고Val[JW+1] = h고Val[JW];
h고Bar[JW+1] = h고Bar[JW];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[L저Bar[0]];
h시간11 = stime[L저Bar[0]];
hVlue11 = L저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[L저Bar[0]];
h시간31 = stime[L저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JW = 0 to 5
{
Ldfr[JW] = L저val[0] + ((h고Val[1] - L저val[0]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue12);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,상승색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Red);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,1);
TL_SetEnd(TL[0],h고11,h시간11,mm);
For cnt = 19 DownTo 1
{
TL[cnt] = TL[cnt-1][1];
}
mm = (hVlue11+hVlue12)/2;
TL[0] = TL_New(h고11,h시간11,mm,NextBarSdate,NextBarStime,mm);
TL_Delete(TL[5]);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
mm = (hVlue11+hVlue12)/2;
TL_SetBegin(TL[0],h고11,h시간11,mm);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
mm = (hVlue11+hVlue12)/2;
TL_SetEnd(TL[0],sDate,sTime,mm);
}
2
var : T(0);
var1 = ma(c,30) ;
var2 = ma(c,60) ;
if CrossUp(var1,var2) Then
T = 1;
if CrossDown(var1,var2) Then
T = -1;
if T != 0 Then
{
if T != T[1] Then
var3 = 0;
var3 = var3+1;
if L > var2 Then
var4 = var4+1;
Else if H < var2 Then
var6 = var6+1;
Else
var5 = var5+1;
}
plot1(var4/var3*100);
plot2(var5/var3*100);
plot3(var6/var3*100);
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 지표 요청 드립니다.(2개)
> 안녕 하세요^^
<수식 추가 요청>
아래 수식에서 추세선 마지막 에서 5개 까지 중심선좀 부탁 드립니다.
## 아래 수식
input :Peodd(10),d색상두께(50),d두께c(1),긁씨크기d(10);
Var:상승색j(rgb(255,0,0)), 하락색j(rgb(0,255,0));
Var:JW(0),JWT(0),dTL5사각(0),dText1사각(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),pvv(0),dTL(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),L저val[20](0),h고Bar[20](0),L저Bar[20](0);
Array:Ldr[7](0),Ldfr[7](0);
var : Udbox(0),Udbox1(0),tx(0);
Ldr[0] = 0;
Ldr[1] = 2;
Ldr[2] = 3.;
Ldr[3] = -1;
Ldr[4] = -2.;
Ldr[5] = 1;
Ldr[6] = 0.5;
For JW = 0 To 19
{
h고Bar[JW] = h고Bar[JW] + 1;
L저Bar[JW] = L저Bar[JW] + 1;
}
if crossup(c,highest(H,Peodd)[1]) Then
JWT = 1;
if CrossDown(c,Lowest(L,Peodd)[1]) Then
JWT = -1;
If JWT == -1 Then
{
If JWT[1] != -1 Then
{
For JW = 18 DownTo 0
{
L저val[JW+1] = L저val[JW];
L저Bar[JW+1] = L저Bar[JW];
//ZZ[j+1] = ZZ[j];
}
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JW = 0 to 6
{
Ldfr[JW] = L저val[1] + ((h고Val[0] - L저val[1]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue11);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,하락색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Blue);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,0);
}
If L저val[0] > L Then
{
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고22 = Date[0];
h시간22 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
If JWT == 1 Then
{
If JWT[1] != 1 Then
{
For JW = 18 DownTo 0
{
h고Val[JW+1] = h고Val[JW];
h고Bar[JW+1] = h고Bar[JW];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[L저Bar[0]];
h시간11 = stime[L저Bar[0]];
hVlue11 = L저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[L저Bar[0]];
h시간31 = stime[L저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JW = 0 to 5
{
Ldfr[JW] = L저val[0] + ((h고Val[1] - L저val[0]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue12);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,상승색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Red);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,1);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
* 신규 수식 요청
아래 기준으로 수식 좀 요청 드림니다.
var1 = ma(c,30) ;
var2 = ma(c,60) ; 일 경우 크로스업/다운 이 반복 되는데 구간 마다
var3 = var1 과 var2 크로스 구간 총 봉겟수( 60일선 기준)
var4 = var3 중 고저가 가 var2 보다 높은 봉겟수 율(%) 이평선 보다 높은거
var5 = var3 중 고저가 가 var2 에 걸처 있는 봉겟수 율(%) 이평선 걸친것
var6 = var3 중 고저가 가 var2 보다 낮은 봉겟수 율(%) 이평선 아래 인것
plot1(var4);
plot2(var5);
plot3(var6);
좀 부탁드립니다.
* 항상 많은 도움에 고맙 습니다. 수고하십시요.
이전글