通达信操盘乾坤主图

源码

{安全建仓区}
RSV1:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
 K11:=SMA(RSV1,3,1);
 D11:=SMA(K11,3,1);
 TJ:=D11<10;
 TJ1:=D11>90;
安上线:IF(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ)),DRAWNULL),COLORWHITE,NODRAW;
安下线:IF(BARSLAST(TJ),REF(LOW,BARSLAST(TJ)),DRAWNULL),COLORWHITE,NODRAW;
安全带:STICKLINE(D11,安上线*0.996,安下线*1.005,8,0),COLORBROWN;
 TY:=C;
 HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
 LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
 A:=REF(C,BARSLAST(HD));
 B:=REF(C,BARSLAST(LD));
 T1:=BARSLAST(HD)  T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
浪顶:IF(T1,A,A),COLORFF00FF,DOTLINE;
前高:REF(H,BARSLAST(HD)),COLORFF00FF;
 {STICKLINE(T1,A,A,9,0),COLORFF00FF;}
浪底:IF(T2,B,B)COLORGREEN,DOTLINE;
前低:REF(L,BARSLAST(LD)),LINETHICK1,COLORGREEN;
 DRAWBAND(前高,RGB(030,100,030),浪顶,DRAWNULL);
 DRAWBAND(浪底,RGB(100,00,45),前低,DRAWNULL);

 {周框}
ZD:=DATE#WEEK;
 ZH:=H#WEEK;
 ZL:=L#WEEK;
 K0:=ZD>REF(ZD,1) OR BARSSINCE(C)=0;
 K1:=REFX(K0,1) OR ISLASTBAR;
 S1:=MOD(SUM(K0,0),2);
 N1:=20;
 S2:=BACKSET(ISLASTBAR,SUMBARS(K0,N1));
 STICKLINE((K0 OR K1) AND S2,ZH,ZL,0,-1),COLORFFFFFF;
 DRAWLINE(K0 AND S1=1 AND S2,ZH,K1 AND S1=1 AND S2,ZH,0),COLORFFFFFF;
 DRAWLINE(K0 AND S1=1 AND S2,ZL,K1 AND S1=1 AND S2,ZL,0),COLORFFFFFF;
 DRAWLINE(K0 AND S1=0 AND S2,ZH,K1 AND S1=0 AND S2,ZH,0),COLORFFFFFF;
 DRAWLINE(K0 AND S1=0 AND S2,ZL,K1 AND S1=0 AND S2,ZL,0),COLORFFFFFF;
 {趋势+趋势K}
 SJTJ:=DATE<1590301;
 MAH:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;
 MAL:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;
 MA5:=MA(CLOSE,5);
 MA10:=MA(CLOSE,10);
 MA20:=MA(CLOSE,20);
 MA60:=MA(CLOSE,60);
 DK:= SJTJ AND( CLOSE>=MAH OR (C>MA5 AND C>MA10 AND C>MA20 AND C>MA60));
 KK:= SJTJ AND( MAL>CLOSE OR (C  DK1:=BARSLAST(DK);
 KK1:=BARSLAST(KK);
 DK2:=BARSLAST(CROSS(KK1,DK1));
 KK2:=BARSLAST(CROSS(DK1,KK1));
 HS:=DK2  LS:=KK2  W2:=OPEN-CLOSE;
 HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
 LT:=IF(OPEN  {趋升K}
 STICKLINE(W2>0 AND HS,OPEN,CLOSE,2,0),COLORRED;
 STICKLINE(W2>0 AND HS,OPEN,H,0.0,0),COLORRED;
 STICKLINE(W2>0 AND HS,C,L,0.0,0),COLORRED;
 STICKLINE(W2<=0 AND HS,OPEN,CLOSE,2,1),COLORRED;
 STICKLINE(W2<=0 AND HS,O,L,0.0,0),COLORRED;
 STICKLINE(W2<=0 AND HS,C,H,0.0,0),COLORRED;
 {趋降K}{www.guhai.com.cn}
 STICKLINE(W2>0 AND LS,OPEN,CLOSE,2,0)COLORCYAN;
 STICKLINE(W2>0 AND LS,OPEN,H,0.0,0)COLORCYAN;
 STICKLINE(W2>0 AND LS,C,L,0.0,0)COLORCYAN;
 STICKLINE(W2<=0 AND LS,OPEN,CLOSE,2,1)COLORCYAN;
 STICKLINE(W2<=0 AND LS,C,H,0.0,0)COLORCYAN;
 STICKLINE(W2<=0 AND LS,O,L,0.0,0)COLORCYAN;

DRAWNUMBER(ISLASTBAR AND LS,MAH,MAH),COLORYELLOW;
 DRAWNUMBER(ISLASTBAR AND HS,MAL,MAL),COLORYELLOW;
最新价:IF(SJTJ, C,DRAWNULL),LINETHICK0,COLORYELLOW;
趋势线:=(MAH+MAL)/2 COLORGREEN,LINETHICK1;
趋升:IF(HS,趋势线,DRAWNULL),LINETHICK1,COLORYELLOW;
趋降:IF(LS,趋势线,DRAWNULL),LINETHICK1,COLORCYAN;
 DRAWTEXT_FIX(ISLASTBAR,0,0,0,ZDBLOCK),COLORYELLOW;
 {非常棒}
EMA13:=EMA(C,13),COLORWHITE;
 EMA21:=EMA(C,21),COLORYELLOW;
 EMA34:=EMA(C,34),COLORFF00FF;
 EMA60:=MA(C,60),COLORFFCC66;
 VAR2:=(2*CLOSE+HIGH+LOW)/4;
 VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
 VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3;
 DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.05,'←买'),COLORLIRED;
 DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H+0.05,'←抛'),COLORGREEN;
 VAR9:=CLOSE-REF(CLOSE,5);
 VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);
 VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);
卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);
 {DRAWICON(卖出<0,H+0.05,2);}
买线:=EMA(CLOSE,2);
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);
底1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORMAGENTA;
 DRAWTEXT(CROSS(买线,卖线)AND V/REF(V,1)>=2.0,L*0.98,'起爆'),COLORYELLOW;
顶:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK5,COLORYELLOW;
 VC:=((CLOSE-MA(