|
本帖最后由 yuanrongjei 于 2016-11-25 23:32 编辑 #property indicator_separate_window extern double Risk_to_Reward_ratio = 3.0; extern int First_av = 5; extern int Second_av = 10; extern int Third_av = 20; int nDigits; int init() { IndicatorShortName("TSR"); if(Symbol()=="GBPJPY" || Symbol()=="EURJPY" || Symbol()=="USDJPY" || Symbol()=="GOLD" || Symbol()=="USDMXN") nDigits = 2; if(Symbol()=="GBPUSD" || Symbol()=="EURUSD" || Symbol()=="NZDUSD" || Symbol()=="USDCHF" || Symbol()=="USDCAD" || Symbol()=="AUDUSD" || Symbol()=="EURUSD" || Symbol()=="EURCHF" || Symbol()=="EURGBP" || Symbol()=="EURCAD" || Symbol()=="EURAUD" )nDigits = 4; return(0); } int deinit() { return(0); } int start() { int R1=0,R5=0,R10=0,R20=0,RAvg=0; int RoomUp=0,RoomDown=0,StopLoss_Long=0,StopLoss_Short=0; double SL_Long=0,SL_Short=0; double low0=0,high0=0; string Text=""; int i=0; R1 = (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point; for(i=1;i<=First_av;i++) R5 = R5 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; for(i=1;i<=Second_av;i++) R10 = R10 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; for(i=1;i<=Third_av;i++) R20 = R20 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; R5 = R5/First_av; R10 = R10/Second_av; R20 = R20/Third_av; RAvg = (R1+R5+R10+R20)/2; //RAvg = (R5+R10+R20)/3;new setting low0 = iLow(NULL,PERIOD_D1,0); high0 = iHigh(NULL,PERIOD_D1,0); RoomUp = RAvg - (Bid - low0)/Point; RoomDown = RAvg - (high0 - Bid)/Point; StopLoss_Long = RoomUp/Risk_to_Reward_ratio; SL_Long = Bid - StopLoss_Long*Point; StopLoss_Short = RoomDown/Risk_to_Reward_ratio; SL_Short = Bid + StopLoss_Short*Point; double aa1,aa2; //输入最高点位，最低点位 aa2= SL_Long; aa1=SL_Short; double aa3,aa4,aa5,aa6,aa7; aa3=aa1-(aa1+aa2)/4;//计算线差点位 aa4=aa1-(aa1+aa2)/2;//计算平行点位 aa5=aa1+aa4;//多单回调空单买入平行线高点上方 aa6=aa2-aa4;//空单回调多单买入平行线低点下单 ObjectCreate("TSR5", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR5","回调做空", 20, "Arial Bold", CadetBlue); ObjectSet("TSR5", OBJPROP_CORNER, 0); ObjectSet("TSR5", OBJPROP_XDISTANCE, 290); ObjectSet("TSR5", OBJPROP_YDISTANCE, 20); ObjectCreate("TSR6", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR6",DoubleToStr(aa5 ,3),20, "Arial Bold", Orange); ObjectSet("TSR6", OBJPROP_CORNER, 0); ObjectSet("TSR6", OBJPROP_XDISTANCE, 290); ObjectSet("TSR6", OBJPROP_YDISTANCE, 60); ObjectCreate("TSR7", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR7","回调做多", 20, "Arial Bold", CadetBlue); ObjectSet("TSR7", OBJPROP_CORNER, 0); ObjectSet("TSR7", OBJPROP_XDISTANCE, 420); ObjectSet("TSR7", OBJPROP_YDISTANCE, 20); ObjectCreate("TSR8", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR8",DoubleToStr(aa6 ,3),20, "Arial Bold", Orange); ObjectSet("TSR8", OBJPROP_CORNER, 0); ObjectSet("TSR8", OBJPROP_XDISTANCE, 420); ObjectSet("TSR8", OBJPROP_YDISTANCE, 60); ObjectCreate("TSR9", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR9","止损点位", 20, "Arial Bold", CadetBlue); ObjectSet("TSR9", OBJPROP_CORNER, 0); ObjectSet("TSR9", OBJPROP_XDISTANCE, 550); ObjectSet("TSR9", OBJPROP_YDISTANCE, 20); ObjectCreate("TSR10", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR10",DoubleToStr(aa3/100+2 ,3),20, "Arial Bold", Red); ObjectSet("TSR10", OBJPROP_CORNER, 0); ObjectSet("TSR10", OBJPROP_XDISTANCE, 575); ObjectSet("TSR10", OBJPROP_YDISTANCE, 60); ObjectCreate("TSR11", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR11","止赢目标", 20, "Arial Bold", CadetBlue); ObjectSet("TSR11", OBJPROP_CORNER, 0); ObjectSet("TSR11", OBJPROP_XDISTANCE, 680); ObjectSet("TSR11", OBJPROP_YDISTANCE, 20); ObjectCreate("TSR12", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR12",DoubleToStr(aa4*2 ,2),20, "Arial Bold", Blue); ObjectSet("TSR12", OBJPROP_CORNER, 0); ObjectSet("TSR12", OBJPROP_XDISTANCE, 698); ObjectSet("TSR12", OBJPROP_YDISTANCE, 60); ObjectCreate("TSR13", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR13","顺势多单", 20, "Arial Bold", CadetBlue); ObjectSet("TSR13", OBJPROP_CORNER, 0); ObjectSet("TSR13", OBJPROP_XDISTANCE, 815); ObjectSet("TSR13", OBJPROP_YDISTANCE, 20); ObjectCreate("TSR14", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR14",DoubleToStr(aa1-aa4+3.50 ,3),20, "Arial Bold", Orange); ObjectSet("TSR14", OBJPROP_CORNER, 0); ObjectSet("TSR14", OBJPROP_XDISTANCE, 815); ObjectSet("TSR14", OBJPROP_YDISTANCE, 60); ObjectCreate("TSR15", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR15","顺势空单", 20, "Arial Bold", CadetBlue); ObjectSet("TSR15", OBJPROP_CORNER, 0); ObjectSet("TSR15", OBJPROP_XDISTANCE, 955); ObjectSet("TSR15", OBJPROP_YDISTANCE, 20); ObjectCreate("TSR16", OBJ_LABEL, WindowFind("TSR"), 0, 0); ObjectSetText("TSR16",DoubleToStr(aa1-aa4-3.50 ,3),20, "Arial Bold", Orange); ObjectSet("TSR16", OBJPROP_CORNER, 0); ObjectSet("TSR16", OBJPROP_XDISTANCE, 955); ObjectSet("TSR16", OBJPROP_YDISTANCE, 60); return(0); } |
一段可用的程序代码
回复:0 浏览:33
- 楼主admin 圈主
- 2019-05-05 13:30