DRAWGBK(C>0, RGB(00,00,00),RGB(54,0,0),0,'11',0); Z1:=STRCAT(HYBLOCK,'----'); Z2:=STRCAT(Z1,FGBLOCK); Z3:=STRCAT(Z2,DYBLOCK); Z4:=STRCAT(Z3,'----'); DRAWTEXT_FIX(1,0.00,0.06,0,CLOSE)COLORCYAN; MA1:=EMA(C,8); MA2:=EMA(C,48); MA3:=EMA(C,34); MA4:=EMA(C,7); MA5:=EMA(C,20); MA6:=EMA(C,10); DIFF:=EMA(CLOSE,5)-EMA(CLOSE,13); DEA:=EMA(DIFF,9); {生命线} N1:=BARSLAST(CROSS(DIFF,DEA))+1;{最近一次满足条件DIFF上穿DEA的K线到当前的距离} N2:=BARSLAST(CROSS(DEA,DIFF))+1;{最近一次满足条件DIFF下穿DEA的K线到当前的距离} {当前是DIFF>DEA的状态,连结最近两个DIFF>DEA区间(不包含当前区间)内最高点的趋势线} A1:=BACKSET(ISLASTBAR && N1<N2,REF(REF(HHVBARS(H,N1)+1,N2),N2)+REF(N2,N2)+N2); B1:=BACKSET(ISLASTBAR && N1<N2,REF(HHVBARS(H,N1),N2)+N2+1); {当前是DIFF>DEA的状态,连结最近两个DIFF<DEA区间内最低点的趋势线} A2:=BACKSET(ISLASTBAR && N1<N2,REF(REF(LLVBARS(L,N2)+1,N1),N2)+REF(N1,N2)+N2); B2:=BACKSET(ISLASTBAR && N1<N2,REF(LLVBARS(L,N2)+1,N1)+N1); {当前是DIFF<DEA的状态,连结最近两个DIFF<DEA区间(不包含当前区间)内最低点的趋势线} A3:=BACKSET(ISLASTBAR && N1>N2,REF(REF(LLVBARS(L,N2)+1,N1),N1)+REF(N1,N1)+N1); B3:=BACKSET(ISLASTBAR && N1>N2,REF(LLVBARS(L,N2),N1)+N1+1); {当前是DIFF<DEA的状态,连结最近两个DIFF>DEA区间内最高点的趋势线} A4:=BACKSET(ISLASTBAR && N1>N2,REF(REF(HHVBARS(H,N1)+1,N2),N1)+REF(N2,N1)+N1); B4:=BACKSET(ISLASTBAR && N1>N2,REF(HHVBARS(H,N1)+1,N2)+N2); 力:(ATAN((EMA(C,4)/REF(EMA(C,47),1)-1)*100)*180/3.1415926),NODRAW,COLORWHITE; 命:(ATAN((EMA(C,47)/REF(EMA(C,47),1)-1)*100)*180/3.1415926),NODRAW,,COLOR0080FF; DRAWTEXT(命>1.5,LOW,'☆'),COLOR0080FF; {生命线结束} {估值开始} JZCSYL:=FINANCE(33)/ FINANCE(34)*100; ZCBS:=IF(JZCSYL>50,8,IF(50>JZCSYL>=14,2.2+(JZCSYL-14)*0.16, 2.2+(JZCSYL-14)* 0.15)); LTP:=CAPITAL; LTPBS:=IF(LTP<1000000,(1000000-LTP)/1000000,0); 股价估值: FINANCE(34)*(ZCBS+LTPBS)*4,COLORRED,NODRAW; {估值结束} {盈利} 盈利:FINANCE(30)/100000000,NODRAW; 上市天数:FINANCE(42),COLORYELLOW,NODRAW; 同比增加:FINANCE(43),COLORRED,NODRAW; 收盘价:CLOSE,NODRAW; {盈利结束} STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,H ,L-0.01 ,0 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2,0 )COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORRED; STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2.0 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORYELLOW; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORRED; STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORGREEN; STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORYELLOW; STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORYELLOW; STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1.5 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORRED; STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORMAGENTA; STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORMAGENTA; STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1.5 ,0 ),COLORMAGENTA; STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORMAGENTA; STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORMAGENTA; VOLUME:=MA(VOL,1)/VOL; MID:=100*(HIGH+LOW-REF(HIGH+LOW,1))/(HIGH+LOW); EMV:=MA(MID*VOLUME*(HIGH-LOW)/MA(HIGH-LOW,9),9); EMVA:=MA(EMV,14); BB:=EMV-EMVA; BIAS :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100; BIASMA :=MA(BIAS,6); CC:=BIAS-BIASMA; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; DD:=(K+D+J)/3; KK:=J-DD; DIFF2:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA2:=EMA(DIFF2,9); SS:=DIFF2-DEA2; AA:=MA(BB+CC+KK+SS,1)*0.01; DRAWTEXT(CROSS(AA,0),L*0.95,'B'),LINETHICK4,COLORWHITE,NODRAW; DRAWTEXT(CROSS(0,AA),H*1.06,'S'),LINETHICK4,COLORGREEN,NODRAW; NOTEXT4:EMA(C,4),COLORWHITE; NOTEXT8:EMA(C,8),COLORYELLOW; NOTEXT20:EMA(C,12),COLOR8000FF,NODRAW; NOTEXT47:EMA(C,47),COLOR0080FF,LINETHICK2; DRAWICON(CROSS(NOTEXT4,NOTEXT8),LOW,34); DRAWICON(CROSS(NOTEXT8,NOTEXT4),HIGH,35); DRAWICON(CROSS(NOTEXT4,NOTEXT47),LOW,9); LC:=REF(CLOSE,1); RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100); TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10); HA:=(HIGH - REF(HIGH,1)); LA:=(REF(LOW,1) - LOW); DMP:=SUM(IF(((HA > 0) AND (HA > LA)),HA,0),10); DMM:=SUM(IF(((LA > 0) AND (LA > HA)),LA,0),10); PDI:=((DMP * 100) / TR1); MDI:=((DMM * 100) / TR1); ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5); AV:=(RSI5 + ADX); DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5); WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10))); NEWVOL:=(RSI5 - WR10); 买:=(AV + NEWVOL); 卖:=(AV - NEWVOL); MA10:=MA(CLOSE,3); MA20:=MA(CLOSE,5); X:=BARSLAST(CROSS(MA10,MA20)); ![通达信四色谱指数平主图指标公式](http://image109.360doc.com/DownloadImg/2020/10/3020/206001533_1_20201030083509587.jpg)
四色谱指数平主图之黄圈红箭头选股指标公式 NOTEXT4:=EMA(C,4); NOTEXT8:=EMA(C,8); 黄圈红箭头:CROSS(NOTEXT4,NOTEXT8);
四色谱指数平主图之钱袋选股指标公式 NOTEXT4:=EMA(C,4); NOTEXT47:=EMA(C,47); 钱袋:CROSS(NOTEXT4,NOTEXT47);
|