通达信天地会副图指标

通达信副图 天地会 指标，红色方块在天上的都可以做票。绿色到地上了，地球人都知道怎么做。蓝色为股票量价变动。特殊牛股可以结合其他指标参考是否离开。

源码

N:=1;
 XOPEN:=(REF(O,N)+REF(C,N))/2;
 XCLOSE:=CLOSE;
 XHIGH:=MAX(HIGH,XOPEN);
 XLOW:=MIN(LOW,XOPEN);
 VOLALITY:=MA(XHIGH-XLOW,8);
天高:MA(XCLOSE,5)+VOLALITY/2;
地厚:MA(XCLOSE,5)-VOLALITY/2;
 BU:=CROSS(XCLOSE,天高);
SEL:=CROSS(地厚,XCLOSE);
 VAR1:=BARSLAST(BU);
 VAR2:=BARSLAST(SEL);
 DRAWICON(REF(VAR1,1)>VAR2 AND VAR1=0,XLOW,1);
 DRAWICON(REF(VAR2,1)>VAR1 AND VAR2=0,XHIGH,2);
 STICKLINE(XCLOSE>XOPEN AND VAR1<VAR2,XCLOSE,XOPEN ,2,0 ),COLORRED;
 STICKLINE(XCLOSE>XOPEN AND VAR1<VAR2,XHIGH,XCLOSE ,0,0 ),COLORRED;
 STICKLINE(XCLOSE>XOPEN AND VAR1<VAR2,XOPEN,XLOW ,0,0 ),COLORRED;
 STICKLINE(XCLOSE<=XOPEN AND VAR1<VAR2,XCLOSE,XOPEN ,2,0 ),COLORYELLOW;
 STICKLINE(XCLOSE<=XOPEN AND VAR1<VAR2,XHIGH,XOPEN ,0,0 ),COLORYELLOW;
 STICKLINE(XCLOSE<=XOPEN AND VAR1<VAR2,XCLOSE,XLOW ,0,0 ),COLORYELLOW;
 STICKLINE(XCLOSE<=XOPEN AND VAR1>VAR2,XCLOSE ,XOPEN ,2,0 ),COLORGREEN;
 STICKLINE(XCLOSE<=XOPEN AND VAR1>VAR2,XOPEN ,XHIGH ,0,0 ),COLORGREEN;
 STICKLINE(XCLOSE<=XOPEN AND VAR1>VAR2,XCLOSE,XLOW ,0,0 ),COLORGREEN;
 STICKLINE(XCLOSE>XOPEN AND VAR1>VAR2,XCLOSE ,XOPEN ,2,0 ),COLORBLUE;
 STICKLINE(XCLOSE>XOPEN AND VAR1>VAR2,XCLOSE,XHIGH ,0,0 ),COLORBLUE;
 STICKLINE(XCLOSE>XOPEN AND VAR1>VAR2,XOPEN,XLOW ,0,0 ),COLORBLUE;