?
?來源: m.kzuj.com.cn
金字塔資深技術:GLOBALVARIABLE:A:=0;//全局變量記錄A是否開過倉 input:n(9,1,100,10),p1(3,2,40,4),p2(3,2,40,4);//參數設置 RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100; K:SMA(RSV,P1,1); D:SMA(K,P2,1); J:3*K-2*D,NODRAW; kdjjc:cross(k,d),NODRAW;//kdj金叉 A條件 kdjsc:cross(d,k),NODRAW; input:p(26,20,100,8),s(12,5,40,4),m(9,2,60,6); DIFF :EMA(CLOSE,S) - EMA(CLOSE,P); DEA :EMA(DIFF,M); MACD1 :2*(DIFF-DEA), COLORSTICK; macdjc:cross(diff,dea),NODRAW;//macd金叉 B條件 macdsc:cross(dea,diff),NODRAW; ss1:=100;//A開倉手數 ss2:=200;//B開倉手數 if kdjjc and macdjc then //同時滿足 開倉B的手數 begin tbuy(1,ss2,Mkt); end if kdjjc and not(macdjc) then //滿足A,不滿足B 開倉A的手數 同時全局變量進行記錄 begin tbuy(1,ss1,Mkt); A:=1; end if macdjc AND A then //滿足B條件且 有A的持倉 begin ss:=INTPART((20000)/(100*c))*100;//按照2萬資金以及最新價計算的股數 tbuy(1,ss,MKT); end IF (macdsc OR kdjsc) AND TBUYHOLDINGEX('','',0)>0 THEN //平倉時候重置全局變量 BEGIN TSELL(1,0,MKT); A:=0; END
技術009 發表于 2021-10-22 14:37
[mw_shl_code=pel,true]GLOBALVARIABLE:A:=0;//全局變量記錄A是否開過倉
?