通达信《鱼仙打分》全套指标公式源码

以下是通达信鱼仙打分全套指标公式源码截图和用法说明，包含鱼仙打分、主图、副图及四个选股公式，部分源码如下，完整源码请下载附件中的.TN6格式文件一键导入使用。

指标源码：

DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,GNBLOCK),COLORYELLOW;{在屏幕左上角显示所属概念板块}
DRAWTEXT_FIX(ISLASTBAR,0,0.025,0,FGBLOCK),COLORMAGENTA;{在屏幕左上角显示所属风格}
RC1:=REF(C,1);
ZT:=C/REF(C,1)>1.099 AND H>L;
CS:=IF(C>=1,10000,100000);
CDCV110:=1.10*RC1-49/CS;
CDCV15 :=1.05*RC1-49/CS;
CDCV210:=0.90*RC1+51/CS;
CDCV25 :=0.95*RC1+51/CS;
ST:=NAMELIKE(‘S’) OR NAMELIKE(‘*S’);
DCV1:= IF(ST, C>=CDCV15, C>=CDCV110);
DCV2:= IF(ST, C<=CDCV25, C<=CDCV210);
PPDCV1:=IF(ST, H>=CDCV15, H>=CDCV110);
PPDCV2:=IF(ST, L<=CDCV25, L<=CDCV210);
STICKLINE(PPDCV1,H,MAX(C,O),0,0),COLORMAGENTA;
STICKLINE(PPDCV2,L,MIN(C,O),0,0),COLORLICYAN;
STICKLINE(DCV1,O,C,3,0),COLORMAGENTA;
STICKLINE(DCV2,O,C,3,0),COLORLICYAN;
DCV5:=(C-REF(C,1))/REF(C,1)*100;
DCV6:=BARSLASTCOUNT(C<REF(C,1)),NODRAW;
DCV9:=C<REF(C,1),NODRAW;
DCV10:=DCV9*DCV5,NODRAW;
DCV7B:=SUM(DCV10,DCV6) AND REFXV(C>REF(C,1),1),NODRAW;
DCV8B:=SUM(DCV10,DCV6) ,NODRAW;
DRAWTEXT(DCV7B=1 AND DCV6>=3 AND DCV8B<-10,L*0.99,VARCAT(VAR2STR(DCV8B*-1,0),’%’)),COLORGREEN;
KK:=C/REF(C,1)>1.099 AND H>L AND H=C;

指标截图：