답변완료
문의 드립니다.
여러가지 도움과 설명 감사합니다.
아래 수식에서
var : WH(0),WL(0),WH1(0),WL1(0),WO(0);
if Bdate != Bdate[1] Then
{
WO = O;
WH = H;
WL = L;
WH1 = WH[1];
WL1 = WL[1];
}
if H > WH Then
WH = H;
if L < WL Then
WL = L;
if WH1 > 0 and WL1 > 0 Then
{
var1 = (WH1-WL1);
Var2 = WO-var1/2;
Plot1(Var2+var1*0.0, "L",RgB(0,0,0),DeF,1);
Plot2(Var2+var1*0.15, "Half%",RgB(0,0,0),DeF,1);
Plot3(Var2+var1*0.5, "C%",RgB(255,255,255),DeF,1);
Plot4(Var2+var1*0.85, "Half",RgB(0,0,0),DeF,1);
Plot5(Var2+var1*0.1, "H",RgB(0,0,0),DeF,4);
}
이거 하고
이평선 신호위해서 검색 데크 골크 검색 사용해서 합쳐 보았는데요
골크
input : Short(5),Long(20);
Value1 = ma(c, Short);
Value2 = ma(c, Long);
if CrossUp(Value1,Value2) Then
begin
Plot1(value1,"Golden Cross");
end
else
NoPlot(1);
하고
데크
input : Short(5),Long(20);
Value1 = ma(c, Short);
Value2 = ma(c, Long);
if CrossDown(Value1,Value2) Then
begin
Plot1(value1,"Dead Cross");
end
else
NoPlot(1);
이거 있는데요.
3가지 수식을 합치고 싶은데요
중심선 = 시가 출발하잖아요.
이평선 5일선 10일선이 시가 중심선 50%에서 위로 출발하면 위로 올라가면 85%라인을 만나기도 하죠
시가 50%에서 85% 라인까지 어떤 데크 골크 흐름이 나오든 데크 골크 신호가 나오지 않게합니다.
5일선 10일선이 85%라인을 넘고 나서 데크 하면 데크한 캔들 종가에서 매도 화살표 신호를 나오게 해주시고
85% 하고 100% 사이에 골크 신호 없이 데크 최초 발생한 신호 하나만 유지하고
85% 하고 100% 사이에 최초로 발생한 데크 화살표 한번만 표시 합니다.(계속 데크 발생 신호를 나오지 않음)
5,10일선이 100% 라인을 넘어서 최초로 데크 발생하면 화살표 표시 하고 그 후 100% 위에서 데크 계속 발생해도 표시 하지 않습니다.
청산 신호는
100% 위에 데크한 첫번째 신호 이후 85% 라인으로 내려가면서 캔들이 터치하면 청산 신호 별표가 나오고
100% 넘지 않고 85% 위에 데크한 첫번째 신호이후 50% 중심선 라인으로 캔들이 터치하면 청산 신호 별표가 나옵니다.
여기까지 매도 조건을 설명 드렸고요.
매수 조건은 매도 조건의 반대으로 생각하시면 됩니다.
중심선 시가 50%에서 캔들과 5, 10일선이 내려가면 15% 라인까지 이평선 골크 데크 나와도 화살표 신호 없습니다.
5, 10일선이 15%을 깨고 내려가다가 첫번째 골크 하면 화살표 신호가 나올 수 있게 해주세요.
15% 깨고 내려가다 첫번째 골크 화살표 신호 유지하고 그 후 15%와 0% 사이에 골크 나와도 신호 나오지 않습니다.
15% 깨고 내려간. 15% 하고 0% 사이에 있는 8. 10일선이 골크 하면서 15% 라인을 넘어 중심선 50%으로 캔들이 터치하면 청산 신호 별표를 부탁합니다.
또 15% 라인 깨고 내려간 5. 10일선이 0% 라인 깨고 내려가고 다시 최초로 골크하면 화살표 나오게 해주시고 그 후 골크 계속 발생해도 별표 표시 하지 않습니다.
0% 라인 깬 5 10일선이 골크 후 0% 넘어서 15% 라인으로 올라 가면서 캔들이 터치하면 청산 별표 나오게 해주세요.
감사합니다.
2023-12-19
897
글번호 174975
지표
답변완료
수식 변환 부탁드립니다.
변환 가능한 수식이면 지표식 부탁드리고요.
아래 시스템식에도 ema 대신 이것으로 적용시켜 수정해 주시면 감사하겠습니다.
1. 변환할 지표식
study(title="T3 Averages", shorttitle="T3", overlay = true)
Length = input(5, minval=1)
xPrice = close
xe1 = ema(xPrice, Length)
xe2 = ema(xe1, Length)
xe3 = ema(xe2, Length)
xe4 = ema(xe3, Length)
xe5 = ema(xe4, Length)
xe6 = ema(xe5, Length)
b = 0.7
c1 = -b*b*b
c2 = 3*b*b+3*b*b*b
c3 = -6*b*b-3*b-3*b*b*b
c4 = 1+3*b+b*b*b+3*b*b
nT3Average = c1 * xe6 + c2 * xe5 + c3 * xe4 + c4 * xe3
plot(nT3Average, color=lime, title="T3")
========================================================================
2. 시스템식
input : keyvalue(5),P(100);
input : atrperiod(10);
var : src(0),xatr(0),nloss(0),xATRTrailingStop(0),pos(0),xcolor(0);
var : Emav(0);
src = close;
xATR = atr(atrperiod);
nLoss = keyvalue * xATR;
xATRTrailingStop = 0.0;
xATRTrailingStop = iff(src > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src[1] > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), max(iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), src - nLoss),
iff(src < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src[1] < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), min(iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), src + nLoss),
iff(src > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), src - nLoss, src + nLoss)));
pos = 0;
pos = iff(src[1] < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), 1,
iff(src[1] > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), -1, iff(IsNan(pos[1])==true, 0,pos[1])));
xcolor = iff(pos == -1 , red , iff(pos == 1 , green ,blue));
Condition1 = CrossUp(src,xATRTrailingStop);
Condition2 = CrossDown(src,xATRTrailingStop);
Emav = Ema(C,P);
if Condition1 == true Then
{
if C > Emav Then
Buy();
Else
ExitShort("SX");
}
if Condition2 == true Then
{
if C < Emav Then
Sell("Sell");
Else
ExitLong("BX");
}
2023-12-18
886
글번호 174971
지표
답변완료
전환비율 data2
Input:전환비율(6);
Var : j(0,Data2),jj(0,Data2),HH(0,Data2),LL(0,Data2),hiBar(0,Data2),loBar(0,Data2),최종꼭지점("",Data2),처리구분("",Data2);
var : TL1(0,Data2),Box(0,Data2);
var : cond1(False,Data2),cond2(False,Data2);
Array:고[10,4](0,Data2),저[10,4](0,Data2);
HH=data2(H);
LL=data2(L);
If data2(Index==0) Then
{
고[1,1]=HH;
고[1,2]=0;
고[1,3]=data2(sDate);
고[1,4]=data2(sTime);
저[1,1]=LL;
저[1,2]=0;
저[1,3]=data2(sDate);
저[1,4]=data2(sTime);
}
If data2(Index>0) Then
{
hiBar=hiBar+1;
loBar=loBar+1;
}
If HH[hiBar]<HH Then hiBar=0;
If LL[loBar]>LL Then loBar=0;
cond1=저[1,1]*(1+(전환비율/100))<HH and hiBar==0;
cond2=고[1,1]*(1-(전환비율/100))>LL and loBar==0;
처리구분="";
If cond1 and cond2 Then//고점과저점조건동시만족
{
If 최종꼭지점=="저점" Then
{
If 저[1,1]>LL Then 처리구분="저점처리";
Else 처리구분="고점처리";
}
Else If 최종꼭지점=="고점" Then
{
If 고[1,1]<HH Then 처리구분="고점처리";
Else 처리구분="저점처리";
}
}
Else If cond1 Then 처리구분="고점처리";
Else If cond2 Then 처리구분="저점처리";
If 처리구분=="고점처리" Then
{
If 최종꼭지점=="저점" Then
{
For j=10 DownTo 2
{
For jj=1 To 4
{
고[j,jj]=고[j-1,jj];
}
}
고[1,1]=HH[hiBar];
고[1,2]=data2(Index)-hiBar;
고[1,3]=data2(sDate[hiBar]);
고[1,4]=data2(sTime[hiBar]);
hiBar=-1;
loBar=-1;
TL1=TL_New_Self(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL_SetSize(TL1,1);
TL_SetColor(TL1,RED);
Box_Delete(Box);
box=box_New_self(저[1,3],저[1,4],저[1,1],Data2(NextBarSdate),Data2(NextBarStime),고[1,1]);
box_SetColor(Box,RED);
Box_SetFill(Box,true);
}
Else If 고[1,1]<HH[hiBar] Then//1번고점보다높은고가출현
{
고[1,1]=HH[hiBar];
고[1,2]=data2(Index)-hiBar;
고[1,3]=data2(sDate[hiBar]);
고[1,4]=data2(sTime[hiBar]);
hiBar=-1;
loBar=-1;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
Box_SetEnd(Box,고[1,3],고[1,4],고[1,1]);
}
최종꼭지점="고점";
Plot1(고[1,1]);
NoPlot(2);
}
If 처리구분=="저점처리" Then
{
If 최종꼭지점=="고점" Then
{
For j=10 DownTo 2
{
For jj=1 To 4
{
저[j,jj]=저[j-1,jj];
}
}
저[1,1]=LL[loBar];
저[1,2]=data2(Index)-loBar;
저[1,3]=data2(sDate[loBar]);
저[1,4]=data2(sTime[loBar]);
hiBar=-1;
loBar=-1;
TL1=TL_New_Self(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL_SetSize(TL1,1);
TL_SetColor(TL1,BLUE);
Box_Delete(Box);
box=box_New_self(저[1,3],저[1,4],저[1,1],Data2(NextBarSdate),Data2(NextBarStime),고[1,1]);
box_SetColor(Box,Blue);
Box_SetFill(Box,true);
}
Else If 저[1,1]>LL[loBar] Then
{
저[1,1]=LL[loBar];
저[1,2]=data2(Index)-loBar;
저[1,3]=data2(sDate[loBar]);
저[1,4]=data2(sTime[loBar]);
hiBar=-1;
loBar=-1;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
Box_SetEnd(Box,저[1,3],저[1,4],저[1,1]);
}
최종꼭지점="저점";
Plot2(저[1,1]);
NoPlot(1);
}
박스 생성이 안되기도하고, 박스 크기도 일부 작고, 삭제도 몇군데 안됩니다.
오류 부분에서는 추세선도 이상합니다. 하락박스의 시작점에서 저를 고로 바꾸니 약간 수정되나 비슷합니다. 오류 수정 부탁드립니다.
2023-12-19
1060
글번호 174968
지표