Author Archives: 發財橘子

value1=GetField("營業毛利率","Q");
input:ratio(10,"毛利率單季衰退幅度上限");
input:period(10,"計算的期間，單位是季");
if trueall(value1>value1[1]*(1-ratio/100),period)
then ret=1;

input:period(5 ,"均線期間");
input:ratio(30 ,"不明買盤比重%");
settotalbar(period + 7);
value1=GetField("法人買張","D")[1];
value2=GetField("資券互抵張數","D")[1];
value3=GetField("散戶買張","D")[1];
value4=getField("現股當沖張數", "D")[1];
value5=volume[1] - value1 - value2 - value3-value4;
//算出每天扣除法人，散戶，當沖，資券互抵等的成交量
//這樣的成交量就算是不明買盤
value6=value5*100/volume[1]; // 不明買盤的比重
value7=average(value6,period);
//取幾日平均值
if value7 crosses over ratio
//不明買盤的比重突破一定比重
and (getField("投信買賣超", "D")>200
and getField("外資買賣超", "D")>500)
//法人都開始進場
then ret=1;

input:period(7,"年期");
input:l1(3,"eps");
value1=GetField("每股稅後淨利(元)","Y");
if trueany(value1>=l1,period)
then ret=1;

input:period(400,"天期");
input:l1(30,"股價上限");
if trueall(high<=l1,period)
then ret=1;

input:period(5,"最近n日");
value1=GetField("地緣券商買賣超張數","D");
if trueall(value1>200,period)
then ret=1;

settotalbar(100);
if trueall(close>close[1],5)
and barslast(trueall(close>close[1],5))[1]>60
then ret=1;

value1=GetField("月營收","M")
+GetField("月營收","M")[1]+GetField("月營收","M")[2];//億
outputfield(1,value1,1,"近三月營收合計(億)");
value2=GetField("營業利益率","Q");
outputfield(2,value2,1,"營業利益率");
value3=value1*4*value2/100;
value4=GetField("最新股本");//億
variable:FEPS(0);
FEPS=value3/value4*10;
input:per(10,"合理本益比");
var:parvalue(0);
parvalue=feps*per;
input:disr(15,"折價率");
if close*(1+disr/100)<parvalue
then ret=1;

input:m1("不符合"),m2("符合");
variable:s1(""),s2(""),s3(""),s4(""),s5("");
variable:count(0);
condition1=false;
condition2=false;
condition3=false;
condition4=false;
condition5=false;
count=0;
//用最近三個月營收推估的獲利殖利率高於一定水準
value1=GetField("營業利益","Q");//單位:百萬
value2=GetField("月營收","M");//單位:億
value3=GetField("營業利益率","Q");
value4=GETFIELD("月營收","M")+GETFIELD("月營收","M")[1]
+GETFIELD("月營收","M")[2];
//近三個月營收
value5=value4*value3/100;
//用最近一期營益率去估算的最近一季營業利益
value6=GetField("營業利益","Q")+GetField("營業利益","Q")[1]
+GetField("營業利益","Q")[2]+value5*100;
//前三季營業利益加上最近一季預估營業利益
value8=GetField("最新股本");//單位億
value9=value6/(value8*100)*10;
//估算出來的EPS
value10=value9/close*100;
//eps/股價*100: 預估殖利率
input:r1(5,"殖利率下限");
if value10>r1 and value3>0 and close>10
then begin
condition1=true ;
s1=m2;
count=count+1;
end else
s1=m1;
//本業推估本益比低於N
input:epsl(15,"預估本益比上限");
value11= GetField("營業利益","Q")+GetField("營業利益","Q")[1]
+GetField("營業利益","Q")[2]+GetField("營業利益","Q")[3];
value12= GetField("最新股本");//單位億;
value13= value11/(value12*10);//每股預估EPS
if close/value13<=epsl then begin
condition2=true ;
s2=m2;
count=count+1;
end else
s2=m1;
//流動資產減負債超過市值N成
input:ratio(80,"佔總市值百分比%");
if (GetField("流動資產","Q")-GetField("負債總額","Q"))/100
>GetField("總市值","D")*ratio/100
then begin condition3=true ;
s3=m2;
count=count+1;
end else
s3=m1;
//股價低於N年平均股利的N倍
input:N1(16,"股利的倍數");
value15=(GetField("股利合計","Y")
+GetField("股利合計","Y")[1]
+GetField("股利合計","Y")[2]
+GetField("股利合計","Y")[3]
+GetField("股利合計","Y")[4])/5;
if close<value15*N1 then begin
condition4=true ;
s4=m2;
count=count+1;
end else
s4=m1;
//高自由現金流總市值比
input:ratio1(10,"近四季自由現金流總合佔總市值最低比率單位:%");
if (GetField("來自營運之現金流量","Q")
+GetField("來自營運之現金流量","Q")[1]+
GetField("來自營運之現金流量","Q")[2]
+GetField("來自營運之現金流量","Q")[3]
-GetField("資本支出金額","Q")-GetField("資本支出金額","Q")[1]
-GetField("資本支出金額","Q")[2]-GetField("資本支出金額","Q")[3])
>GetField("總市值","D")*100*ratio1/100
then begin
condition5=true ;
s5=m2;
count=count+1;
end else
s5=m1;
if count>1
//符合至少兩個條件
then ret=1;
outputfield(1,count,0,"符合條件數");
outputfield(2,value9,1,"預估EPS");
outputfield(3,s1,0,"高預估殖利率股");
outputfield(4,s2,0,"本業推估本益比低");
outputfield(5,s3,0,"流動性淨資產接近市值");
outputfield(6,s4,0,"以歷年平均股利計算之高殖利率股");
outputfield(7,s5,0,"高自由現金流總市值比");