清醒买卖(通达信)

源码正文：

VAR1:=BARSCOUNT(CLOSE){XG51};
VAR2:=HHV(HIGH,200){XG51};
VAR3:=LLV(LOW,200){XG51};
VAR4:=(VAR2-VAR3)/40{XG51};
VAR5:=HIGH+VAR4{XG51};
stICKLINE(VAR1/30=FLOOR(VAR1/30),VAR5,VAR5+3*VAR4,8,0), COLOR0000FF{XG51};
STICKLINE(VAR1/30=FLOOR(VAR1/30),VAR5,VAR5+2*VAR4,7,0), COLOR0000FF{XG51};
VAR6:=1{XG51};
VAR7:=REF(CLOSE-OPEN,2){XG51};
VAR8:=REF(CLOSE,1){XG51};
VAR9:=REF(CLOSE,2){XG51};
VARA:=REF(CLOSE,3){XG51};
VARB:=REF(CLOSE,4){XG51};
VARC:=maX(MAX(MAX(CLOSE,VAR8),VAR9),VARA){XG51};
VARD:=MIN(MIN(MIN(CLOSE,VAR8),VAR9),VARA){XG51};
红色持股: STICKLINE((CLOSE=VARC AND (VAR8>=VAR9 OR VAR8>=VARA)
OR VAR8=VARC AND (VAR9=VARD OR VARA=VARD) AND
CLOSE>=VAR9 OR VAR9=VARC AND VARA=VARD AND CLOSE>=VAR8
OR VARA=VARC AND CLOSE>=VAR8 AND CLOSE>=VAR9)*VAR6,VAR8,CLOSE,5,1),COLORWHITE{XG51};
品红变盘: STICKLINE((CLOSE=VARC AND VAR8=VARD)*VAR6,VAR9,CLOSE,5,1),COLORBLUE{XG51};
黄色下跌: STICKLINE((CLOSE=VARD AND (VAR8<VAR9 OR VAR8<VARA) OR VAR8=VARD AND (VAR9=VARC OR VARA=VARC) AND CLOSE<VAR9 OR VAR9=VARD AND VARA=VARC AND CLOSE<VAR8 OR VARA=VARD AND CLOSE<VAR8 AND CLOSE<VAR9)*VAR6,VAR8,CLOSE,5,0),COLORBLUE{XG51};
绿色买: STICKLINE((VAR8=VARC AND CLOSE=VARD)*VAR6,VAR9,CLOSE,5,0),COLORCYAN{XG51};
STICKLINE((VAR8=VARD AND CLOSE>=VAR9 OR (VAR9=VARD AND VAR8<=VARA OR VARA=VARD AND VAR8<=VAR9) AND VAR9<VARB AND CLOSE>=VAR8)*VAR6,VAR8,VAR9,5,0),COLORYELLOW{XG51};
兰色抛售: STICKLINE((VAR8=VARC AND CLOSE<VAR9 OR (VAR9=VARC AND VAR8>VARA OR VARA=VARC AND VAR8>VAR9) AND VAR9>=VARB AND CLOSE<VAR8)*VAR6,VAR8,VAR9,5,1),COLORYELLOW{XG51};
VARE:=SAR(5,1,5){XG51};
VARF:=ema(CLOSE,30){XG51};
VAR10:=IF(CLOSE>450,8,IF(CLOSE>=20 AND CLOSE<150,0.2,IF(CLOSE<20 AND CLOSE>=10,0.07,IF(CLOSE<10,0.03,0.07)))){XG51};
变色龙: STICKLINE(CLOSE>VARE,VARF,VARF+VAR10,6,0),COLORRED{XG51};
STICKLINE(CLOSE<VARE,VARF,VARF-VAR10,6,0), COLORGREEN {XG51};
STICKLINE(crOSS(CLOSE,VARE),VARF,VARF-VAR10,6,0)COLORLIMAGENTA{XG51};
STICKLINE(CROSS(VARE,CLOSE)*VAR6,VARF,VARF+VAR10,6,0),COLORLIMAGENTA{XG51};
STICKLINE((RANGE(DAY,6,9) OR RANGE(DAY,27,30))*VAR6,VARF+0.01,VARF-0.01,6,0),COLORLIMAGENTA{XG51};
生命线: FORCAST(CLOSE,30)*VAR6, CIRCLEDOT{XG51};
支撑: MA(CLOSE,13)*0.955*VAR6{X-G_5!1-C-N-{};

源码正文：

ZC_1:=IF(L<DYnaINFO(7),0,IF(H>DYNAINFO(7),DYNAINFO(7)-(DYNAINFO(7)-H+0.02)/(H-L+0.02),0)){XG51};
ZC_2:=dma(ZC_1,V/CAPITAL)*100{XG51};
出货:=IF(ZC_2>0 AND ZC_2>REF(ZC_2,1),ZC_2/20,0){XG51};
轴:0,COLOR00FF00{XG51};
PJJ:=Dma((H + L + C * 2) / 4,0.9){XG51};
JJ:=REF(ema(PJJ,3),1){XG51};
QJJ:=vol / ((H - L) * 2 - Abs(C - O)){XG51};
XVL:=IF(C > O,QJJ * (H - L),IF(C < O,QJJ * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - QJJ * (H - C + (O - L)),IF(C < O,0 - QJJ * (H - L),0 - VOL / 2)){XG51};
ZLL:=VOL / CAPITAL{XG51};
HSL1:=IF(ZLL > 10,10,ZLL){XG51};
HSL:=XVL / 20 / 1.15{XG51};
攻击流量:=HSL * 0.55 + REF(HSL,1) * 0.33 + REF(HSL,2) * 0.22{XG51};
GJJ:=EMA(攻击流量,8){XG51};
LLJX:=EMA(攻击流量,3){XG51};
流量:LLJX,COLORC875B7,COLORWHITE,NODRAW{XG51};
stICKLINE(流量 > 0,流量,0,2,0)COLOR0000FF{XG51};
STICKLINE(流量 < 0,流量,0,2,0),COLORFF4242{XG51};
流量基线:GJJ,COLOR00BBBB,COLORCYAN{XG51};
STICKLINE(HSL * 0.4 >= 0,HSL * 0.4 * 1,0,0,1)COLORBLUE{XG51};
STICKLINE(HSL * 0.4 < 0,HSL * 0.4 * 1,0,0,1)COLORRED{XG51};
ZJLL:=REF(LLJX,1){XG51};
QZJJ:=(((LLJX - ZJLL) / ZJLL) * 100){XG51};
流量幅%:IF(((LLJX > 0) AND (ZJLL < 0)),ABS(QZJJ),IF((((LLJX < 0) AND (ZJLL < 0)) AND (LLJX < ZJLL)),(0 - QZJJ),QZJJ))COLORLIMAGENTA,NODRAW{XG51};
力度:HSL / 1000,COLOR9B37FF,COLORWHITE,NODRAW{XG51};
周流量:SUM(LLJX,5),COLORFFBFDF,COLORLIMAGENTA,NODRAW{XG51};
BB:=REF(周流量,1){XG51};
ZQZJJ:=(周流量-BB)/BB*100{XG51};
周幅%:IF(周流量>0 AND BB<0,ABS(ZQZJJ),IF(周流量<0 AND BB<0 AND 周流量<BB,-ZQZJJ,ZQZJJ))COLORLIMAGENTA,NODRAW{XG51};
VARQ1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VARQ2:=SMA(ABS(LOW-VARQ1),13,1)/SMA(MAX(LOW-VARQ1,0),10,1){XG51};
VARQ3:=EMA(VARQ2,10){XG51};
VARQ4:=LLV(LOW,33){XG51};
VARQ5:=EMA(IF(LOW<=VARQ4,VARQ3,0),3)*100{X!G.5_1!C!N!{};