안녕하세요 예스스탁입니다. webmaster@yesstock.com으로 보내주시기 바랍니다. Input: FastLen(9), SlowLen(18), ChLen(12), TrailBar(8), Initial(300), ReBars(15), Reentry(100); Vars: FastMA(0), SlowMA(0), LEntryPrice(0), SEntryPrice(0), LCount(-999), SCount(-999), ReEntryCount(0), CurrentPosition(0); FastMA = ma( Close , FastLen ); SlowMA = ma( Close , SlowLen ); ##{ Order Placement for Long Positions } If crossup(FastMA, SlowMA) and CurrentBar > 1 then Begin LEntryPrice = Highest( High , TrailBar )[1] * 1.02; LCount = CurrentBar; End; ##commentary( barnumber - lcount , lentryprice ); If MarketPosition <> 1 AND CurrentBar < LCount + ChLen then Buy("Cross Over Buy",AtStop, LEntryPrice); ##{ Order Placement for Short Positions } If CrossDown(FastMA, SlowMA) and CurrentBar > 1 then Begin SEntryPrice = Lowest( Low , TrailBar )[1] *.98; SCount = CurrentBar; End; If MarketPosition <> -1 AND CurrentBar < SCount + ChLen then Sell("Cross Under Buy",AtStop, SEntryPrice); ##{ Trailing Stop while in Position } If MarketPosition == 1 then begin LCount = -999; ExitLong ("LongTStop",AtStop, Lowest( Low , TrailBar )); End; If MarketPosition == -1 then Begin SCount = -999; ExitShort ("ShortTStop", AtStop, Highest( High , TrailBar )); End; ##{ Reentry Technique } CurrentPosition = MarketPosition; If CurrentPosition == 0 AND CurrentPosition[1] == -1 then ReEntryCount = 1; If CurrentPosition == 0 AND CurrentPosition[1] == 1 then ReEntryCount = 1; If MarketPosition == 0 AND MarketPosition(1) == 1 AND ReEntryCount < ReBars then Begin ReEntryCount = ReEntryCount + 1; Buy("Long ReEntry",AtStop, Highest( High , 10 )); End; If MarketPosition == 0 AND MarketPosition(1) == -1 AND ReEntryCount < ReBars then Begin ReEntryCount = ReEntryCount + 1; Sell("Short ReEntry",AtStop, Lowest( Low , 10 )); End; 즐거운 하루도세요 > CJ_bhahn486 님이 쓴 글입니다. > 제목 : TS용 교육용 프로그램 변환 부탁드립니다. > 수고하십니다. 시스템 트레이딩을 시작하고자 하는데 능력이 부족하여 부탁드립니다. 책자 나온 TS용 프로그램인데 변환 부탁드립니다. 이메일로 연락드면 좋겠습니다. 가능하다면 이메일 주소도 부탁드립니다 수고하십시요