通达信一部古书副图源码

以下是通达信一部古书副图源码

VAR1:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;
 VAR2:=SMA(VAR1,3,1);
 VAR3:=SMA(VAR2,3,1);
 VAR4:=SMA(VAR3,3,1);
 0,COLORYELLOW;90,COLORGREEN;
 VAR6:=CROSS(VAR3,VAR4) AND VAR3<20;
 STICKLINE(FILTER(VAR6,10)=1,0,90,2,0),COLORRED;
 DRAWTEXT(FILTER(VAR6,10)=1,79,’ 底’),LINETHICK1,COLOR00AAFF;
 DRAWTEXT(FILTER(VAR6,10)=1,67,’ 部’),LINETHICK1,COLOR00AAFF;
 DRAWTEXT(FILTER(VAR6,10)=1,55,’ 信’),LINETHICK1,COLOR00AAFF;
 DRAWTEXT(FILTER(VAR6,10)=1,43,’ 号’),LINETHICK1,COLOR00AAFF;
 VAR7:=CROSS(VAR4,VAR3) AND VAR3>80;
 STICKLINE(FILTER(VAR7,5)=1,0,90,2,0),COLORGREEN ;
 DRAWTEXT(FILTER(VAR7,5)=1,79,’ 顶’),LINETHICK1,COLORFFCC66;
 DRAWTEXT(FILTER(VAR7,5)=1,67,’ 部’),LINETHICK1,COLORFFCC66;
 DRAWTEXT(FILTER(VAR7,5)=1,55,’ 信’),LINETHICK1,COLORFFCC66;
 DRAWTEXT(FILTER(VAR7,5)=1,43,’ 号’),LINETHICK1,COLORFFCC66;
 BAR1:=REF(LOW,1);
 BAR2:=SMA(ABS(LOW-BAR1),13,1)/SMA(MAX(LOW-BAR1,0),13,1)*4;
 BAR3:=EMA(BAR2,13);
 BAR4:=LLV(LOW,34);
 BAR5:=EMA(IF(LOW<=BAR4,BAR3,0),3);
 BAR6:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
 BAR7:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
 BAR8:=BAR6<REF(BAR7,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
 DRAWTEXT(BAR8 AND COUNT(BAR8,30)=1,62,’主’),COLORFF00FF;
 DRAWTEXT(BAR8 AND COUNT(BAR8,30)=1,50,’力’),COLORFF00FF;
 DRAWTEXT(BAR8 AND COUNT(BAR8,30)=1,38,’进’),COLORFF00FF;
 DRAWTEXT(BAR8 AND COUNT(BAR8,30)=1,26,’场’),COLORFF00FF;