通达信暗渡陈仓主图及选股公式源码

通达信公式暗渡陈仓主图及选股

C1:=REF(C,1);
C2:=REF(C,2);
C3:=REF(C,3);
C4:=REF(C,4);
C5:=REF(C,5);
C6:=REF(C,6);
O1:=REF(O,1);
O2:=REF(O,2);
O3:=REF(O,3);
O4:=REF(O,4);
MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);
P1:=C2 =C3 AND C2 =C4 AND C2 =C5 AND C2
P2:=C MA(C,5) AND C MA(C,10) AND C MA(C,20);
P3:=C O AND C1
P4:=C
{以下为基本面}
CAP1:=CAPITAL =8000 AND CAPITAL =5000000;{流通盘在8000万股到5亿股}
S:=IF(NAMELIKE('S'),1,0)=0;{非S}
ST:=IF(NAMELIKE('ST'),1,0)=0;{非ST}
SST:=IF(NAMELIKE('*S'),1,0)=0;{非*S}
停牌:=IF((C=0 OR V=0),0,1);
PE:=C/FINANCE(33);
SYL:=PE {市盈率为正}
JBM:=S AND ST AND SST AND 停牌 AND SYL;
P:=P1 AND P2 AND P3 AND P4 AND JBM AND C1/C2 =1.05;
{画烟雨阳彩柱}
STICKLINE(P,O,O+0.382*(C-O),3,0),COLORYELLOW;
STICKLINE(P,O+0.382*(C-O),C,3,0),COLORRED;
{所属板块 所属地域 流通市值}
DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,DYBLOCK);
LTSZ:=C*CAPITAL/1000000;
LTSZ1:=CON2STR(LTSZ,0);
DRAWTEXT_FIX(LTSZ 1,0,0.1,0,LTSZ1);

{
选股公式:

C1:=REF(C,1);
C2:=REF(C,2);
C3:=REF(C,3);
C4:=REF(C,4);
C5:=REF(C,5);
C6:=REF(C,6);
O1:=REF(O,1);
O2:=REF(O,2);
O3:=REF(O,3);
O4:=REF(O,4);
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
P1:=C2 =C3 AND C2 =C4 AND C2 =C5 AND C2
P2:=C MA(C,5) AND C MA(C,10) AND C MA(C,20);
P3:=C O AND C1
P4:=C
CAP1:=CAPITAL =8000 AND CAPITAL =5000000;
S:=IF(NAMELIKE('S'),1,0)=0;
ST:=IF(NAMELIKE('ST'),1,0)=0;
SST:=IF(NAMELIKE('*S'),1,0)=0;
停牌:=IF((C=0 OR V=0),0,1);
PE:=C/FINANCE(33);
SYL:=PE
JBM:=S AND ST AND SST AND 停牌 AND SYL;
P1 AND P2 AND P3 AND P4 AND JBM AND C1/C2 1.012 AND V REF(V,1);
}