以下是通达信机构K线副图源码（无源码的请下载附件导入）

机构K线:
 N:=7; N2:=8; N3:=9;
 VAR1:=REF(MA(C,20),10);开:=O-VAR1;高:=H-VAR1;低:=L-VAR1;收:=C-VAR1; MID:=MA(C,20);
 UPPER:=MID+2*STD(C,20);LOWER:=MID-2*STD(C,20);V1:=(C-LOWER)/(UPPER-LOWER)*100;
 V2:=V1-EMA(V1,5);K1:=SUM(LLV(V2,4),4)/4;V3:=EMA(V2,64)*10;V4:=EMA(0.4*V2*(-1),3);
 V5:=-1*EMA(V2,39)*10;A:=V3>10;B:=V2>V4;D:=V5>10;E:=V3<=10 OR V2<=V4 OR V5<=10;
 均线1:MA(收, N);
 均线2:MA(收, N2);
 均线3:MA(收, N3);
 STICKLINE(收>=开 AND E,高,低,0,0), COLORRED;
 STICKLINE(收>=开 AND E,收,开,2,0) ,COLORRED;
 STICKLINE(收< 开 AND E,高,低,0,0) ,COLORGREEN;
 STICKLINE(收< 开 AND E,收,开,2,0) ,COLORGREEN;
 STICKLINE(开> 收 AND A ,低,高,0,0),COLORFF0000;
 STICKLINE(开> 收 AND A ,收,开,2,0),COLORFF0000;
 STICKLINE(开<=收 AND A,低,高,0,0),COLORYELLOW;
 STICKLINE(开<=收 AND A,收,开,2,1),COLORYELLOW;
 STICKLINE(开> 收 AND B,低,高,0,0),COLORRED;
 STICKLINE(开> 收 AND B,收,开,2,0),COLORRED;
 STICKLINE(开<=收 AND B,低,高,0,0),COLORRED;
 STICKLINE(开<=收 AND B,收,开,2,1),COLORRED;
 STICKLINE(开> 收 AND D,低,高,0,0),COLORGREEN;
 STICKLINE(开> 收 AND D,收,开,2,0),COLORGREEN;
 STICKLINE(开<=收 AND D,收,开,2,1),COLORGREEN;