原文由 [B]zcz1955[/B] 发表: 一位俄罗斯老兄只用iTchimoku一个指标居然能写出赢利2300%（gbp/usd日线，对其他货币做日线也都有很大赢利）的交易系统。 有哪位老兄能贴一些关于ichimoku kinko hyo指标的资料给我看看吗 /*[[ &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Name := IshimokuEURd &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Author := zcz1955 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Link := http://andyhua.myrice.com &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Notes := 泥眄? ?耧屦?疱嚯桤箦?蝾朦觐 钿桧 (蝠屙漕恹? 嚯泐痂蜢 铗牮?? 镱玷鲨?镱 萨桁铌? 相痨弪瘥 镱 箪铍鬣龛?潆 漤邂睇?沭圄翳觐?EURUSD &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Lots := 1.00 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Stop Loss := 130 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Take Profit := 600 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; Trailing Stop := 260 ]]*/ Variables: TOpen(True),TS(0),KS(0),KS1(0),SSA(0),SSB(0),CHS(0),CHSdbuy(0),CHSdsell(0)&#59; Defines: TsP(12),KsP(26),SsP(52),Shift(0),CHSdelta(300)&#59; var: cnt(0)&#59; /* tenkan_sen: Tenkan Sen kijun_sen: Kijun Sen senkou_span_b: Senkou SpanB mode: source of data (MODE_TENKANSEN, MODE_KIJUNSEN, MODE_SENKOUSPANA, MODE_SENKOUSPANB, MODE_CHINKOUSPAN) shift: shift relative to the current bar (number of periods back), where the data is to be taken from 橡桁屦: tenkan_sen = iIchimoku(9, 26, 52, MODE_TENKANSEN, 1)&#59; iIchimoku(tenkan_sen,kijun_sen,senkou_span_b,mode,shift) */ If Bars<&#59;200 or TakeProfit<&#59;10 or TrailingStop<&#59;10 then Exit&#59; // setup values TS=iIchimoku(TsP, KsP, SsP, MODE_TENKANSEN, Shift)&#59; KS=iIchimoku(TsP, KsP, SsP, MODE_KIJUNSEN, Shift)&#59; KS1=iIchimoku(TsP, KsP, SsP, MODE_KIJUNSEN, 1)&#59; SSA=iIchimoku(TsP, KsP, SsP, MODE_SENKOUSPANA, Shift)&#59; SSB=iIchimoku(TsP, KsP, SsP, MODE_SENKOUSPANB, Shift)&#59; CHS=iIchimoku(TsP, KsP, SsP, MODE_CHINKOUSPAN, KsP)&#59; //CHSdbuy=CHS-CHSdelta*Point&#59; //CHSdsell=CHS+CHSdelta*Point&#59; // If TS=KS then TOpen=True&#59; // if there are no open positions and orders If TotalTrades<&#59;1 then {// 礤?龛 钿眍泐 铗牮?钽?铕溴疣 // 磬 怦觇?耠篦嚅 镳钼屦桁, 羼腓 ?磬?疋钺钿睇?溴睃汨 磬 聍弪? // 珥圜屙桢 1000 忡蝾 潆 镳桁屦? 钺?眍 祛骓?铗牮??1 腩? If FreeMargin<&#59;1000 Or Topen=False then Exit&#59;// 溴礤?礤?- 恹躅滂? // 镳钼屦屐 磬 忸珈铈眍耱?怦蜞螯 ?潆桧眢?镱玷鲨?(BUY) If TS>&#59;KS and KS>&#59;SSB and CHS>&#59;=C[KsP] and Ask>&#59;=KS then// and CHSdbuy<&#59;C[KsP] and C[1]>&#59;O[1] and C>&#59;O and SSA>&#59;SSB { SetOrder(OP_BUY,Lots,Ask,2,Bid-StopLoss*Point,Ask+TakeProfit*Point,Beige)&#59; //TOpen=False&#59; Exit&#59; // 恹躅滂? }&#59; // 镳钼屦屐 磬 忸珈铈眍耱?怦蜞螯 ?觐痤蜿簋 镱玷鲨?(SELL) If TS<&#59;KS and KS<&#59;SSB and CHS<&#59;=C[KsP] and Bid<&#59;=KS then // and CHSdsell>&#59;C[KsP] and C[1]<&#59;O[1] and C<&#59;O and SSA<&#59;SSB { SetOrder(OP_SELL,Lots,Bid,2,Ask+StopLoss*Point,Bid-TakeProfit*Point,YellowGreen)&#59; //TOpen=False&#59; Exit&#59; // 恹躅滂? }&#59; // 玟羼?禧 玎忮瘌桦?镳钼屦牦 磬 忸珈铈眍耱?铗牮?? 眍恹?镱玷鲨? // 眍恹?镱玷鲨?铗牮??礤 猁腓 ?镳铖蝾 恹躅滂?镱 Exit, 蜞?赅? // 怦?疣忭?囗嚯桤桊钼囹?礤麇泐 Exit&#59; }&#59; // 镥疱躅滂??忄骓铋 鬣耱??耧屦蜞 - 觐眚痤膻 铗牮?? 镱玷鲨? for cnt=1 to TotalTrades { if OrderValue(cnt,VAL_TYPE)<&#59;=OP_SELL and // ??铗牮?? 镱玷鲨? OP_BUY 桦?OP_SELL OrderValue(cnt,VAL_SYMBOL)=Symbol then// 桧耱痼戾眚 耦怙噤噱? { If OrderValue(cnt,VAL_TYPE)=OP_BUY then // 铗牮??潆桧磬 镱玷鲨 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; { // 镳钼屦桁, 祛驽?箧?镱疣 玎牮?囹?? If Ask<&#59;KS1 then// TS<&#59;KS and CHS<&#59;C[KsP] and Bid<&#59;=SSA &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;{ CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Bid,1,Purple)&#59; // 玎牮?噱?镱玷鲨? Exit&#59; // 恹躅滂? &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;}&#59; // 镳钼屦桁 - 祛驽?祛骓?眢骓?箧?蝠彘腓磴 耱铒 耱噔栩? If TrailingStop>&#59;0 then// 镱朦珙忄蝈朦 恹耱噔桦 ?磬耱痤殛圊 蝠彘腓磴耱铒 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;{ // 珥圜栩 禧 桎屐 邈?镳钼屦螯 If (Bid-OrderValue(cnt,VAL_OPENPRICE))>&#59;(Point*TrailingStop) then &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; { If OrderValue(cnt,VAL_STOPLOSS)<&#59;(Bid-Point*TrailingStop) then &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;{ ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_OPENPRICE), Bid-Point*TrailingStop,OrderValue(cnt,VAL_TAKEPROFIT),Red)&#59; Exit&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;}&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; }&#59; }&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; } &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; else // 桧圜???觐痤蜿? 镱玷鲨 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; { // 镳钼屦桁, 祛驽?箧?镱疣 玎牮?囹?? If Bid>&#59;KS1 then// TS>&#59;KS and CHS>&#59;C[KsP] and Bid>&#59;=SSA &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;{ CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Ask,1,Violet)&#59; // 玎牮?噱?镱玷鲨? Exit&#59; // 恹躅滂? &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;}&#59; // 镳钼屦桁 - 祛驽?祛骓?眢骓?箧?蝠彘腓磴 耱铒 耱噔栩? If TrailingStop>&#59;0 then// 镱朦珙忄蝈朦 恹耱噔桦 ?磬耱痤殛圊 蝠彘腓磴耱铒 &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;{// 珥圜栩 禧 桎屐 邈?镳钼屦螯 If (OrderValue(cnt,VAL_OPENPRICE)-Ask)>&#59;(Point*TrailingStop) then &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; { If OrderValue(cnt,VAL_STOPLOSS)=0 or OrderValue(cnt,VAL_STOPLOSS)>&#59;(Ask+Point*TrailingStop) then &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;{ ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_OPENPRICE), Ask+Point*TrailingStop,OrderValue(cnt,VAL_TAKEPROFIT),Red)&#59; Exit&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;}&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; }&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;}&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59; }&#59; &nbsp&#59;&#59;&nbsp&#59;&#59;&nbsp&#59;&#59;}&#59; }&#59; // the end. <IMG border=0 SRC=http://www.talkforex.com/image/omg_smile.gif> <IMG border=0 SRC=http://www.talkforex.com/image/omg_smile.gif>

原帖由 蜕步 于 2005-12-4 19:34 发表 搞成指标发出来,大家证实一下啊