以下是通达信活塞版花且缺源码（无源码的请下载附件导入）

通达信,活塞版,花且缺,源码

{活塞版花且缺}
HH0:=MAX(HHV(H,120),HHV(MA(C,120),120));
LL0:=MIN(LLV(L,120),LLV(MA(C,120),120));
MM0:=CONST((HH0+LL0)*0.5);
T1:=IF(CAPITAL>1 AND GNBLOCK,STRCAT('TDX概念：',GNBLOCK),'');
T2:=IF(CAPITAL>1,EXTERNSTR(0,2),'');
T3:=IF(CAPITAL>1,EXTERNSTR(0,1),'');
T4:=IF(CAPITAL>1,EXTERNSTR(0,3),'');
T5:=IF(CAPITAL>1,STRCAT('TDX行业：',HYBLOCK),'');
T6:=IF(CAPITAL>1,STRCAT('TDX地域：',DYBLOCK),'');
T7:=IF(CAPITAL>1,EXTERNSTR(0,8),'');

X1:=CONST(IF(REF(MA(C,20),130)>MM0,1.00,-0.04));
X2:=CONST(IF(REF(MA(C,20),130)>MM0,-1,1));
S0:=IF(1,X1,DRAWNULL);
S1:=IF(FINDSTR(T1,'TDX概念'),S0+(0.04*X2),S0);
S2:=IF(FINDSTR(T2,'DZH主营'),S1+(0.04*X2),S1);
S3:=IF(FINDSTR(T3,'DZH主题'),S2+(0.04*X2),S2);
S4:=IF(FINDSTR(T4,'TDX主题'),S3+(0.04*X2),S3);
S5:=IF(FINDSTR(T5,'TDX行业'),S4+(0.04*X2),S4);
S6:=IF(FINDSTR(T6,'TDX地域'),S5+(0.04*X2),S5);
S7:=IF(FINDSTR(T7,'年度业绩') ,S6+(0.04*X2),S6);

DRAWTEXT_FIX(1,0,S1,0,T1)COLORFF8800;
DRAWTEXT_FIX(1,0,S2,0,T2)COLOR00CC00;
DRAWTEXT_FIX(1,0,S3,0,T3)COLOR3060FF;
DRAWTEXT_FIX(1,0,S4,0,T4)COLORFF88FF;
DRAWTEXT_FIX(1,0,S5,0,T5)COLOR00AAFF;
DRAWTEXT_FIX(1,0,S6,0,T6)COLORFFFFFF;
DRAWTEXT_FIX(1,0,S7,0,T7)COLORFF00FF;
{业绩等项尚未更新为最新}