粒米观海(量能变化,天量,地量,副图)

{粒米观海}
 VAR2:=(((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100);
 角度:(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
 VAR3:=SMA(VAR2,3,1);
 VAR4:=SMA(VAR3,9,1);
 VAR5:=((3 * VAR3) - (2 * VAR4));
 VAR6:=VOL;
 换手:((VOL / CAPITAL) * 100);
 STICKLINE((VOL AND (VAR3 > VAR4)),0,VOL,9,1),colorred;
 STICKLINE((VOL AND (VAR3 <= VAR4)),0,VOL,9,1),colorFFFF00;
 VAR2:=(CLOSE - REF(CLOSE,1));
 VAR3:=IF(((CLOSE - REF(CLOSE,1)) >= 0),VAR2,0);
 VAR4:=(REF(CLOSE,1) - CLOSE);
 VAR5:=IF(((CLOSE - REF(CLOSE,1)) <= 0),VAR4,0);
 VAR6:=(SUM(VAR3,16) / SUM(VAR5,16));
 VAR7:=(100 - (100 / (1 + VAR6)));
 VAR8:=EMA(VAR7,16);
 VAR9:=EMA(VAR8,8);
 VARA:=EMA(VAR8,45);
 MO:=(VAR8 - VARA);
 ML:=(VAR9 - VARA);
 VAR1A:=EMA(CLOSE,32);
 VAR2A:=MA(OPEN,32);
 趋势:=(VAR1A - VAR2A);
 观望:IF(((((MO > ML) AND (趋势 < 0)) AND (MO > REF(MO,3))) AND (趋势 > REF(趋势,3))),9,0);
 STICKLINE(((((MO > ML) AND (趋势 < 0)) AND (MO > REF(MO,3))) AND (趋势 > REF(趋势,3))),VOL,0,9,1);
 VAR2:=(HIGH - LOW);
 VAR3:=ABS((OPEN - CLOSE));
 VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
 VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
 VAR6:=((VAR3 / VAR2) * VOL);
 VAR7:=((VAR4 / VAR2) * VOL);
 VAR8:=((VAR5 / VAR2) * VOL);
 VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));
 VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
 VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
 VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));
 上攻量:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),0,VAR6,8,0),colorred;
 下攻量:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),0,VAR6,8,0);
 上探量:STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,8,0),colorCCCC66;
 下探量:STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,8,0),colorFF6633;
 地量:STICKLINE(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),0,VOL,2.5,0);
 量:=(EMA(IF((CLOSE >= REF(CLOSE,2)),VOL,(0 - VOL)),60) / MA(VOL,60));
 量１:=EMA(量,3);
 量２:=EMA(量,5);
 量３:=EMA(量,8);
 T1:=((量２ >= 量３) AND (量 < REF(量,1)));
 T2:=((量２ < 量３) AND (量 > REF(量,1)));
 K1:=SUM(IF((CLOSE >= REF(CLOSE,1)),VOL,0),8);
 K2:=SUM(IF((CLOSE < REF(CLOSE,1)),VOL,0),8);
 KC:=(((EMA(VOL,3) - LLV(VOL,50)) / (HHV(VOL,50) - LLV(VOL,50))) * 100);
 KH:=((EMA(EMA(KC,4),16) + EMA(((K1 / (K1 + K2)) * 100),7)) / 4);
 AA:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
 主动买盘:IF((CLOSE > OPEN),(AA * (HIGH - LOW)),IF((CLOSE < OPEN),(AA * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2))),POINTDOT,colorred;
 主动卖盘:IF((CLOSE > OPEN),(0 - (AA * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (AA * (HIGH - LOW))),(0 - (VOL / 2)))),LINETHICK0,colorFF0000;
 STICKLINE((主动买盘 > 0),0,VOL,4,0),colorFF0000;
 STICKLINE((主动买盘 > 0),0,主动买盘,4,0),colorFF00FF;
 STICKLINE(CROSS(KH,30),0,VOL,4,0);
 STICKLINE(CROSS(30,KH),0,VOL,4,0),color6783DB;
 DRAWICON(CROSS(KH,30),VOL,11);
 DRAWICON(CROSS(30,KH),VOL,11);
 DRAWTEXT(CROSS(KH,30),VOL,'-->量顶');
 DRAWTEXT(CROSS(30,KH),VOL,'-->量顶'),color6783DB;
 换手率:=((VOL * 100) / CAPITAL);
 换手相对位置:=(((换手率 - LLV(换手率,89)) / (HHV(换手率,89) - LLV(换手率,89))) * 100);
 换手相对位置２:=(((换手率 - LLV(换手率,144)) / (HHV(换手率,144) - LLV(换手率,144))) * 100);
 换手率天量拐点:=IF(((REF(换手相对位置,1) = 100) AND (换手相对位置 < 100)),1,0);
 换手率天量拐2:=IF(((REF(换手相对位置２,1) = 100) AND (换手相对位置２< 100)),1,0);
 换手率地量拐点:=IF(((REF(换手相对位置,1) = 0) AND (换手相对位置 > 0)),(0 - 1),0);
 换手率地量拐２:=IF(((REF(换手相对位置２,1) = 0) AND (换手相对位置２> 0)),(0 - 1),0);
 天量ａ:STICKLINE(((REF(换手相对位置,1) = 100) AND (换手相对位置 < 100)),0,(VOL * 1.2),1,0);
 DRAWICON(((REF(换手相对位置,1) = 100) AND (换手相对位置 < 100)),(VOL * 1.2),11);
 DRAWTEXT(((REF(换手相对位置,1) = 100) AND (换手相对位置 < 100)),(VOL * 1.2),'-->天量');
 天量ｂ:STICKLINE(((REF(换手相对位置２,1) = 100) AND (换手相对位置２ < 100)),0,(VOL * 1.2),1,0);
 DRAWICON(((REF(换手相对位置２,1) = 100) AND (换手相对位置２ < 100)),(VOL * 1.2),11);
 
DRAWTEXT(((REF(换手相对位置２,1) = 100) AND (换手相对位置２ < 100)),(VOL * 1.2),'-->天量');
 地量ａ:STICKLINE(((REF(换手相对位置,1) = 0) AND (换手相对位置 > 0)),0,(VOL * 1.2),1,0);
 DRAWICON(((REF(换手相对位置,1) = 0) AND (换手相对位置 > 0)),(VOL * 1.2),10);
 
DRAWTEXT(((REF(换手相对位置,1) = 0) AND (换手相对位置 > 0)),(VOL * 1.2),'-->地量');
 地量ｂ:STICKLINE(((REF(换手相对位置２,1) = 0) AND (换手相对位置２ > 0)),0,(VOL * 1.2),1,0);
 DRAWICON(((REF(换手相对位置２,1) = 0) AND (换手相对位置２ > 0)),(VOL * 1.2),10);
 
DRAWTEXT(((REF(换手相对位置２,1) = 0) AND (换手相对位置２ > 0)),(VOL * 1.2),'-->地量1');
 常量:STICKLINE((VOL > (MA(VOL,5) * 0.1)),0,VOL,0.1,0),colorFFFFFF;
 A1:=MA(VOL,20);
 A2:=MA(VOL,90);
 DRAWICON(CROSS(A1,A2),LOW,4);
 DRAWICON(CROSS(A2,A1),LOW,5);