【云天之上】红绿黄兵团套装一主图三副图通达信指标主图 N:=14; P1:=7; 净利增长:=FINANCE(43); 扣非每股收益:=FINANCE(38)-(FINANCE(30)-FINANCE(54))/FINANCE(1); 收入增长:=FINANCE(44); 负债率:=FINANCE(9); 净资产收益率:=FINANCE(29)/FINANCE(19)*100; DRAWTEXT_FIX(C>0,0.05,0,0,GNBLOCK),COLORWHITE; DRAWTEXT_FIX(C>0,0,0,0,HYBLOCK),COLORWHITE; DRAWTEXT_FIX(C>0,0.0,0.05,0,'净利增长----收入增长-:'),COLORWHITE; DRAWNUMBER_FIX(C>0,0,0.1,0,净利增长),COLORWHITE; DRAWNUMBER_FIX(C>0,0.05,0.1,0,收入增长),COLORWHITE; DRAWTEXT_FIX(C>0,0.1,0.05,0,'负债率----净资产收益率:'),COLORWHITE; DRAWNUMBER_FIX(C>0,0.1,0.1,0,负债率),COLORWHITE; DRAWNUMBER_FIX(C>0,0.15,0.1,0,净资产收益率),COLORWHITE; DRAWTEXT_FIX(C>0,0,0.15,0,'扣非收益:'),COLORWHITE; DRAWNUMBER_FIX(C>0,0.05,0.15,0,扣非每股收益),COLORWHITE; 核心K线:=V/REF(V,1)>=1.91 AND C>REF(C,1) AND C>O; TT:=V=HHV(V,21); BBL:=核心K线 AND TT; BL:=FILTER(BBL,2); K1:=SUMBARS(BL,1); STICKLINE(K1,REFV(C,K1-1),REFV(C,K1-1),1,0),COLORYELLOW; STICKLINE(K1,REFV(L,K1-1),REFV(L,K1-1),1,0),COLORCYAN; STICKLINE(BL,OPEN,CLOSE,2,0)COLOR0035FF; STICKLINE(BL,OPEN,CLOSE,1.8,0)COLOR0064FF; STICKLINE(BL,OPEN,CLOSE,1.3,0)COLOR0093FF; STICKLINE(BL,OPEN,CLOSE,0.8,0)COLOR00C2FF; STICKLINE(BL,OPEN,CLOSE,0.3,0)COLOR00FFFF; 止损:=REF(C,1)>REFV(L,K1-1) AND C< REFV(L,K1-1),COLORGREEN,NODRAW; STICKLINE(止损,O,C,2,0),COLOR005500; STICKLINE(止损,O,C,2.8,0),COLOR007700; STICKLINE(止损,O,C,2.4,0),COLOR009900; STICKLINE(止损,O,C,2.0,0),COLOR00AA00; STICKLINE(止损,O,C,1.6.5,0),COLOR00BB00; STICKLINE(止损,O,C,1.2,0),COLOR00CC00; STICKLINE(止损,O,C,1.0,0),COLOR00DD00; STICKLINE(止损,O,C,0.6,0),COLOR00EE00; STICKLINE(止损,O,C,0.2,0),COLOR00FF00; STICKLINE(止损,H,L,0,0),COLOR00FF00; 强势线:IF(PERIOD=5 ,EMA(H,N),EMA(H,10)),COLORYELLOW,POINTDOT; 底线:IF(PERIOD=5 ,EMA(L,N),EMA(L,10)),COLORYELLOW,,POINTDOT; DRAWTEXT_FIX( C>=底线,0.08,0.15,0,'秘诀:建仓宜找线上阴,持股可追突破阳!进退有据,保本第一!!!'),COLORYELLOW; IF(底线< REF(底线,1),底线,DRAWNULL),COLORGREEN,,POINTDOT; IF(强势线< REF(强势线,1),强势线,DRAWNULL),COLORGREEN,POINTDOT; WVAR1:=C>REF(C,1)AND C>REF(C,2); WVAR2:=REF(WVAR1,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR3:=REF(WVAR2,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR4:=REF(WVAR3,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR5:=REF(WVAR4,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR6:=REF(WVAR5,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR7:=REF(WVAR6,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR8:=REF(WVAR7,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR9:=REF(WVAR8,1)AND C>=REF(C,1)AND C<=REF(C,2); WVARA:=REF(WVAR9,1)AND C<=REF(C,1)AND C>=REF(C,2); WVARB:=REF(WVARA,1)AND C>=REF(C,1)AND C<=REF(C,2); WVARC:=REF(WVARB,1)AND C<=REF(C,1)AND C>=REF(C,2); WVARD:=C< REF(C,1)AND C< REF(C,2); WVARE:=REF(WVARD,1)AND C>=REF(C,1)AND C<=REF(C,2); WVARF:=REF(WVARE,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR10:=REF(WVARF,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR11:=REF(WVAR10,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR12:=REF(WVAR11,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR13:=REF(WVAR12,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR14:=REF(WVAR13,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR15:=REF(WVAR14,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR16:=REF(WVAR15,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR17:=REF(WVAR16,1)AND C<=REF(C,1)AND C>=REF(C,2); WVAR18:=REF(WVAR17,1)AND C>=REF(C,1)AND C<=REF(C,2); WVAR19:=REF(WVARD OR WVARE OR WVARF OR WVAR10 OR WVAR11 OR WVAR12 OR WVAR13 OR WVAR14 OR WVAR15 OR WVAR16 OR WVAR17 OR WVAR18,1) AND WVAR1; WVAR1A:=REF(WVAR1 OR WVAR2 OR WVAR3 OR WVAR4 OR WVAR5 OR WVAR6 OR WVAR7 OR WVAR8 OR WVAR9 OR WVARA OR WVARB OR WVARC,1) AND WVARD; BTSTS:=BARSLAST(WVAR19); 红:=WVAR1 OR WVAR2 OR WVAR3 OR WVAR4 OR WVAR5 OR WVAR6 OR WVAR7 OR WVAR8 OR WVAR9 OR WVARA OR WVARB OR WVARC; VOLUME:=VOL,VOLSTICK; MAVOL1:=MA(VOLUME,5); MAVOL2:=MA(VOLUME,10); STICKLINE( VOL>=REF(VOL,1) AND WVAR19 AND L>=REF(C,1) ,REF(C,1),REF(C,2),2.1,0),COLORYELLOW; STICKLINE( VOL>=REF(VOL,1) AND WVAR19 AND L< REF(C,1) ,L,REF(C,1),2.1,0),COLORYELLOW; STICKLINE( VOL>=REF(VOL,1) AND WVAR19 AND L< REF(C,1) AND C/REF(C,1)>1.045 ,L,REF(H,1),2.1,0),COLORYELLOW; FZTS:=BARSLAST(WVAR19); STICKLINE(ISLASTBAR ,IF(REF(L,FZTS+1)< REF(L,FZTS+2),REF(L,FZTS+1),REF(L,FZTS+2)),IF(REF(L,FZTS+1)< REF(L,FZTS+2),REF(L,FZTS+1),REF(L,FZTS+2)),100,0),LINETHICK4,COLORFF00FF; STICKLINE(ISLASTBAR ,IF(REF(L,FZTS+1)< REF(L,FZTS+2),REF(H,FZTS+1),REF(H,FZTS+2)),IF(REF(L,FZTS+1)< REF(L,FZTS+2),REF(H,FZTS+1),REF(H,FZTS+2)),100,0),LINETHICK4,COLORFF00FF; ZL:=IF(REF(L,FZTS+1)< REF(L,FZTS+2),REF(L,FZTS+1),REF(L,FZTS+2)); ZH:=IF(REF(H,FZTS)< REF(H,FZTS+1),REF(H,FZTS+1),REF(H,FZTS)); DRAWICON((CROSS(C,ZH) AND VOL=HHV(VOL,3) AND C>=底线 OR CROSS(C,底线) OR CROSS(C,强势线)) AND VOL>=MAVOL1 AND L>REF(L,1)AND O<=C,ZH,26),COLORYELLOW; DRAWTEXT(CROSS(ZH,C) AND C< REF(C,1) AND C< 底线,L,'空'),COLORYELLOW; DRAWTEXT(CROSS(ZH,C) AND C< REF(C,2) AND C>=底线,REF(C,2),'抛'),COLORGREEN; DRAWTEXT(H>REF(H,1) AND C< REF(C,1) AND C>=底线 AND C< REF(O,1),H,'抛'),COLORYELLOW; DRAWTEXT(H>REF(H,1) AND C>REF(C,1) AND L< REF(L,1) AND C>=底线 AND C< O,H,'抛'),COLORGREEN; DRAWTEXT(CROSS(ZH,C) AND C>=REF(C,2) AND C>=底线 AND C< REF(C,1),H,'洗'),COLORYELLOW; DRAWTEXT(CROSS(C,ZH) AND C>REF(H,1) AND L>REF(L,1) AND O<=C,REF(H,1),'↑'),COLORYELLOW; DRAWTEXT(L<=底线 AND C>=底线 OR L<=强势线 AND C>=强势线,L,'↑'),COLORYELLOW; DRAWTEXT(CROSS(C,底线) AND H>REF(C,1),L,'↑'),COLORYELLOW; DRAWTEXT(L< 底线 AND H>REF(C,1) AND C>=底线,L,'↑'),COLORYELLOW; DRAWLINE(CROSS(C,ZH),ZH,REF(CROSS(C,ZH),1),REF(ZH,1),1),COLORYELLOW; STICKLINE(WVAR1A AND H<=REF(H,1),REF(C,1),REF(H,1),2.1,0)COLORBLUE; STICKLINE(WVAR1A AND H>REF(H,1) ,H,REF(C,1),2.1,0)COLORBLUE; A11:=C>=REF(C,4); NT:=BARSLASTCOUNT(A11); 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.02,VAR2STR(AY,0)),COLORFF00FF; DRAWTEXT( NT=9,H*1.02,'9'),COLORGREEN; DRAWTEXT( NT>9,H*1.02,'+'),COLORYELLOW; B11:=C<=REF(C,4); NT0:=BARSLASTCOUNT(B11); TJ21:=NT0=9 ; TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8); AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0; DRAWTEXT( AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF; DRAWTEXT( NT0=9,L*0.98,'9'),COLORGREEN; DRAWTEXT( NT0=9,L*0.98,'9'),COLORGREEN; DRAWTEXT( NT0>9,L*0.98,'+'),COLORYELLOW; PH:=TROUGHBARS(2,P1,1); LL:=HHV(H,PH); TJ1:= LL=HIGH AND LL< REF(LL,1); TS:=SUMBARS(TJ1,2); TJ:=PEAKBARS(2,P1,1)=1 AND TS>=PH; 警告灯:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORYELLOW; PL:=BARSLAST(TJ); 支撑:=IF(PERIOD>=5 AND BARSLAST(TJ1),REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5; 压力:=IF(PERIOD>=5 AND BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW; DRAWICON(CROSS(C,REF(HIGH,PL)),L,1); DRAWTEXT(CROSS(REF(HIGH,PL),C),H,'抛'),COLORGREEN; DRAWTEXT(CROSS(H,REF(HIGH,PL)) AND C< REF(HIGH,PL),H,'抛'),COLORGREEN; STICKLINE(CURRBARSCOUNT AND C>=REF(C,1),C,C,4,1),COLORRED; STICKLINE(CURRBARSCOUNT AND C< REF(C,1),C,C,4,1),COLORGREEN; 量比: DYNAINFO(17),NODRAW; 获利:WINNER(C)*100,,NODRAW; 副图1 DIF60:=EMA(CLOSE,12/4)-EMA(CLOSE,26/4); DEA60:=EMA(DIF60,9/2); STICKLINE(DIF60>=DEA60,42,46,2,0),COLORFF5500; STICKLINE(DIF60<DEA60,42,46,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,44,'60分钟MACD'),COLORWHITE; DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); STICKLINE(DIF>=DEA,36,40,2,0),COLOR0000BB; STICKLINE(DIF<DEA,36,40,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,38,'MACD日线'),COLOR00FFFF; 周MD:=MACD.DIF#WEEK; 周MA:=MACD.DEA#WEEK; STICKLINE(周MD>=周MA,30,34,2,0),COLORBB00BB; STICKLINE(周MD<周MA,30,34,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,32,'MACD周线'),COLOR00FFFF; 月MD:=MACD.DIF#MONTH; 月MA:=MACD.DEA#MONTH; STICKLINE(月MD>=月MA,24,28,2,0),COLOR009F00; STICKLINE(月MD<月MA,24,28,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,26,'月MACD'),COLORWHITE; RSV60:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36)); K60:=SMA(RSV60,3,1); D60:=SMA(K60,3,1); STICKLINE(K60>= D60,18,22,2,0),COLOR00FFFF; STICKLINE(K60 < D60,18,22,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,20,'60分钟KDJ '),COLORFF00FF; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)); K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; STICKLINE(K>=D,12,16,2,0),COLOR9F9F6F; STICKLINE(K<D,12,16,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,14,'KDJ日线'),COLORFFFFFF; 周K:="KDJ.K#WEEK" ; 周D:="KDJ.D#WEEK" ; STICKLINE(周K>=周D,6,10,2,0),COLOR4D4DFF; STICKLINE(周K<周D,6,10,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,8,'KDJ周线'),COLORWHITE; 月K:="KDJ.K#MONTH" ; 月D:="KDJ.D#MONTH" ; STICKLINE(月K>=月D,0,4,2,0),COLORFF00FF; STICKLINE(月K<月D,0,4,3,1),COLOR696969; DRAWTEXT(CURRBARSCOUNT=13,2,'KDJ月线'),COLORWHITE; XG1:=DIF60>=DEA60; XG2:=DIF>=DEA; XG3:=周MD>=周MA; XG4:=月MD>=月MA; XG5:=K60>= D60; XG6:=K>=D; XG7:=周K>=周D; XG8:=月K>=月D; XG9:=XG1 AND XG2 AND XG3 AND XG4 AND XG5 AND XG6 AND XG7 AND XG8; XGE:=XG1 + XG2 + XG3 + XG4 + XG5 + XG6 + XG7 + XG8; STICKLINE(1,48,52,3,1),COLOR696969; DRAWNUMBER(1,52,XGE),COLORLIGRAY; DRAWNUMBER(XGE=8,52,XGE),COLORMAGENTA; XG:REF(XG9,1)<>1 AND XG9=1,NODRAW; STICKLINE(XG,0,46,0,0),COLORRED; 副图2 A:=MAX(MA(C,13),MA(C,34)); B:=MIN(MA(C,13),MA(C,34)); 绿买:C>A,COLORGREEN; 红停:C<B,COLORRED; 黄观望:A>=C AND C>=B,COLORYELLOW ; STICKLINE(C>A,0,2,8,0),COLOR008800,LINETHICK2; STICKLINE(C<B,0,2,8,0),COLORRED,LINETHICK2; STICKLINE(A>=C AND C>=B,0,2,8,0),COLORYELLOW,LINETHICK2; 副图3 DRAWGBK(CLOSE>0,RGB(0,108,108),RGB(88,0,0),0,5,0); X_1:=IF(DATE<2342.459961*500,1,1); X_2:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20; X_3:=2*ABS(X_2); X_4:=100-(100-3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1),15,1)); X_5:=100-(100-3*SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1),15,1)); X_6:=(HIGH+LOW+CLOSE)/3; X_7:=(X_6-MA(X_6,10))/(0.015*AVEDEV(X_6,10)); X_8:=(X_6-MA(X_6,30))/(0.015*AVEDEV(X_6,30)); X_9:=IF(X_7>=150 AND X_7<200 AND X_8>=150 AND X_8<200,10,0); X_10:=IF(X_7<=(-150) AND X_7>(-200) AND X_8<=(-150) AND X_8>(-200),(-10),X_9)*X_1; X_11:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100; X_12:=100-ABS(X_11); X_13:=3*SMA((INDEXC-LLV(INDEXL,55))/(HHV(INDEXH,55)-LLV(INDEXL,55))*100,20,1)-2*SMA(SMA((INDEXC-LLV(INDEXL,55))/(HHV(INDEXH,55)-LLV(INDEXL,55))*100,20,1),15,1); X_14:=3*SMA((INDEXO-LLV(INDEXL,55))/(HHV(INDEXH,55)-LLV(INDEXL,55))*100,20,1)-2*SMA(SMA((INDEXO-LLV(INDEXL,55))/(HHV(INDEXH,55)-LLV(INDEXL,55))*100,20,1),15,1); X_15:=REF(LOW,1)*0.9; X_16:=LOW*0.9; X_17:=(X_16*VOL+X_15*(CAPITAL-VOL))/CAPITAL; X_18:=EMA(X_17,30); X_19:=X_18-CLOSE; X_20:=REF(CLOSE,1); X_21:=SMA(MAX(CLOSE-X_20,0),7,1)/SMA(ABS(CLOSE-X_20),7,1)*100; X_22:=SMA(MAX(CLOSE-X_20,0),13,1)/SMA(ABS(CLOSE-X_20),13,1)*100; X_23:=BARSCOUNT(CLOSE); X_24:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100; X_25:=((-100)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+50)*2; X_26:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; X_27:=(SMA(X_26,4,1)-50)*2; X_28:=SMA(X_27,3,1); X_29:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100; X_30:=SMA(X_29,4,1); X_31:=SMA(X_30,3,1); X_32:=(HHV(HIGH,30)-CLOSE)/CLOSE*100; X_33:=1; X_34:=IF(X_24<=25 AND X_25<(-95) AND X_32>20 AND X_28<(-30) AND X_31<30 AND X_19>=(-0.25) AND X_21<22 AND X_22<28 AND X_23>50,80,0)*X_1 AND CLOSE>1; 底部天云:X_34 AND X_33,STICK,COLORBLUE,LINETHICK2; 。。。。。。源码结束明天再见。。。。。。。。。。。。。。。。。。 |
|
来自: 量学粉丝团 > 《公众号 通达信指标爱好者》