|
以下是通达信易鸣幅图6源码（无源码的请下载附件导入）
通达信易鸣幅图6源码
DRAWGBK(CLOSE>0,RGB(1,1,1),RGB(1,1,1),0,1,0);
HJ_1:=(HIGH+LOW+CLOSE)/3;
HJ_2:=(HJ_1-MA(HJ_1,14))/(0.015*AVEDEV(HJ_1,14));
HJ_3:=(HIGH-LOW-CLOSE)/3;
HJ_4:=(HJ_3-MA(HJ_3,14))/(0.015*AVEDEV(HJ_3,14));
STICKLINE(KD.K#MONTH>KD.D#MONTH,0,1,1,1),COLORRED;
STICKLINE(KD.K#WEEK>KD.D#WEEK,3,4,1,1),COLORMAGENTA;
STICKLINE(KD.K>KD.D,5,6,1,1),COLORYELLOW;
STICKLINE(HJ_2>HJ_4,100,99,1,1),COLORGRAY;
STICKLINE(CCI#WEEK>0 AND CCI#WEEK<100,98,97,1,1),COLORLIGREEN;
HJ_5:=EMA(CLOSE,12)-EMA(CLOSE,26);
HJ_6:=EMA(HJ_5,9);
STICKLINE(HJ_5>HJ_6,96,95,1,1),COLORRED;
HJ_7:=CLOSE>=SAR(4,2,20);
HJ_8:=CLOSE<SAR(4,2,20);
STICKLINE(HJ_7,20,20,1,1),COLORRED;
STICKLINE(HJ_8,20,20,1,1),COLORGREEN;
HJ_9:=(2*CLOSE+HIGH+LOW+OPEN)/5;
HJ_10:=LLV(LOW,34);
HJ_11:=HHV(HIGH,34);
HJ_12:=EMA((HJ_9-HJ_10)/(HJ_11-HJ_10)*100,9);
STICKLINE(HJ_12>REF(HJ_12,1),REF(HJ_12,1),HJ_12,1,1),COLORRED;
STICKLINE(HJ_12<REF(HJ_12,1),REF(HJ_12,1),HJ_12,1,1),COLORLICYAN;
|
