|
以下是通达信暗度陈仓主图公式（无源码的请下载附件导入）
通达信暗度陈仓主图公式
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<=C6;
P2:=C>MA(C,5) AND C>MA(C,10) AND C>MA(C,20);
P3:=C>O AND C1>C2;
P4:=C>C1;
{以下为基本面}
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>0;{市盈率为正}
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);
656499305.jpg
| 
