?
?來(lái)源: www.tumamayizhan.com
金字塔資深技術(shù):GLOBALVARIABLE:A:=0;//全局變量記錄A是否開(kāi)過(guò)倉(cāng)
input:n(9,1,100,10),p1(3,2,40,4),p2(3,2,40,4);//參數(shù)設(shè)置
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開(kāi)倉(cāng)手?jǐn)?shù)
ss2:=200;//B開(kāi)倉(cāng)手?jǐn)?shù)
if kdjjc and macdjc then //同時(shí)滿(mǎn)足 開(kāi)倉(cāng)B的手?jǐn)?shù)
begin
tbuy(1,ss2,Mkt);
end
if kdjjc and not(macdjc) then //滿(mǎn)足A,不滿(mǎn)足B 開(kāi)倉(cāng)A的手?jǐn)?shù) 同時(shí)全局變量進(jìn)行記錄
begin
tbuy(1,ss1,Mkt);
A:=1;
end
if macdjc AND A then //滿(mǎn)足B條件且 有A的持倉(cāng)
begin
ss:=INTPART((20000)/(100*c))*100;//按照2萬(wàn)資金以及最新價(jià)計(jì)算的股數(shù)
tbuy(1,ss,MKT);
end
IF (macdsc OR kdjsc) AND TBUYHOLDINGEX('','',0)>0 THEN //平倉(cāng)時(shí)候重置全局變量
BEGIN
TSELL(1,0,MKT);
A:=0;
END技術(shù)009 發(fā)表于 2021-10-22 14:37
[mw_shl_code=pel,true]GLOBALVARIABLE:A:=0;//全局變量記錄A是否開(kāi)過(guò)倉(cāng)
?