|
以下是通达信我的专用主图（无源码的请下载附件导入）
通达信我的专用主图
V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
HSL:=100*VOL/(CONST(FINANCE(7))/100);
HS:=IF(BETWEEN(HSL,0,1000000),HSL,VOL);
STICKLINE(V2>=0.9 AND C>O,C,O,3,0),COLORAA00AA;
STICKLINE(V2>=0.9 AND C>O,C,O,2,0),COLORAA00CC;
STICKLINE(V2>=0.9 AND C>O,C,O,1,0),COLORAA00DD;
STICKLINE(V2>=0.9 AND C>O,H,L,0,0),COLOR0000FF;
N:=5;
XB1:=TROUGH(2,N,1),COLORGRAY;
CB1:=CONST(TROUGHBARS(2,N,1));
B1:=IF(CURRBARSCOUNT<CB1+3,CONST(XB1),DRAWNULL),COLORGRAY;
STICKLINE(1,B1,B1,3,1),COLORGRAY;
XB2:=TROUGH(2,N,2),COLORGRAY;
CB2:=CONST(TROUGHBARS(2,N,2));
B2:=IF(CURRBARSCOUNT<CB2+3 AND CURRBARSCOUNT>CB1-1,CONST(XB2),DRAWNULL),COLORGRAY;
STICKLINE(1,B2,B2,3,1),COLORGRAY;
XB3:=TROUGH(2,N,3),COLORGRAY;
CB3:=CONST(TROUGHBARS(2,N,3));
B3:=IF(CURRBARSCOUNT<CB3+3 AND CURRBARSCOUNT>CB2-1,CONST(XB3),DRAWNULL),COLORGRAY;
STICKLINE(1,B3,B3,3,1),COLORGRAY;
XB4:=TROUGH(2,N,4),COLORGRAY;
CB4:=CONST(TROUGHBARS(2,N,4));
B4:=IF(CURRBARSCOUNT<CB4+3 AND CURRBARSCOUNT>CB3-1,CONST(XB4),DRAWNULL),COLORGRAY;
STICKLINE(1,B4,B4,3,1),COLORGRAY;
XB5:=TROUGH(2,N,5),COLORGRAY;
CB5:=CONST(TROUGHBARS(2,N,5));
B5:=IF(CURRBARSCOUNT<CB5+3 AND CURRBARSCOUNT>CB4-1,CONST(XB5),DRAWNULL),COLORGRAY;
STICKLINE(1,B5,B5,3,1),COLORGRAY;
XB6:=TROUGH(2,N,6),COLORGRAY;
CB6:=CONST(TROUGHBARS(2,N,6));
B6:=IF(CURRBARSCOUNT<CB6+3 AND CURRBARSCOUNT>CB5-1,CONST(XB6),DRAWNULL),COLORGRAY;
STICKLINE(1,B6,B6,3,1),COLORGRAY;
XT1:=PEAK(1,N,1),COLORGRAY;
CT1:=CONST(PEAKBARS(1,N,1));
T1:=IF(CURRBARSCOUNT<CT1+3,CONST(XT1),DRAWNULL),COLORLIRED;
STICKLINE(1,T1,T1,3,1),COLORLIRED;
XT2:=PEAK(1,N,2),COLORGRAY;
CT2:=CONST(PEAKBARS(1,N,2));
T2:=IF(CURRBARSCOUNT<CT2+3 AND CURRBARSCOUNT>CT1-1,CONST(XT2),DRAWNULL),COLORLIRED;
STICKLINE(1,T2,T2,3,1),COLORLIRED;
XT3:=PEAK(1,N,3),COLORGRAY;
CT3:=CONST(PEAKBARS(1,N,3));
T3:=IF(CURRBARSCOUNT<CT3+3 AND CURRBARSCOUNT>CT2-1,CONST(XT3),DRAWNULL),COLORLIRED;
STICKLINE(1,T3,T3,3,1),COLORLIRED;
XT4:=PEAK(1,N,4),COLORGRAY;
CT4:=CONST(PEAKBARS(1,N,4));
T4:=IF(CURRBARSCOUNT<CT4+3 AND CURRBARSCOUNT>CT3-1,CONST(XT4),DRAWNULL),COLORLIRED;
STICKLINE(1,T4,T4,3,1),COLORLIRED;
XT5:=PEAK(1,N,5),COLORGRAY;
CT5:=CONST(PEAKBARS(1,N,5));
T5:=IF(CURRBARSCOUNT<CT5+3 AND CURRBARSCOUNT>CT4-1,CONST(XT5),DRAWNULL),COLORLIRED;
STICKLINE(1,T5,T1,3,1),COLORLIRED;
XT6:=PEAK(1,N,6),COLORGRAY;
CT6:=CONST(PEAKBARS(1,N,6));
T6:=IF(CURRBARSCOUNT<CT6+3 AND CURRBARSCOUNT>CT5-1,CONST(XT6),DRAWNULL),COLORLIRED;
STICKLINE(1,T6,T6,3,1),COLORLIRED;
COHL:=(C+O+H+L)/4;{算术均价}
成交均价:=AMOUNT/VOL/100;
TEST:=BETWEEN(成交均价,L,H);
CC0:=IF(TEST,成交均价,COHL),COLORWHITE;{当均价远离算术均价时,用算术均价}
CC:=FORCAST(CC0,5),COLORWHITE;
EMA34:EMA(CC,34),COLORFFCC66;
EMA21:EMA(CC,21),COLORGREEN;
EMA13:EMA(CC,13),COLORBROWN;
EMA5:EMA(EMA(CC,5),2),COLORYELLOW;
TJ:= {C>O AND} ABS(EMA13-EMA5)<EMA5*0.01
AND ABS(EMA13-EMA21)<EMA21*0.01
AND ABS(EMA34-EMA21)<EMA21*0.01
AND EMA5>REF(EMA5,1) AND EMA13>REF(EMA13,1)
AND EMA21>REF(EMA21,1) AND EMA34>REF(EMA34,1);
启动点:=FILTER(TJ,5);
DRAWTEXT(启动点,LOW-0.05,'↖买进'),COLORMAGENTA;
VARC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
DRAWICON(CROSS(82,VARC),H,2);
VAR6:=REF(C,1);
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
DRAWTEXT(CROSS(84,VAR7),H*1.01,'逃顶'),COLORYELLOW;
有未来 |
