選股中心語法問題(大戶持股張數)小幫手幫忙回一下吧

257
最後發表 Marcuz 2022 一月 26

Marcuz 發文於 2022/01/19

//均線模塊

var:ma_x1(0),ma_x2(0),ma_x3(0),ma_x4(0);

input:x(5,"連續期數"),x1(5,"x1"),x2(20,"x2"),x3(60,"x3"),x4(120,"x4");

ma_x1=average(close,x1);

ma_x2=average(close,x2);

ma_x3=average(close,x3);

ma_x4=average(close,x4);

condition3=trueall(ma_x1>ma_x1[1],x);

condition4=trueall(ma_x2>ma_x2[1],x);

condition5=trueall(ma_x3>ma_x3[1],x);

condition6=trueall(ma_x4>ma_x4[1],x);

condition7=trueall(ma_x1>ma_x2,x);

condition8=trueall(ma_x2>ma_x3,x);

condition9=trueall(ma_x3>ma_x4,x);

condition99=condition3 and condition4 and condition5 and condition6 and condition7 and condition8 and condition9;

//創高模塊

input:y(120,"期數"),_v(1000,"成交量");

value1=close;

value2=highest(high[1],y);

value3=highest(high[1],20);

value4=highest(high[1],120);

value5=highest(high[1],240);

condition1 = value1 cross over value2;

condition2 = volume >=_v;

//籌碼模塊

value6=getfield("內部人持股比例", "M")-getfield("內部人持股比例", "M")[1];

value7=GetField("大戶持股比例",param := 800); //持股800張以上

if condition1 and condition2 then

begin

ret = 1;

outputField(1,getfield("外資買賣超","d"),"外資");

outputField(2,getfield("投信買賣超","d"),"投信");

outputField(3,value1,"收盤價");

outputField(4,value3,"近月高");

outputField(5,value4,"近半年高");

outputField(6,value5,"近一年高");

outputField(7,condition99,"均線強勢");

outputField(8,value6,"內部人差");

end;