Author Archives: 發財橘子

input:Length(6,"N期內");

input:Times(2,"創M次以上長紅");

for i = 0 to la begin

if close[i]>=close[i+1] *1.045

then

o1+=1;　　

end;

if o1 >= Times

then ret=1;

value1=GetField("關鍵券商買賣超張數","D");

value2=GetField("地緣券商買賣超張數","D");

value3=GetField("綜合前十大券商買賣超張數","D");

value4=GetField("外資買賣超","D");

value5=GetField("投信買賣超","D");

value6=GetField("自營商自行買賣買賣超","D");

value7=GetField("主力買賣超張數","D");

value8=value1+value2+value3+value4+value5+value6+value7;

//這些各方勢力買超合計的張數

value9=value8/volume*100;

//合計佔成交量的比重

var:count(0);

condition1=false;

count=0;

if value1>0 then count=count+1;

if value2>0 then count=count+1;

if value3>0 then count=count+1;

if value4>0 then count=count+1;

if value5>0 then count=count+1;

if value6>0 then count=count+1;

if value7>0 then count=count+1;

if volume>2000

//成交量大於2000張

and count>=6

//七項至少六項是買超

and value9>60

//合計買超張數佔成交量達六成以上

then condition1=true;

if barslast(condition1)=0

//最近一期符合上述條件

then ret=1;

outputfield(1,count,0,"符合條件數");

settotalbar(100);

var:rsv1(0),k1(0),d1(0);

stochastic(9,3,3,rsv1,k1,d1);

condition1=k1 cross over 20;

value1=GetField("外資買賣超","D");

value2=GetField("投信買賣超","D");

condition2=value1>500 and value2>200;

if condition1 and condition2 then ret=1;

input:r1(10,"盈餘殖利率");

value1=getField("稅前息前淨利", "Q");//EBIT 百萬

value2=getField("流動資產", "Q")-getField("流動負債", "Q");//超額現金 百萬

value3=getField("總市值(億)", "D")*100+getField("負債總額", "Q")-value2;//總企業價值

value4=value1/value3*100;

if value4>r1 then ret=1;

outputField(1,value4,1,"盈餘殖利率");