커뮤니티
시스템식 부탁드립니다.
2023-12-20 17:11:26
722
글번호 175071
안녕하세요?
항상 도움 주셔서 감사합니다.
종목 : 해외선물
차트 : 60분봉
아래와 같은 시스템식이 있을 경우
차트에 매수 주문이 들어갈때마다
주문가격을 차트에 수평 라인으로 표시하고 싶습니다.
단, 현재 미청산 포지션에 대해서만 진입가격을 표시하고
포진션이 모두 청산된 경우에는 차트에 표시한 진입가격을
모두 지우고 싶습니다.
--------------------------------------------
input : pst(1) ;
input : 진입가격(10) ;
input : 청산가격(10) ;
var : vol(0) ;
value1 = 진입간격/pointvluae ;
value2 = 청산간격/pointvluae ;
if pst == 1 Then
{
if MarketPosition == 0 and TotalTrades == TotalTrades[1] Then
{
vol = 1;
Buy("b",OnClose,Def,vol);
}
if MarketPosition == 1 Then
{
if MaxEntries > MaxEntries[1] Then
vol = vol*2;
Buy("bb",AtLimit,EntryPrice(0)-PriceScale*(value1*MaxEntries),vol);
ExitLong("bp",AtLimit,AvgEntryPrice+PriceScale*Value2);
}
}
#--------------------------------------------
감사합니다.
답변 1
예스스탁 예스스탁 답변
2023-12-21 10:28:08
안녕하세요
예스스탁입니다.
input : pst(1) ;
input : 진입가격(10) ;
input : 청산가격(10) ;
Array : TL[50](0),EP[50](0);
var : vol(0),cnt(0);
value1 = 진입가격/pointvalue ;
value2 = 청산가격/pointvalue ;
if pst == 1 Then
{
if MarketPosition == 0 and TotalTrades == TotalTrades[1] Then
{
vol = 1;
Buy("b",OnClose,Def,vol);
For cnt = 0 to 49
{
}
}
if MarketPosition == 1 Then
{
if MaxEntries > MaxEntries[1] Then
vol = vol*2;
Buy("bb",AtLimit,EntryPrice(0)-PriceScale*(value1*MaxEntries),vol);
ExitLong("bp",AtLimit,AvgEntryPrice+PriceScale*Value2);
if CurrentContracts > CurrentContracts[1] Then
{
EP[MaxEntries] = LatestEntryPrice(0);
TL[MaxEntries] = TL_new(sDate,sTime,EP[MaxEntries],NextBarSdate,NextBarStime,EP[MaxEntries]);
}
if MaxEntries >= 1 Then
{
For cnt = 1 to MaxEntries
{
TL_SetEnd(TL[cnt],NextBarSdate,NextBarStime,EP[cnt]);
}
}
}
if MarketPosition == 0 and MarketPosition != MarketPosition[1] Then
{
For cnt = 0 to 49
{
TL_Delete(TL[cnt]);
EP[cnt] = 0;
}
}
}
즐거운 하루되세요
> 양치기 님이 쓴 글입니다.
> 제목 : 시스템식 부탁드립니다.
> 안녕하세요?
항상 도움 주셔서 감사합니다.
종목 : 해외선물
차트 : 60분봉
아래와 같은 시스템식이 있을 경우
차트에 매수 주문이 들어갈때마다
주문가격을 차트에 수평 라인으로 표시하고 싶습니다.
단, 현재 미청산 포지션에 대해서만 진입가격을 표시하고
포진션이 모두 청산된 경우에는 차트에 표시한 진입가격을
모두 지우고 싶습니다.
--------------------------------------------
input : pst(1) ;
input : 진입가격(10) ;
input : 청산가격(10) ;
var : vol(0) ;
value1 = 진입간격/pointvluae ;
value2 = 청산간격/pointvluae ;
if pst == 1 Then
{
if MarketPosition == 0 and TotalTrades == TotalTrades[1] Then
{
vol = 1;
Buy("b",OnClose,Def,vol);
}
if MarketPosition == 1 Then
{
if MaxEntries > MaxEntries[1] Then
vol = vol*2;
Buy("bb",AtLimit,EntryPrice(0)-PriceScale*(value1*MaxEntries),vol);
ExitLong("bp",AtLimit,AvgEntryPrice+PriceScale*Value2);
}
}
#--------------------------------------------
감사합니다.
다음글
이전글