這是我修改過的,但還是有問題。請幫我修正,謝謝!
此主題相關圖片如下:圖11.png
此主題相關圖片如下:圖22.png
J日:=stkindi('','KDJ.J',0,6,-1),noaxis;
CCI日:=stkindi('','CCI.CCI',0,6,-1),noaxis;
J4:=stkindi('','KDJ.J',0,datatype,-1),noaxis;
CCI4:=stkindi('','CCI.CCI',0,datatype,-1),noaxis;
DIFF4:=stkindi('','MACD.DIFF',0,datatype,-1),noaxis;
DEA4:=stkindi('','MACD.DEA',0,datatype,-1),noaxis;
J41:=stkindi('','KDJ.J',0,datatype,-2),noaxis;
CCI41:=stkindi('','CCI.CCI',0,datatype,-2),noaxis;
DIFF41:=stkindi('','MACD.DIFF',0,datatype,-2),noaxis;
DEA41:=stkindi('','MACD.DEA',0,datatype,-2),noaxis;
J42:=stkindi('','KDJ.J',0,datatype,-3),noaxis;
CCI42:=stkindi('','CCI.CCI',0,datatype,-3),noaxis;
DIFF42:=stkindi('','MACD.DIFF',0,datatype,-3),noaxis;
DEA42:=stkindi('','MACD.DEA',0,datatype,-3),noaxis;
MAA4:=stkindi('','MA.MA1',0,datatype,-1) ,noaxis;
MAB4:=stkindi('','MA.MA2',0,datatype,-1) ,noaxis;
MAA41:=stkindi('','MA.MA1',0,datatype,-2) ,noaxis;
MAB41:=stkindi('','MA.MA2',0,datatype,-2) ,noaxis;
MAA42:=stkindi('','MA.MA1',0,datatype,-3) ,noaxis;
MAB42:=stkindi('','MA.MA2',0,datatype,-3) ,noaxis;
MACD4金叉:=DIFF41<DEA41 and DIFF4>DEA4;
MACD4金叉1:=DIFF42<DEA42 and DIFF41>DEA41 and DIFF4>DEA4;
MACD4金叉區:=DIFF42>DEA42 and DIFF41>DEA41 and DIFF4>DEA4;
MACD4死叉:=DIFF41>DEA41 and DIFF4<DEA4;
MACD4死叉1:=DIFF42>DEA42 and DIFF41<DEA41 and DIFF4<DEA4;
MACD4死叉區:=DIFF42<DEA42 and DIFF41<DEA41 and DIFF4<DEA4;
MA4金叉:=MAA41<MAB41 and MAA4> MAB4;
MA4金叉1:= MAA42<MAB42 and MAA41> MAB41 and MAA4> MAB4;
MA4金叉區:= MAA42> MAB42 and MAA41> MAB41 and MAA4> MAB4;
MA4死叉:= MAA41>MAB41 and MAA4< MAB4;
MA4死叉1:= MAA42>MAB42 and MAA41< MAB41 and MAA4< MAB4;
MA4死叉區:= MAA42< MAB42 and MAA41< MAB41 and MAA4< MAB4;
開多A條件1:=J4<95 and CCI4<260 AND J日<95 and CCI日<260;
開多A1:=MACD4金叉 and 開多A條件1;
開多A條件2:=MACD4金叉1 and abs(DIFF4-DEA4)>abs(DIFF41-DEA41)*1.05;
開多A2:=開多A條件1 and 開多A條件2;
開多A條件3:=MACD4金叉區 and (abs(DIFF4-DEA4)>abs(DIFF41-DEA41)*1.15 or abs(DIFF4-DEA4)>abs(DIFF42-DEA42)*1.15);
開多A3:=開多A條件1 and 開多A條件3;
開多A4:=開多A條件1 and (MA4金叉 OR MA4金叉1 );
開多A5:=開多A條件1 and MA4金叉區;
開空A條件1:=J4>5 and CCI4>-260 AND J日>5 and CCI日>-260;
開空A1:=MACD4死叉 and 開空A條件1;
開空A條件2:=MACD4死叉1 and abs(DIFF4-DEA4)>abs(DIFF41-DEA41)*1.05;
開空A2:=開空A條件1 and 開空A條件2;
開空A條件3:=MACD4死叉區 and (abs(DIFF4-DEA4)>abs(DIFF41-DEA41)*1.15 or abs(DIFF4-DEA4)>abs(DIFF42-DEA42)*1.15);
開空A3:=開空A條件1 and 開空A條件3;
開空A4:=開空A條件1 and (MA4死叉 OR MA4死叉1 );
開空A5:=開空A條件1 and MA4死叉區;
J:=stkindi('','KDJ.J',0,datatype);
CCI:=stkindi('','CCI.CCI',0,datatype);
DIFF:=stkindi('','MACD.DIFF',0,datatype);
DEA:=stkindi('','MACD.DEA',0,datatype);
J1:=stkindi('','KDJ.J',0,datatype,-1);
CCI1:=stkindi('','CCI.CCI',0,datatype,-1);
DIFF1:=stkindi('','MACD.DIFF',0,datatype,-1);
DEA1:=stkindi('','MACD.DEA',0,datatype,-1);
J2:=stkindi('','KDJ.J',0,datatype,-2);
CCI2:=stkindi('','CCI.CCI',0,datatype,-2);
DIFF2:=stkindi('','MACD.DIFF',0,datatype,-2);
DEA2:=stkindi('','MACD.DEA',0,datatype,-2);
MAA2:=stkindi('','MA.MA1',0,datatype);
MAB2:=stkindi('','MA.MA2',0,datatype);
MAA21:=stkindi('','MA.MA1',0,datatype,-1);
MAB21:=stkindi('','MA.MA2',0,datatype,-1);
MAA22:=stkindi('','MA.MA1',0,datatype,-2);
MAB22:=stkindi('','MA.MA2',0,datatype,-2);
MACD金叉:=DIFF1<DEA1 and DIFF>DEA;
MACD金叉1:=DIFF2<DEA2 and DIFF1>DEA1 and DIFF>DEA;
MACD金叉區:=DIFF2>DEA2 and DIFF1>DEA1 and DIFF>DEA;
MACD死叉:=DIFF1>DEA1 and DIFF<DEA;
MACD死叉1:=DIFF2>DEA2 and DIFF1<DEA1 and DIFF<DEA;
MACD死叉區:=DIFF2<DEA2 and DIFF1<DEA1 and DIFF<DEA;
MA2金叉:=MAA21<MAB21 and MAA2> MAB2;
MA2金叉1:= MAA22<MAB22 and MAA21> MAB21 and MAA2> MAB2;
MA2金叉區:= MAA22> MAB22 and MAA21> MAB21 and MAA2> MAB2;
MA2死叉:= MAA21>MAB21 and MAA2< MAB2;
MA2死叉1:= MAA22>MAB22 and MAA21< MAB21 and MAA2< MAB2;
MA2死叉區:= MAA22< MAB22 and MAA21< MAB21 and MAA2< MAB2;
xy:=if(c<o,c-l,o-l);
sy:=if(c<O,h-o,h-c);
pd:=if(c<o,h=o,h=c);
開多B條件1:=J<95 and CCI<260;
開多B1:=MACD金叉 and 開多B條件1;
開多B條件2:=MACD金叉1 and abs(DIFF-DEA)>abs(DIFF1-DEA1)*1.05;
開多B2:=開多B條件1 and 開多B條件2;
開多B條件3:=MACD金叉區 and (abs(DIFF-DEA)>abs(DIFF1-DEA1)*1.15 or abs(DIFF-DEA)>abs(DIFF2-DEA2)*1.15);
開多B3:=開多B條件1 and 開多B條件3;
開多B4:=開多B條件1 and (MA2金叉 OR MA2金叉1 );
開多B5:=開多B條件1 and MA2金叉區;
平多B1:=DIFF1>DEA1 and DIFF<DEA;
平多B2:=DIFF2>DEA2 and DIFF<DEA;
平多B3:= MAA21>MAB21 and MAA2< MAB2;
平多B4:= MAA22>MAB22 and MAA2< MAB2;
平多B5:=(ref (h,2)<ref(h,1) and ref (l,2)<ref(l,1) and ref(sy>abs(c-o)*2.5 and (xy<=sy*0.5 or pd),1) and h<ref(h,1) and l<ref(l,1) and c<ref(l,1)) and MACD金叉區;
平多B6:=(abs(DIFF-DEA)<abs(DIFF2-DEA2)*0.2 or abs(DIFF-DEA)<abs(DIFF1-DEA1)*0.2) and MACD金叉區;
平多B7:=(abs(DIFF-DEA)>abs(DIFF2-DEA2)*1.8 or abs(DIFF-DEA)>abs(DIFF1-DEA1)*1.8) and MACD死叉區;
開空B條件1:=J>5 and CCI>-260;
開空B1:=MACD死叉 and 開空B條件1;
開空B條件2:=MACD死叉1 and abs(DIFF-DEA)>abs(DIFF1-DEA1)*1.05;
開空B2:=開空B條件1 and 開空B條件2;
開空B條件3:=MACD死叉區 and (abs(DIFF-DEA)>abs(DIFF1-DEA1)*1.15 or abs(DIFF-DEA)>abs(DIFF2-DEA2)*1.15);
開空B3:=開空B條件1 and 開空B條件3;
開空B4:=開空B條件1 and (MA2死叉 OR MA2死叉1 );
開空B5:=開空B條件1 and MA2死叉區;
平空B1:=DIFF1<DEA1 and DIFF>DEA;
平空B2:=DIFF2<DEA2 and DIFF>DEA;
平空B3:= MAA21<MAB21 and MAA2> MAB2;
平空B4:= MAA22<MAB22 and MAA2> MAB2;
平空B5:=(ref (l,1)<ref(l,2) and ref (h,1)<ref(h,2) and ref(xy>abs(c-o)*2.5 and (sy<=xy*0.5 or pd),1) and l>ref(l,1) and h>ref(h,1) and c>ref(h,1)) and MACD死叉區;
平空B6:=(abs(DIFF-DEA)<abs(DIFF2-DEA2)*0.2 or abs(DIFF-DEA)<abs(DIFF1-DEA1)*0.2) and MACD死叉區;
平空B7:=(abs(DIFF-DEA)>abs(DIFF2-DEA2)*1.8 or abs(DIFF-DEA)>abs(DIFF1-DEA1)*1.8) and MACD金叉區;
ss:=6;//下單手數為6
if 開多B4 and barslast(開多A1 OR 開多A2)>=0 then BEGIN buy(holding=0,ss,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if (開多B1 OR 開多B2) and barslast(開多A4)>=0 then BEGIN buy(holding=0,ss,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if 開空B4 and barslast(開空A1 OR 開空A2)>=0 then BEGIN buyshort(holding=0,ss,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if (開空B1 OR 開空B2 ) and barslast(開空A4)>=0 then BEGIN buyshort(holding=0,ss,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if (平多B6 or 平多B7) and holding>0 then BEGIN sell(1,ss/2,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if (平多B1 or 平多B2 or 平多B5) and holding>0 then BEGIN sell(1,0,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if (平空B6 or 平空B7) and holding<0 then BEGIN sellshort(1,ss/2,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end
if (平空B1 or 平空B2 or 平空B5) and holding<0 then BEGIN sellshort(1,0,marketr);
playsound(1,'E:\金字塔軟件\KP.WAV');
end