通达信高量柱组合主图指标 源码 贴图 DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0); 总涨幅:(H-LLV(L,180))/LLV(L,180)*100,NODRAW,COLORMAGENTA; 日时转换:=IF(PERIOD=5,120,240); VAR30:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2; {牛熊线:EMA(VAR30,日时转换),LINETHICK1,COLORYELLOW;} {止盈止损} CC111:=IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLOR888888,NODRAW; 止赢:1.05*CC111,COLORMAGENTA,LINETHICK1; {DRAWTEXT(ISLASTBAR,止赢,'止赢'),LINETHICK1;} 止损:0.97*CC111,COLORYELLOW,LINETHICK1; {DRAWTEXT(ISLASTBAR,止损,'止损'),LINETHICK1;} {DRAWNUMBER(ISLASTBAR ,C,C),COLORWHITE;} DRAWBAND(止赢,RGB(65,105,225),止损,RGB(00,00,00)); {金牛} DRAWTEXT_FIX(1,0.88,5,0,''),COLORRED; HZZ:=1220601; HZ:=IF(DATE Z2:=STRCAT(Z1,DYBLOCK)*HZ; Z3:=STRCAT(Z2,' '); DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED; 金牛:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25)*HZ,DOTLINE,COLORYELLOW; 金钻趋势:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORRED,DOTLINE; 金牛2:=EMA(金钻趋势,25)COLORCYAN,LINETHICK2; DRAWKLINE(H,O,L,C); STICKLINE(金钻趋势>LOW AND 金钻趋势 STICKLINE(金钻趋势>HIGH,HIGH,LOW,0,0),COLORYELLOW; VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6); 回调买:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2)); XG:=金钻趋势>HIGH AND 回调买 AND L<=金钻趋势; DRAWBAND(金钻趋势,RGB(55,0,0),金牛2,RGB(0,91,0)); DRAWTEXT(XG,L,'买'),COLORRED; JJ:=(HIGH+LOW+CLOSE)/3; QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW); QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))); QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN)))); QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))); QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ))); DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK; V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1); V5:=SMA(V2*120/FROMOPEN*5,2,1); V10:=SMA(V5,5,1); V20:=SMA(V10,5,1); DY:=CURRBARSCOUNT=1 AND C XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛; DRAWTEXT(XG2 AND L<金钻趋势,L,'金钻起涨'),COLORMAGENTA; N10:=3; N20:=6; N3:=12; N4:=24; BBI:(MA(CLOSE,N10)+MA(CLOSE,N20)+MA(CLOSE,N3)+MA(CLOSE,N4))/4,COLORRED,LINETHICK2; BB:=BBI {顶底} DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'底'),LINETHICK2,COLORYELLOW; DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'顶'),LINETHICK2,COLORYELLOW; DRAWKLINE(H,O,L,C); TJ:=VOL>=REF(V,1)*2.8 AND C>REF(C,1)*1.01; {DRAWTEXT(TJ,LOW*0.986,'?高量柱'),COLORYELLOW;} STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORYELLOW; K1:=SUMBARS(TJ,1); STICKLINE(K1,REF(C,K1-1),REF(C,K1-1),1,0),COLORYELLOW; STICKLINE(K1,REF(O,K1-1),REF(O,K1-1),1,0),COLORYELLOW; TJ1:=VOL>=REF(V,1)*3; {DRAWTEXT(TJ1,LOW*0.986,'?高量柱'),COLORYELLOW;} STICKLINE(TJ1,OPEN,CLOSE,1.5,0),COLORYELLOW; K2:=SUMBARS(TJ1,1); STICKLINE(K2,REF(C,K2-1),REF(C,K2-1),1,0),COLORYELLOW; STICKLINE(K1,REF(O,K2-1),REF(O,K2-1),1,0),COLORYELLOW; {趋势评分} X01:=IF(MA(C,5)>MA(C,10),20,0); X02:=IF(MA(C,20)>MA(C,60),10,0); X3:=IF(KDJ.J>KDJ.K,10,0); X4:=IF(MACD.DIF>MACD.DEA,10,0); X5:=IF(MACD.MACD>0,10,0); X6:=IF(V>MA(V,60),10,0); X7:=IF(WINNER(C)>0.5,10,0); X8:=IF(C/REF(C,1)>1.03,10,0); XX:=X01+X02+X3+X4+X5+X6+X7+X8; DRAWTEXT_FIX(V>O,0.55,0.05,0,STRCAT('趋势评分： ',STRCAT(CON2STR(XX,0),' '))),COLORYELLOW; {上涨下跌数} 上涨:"999999$ADVANCE"+"399001$ADVANCE",COLORRED,NODRAW; 下跌:"999999$DECLINE"+"399001$DECLINE",COLORLIGREEN,NODRAW; {涨跌:上涨/(上涨+下跌)*100,NODRAW;} DRAWTEXT_FIX(1,0.2,0.05,0,STRCAT('上涨:',STRCAT(CON2STR(上涨,0),' '))),COLORRED; DRAWTEXT_FIX(1,0.35,0.05,0,STRCAT('下跌:',STRCAT(CON2STR(下跌,0),' '))),COLORGREEN; E:=(HIGH+LOW+OPEN+2*CLOSE)/5; 明日阻力:=2*E-LOW; 明日支撑:=2*E-HIGH; 明日突破:=E+(HIGH-LOW); 明日反转:=E-(HIGH-LOW); 今日阻力:=REF(明日阻力 , 1); 今日支撑:=REF(明日支撑 , 1); DRAWTEXT_FIX(C!=0,0.92,0.05,0,STRCAT('今日阻力：',STRCAT(CON2STR(今日阻力,2),' 元'))),COLORFFFF00; DRAWTEXT_FIX(C!=0,0.92,0.1,0,STRCAT('今日支撑：',STRCAT(CON2STR(今日支撑,2),' 元'))),COLORRED; DRAWTEXT_FIX(C!=0,0.92,0.15,0,STRCAT('明日突破：',STRCAT(CON2STR(明日突破,2),' 元'))),COLORFF00FF; DRAWTEXT_FIX(C!=0,0.92,0.2,0,STRCAT('明日阻力：',STRCAT(CON2STR(明日阻力,2),' 元'))),COLORFFFF00; DRAWTEXT_FIX(C!=0,0.92,0.25,0,STRCAT('明日支撑：',STRCAT(CON2STR(明日支撑,2),' 元'))),COLORRED; DRAWTEXT_FIX(C!=0,0.92,0.3,0,STRCAT('明日反转：',STRCAT(CON2STR(明日反转,2),' 元'))),COLORYELLOW; {分析分析} HAN:=DATE<1301230; TT:=240/FROMOPEN; 比:=TT; 促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED; AY2:=EMA(CLOSE,12)-EMA(CLOSE,26); AZ2:=EMA(AY2,9); LT2:=(AY2-AZ2); L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT; ZGD:=HHV(H,80)*0.99; ZGD2:=CONST(ZGD); ZDD:=LLV(L211,80); ZDD2:=CONST(ZDD); YYA4:=MA(CLOSE,20); YYA5:=(CLOSE > MA(CLOSE,5)); YYA6:=(MA(CLOSE,5) > MA(CLOSE,10)); YYA7:=(CLOSE > MA(CLOSE,10)); YYA8:=(MA(CLOSE,5) > MA(CLOSE,20)); YYA9:=(CLOSE > MA(CLOSE,20)); YYA10:=REF(YYA4,1); YYA11:=(YYA4 > YYA10); YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10))); DSLX:=(CLOSE / INDEXC); DSLX1:=MA(DSLX,5); YYV1:=MA(VOL,5); YYV2:=MA(VOL,10); 情况1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)); 情况2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)); 情况3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0)); 情况4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0)); 情况9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)); 情况10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)); 大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0)); 大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0)); DRAWTEXT(情况1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,1,'量能理想,明显走强,仓位在2/3左右'),COLOR00FFFF; DRAWTEXT(情况2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,1,'走势趋强,量能不足，短线进场，仓位在1/2左右'),COLOR00FFFF; DRAWTEXT(情况3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,1,'量价良好，并没有明显走强，短线进场，仓位1/2左右。 '),COLOR00FFFF; DRAWTEXT(情况4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,1,'形态尚可，量能不足，未完全走强,短线参与，仓位1/3左右'),COLOR00FFFF; DRAWTEXT(情况9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,1,'该股形态良好，强势明显，量能充足，可以继续持有。 '),COLOR00FFFF; DRAWTEXT(情况10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,1,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险 '),COLOR00FFFF; VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'进'),LINETHICK1,COLOR0066FF; VAR1:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2; 指标王:=CROSS(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1),SMA(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1),3,1)) AND SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1)<20; DRAWTEXT(指标王,L,'建'),COLORYELLOW; DRAWTEXT(VAR1,L*0.98,'买'),COLORYELLOW; DRAWTEXT(CROSS(MA(C,3),MA(C,9)) AND C>=REF(C,1) AND C>O,L*0.98,'加'),COLORMAGENTA; DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'底'),LINETHICK2,COLORYELLOW; DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'顶'),LINETHICK2,COLORYELLOW; AH:=HHV(H,60); AL:=LLV(L,60); A0:=(AH-AL)/21; {九转}A1:=C>REF(C,4);NT:=BARSLASTCOUNT(A1);TJ11:=NT=9;TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;DRAWTEXT(AY>0,H+1.1*A0,VAR2STR(AY,0)),COLORYELLOW;DRAWTEXT(NT=9,H+1.1*A0,'9'),COLORGREEN;DRAWTEXT(NT=13,H+1.1*A0,'13'),COLORGREEN;DRAWTEXT(NT=18,H+1.1*A0,'18'),COLORGREEN;B1:=C STICKLINE(ISLASTBAR,HHV(C,5),HHV(C,5),80,1)COLORBBBBBB; STICKLINE(ISLASTBAR,HHV(C,5)*0.95,HHV(C,5)*0.95,80,1)COLORBBBBBB; {DRAWTEXT_FIX(1,0.95,0.9,0,'筹码峰 '),COLORBBBBBB;};
|
