|
以下是通达信小改烧香拜佛 主图源码（无源码的请下载附件导入）
A1:HHV(FORCAST(C,7),7),COLORWHITE;
A2:HHV(FORCAST(C,7),14),COLORLIBLUE;
A3:HHV(FORCAST(C,7),21),COLORGREEN;
RSV:=(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3*K)-(2*D));
RSV12:=(((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*100);
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=((3*K12)-(2*D12));
RSV24:=(((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55)))*100);
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=((3*K24)-(2*D24));
底进:IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24)))),COLORYELLOW;
顶出:IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J)))),COLORWHITE;
ST:=(CLOSE/OPEN-1)*100;
ZF:=(C/REF(C,1)-1)*100;
SX1:=ST>3 AND ST=HHV(ST,6);
SX2:=ZF>3 AND ZF=HHV(ZF,6);
SX3:=ZF>=9 AND CLOSE=HIGH;
烧香:IF(SX1 OR SX2 OR SX3,1,0),COLOR0000FF,NODRAW;
DYSJ:=BARSLAST(烧香);
跟踪:IF(DYSJ<=13 AND COUNT(C>REF(L,DYSJ),DYSJ)>=DYSJ-1,DYSJ,0),COLOR00FFFF,NODRAW;
关注:IF(DYSJ>=4 AND COUNT(C>REF(C,DYSJ),3)>=3,REF(C,DYSJ),REF(L,DYSJ)),COLORFFFFFF,NODRAW;
BF1:=LOW<关注*1.01 AND COUNT(LOW<关注*1.01,跟踪)=1;
BF2:=LOW<关注 AND COUNT(LOW<关注,跟踪)=1;
拜佛:IF(BF1 OR BF2,1,0),COLOR00FF00,NODRAW;
DRAWICON(烧香,L*0.99,13);
DRAWTEXT(烧香,LOW*0.96,'‖'),COLOR00FFFF;
DRAWTEXT(拜佛,LOW*0.965,'≌'),COLOR00FF00;
635522073.jpg
|
