답변완료
3가지 수식 부탁드립니다.
input: 가격1(100), 가격2(90), 가격3(80)
이렇게 일단 3가지 가격을 입력한 상태에서 3가지 시스템을 구현하려고 합니다.
첫 번째,
1)가격2 상승 돌파하면 조정시 가격2에서 ‘1계약’ 매수 진입합니다.
2)청산 목표가는 가격1(100)입니다.
3)그런데 가격이 하락하면 가격3에서 매수 1계약을 추가합니다.(물타기)
4)물타기 상태(2계약 매수)에서 종가가 평균단가(85) 보다 높다면 가격1을 목표가로 하며,
5)물타기 상태(2계약 매수)에서 가격3의 –5틱 자리인 ‘75’에서는 모두 손절합니다.
6)물타기 상태(2계약 매수)에서 평균단가 보다 하락은 하였으나 '75'에 닿지 않고,
다시 상승하면 평균단가에서 모두 청산합니다.
(혹시 4,6번이 동시에 안된다면 6번만 부탁드립니다.)
두 번째,
위의 1),2)는 동일
3)가격이 하락하면 가격3에서 손절합니다.
4)진입가 보다 하락은 하였으나 가격3에 닿지 않고 진입가(90)에 돌아오면 본청 합니다.
세 번째,
1)가격2 상승 돌파하면 조정시 가격2에서 ‘2계약’ 매수 진입합니다.
2)가격이 상승할 때 1계약은 가격1(100)에서 바로 청산합니다.
3)목표가 청산 이후 나머지 한 계약은 진입가와 진입이후 최고가의 50% 수준에서 추격합니다.
4)목표가에 도달하지 못하고 급락할 때는 가격3에서 모두 바로 손절합니다.
5)진입가 보다 하락은 하였으나 가격3에 닿지 않고 다시 상승하면 진입가에서 모두 청산합니다.
이렇게 부탁드립니다. 수고에 정말 감사드립니다. ^^
2020-03-17
180
글번호 136940
시스템
답변완료
연달아 부탁드려 죄송합니다~ 수정 부탁드립니다^^;;
밑에 붙여넣은 내용은 기존 질문했던 내용과 관리자님이 도움주신 내용 복사해서 붙여넣었습니다.
전략을 적용해보니 손절 익절을 0.5p 씩 했음에도 불구하고 최대수익이 2.89p 최대손실이
-2.17 이렇게 나오는대요. 아마도 0시가 넘은경우에 저렇게 되는듯 싶기도하고 익일로
오버되는 경우도 있어서 저런 수익 및 손실이 나오는거같기도 합니다.
수정 부탁드리는 부분은..
특정진입시간대를 2개 box로 나누고 싶은대 변수로도 조정가능하게끔 하고싶습니다.
가령 12시~18시(1box:변수에서 조정가능토록)에 1번,
22시~익일04시에(2box:변수에서 조정가능토록) 1번 진입하도록 하고싶습니다.
진입횟수 변수를 1로 조정하면 1box에서만 나오는것이 맞는것이지요?
그리고 1번째 진입이던 2번째 진입이던 포지션 집입중이면 반대신호 조건이 충족되더라
도 신호가 나오지않고 손절청산 및 익절청산으로 포지션 정리를 하고싶습니다.
(1box시간대에 매수신호가 나와 매수포지션이면 1box시간대에 반대신호 조건이 충족되어도
신호가 무시되어 익절 및 손절 가격 도달할때까지 포지션 유지. 포지션 유지상태로 2box
시간대에 까지 간다하면 2box 시간대에도 조건충족으로 나오는 신호는 나오지않게하고 기
존 포지션 유지. 만약 익절 및 손절폭까지 안온다면 05시40분 당일청산)
감사합니다~ 건강하시고 편한밤 되세요~!!
-------------------------------------------------------------------------------
안녕하세요
예스스탁입니다.
input : StartTime(120000),EndTime(180000);
input : P1(5),P2(20);
input : 진입횟수(2),익절(0.5),손절(0.5);
var : Tcond(false),entry(0);
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
entry = 0;
}
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
var1 = ma(C,P1);
var2 = ma(C,P2);
if Tcond == true then
{
if MarketPosition == 0 and MarketPosition != MarketPosition[1] Then
entry = entry+1;
if entry < 진입횟수 then
{
if MarketPosition == 0 and crossup(var1,var2) Then
buy("b");
if MarketPosition == 0 and CrossDown(var1,var2) Then
sell("s");
}
SetStopProfittarget(익절,PointStop);
SetStopLoss(손절,PointStop);
}
Else
{
SetStopProfittarget(0);#해제
SetStopLoss(0);#해제
}
즐거운 하루되세요
> 머어얼 님이 쓴 글입니다.
> 제목 : 수고 많으십니다 매번 번거롭게 해드려 죄송합니다~ 수식 부탁좀 드립니다~
> 해외선물에 적용할 전략이고, 주가이동평균5일선이 주가이동평균20일선을 상향 돌파하면
매수 / 하향 돌파하면 매도하는 수식인대요~ 손절 0.5p / 익절 0.5p
단, 변수로 조정 가능하게끔 하려고 하는것은 1일 1회 혹은 2회 진입 / 특정시간대에만
진입하게끔 조정하고 싶습니다 (예: 오후12시부터 오후 6시사이에 주가이동평균선이 상향
및 하향 돌파하면 매수 및 매도 1회 진입, 오후 11시부터 익일 오전3시사이에 주가이동평
균선이 상향 돌파하면 매수 및 하향돌파하면 매도 1회진입.
단, 진입신호에 따라 매수던 매도던 포지션 진입상황에서는 반대조건이 충족하더라도
신호가 나오는게 아니라 그 포지션을 유지하고 한번 진입하면
0.5p손절이던 0.5p익절로 마무리하려고 합니다.
매번 도움주셔서 감사합니다~ 수식 부탁 드립니다~ 건강하시고 수고하세요~!!
2020-03-17
209
글번호 136939
시스템
답변완료
부탁드립니다
지표전환 부탁드립니다
RSI_Period = input(6, title='RSI Length')
SF = input(5, title='RSI Smoothing')
QQE = input(3, title='Fast QQE Factor')
ThreshHold = input(3, title="Thresh-hold")
//
src = input(close, title="RSI Source")
//
//
Wilders_Period = RSI_Period * 2 - 1
Rsi = rsi(src, RSI_Period)
RsiMa = ema(Rsi, SF)
AtrRsi = abs(RsiMa[1] - RsiMa)
MaAtrRsi = ema(AtrRsi, Wilders_Period)
dar = ema(MaAtrRsi, Wilders_Period) * QQE
longband = 0.0
shortband = 0.0
trend = 0
DeltaFastAtrRsi = dar
RSIndex = RsiMa
newshortband = RSIndex + DeltaFastAtrRsi
newlongband = RSIndex - DeltaFastAtrRsi
longband := RSIndex[1] > longband[1] and RSIndex > longband[1] ?
max(longband[1], newlongband) : newlongband
shortband := RSIndex[1] < shortband[1] and RSIndex < shortband[1] ?
min(shortband[1], newshortband) : newshortband
cross_1 = cross(longband[1], RSIndex)
trend := cross(RSIndex, shortband[1]) ? 1 : cross_1 ? -1 : nz(trend[1], 1)
FastAtrRsiTL = trend == 1 ? longband : shortband
////////////////////
length = input(50, minval=1, title="Bollinger Length")
mult = input(0.35, minval=0.001, maxval=5, step=0.1, title="BB Multiplier")
basis = sma(FastAtrRsiTL - 50, length)
dev = mult * stdev(FastAtrRsiTL - 50, length)
upper = basis + dev
lower = basis - dev
color_bar = RsiMa - 50 > upper ? #00c3ff : RsiMa - 50 < lower ? #ff0062 : color.gray
//
// Zero cross
QQEzlong = 0
QQEzlong := nz(QQEzlong[1])
QQEzshort = 0
QQEzshort := nz(QQEzshort[1])
QQEzlong := RSIndex >= 50 ? QQEzlong + 1 : 0
QQEzshort := RSIndex < 50 ? QQEzshort + 1 : 0
//
Zero = hline(0, color=color.white, linestyle=hline.style_dotted, linewidth=1)
////////////////////////////////////////////////////////////////
RSI_Period2 = input(6, title='RSI Length')
SF2 = input(5, title='RSI Smoothing')
QQE2 = input(1.61, title='Fast QQE2 Factor')
ThreshHold2 = input(3, title="Thresh-hold")
src2 = input(close, title="RSI Source")
//
//
Wilders_Period2 = RSI_Period2 * 2 - 1
Rsi2 = rsi(src2, RSI_Period2)
RsiMa2 = ema(Rsi2, SF2)
AtrRsi2 = abs(RsiMa2[1] - RsiMa2)
MaAtrRsi2 = ema(AtrRsi2, Wilders_Period2)
dar2 = ema(MaAtrRsi2, Wilders_Period2) * QQE2
longband2 = 0.0
shortband2 = 0.0
trend2 = 0
DeltaFastAtrRsi2 = dar2
RSIndex2 = RsiMa2
newshortband2 = RSIndex2 + DeltaFastAtrRsi2
newlongband2 = RSIndex2 - DeltaFastAtrRsi2
longband2 := RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] ?
max(longband2[1], newlongband2) : newlongband2
shortband2 := RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1] ?
min(shortband2[1], newshortband2) : newshortband2
cross_2 = cross(longband2[1], RSIndex2)
trend2 := cross(RSIndex2, shortband2[1]) ? 1 : cross_2 ? -1 : nz(trend2[1], 1)
FastAtrRsi2TL = trend2 == 1 ? longband2 : shortband2
//
// Zero cross
QQE2zlong = 0
QQE2zlong := nz(QQE2zlong[1])
QQE2zshort = 0
QQE2zshort := nz(QQE2zshort[1])
QQE2zlong := RSIndex2 >= 50 ? QQE2zlong + 1 : 0
QQE2zshort := RSIndex2 < 50 ? QQE2zshort + 1 : 0
//
hcolor2 = RsiMa2 - 50 > ThreshHold2 ? color.silver :
RsiMa2 - 50 < 0 - ThreshHold2 ? color.silver : na
plot(FastAtrRsi2TL - 50, title='QQE Line', color=color.white, transp=0, linewidth=2)
plot(RsiMa2 - 50, color=hcolor2, transp=50, title='Histo2', style=plot.style_columns)
Greenbar1 = RsiMa2 - 50 > ThreshHold2
Greenbar2 = RsiMa - 50 > upper
Redbar1 = RsiMa2 - 50 < 0 - ThreshHold2
Redbar2 = RsiMa - 50 < lower
plot(Greenbar1 and Greenbar2 == 1 ? RsiMa2 - 50 : na, title="QQE Up", style=plot.style_columns, color=#00c3ff, transp=0)
plot(Redbar1 and Redbar2 == 1 ? RsiMa2 - 50 : na, title="QQE Down", style=plot.style_columns, color=#ff0062, transp=0)
2020-03-16
428
글번호 136937
지표
답변완료
지표전환 부탁
다음 지표를 예스로 전환부탁드립니다
TKlength=input(9, "Tenkansen Length", minval=1)
KJlength=input(26, "Kijunsen Length", minval=1)
CSHSlength=input(26, "Chikouspan Length/Horizontal Shift", minval=1)
SBlength=input(52, "SenkouspanB Length", minval=1)
SAlength=input(26,"SenkouspanA Length", minval=1)
TK=avg(lowest(TKlength), highest(TKlength))
KJ=avg(lowest(KJlength), highest(KJlength))
CS=close
SB=avg(lowest(SBlength), highest(SBlength))
SA=avg(TK,KJ)
plot(TK, linewidth=2, color=blue, title="TenkanSen")
plot(KJ, linewidth=2, color=red, title="KijunSen")
plot(CS, offset=-CSHSlength, linewidth=2, color=#DDA0DD, title="ChikouSpan")
SenkouA=plot(SA, offset=CSHSlength, linewidth=1, color=green, title="SenkouSpanA")
SenkouB=plot(SB, offset=CSHSlength, linewidth=1, color=purple, title="SenkouSpanB")
fill(SenkouA, SenkouB, color = SA > SB ? green : red)
2020-03-16
304
글번호 136936
지표
답변완료
부탁 드립니다.
도움에 깊이 감사 드립니다.
어제 66514번의 답변 수식에 만족합니다.
질문1)
수식의 끝부분쪽에
v61을 계산치 아니하고
var51=(var5+var15)/2; 을 계산 하고자 한다면
즉 ma(var51,sig);를 계산한다면
타분형 수식의
끝부분을 어떻게 하여야 하는지요?
질문2)
일봉 지표를 분봉에 나타 나도록 부탁 드립니다.
미리 감사 드립니다.
input:p(20),sig(3);;
var1=iff(c>o,c,0);
var2=iff(c>o,1,0);
var3=AccumN(var1,p);
var4=accumn(var2,p);
var5=iff(var1==0 or var2==0 ,c[p-1],var1/var2);
var11=iff(c<o,c,0);
var12=iff(c<o,1,0);
var13=AccumN(var11,p);
var14=accumn(var12,p);
var15=iff(var11==0 or var12==0 ,c[p-1],var11/var12);
var51=(var5+var15)/2;
타분형 수식)
input : ntime(10),P(20),sig(3);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),i1(0),sum2(0),i2(0),sum3(0);
Array : C1[100](0),O1[100](0),v61[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%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
O1[0] = O;
for cnt = 1 to 49
{
C1[cnt] = C1[cnt-1][1];
O1[cnt] = O1[cnt-1][1];
v61[cnt] = v61[cnt-1][1];
}
}
C1[0] = C;
if O1[P] > 0 then
{
sum1 = 0;
i1 = 0;
sum2 = 0;
i2 = 0;
for cnt = 0 to P
{
if C1[cnt] > O1[cnt] Then
{
sum1 = sum1+C1[cnt];
i1 = i1+1;
}
if C1[cnt] < O1[cnt] Then
{
sum2 = sum2+C1[cnt];
i2 = i2+1;
}
}
if i1 == 0 Then
var5 = C1[P-1];
Else
var5 = sum1/i1;
if i2 == 0 Then
var15 = C1[P-1];
Else
var15 = sum2/i2;
var51 = (var5+var15)/2;
v61[0] = C-var51;
sum3 = 0;
for cnt = 0 to P
{
sum3 = sum3 + v61[cnt];
}
var71 = sum3/sig;
plot1(var71);
}
}
2020-03-17
328
글번호 136934
지표