加载中…缠论一买、三买选股公式（飞狐+悟多公式）+仿悟多三买公式
(2012-04-09 21:08:58)
标签：
缠鹰股票缠论缠中说禅 |
分类： 公式soft |
|
|
begin
if DATAPERIOD=0 then minbi:="fbase.var2#min1";
if DATAPERIOD=1 then minbi:="fbase.var2#min5";
if DATAPERIOD=2 then minbi:="fbase.var2#min30";
if DATAPERIOD=3 then minbi:="fbase.var2#min60";
if DATAPERIOD=4 then minbi:="fbase.var2#day";
if DATAPERIOD=5 then minbi:="fbase.var2#day";
if DATAPERIOD=6 then minbi:="fbase.var2#week";
if DATAPERIOD=7 then minbi:="fbase.var2#month";
if DATAPERIOD=8 then minbi:="fbase.var2#year";
var001:="fbase.var2#min30";
if datatype=3 then var001:="fbase.var2#min60";
if datatype=4 then var001:="fbase.var2#day";
var1:="chzhshch@kxian";
var2:="chzhshch@bi";{处理笔关系}
var3:="chzhshch@tongji"(minbi);{同级别分解}
zg:="chzhshch@zg"(var3);//一定要先调用ZG
zd:="chzhshch@zd"(var3);
zswz:=barslast(zg>zd);
tj3:=count(abs(var3),barslast(var3=1))=0;
tj4:=l<ref(l,barslast(var2=-1));
tj5:=count(var2=1,zswz-1)>0;
tj6:=ref(h,barslast(var2=1))<ref(zd,zswz);
tj7:=count(zg>zd,barslast(var3=1))>0;
not(zg>zd)&&tj3&&tj7&&tj4&&tj5&&tj6;
end;
一买是模糊的，不准确的，三买就比较标准了，同样背驰需自行判断，否则不背驰就跌回中枢了：
- begin
- if DATAPERIOD=0 then minbi:="fbase.var2#min1";
- if DATAPERIOD=1 then minbi:="fbase.var2#min5";
- if DATAPERIOD=2 then minbi:="fbase.var2#min30";
- if DATAPERIOD=3 then minbi:="fbase.var2#min60";
- if DATAPERIOD=4 then minbi:="fbase.var2#day";
- if DATAPERIOD=5 then minbi:="fbase.var2#day";
- if DATAPERIOD=6 then minbi:="fbase.var2#week";
- if DATAPERIOD=7 then minbi:="fbase.var2#month";
- if DATAPERIOD=8 then minbi:="fbase.var2#year";
- var001:="fbase.var2#min30";
- if datatype=3 then var001:="fbase.var2#min60";
- if datatype=4 then var001:="fbase.var2#day";
- var1:="chzhshch@kxian";
- var2:="chzhshch@bi";{处理笔关系}
- var3:="chzhshch@tongji"(minbi);{同级别分解}
- zg:="chzhshch@zg"(var3);//一定要先调用ZG
- zd:="chzhshch@zd"(var3);
- var1:="chzhshch@kxian";
- var2:="chzhshch@bi";
-
var4:=barslast(var001<>0);
-
tj1:=ref(var001,var2)=-1;
//上级别是底
- var5:=sum(abs(var2),var2);
- tj2:=var5=1; //第一个回调才算
- tj3:=count(abs(var3),barslast(var3=-1))=0;
- zswz:=barslast(zg>zd);
-
tj4:=count(zg>zd,barslast(var3=-1))>0;
- tj5:=count(var2=1,barslast(var2=-1))=1;
- tj6:=count(var2=1,zswz-1)=1;
-
tj7:=ref(l,barslast(var2=1))>ref(zg,barslast(zg>zd));
-
not(zg>zd)&&tj3&&tj4&&tj5&&tj6&&tj7;
- end;
再加一个仿悟多日线3买的公式，当然不是只能用于日线，但这个似乎是日线用起来更好些。
- //if DATAPERIOD>=1 and
dataperiod<=8
then
- begin
- if DATAPERIOD=0 then minbi:="fbase.var2#min1";
- if DATAPERIOD=1 then minbi:="fbase.var2#min5";
- if DATAPERIOD=2 then minbi:="fbase.var2#min30";
- if DATAPERIOD=3 then minbi:="fbase.var2#min60";
- if DATAPERIOD=4 then minbi:="fbase.var2#day";
- if DATAPERIOD=5 then minbi:="fbase.var2#day";
- if DATAPERIOD=6 then minbi:="fbase.var2#week";
- if DATAPERIOD=7 then minbi:="fbase.var2#month";
- if DATAPERIOD=8 then minbi:="fbase.var2#year";
- var001:="fbase.var2#min30";
- if datatype=3 then var001:="fbase.var2#min60";
- if datatype=4 then var001:="fbase.var2#day";
- var1:="chzhshch@kxian";
- var2:="chzhshch@bi";{处理笔关系}
- var3:="chzhshch@tongji"(minbi);{同级别分解}
- zg:="chzhshch@zg"(var3);//一定要先调用ZG
- zd:="chzhshch@zd"(var3);
-
{var4:=barslast(var001<>0);
-
tj1:=ref(var001,var2)=-1;
//上级别是底
- var5:=sum(abs(var2),var2);
- tj2:=count(var2=1,barslast(var2=-1))=1; //第一个回调才算}
- tj3:=count(if(var2=1,1,0),barslast(var2=-1))=0;
- zswz:=barslast(zg>zd);
-
tj4:=count(zg>zd,barslast(var3=-1))>0;
- tj5:=count(var2=1,barslast(var2=-1))=0;
- tj6:=count(var2=1,zswz-1)=0;
- zgg:=ref(zg,zswz);
-
tj7:=o>c&&count(if(o>c,1,0),barslast(var2=-1)-1)=1&&ref(h,1)>zgg&&l>zgg;
-
tj8:=o>c&&count(if(o>c,1,0),min(barslast(var2=-1)-1,barslast(l>zgg)))=1&&ref(h,1)>zgg&&l>zgg;
-
tj3&&tj5&&tj6&&(tj7
or tj8);
- end;
喜欢
0
赠金笔