| 提前MACD和MACD主图 macd信号提前发出： {MACD主图} ZIF:=EMA(C,12)-EMA(C,26); ZEA:=EMA(ZIF,9); ZBC:=2*(ZIF-ZEA); ZJS:=1.25*ZIF-0.25*ZEA; ZXH:=(ZJS*13*27-27*11*EMA(C,12)+13*25*EMA(C,26))/28,COLORWHITE; ZPH:=(ZIF*13*27-27*11*EMA(C,12)+13*25*EMA(C,26))/28,COLORYELLOW; ZQS:=(ZEA*13*27-27*11*EMA(C,12)+13*25*EMA(C,26))/28,COLORCYAN; ZNX:=(ZXH+ZQS)/2,COLORMAGENTA; 信号:ZXH,COLORFFFFFF,LINETHICK1; 平滑:ZPH,COLOR00FFFF,LINETHICK1; 牛熊:ZNX,COLORFF00FF,LINETHICK1; 趋势:ZQS,COLORFFFF00,LINETHICK1; DRAWKLINE(H,O,L,C); --------------------------------------------------------------- {提前MACD} DIF:=(EMA(C,3)-EMA(L,30))/EMA(L,30)*600; DEA:=EMA(DIF,7); BC:=2*(DIF-DEA); DQS:=3*DEA-2*DIF; 信号:DIF,COLORWHITE; 平滑:DEA,COLORYELLOW; 倍差:BC,COLORLIMAGENTA,NODRAW; 趋势:DQS,COLORCYAN,NODRAW; BC1:=MA(BC,2); BC2:=IF(WINNER(C*0.95)*100>50 AND COST(85)<C AND BC>=REF(BC,1),BC,DRAWNULL); QSDT:=DIF>REF(DIF,1) AND DIF>0 AND BC>BC1 AND WINNER(C*0.95)*100>50 AND COST(85)<C,NODRAW; 高度控盘:BARSLAST(QSDT=0),COLORYELLOW,NODRAW; {DRAWBAND(BC,RGB(250,250,0),MA(BC,2),RGB(0,200,250))}; STICKLINE(BC>0 AND BC>=REF(BC,1),0,BC,2.8,0),COLOR000055; STICKLINE(BC>0 AND BC>=REF(BC,1),0,BC,2.6,0),COLOR000077; STICKLINE(BC>0 AND BC>=REF(BC,1),0,BC,2.4,0),COLOR000099; STICKLINE(BC>0 AND BC>=REF(BC,1),0,BC,2.2,0),COLOR0000BB; STICKLINE(BC>0 AND BC>=REF(BC,1),0,BC,2.0,2),COLOR0000DD; STICKLINE(BC>0 AND BC>=REF(BC,1),0,BC,1.0,0),COLOR0000FF; STICKLINE(BC<0 AND BC<REF(BC,1),0,BC,2.8,0),COLORAA4400; STICKLINE(BC<0 AND BC<REF(BC,1),0,BC,2.6,0),COLORBB5500; STICKLINE(BC<0 AND BC<REF(BC,1),0,BC,2.4,0),COLORCC6600; STICKLINE(BC<0 AND BC<REF(BC,1),0,BC,2.2,0),COLORDD7700; STICKLINE(BC<0 AND BC<REF(BC,1),0,BC,2.0,2),COLOREE8800; STICKLINE(BC<0 AND BC<REF(BC,1),0,BC,1.0,0),COLORFFBB00; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,2.8,0),COLOR005500; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,2.6,0),COLOR007700; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,2.4,0),COLOR009900; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,2.2,0),COLOR00BB00; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,2.0,0),COLOR000000; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,2.0,1),COLOR00DD00; STICKLINE(BC>0 AND BC<REF(BC,1),0,BC,1.0,0),COLOR00FF00; STICKLINE(BC<0 AND BC>=REF(BC,1),0,BC,2.8,0),COLORAA0044; STICKLINE(BC<0 AND BC>=REF(BC,1),0,BC,2.6,0),COLORBB0055; STICKLINE(BC<0 AND BC>=REF(BC,1),0,BC,2.4,0),COLORCC0066; STICKLINE(BC<0 AND BC>=REF(BC,1),0,BC,2.2,0),COLORDD0077; STICKLINE(BC<0 AND BC>=REF(BC,1),0,BC,2.0,2),COLOREE0088; STICKLINE(BC<0 AND BC>=REF(BC,1),0,BC,1.0,0),COLORFF00BB; STICKLINE(BC2,0,BC2,2.8,0),COLOR0044AA; STICKLINE(BC2,0,BC2,2.6,0),COLOR0055BB; STICKLINE(BC2,0,BC2,2.4,0),COLOR0066CC; STICKLINE(BC2,0,BC2,2.2,0),COLOR0077DD; STICKLINE(BC2,0,BC2,2.0,2),COLOR0088EE; STICKLINE(BC2,0,BC2,1.0,0),COLOR00BBFF; FG:=(DIF-DEA)/6; PH1:=EMA(DIF,1); PH2:=PH1-FG*1; PH3:=PH1-FG*2; PH4:=PH1-FG*3; PH5:=PH1-FG*4; PH6:=PH1-FG*5; PH7:=EMA(DIF,7); PH8:=IF(PH1<REF(PH1,1) AND PH1<PH7,PH1,DRAWNULL); PH9:=IF(PH2<REF(PH2,1) AND PH2<PH7,PH2,DRAWNULL); PH10:=IF(PH3<REF(PH3,1) AND PH3<PH7,PH3,DRAWNULL); PH11:=IF(PH4<REF(PH4,1) AND PH4<PH7,PH4,DRAWNULL); PH12:=IF(PH5<REF(PH5,1) AND PH5<PH7,PH5,DRAWNULL); PH13:=IF(PH6<REF(PH6,1) AND PH6<PH7,PH6,DRAWNULL); PH14:=IF(PH7<REF(PH7,1),PH7,DRAWNULL); PH15:=IF(PH1>REF(PH1,1) AND PH1>PH7,PH1,DRAWNULL); PH16:=IF(PH2>REF(PH2,1) AND PH2>PH7,PH2,DRAWNULL); PH17:=IF(PH3>REF(PH3,1) AND PH3>PH7,PH3,DRAWNULL); PH18:=IF(PH4>REF(PH4,1) AND PH4>PH7,PH4,DRAWNULL); PH19:=IF(PH5>REF(PH5,1) AND PH5>PH7,PH5,DRAWNULL); PH20:=IF(PH6>REF(PH6,1) AND PH6>PH7,PH6,DRAWNULL); PH21:=IF(PH7>REF(PH7,1),PH7,DRAWNULL); DRAWBAND(PH1,RGB(250,250,0),PH1,RGB(250,250,0)); DRAWBAND(PH2,RGB(250,250,0),PH2,RGB(250,250,0)); DRAWBAND(PH3,RGB(250,250,0),PH3,RGB(250,250,0)); DRAWBAND(PH4,RGB(250,250,0),PH4,RGB(250,250,0)); DRAWBAND(PH5,RGB(250,250,0),PH5,RGB(250,250,0)); DRAWBAND(PH6,RGB(250,250,0),PH6,RGB(250,250,0)); DRAWBAND(PH7,RGB(250,250,0),PH7,RGB(250,250,0)); DRAWBAND(PH8,RGB(0,250,0),PH8,RGB(0,250,0)); DRAWBAND(PH9,RGB(0,250,0),PH9,RGB(0,250,0)); DRAWBAND(PH10,RGB(0,250,0),PH10,RGB(0,250,0)); DRAWBAND(PH11,RGB(0,250,0),PH11,RGB(0,250,0)); DRAWBAND(PH12,RGB(0,250,0),PH12,RGB(0,250,0)); DRAWBAND(PH13,RGB(0,250,0),PH13,RGB(0,250,0)); DRAWBAND(PH14,RGB(0,250,0),PH14,RGB(0,250,0)); DRAWBAND(PH15,RGB(250,0,250),PH15,RGB(250,0,250)); DRAWBAND(PH16,RGB(250,0,250),PH16,RGB(250,0,250)); DRAWBAND(PH17,RGB(250,0,250),PH17,RGB(250,0,250)); DRAWBAND(PH18,RGB(250,0,250),PH18,RGB(250,0,250)); DRAWBAND(PH19,RGB(250,0,250),PH19,RGB(250,0,250)); DRAWBAND(PH20,RGB(250,0,250),PH20,RGB(250,0,250)); DRAWBAND(PH21,RGB(250,0,250),PH21,RGB(250,0,250)); NOTEXT:DQS,COLORCYAN; DRAWICON(CROSS(DIF,DEA),DEA,42); DRAWICON(CROSS(DEA,DIF),DEA,43); 线ON涨ON量： 是关于线性、涨速和量的公式 使用方法： 提示：双线零上介入，最大限度避免套票 {线ON涨ON量} XZ:=1; MA5:=MA(VOL,5)*XZ; MA10:=MA(VOL,10)*XZ,LINETHICK2; 虚拟VOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL)*XZ,NODRAW; STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,虚拟VOL,0,-1,-1)*XZ,COLOR00C0C0; VOLUME:VOL*XZ,VOLSTICK; 量能饱和:(AMOUNT/CLOSE)/HHV((AMOUNT/CLOSE),26)*100*XZ,NODRAW; 十日换手:SUM(V/CAPITAL*100,10)*XZ; 昨换手率:REF(DYNAINFO(37),1)*XZ,NODRAW COLORGRAY; VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN))*XZ; 主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2))*XZ; 主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2))*XZ; 买卖%:-(主动买盘/主动卖盘)*XZ,NODRAW,COLORYELLOW; STICKLINE(主动买盘>0,0,主动买盘,1,0),COLORRED; STICKLINE(主动卖盘<0,VOL,主动买盘,1,0),COLOR00FF00; 换手:=VOL/CAPITAL*100*XZ,NODRAW; STICKLINE(换手>0 ,0, 主动买盘,0,0),COLORYELLOW; STICKLINE(换手>0,VOL, 主动买盘, 0,0) ,COLORRED; 内外%:(BUYVOL/SELLVOL)*XZ; 成交额增幅:(AMOUNT/REF(AMOUNT,1))*XZ,NODRAW; P:0; A:=MA(C,3); ZS:(SLOPE(C,7)/C*10)*VOLUME*7,COLORGREEN,LINETHICK2; BZS:=ZS<REF(ZS,1); IF(BZS-1,ZS,DRAWNULL),COLORRED,LINETHICK2; MZS:(SLOPE(A,9)/A*10)*VOLUME*7,COLORWHITE,LINETHICK2; BMZS:=MZS<REF(MZS,1); {股票学院} IF(BMZS-1,MZS,DRAWNULL),COLORCYAN,LINETHICK2; DRAWICON(ZS>REF(ZS,1) AND ZS<0 AND ZS<MZS,ZS,1); DRAWTEXT((ZS>REF(ZS,1) AND ZS>0 AND ZS<MZS),ZS,'↖②'),COLORYELLOW; 筹码附图 筹码主升 筹码主图 与主力生死，公式不加密 一个主图，3个副图，一起配合使用，效果不错 筹码主图用法介绍(顶尖财经:股票学院 http://www.58188.com)： 1.股价高于平均线，视为强势；股价低于平均线，视为弱势 2.平均线向上涨升，具有助涨力道；平均线向下跌降，具有助跌力道； 3.二条以上平均线向上交叉时，买进； 4.二条以上平均线向下交叉时，卖出； 5.移动平均线的信号经常落后股价，若以EXPMA 、VMA 辅助，可以改善。 源码： W00:=COST(1); W10:=COST(10); W20:=COST(20); W30:=COST(30); W40:=COST(40); W50:=COST(50); W60:=COST(60); W70:=COST(70); W80:=COST(80); W90:=COST(90); W100:=COST(99); W5:=COST(5); W15:=COST(15); W25:=COST(25); W35:=COST(35); W45:=COST(45); W55:=COST(55); W65:=COST(65); W75:=COST(75); W85:=COST(85); W95:=COST(95); C5:=W5-W00; C10:=W10-W5; C15:=W15-W10; C20:=W20-W15; C25:=W25-W20; C30:=W30-W25; C35:=W35-W30; C40:=W40-W35; C45:=W45-W40; C50:=W50-W45; C55:=W55-W50; C60:=W60-W55; C65:=W65-W60; C70:=W70-W65; C75:=W75-W70; C80:=W80-W75; C85:=W85-W80; C90:=W90-W85; C95:=W95-W90; C100:=W100-W95; 筹宽:=W100-W00; J90:=W90-W60; J80:=W80-W50; J70:=W70-W40; J60:=W60-W30; J50:=W50-W20; J40:=W40-W10; J30:=W30-W00; STICKLINE(J90/筹宽<0.08,W90,W60,4,0),COLORBLUE; STICKLINE(J80/筹宽<0.08,W80,W50,4,0),COLORBLUE; STICKLINE(J70/筹宽<0.08,W70,W40,4,0),COLORBLUE; STICKLINE(J60/筹宽<0.08,W60,W30,4,0),COLORBLUE; STICKLINE(J50/筹宽<0.08,W50,W20,4,0),COLORBLUE; STICKLINE(J40/筹宽<0.08,W40,W10,4,0),COLORBLUE; JJ90:=W90-W70; JJ80:=W80-W60; JJ70:=W70-W50; JJ60:=W60-W40; JJ50:=W50-W30; JJ40:=W40-W20; JJ30:=W30-W10; STICKLINE(JJ90/筹宽<0.05,W90,W70,4,0),COLORBROWN; STICKLINE(JJ80/筹宽<0.05,W80,W60,4,0),COLORBROWN; STICKLINE(JJ70/筹宽<0.05,W70,W50,4,0),COLORBROWN; STICKLINE(JJ60/筹宽<0.05,W60,W40,4,0),COLORBROWN; STICKLINE(JJ50/筹宽<0.05,W50,W30,4,0),COLORBROWN; STICKLINE(JJ40/筹宽<0.05,W40,W20,4,0),COLORBROWN; STICKLINE(JJ30/筹宽<0.05,W30,W10,4,0),COLORBROWN; ZX:=MIN(C5,MIN(C10,MIN(C15,MIN(C20,MIN(C25,MIN(C30,MIN(C35,MIN(C40,MIN(C45,MIN(C50,MIN(C55,MIN(C60,MIN(C65,MIN(C70,MIN(C75,MIN(C80,MIN(C85,MIN(C90,MIN(C95,C100))))))))))))))))))); STICKLINE(ZX=C5,W00,W5,3,0),COLORGRAY; STICKLINE(ZX=C10,W10,W5,3,0),COLORGRAY; STICKLINE(ZX=C15,W15,W10,3,0),COLORGRAY; STICKLINE(ZX=C20,W20,W15,3,0),COLORGRAY; STICKLINE(ZX=C25,W25,W20,3,0),COLORGRAY; STICKLINE(ZX=C30,W30,W25,3,0),COLORGRAY; STICKLINE(ZX=C35,W35,W30,3,0),COLORGRAY; STICKLINE(ZX=C40,W40,W35,3,0),COLORGRAY; STICKLINE(ZX=C45,W45,W40,3,0),COLORGRAY; STICKLINE(ZX=C50,W50,W45,3,0),COLORGRAY; STICKLINE(ZX=C55,W55,W50,3,0),COLORGRAY; STICKLINE(ZX=C60,W60,W55,3,0),COLORGRAY; STICKLINE(ZX=C65,W65,W60,3,0),COLORGRAY; STICKLINE(ZX=C70,W70,W65,3,0),COLORGRAY; STICKLINE(ZX=C75,W75,W70,3,0),COLORGRAY; STICKLINE(ZX=C80,W80,W75,3,0),COLORGRAY; STICKLINE(ZX=C85,W85,W70,3,0),COLORGRAY; STICKLINE(ZX=C90,W90,W85,3,0),COLORGRAY; STICKLINE(ZX=C95,W95,W90,3,0),COLORGRAY; STICKLINE(ZX=C100,W100,W95,3,0),COLORGRAY; DRAWKLINE(H,O,L,C); Z1:=STRCAT(HYBLOCK,' '); Z2:=STRCAT(Z1,FGBLOCK); Z3:=STRCAT(Z2,DYBLOCK); Z4:=STRCAT(Z3,' '); DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORCYAN; {涨跌提示} 涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0); STICKLINE(涨停,OPEN,CLOSE,1.5,0),COLORYELLOW; 跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0); STICKLINE(跌停,OPEN,CLOSE,1.5,0),COLORGREEN; VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3; VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60))); 短线:=MA(CLOSE,13),COLORRED,LINETHICK3; VAR12:=(HIGH - LOW); VAR3:=ABS((OPEN - CLOSE)); VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN)); VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW); VAR6:=((VAR3 / VAR12) * VOL); VAR7:=((VAR4 / VAR12) * VOL); VAR8:=((VAR5 / VAR12) * VOL); AACC:=(((((VAR6 > (MA(VOL,5) * 2)) AND 短线>REF(短线 ,1) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL >(MA(VOL,5) * 3)) AND VARB)); BBCC:=C>O; 一字涨停:=CLOSE>REF(CLOSE,1)*1.095 AND L=H; 去一字涨停:=NOT(一字涨停); BBDD:=AACC AND BBCC AND 涨停 AND 去一字涨停; DRAWTEXT(BBDD,L*1,'↖猛虎'),COLORYELLOW; H0:="MACD.MACD"; H3:=REF(H0,3); H2:=REF(H0,2); H1:=REF(H0,1); MA13:=MA(C,13); MA20:=MA(C,20); AA:=H1>0 AND MA13>MA20 AND H3>H2 AND H2>H1 AND H0>H1 AND "MACD.DIF">0 AND "MACD.DEA">0; AA1:=C/REF(C,1)>1.03 AND (H-C)/C*100<0.5; CC:=AA AND AA1 ; DRAWTEXT(CC,L*0.86,'↖强势起爆'),COLORYELLOW; |