커뮤니티
부탁 드립니다.
2018-05-27 17:21:04
208
글번호 119234
도움주심에 감사 드립니다.
다음 수식은 data2를 참조하여 지표와 tl1과 tl51을 긋고 있습니다.
질문1)
오류가 있다면 수정 부탁 드립니다.
질문2)
//5행 밑에 행의 L < L[N]과 //11행 밑에 H > H[N]는 data1 또는 data2중 어느것의 data인지요?
만약에 data1이라면 data2로 변경,
만약에 data2이라면 data1으로 변경 부탁 드립니다.
질문3)
현재 tl1과 tl51은 data1의 차트에 선을 긋고 있습니다.
이것을 data2의 차트에 나타 낼수 있는지요?
질문4)
TL_New_self의 기능을 활용하여 지표영역에 다이버전스를 표시 할수 있겠는지요?
미리 경배로 감사 드립니다.
input:p14(14),n(20);
var : RSIV(0,data2);
rsiv=data2(trix(p14));
var :TL1(0,DATA2);
//5행
if L < L[N] and RSIV > RSIV[N] Then{
TL_Delete(TL1);
TL1 = TL_New(sdate[N],stime[N],L[N]-pricescale,sdate,stime,L-PriceScale);
TL_SetColor(TL1,yellow);
TL_Setsize(TL1,1);}
var :TL51(0,DATA2);
//11행
if H > H[N] and RSIV < RSIV[N] Then{
TL_Delete(TL51);
TL51 = TL_New(sdate[N],stime[N],H[N]+PriceScale,sdate,stime,h+pricescale);
TL_SetColor(TL51,green);
TL_Setsize(TL51,1);}
plot1(rsiv,"지표");
PlotBaseLine1(0,"0");
질문5)data2를 활용한 타주기 수식 부탁 드립니다.
input:length(20),gainlimit(50/20),sig(5);
Variable:alpha(0),gain(0),bestgain(0),ec(0),error(0),leasterror(0),em(0);
if accum(1)>1 then{
alpha=2/(length+1);
em=alpha*c+(1-alpha)*em[1];
leasterror=1000000;
for value1=-length*gainlimit to length*gainlimit
Begin
gain=value1/10;
ec=alpha*(em+gain*(c-ec[1]))+(1-alpha)*ec[1];
error=c-ec;
if absvalue(error)<leasterror Then
Begin
leasterror=absvalue(error);
bestgain=gain;
end;
end;
ec=alpha*(em+bestgain*(c-ec[1]))+(1-alpha)*ec[1];
}
var1=ema((c-ec),sig);
답변 1
예스스탁 예스스탁 답변
2018-05-28 12:50:38
안녕하세요
예스스탁입니다.
1.2.3.4
아래 수식 내용 참고하시기 바랍니다.
input : N(5);
var : TL1(0,DATA2),RSIV(0,data2);
RSIV = RSI(RSI(14));
//5행
if data2(L < L[N]) and RSIV > RSIV[N] Then{
TL_Delete(TL1);
TL1 = TL_New_Self(data2(sdate[N]),data2(stime[N]),data2(L[N]-pricescale),data2(sdate),data2(stime),data2(L-PriceScale));
TL_SetColor(TL1,yellow);
TL_Setsize(TL1,1);}
var :TL51(0,DATA2);
//11행
if data2(H > H[N]) and RSIV < RSIV[N] Then{
TL_Delete(TL51);
TL51 = TL_New_Self(data2(sdate[N]),data2(stime[N]),data2(H[N]+PriceScale),data2(sdate),data2(stime),data2(h+pricescale));
TL_SetColor(TL51,green);
TL_Setsize(TL51,1);}
plot1(rsiv,"지표");
PlotBaseLine1(0,"0");
5
input:length(20),gainlimit(50/20),sig(5);
Var :alpha(0,data2),gain(0,data2),bestgain(0,data2),ec(0,data2);
var :error(0,data2),leasterror(0,data2),em(0,data2),v1(0,data2);
if data2(accum(1)>1) then{
alpha = 2/(length+1);
em = alpha*data2(c)+(1-alpha)*em;
leasterror=1000000;
for value1=-length*gainlimit to length*gainlimit
Begin
gain=value1/10;
ec=alpha*(em+gain*(c-ec[1]))+(1-alpha)*ec[1];
error = data2(c)-ec;
if absvalue(error)<leasterror Then
Begin
leasterror=absvalue(error);
bestgain=gain;
end;
end;
ec=alpha*(em+bestgain*(c-ec[1]))+(1-alpha)*ec[1];
}
v1=data2(ema((c-ec),sig));
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움주심에 감사 드립니다.
다음 수식은 data2를 참조하여 지표와 tl1과 tl51을 긋고 있습니다.
질문1)
오류가 있다면 수정 부탁 드립니다.
질문2)
//5행 밑에 행의 L < L[N]과 //11행 밑에 H > H[N]는 data1 또는 data2중 어느것의 data인지요?
만약에 data1이라면 data2로 변경,
만약에 data2이라면 data1으로 변경 부탁 드립니다.
질문3)
현재 tl1과 tl51은 data1의 차트에 선을 긋고 있습니다.
이것을 data2의 차트에 나타 낼수 있는지요?
질문4)
TL_New_self의 기능을 활용하여 지표영역에 다이버전스를 표시 할수 있겠는지요?
미리 경배로 감사 드립니다.
input:p14(14),n(20);
var : RSIV(0,data2);
rsiv=data2(trix(p14));
var :TL1(0,DATA2);
//5행
if L < L[N] and RSIV > RSIV[N] Then{
TL_Delete(TL1);
TL1 = TL_New(sdate[N],stime[N],L[N]-pricescale,sdate,stime,L-PriceScale);
TL_SetColor(TL1,yellow);
TL_Setsize(TL1,1);}
var :TL51(0,DATA2);
//11행
if H > H[N] and RSIV < RSIV[N] Then{
TL_Delete(TL51);
TL51 = TL_New(sdate[N],stime[N],H[N]+PriceScale,sdate,stime,h+pricescale);
TL_SetColor(TL51,green);
TL_Setsize(TL51,1);}
plot1(rsiv,"지표");
PlotBaseLine1(0,"0");
질문5)data2를 활용한 타주기 수식 부탁 드립니다.
input:length(20),gainlimit(50/20),sig(5);
Variable:alpha(0),gain(0),bestgain(0),ec(0),error(0),leasterror(0),em(0);
if accum(1)>1 then{
alpha=2/(length+1);
em=alpha*c+(1-alpha)*em[1];
leasterror=1000000;
for value1=-length*gainlimit to length*gainlimit
Begin
gain=value1/10;
ec=alpha*(em+gain*(c-ec[1]))+(1-alpha)*ec[1];
error=c-ec;
if absvalue(error)<leasterror Then
Begin
leasterror=absvalue(error);
bestgain=gain;
end;
end;
ec=alpha*(em+bestgain*(c-ec[1]))+(1-alpha)*ec[1];
}
var1=ema((c-ec),sig);