幫寫一個簡單策略

咨詢內容： 后臺股票1、AB條件同時滿足時，B條件高于A條件，只開倉B。

2、A條件滿足時，開倉A。
3、B滿足時，A仍在持倉，則加倉2萬。
4、平倉重置。
多謝~~

?

?來源: www.tumamayizhan.com

金字塔資深技術：

[PEL] 復制代碼

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

以此為例作為參考。你理清其中的邏輯就可以應用到你自己代碼里了。只需把其中條件置換成你自己的開倉條件即可。
需要注意的是：
1.每次重啟程序，都會重置。GLOBALVARIABLE 全局變量的記錄僅僅每次運行期間保存。
2.股票市價下單。交易柜臺是按照漲停價判斷你資金釋放充足的。例子里都是市價，可以自行改成限價下單。

技術交流：

技術009 發表于 2021-10-22 14:37
[mw_shl_code=pel,true]GLOBALVARIABLE:A:=0;//全局變量記錄A是否開過倉

not () 在后臺不行
在圖表是可以的。

?

技術交流： “not () 在后臺不行”啥意思？我這里沒用到這個函數吧。而且這個函數圖表后臺都可以的呀。