커뮤니티
문의드립니다
2023-03-14 08:18:34
926
글번호 167120
안녕하세요.
input : Periods(10),Multiplier(3.0),changeATR(true),showsignals(true),highlighting(true);
var : src(0),ATr2(0),ATrv(0),upv(0),up1(0),dnv(0),dn1(0);
var : trend(0),tx(0);
src = (h+l)/2;
atr2 = ma(TrueRange, Periods);
atrv = iff(changeATR , atr(Periods) , atr2);
upv = src-(Multiplier*atrv);
up1 = iff(IsNaN(upv[1]) == False,upv[1],upv);
upv = iff(close[1] > up1 , max(upv,up1) , upv);
dnv =src+(Multiplier*atrv);
dn1 = iff(isnan(dnv[1]) == False,dnv[1], dnv);
dnv = iff(close[1] < dn1 , min(dnv, dn1) , dnv);
trend = 1;
trend = iff(IsNaN(trend[1]) == False,trend[1], trend);
trend = iff(trend == -1 and close > dn1 , 1 , IFf( trend == 1 and close < up1 , -1 , trend));
if trend == 1 Then
{
plot1(upv,"UpTrend",green);
NoPlot(2);
if trend == 1 and trend[1] == -1 Then
{
tx = Text_New(sDate,sTime,upv,"▲");
Text_SetStyle(tx,2,0);
Text_SetColor(tx,Red);
}
}
Else
{
NoPlot(1);
plot2(dnv, "Down Trend",red);
if trend == -1 and trend[1] == 1 Then
{
tx = Text_New(sDate,sTime,dnv,"▼");
Text_SetStyle(tx,2,1);
Text_SetColor(tx,Blue);
}
}
1. 시스템 수식으로 변환이 가능할까요? 안된다면 비슷한 수식으로 변환부탁드립니다.
2. 가능하다면 지표 "▲" 신호발생 and macd(12,26,6) 기준선 > 0 매수 / "▼" 신호발생 매도하는 수식으로 변환 부탁드립니다.
3. "▲" 신호발생시 50% 매수 , macd(12,26,6) 기준선 > 0 나머지 50% 매수 / "▼" 신호발생시 50% 매도 , macd(12,26,6) 기준선 < 0 나머지 50% 매도하는 수식도 부탁드릴게요.
답변 1
예스스탁 예스스탁 답변
2023-03-14 11:36:53
안녕하세요
예스스탁입니다.
1
input : Periods(10),Multiplier(3.0),changeATR(true),showsignals(true),highlighting(true);
input : short(12),long(26);
var : src(0),ATr2(0),ATrv(0),upv(0),up1(0),dnv(0),dn1(0);
var : trend(0),macdv(0);
src = (h+l)/2;
atr2 = ma(TrueRange, Periods);
atrv = iff(changeATR , atr(Periods) , atr2);
upv = src-(Multiplier*atrv);
up1 = iff(IsNaN(upv[1]) == False,upv[1],upv);
upv = iff(close[1] > up1 , max(upv,up1) , upv);
dnv =src+(Multiplier*atrv);
dn1 = iff(isnan(dnv[1]) == False,dnv[1], dnv);
dnv = iff(close[1] < dn1 , min(dnv, dn1) , dnv);
trend = 1;
trend = iff(IsNaN(trend[1]) == False,trend[1], trend);
trend = iff(trend == -1 and close > dn1 , 1 , IFf( trend == 1 and close < up1 , -1 , trend));
macdv = macd(short,long);
if trend == 1 and trend[1] == -1 and macdv > 0 Then
{
Buy();
}
if trend == -1 and trend[1] == 1 and macdv < 0 Then
{
exitlong();
}
2
추가진입을 하므로 설정창의 피라미딩탭에서
피라미딩을 다른진입신호만 허용으로 설정하고 적용하셔야 합니다.
input : Periods(10),Multiplier(3.0),changeATR(true),showsignals(true),highlighting(true);
input : 금액(10000000),short(12),long(26);
var : src(0),ATr2(0),ATrv(0),upv(0),up1(0),dnv(0),dn1(0);
var : trend(0),macdv(0);
src = (h+l)/2;
atr2 = ma(TrueRange, Periods);
atrv = iff(changeATR , atr(Periods) , atr2);
upv = src-(Multiplier*atrv);
up1 = iff(IsNaN(upv[1]) == False,upv[1],upv);
upv = iff(close[1] > up1 , max(upv,up1) , upv);
dnv =src+(Multiplier*atrv);
dn1 = iff(isnan(dnv[1]) == False,dnv[1], dnv);
dnv = iff(close[1] < dn1 , min(dnv, dn1) , dnv);
trend = 1;
trend = iff(IsNaN(trend[1]) == False,trend[1], trend);
trend = iff(trend == -1 and close > dn1 , 1 , IFf( trend == 1 and close < up1 , -1 , trend));
macdv = macd(short,long);
if MarketPosition == 0 and trend == 1 and trend[1] == -1 Then
Buy("b1",OnClose,Def,Floor((금액*0.5)/C));
if MarketPosition == 1 Then
{
if MaxEntries == 1 and macdv > 0 Then
Buy("b2",OnClose,Def,Floor((금액*0.5)/C));
if CurrentContracts == MaxContracts Then
{
if trend == -1 and trend[1] == 1 Then
ExitLong("bx1",OnClose,Def,"",Floor(MaxContracts*0.5),1);
}
Else
{
if MACDv < 0 Then
ExitLong("bx2");
}
}
즐거운 하루되세요
> 탱탱볼 님이 쓴 글입니다.
> 제목 : 문의드립니다
> 안녕하세요.
input : Periods(10),Multiplier(3.0),changeATR(true),showsignals(true),highlighting(true);
var : src(0),ATr2(0),ATrv(0),upv(0),up1(0),dnv(0),dn1(0);
var : trend(0),tx(0);
src = (h+l)/2;
atr2 = ma(TrueRange, Periods);
atrv = iff(changeATR , atr(Periods) , atr2);
upv = src-(Multiplier*atrv);
up1 = iff(IsNaN(upv[1]) == False,upv[1],upv);
upv = iff(close[1] > up1 , max(upv,up1) , upv);
dnv =src+(Multiplier*atrv);
dn1 = iff(isnan(dnv[1]) == False,dnv[1], dnv);
dnv = iff(close[1] < dn1 , min(dnv, dn1) , dnv);
trend = 1;
trend = iff(IsNaN(trend[1]) == False,trend[1], trend);
trend = iff(trend == -1 and close > dn1 , 1 , IFf( trend == 1 and close < up1 , -1 , trend));
if trend == 1 Then
{
plot1(upv,"UpTrend",green);
NoPlot(2);
if trend == 1 and trend[1] == -1 Then
{
tx = Text_New(sDate,sTime,upv,"▲");
Text_SetStyle(tx,2,0);
Text_SetColor(tx,Red);
}
}
Else
{
NoPlot(1);
plot2(dnv, "Down Trend",red);
if trend == -1 and trend[1] == 1 Then
{
tx = Text_New(sDate,sTime,dnv,"▼");
Text_SetStyle(tx,2,1);
Text_SetColor(tx,Blue);
}
}
1. 시스템 수식으로 변환이 가능할까요? 안된다면 비슷한 수식으로 변환부탁드립니다.
2. 가능하다면 지표 "▲" 신호발생 and macd(12,26,6) 기준선 > 0 매수 / "▼" 신호발생 매도하는 수식으로 변환 부탁드립니다.
3. "▲" 신호발생시 50% 매수 , macd(12,26,6) 기준선 > 0 나머지 50% 매수 / "▼" 신호발생시 50% 매도 , macd(12,26,6) 기준선 < 0 나머지 50% 매도하는 수식도 부탁드릴게요.