通达信一部古书副图源码

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;