通达信-牛魔王源码 副圖

80,COLORRED;
20;
VAR1:=HHV(HIGH,9)-LLV(LOW,9);
VAR2:=HHV(HIGH,9)-C;
VAR3:=C-LLV(LOW,9);
VAR4:=VAR2/VAR1*100-70;
VAR5:=(C-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VAR6:=(2*C+H+L)/4;
VAR7:=SMA(VAR3/VAR1*100,3,1);
VAR8:=LLV(LOW,34);
VAR9:=SMA(VAR7 ,3 ,1 )-SMA(VAR4 ,9 ,1);
VAR10:=IF(VAR9>100 ,VAR9-100 ,0 );
VAR11:=HHV(HIGH,34);
VAR12:=EMA((VAR6- VAR8)/(VAR11-VAR8)*100,13 );
VAR13:=EMA(0.667*REF(VAR12 ,1) +0.333*VAR12,2 );
VAR13,COLORRED;
STICKLINE(VAR12-VAR13 >0,VAR12 ,VAR13 ,8 ,0 ),COLOR00FF0F;
STICKLINE(VAR12-VAR13 <0,VAR12 ,VAR13 ,8 ,0),COLORRED;
船硉:=(VAR12-VAR13)*5,POINTDOT,COLOR33CC00;
STICKLINE( 船硉>=0 ,0 ,船硉 ,4 ,0 ),COLORYELLOW;
VAR101:=SMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3,1);
VAR102:=IF(VAR101<20,VAR101*3.5,0);
IF(VAR102>20,VAR102*1.04,0), STICK, COLORRED,LINETHICK2;
IF(VAR102>20,VAR102*1.06,0), STICK ,COLORYELLOW,LINETHICK2 ;
IF(VAR102>20,VAR102*1.08,0), STICK, COLORGREEN,LINETHICK2;
IF(VAR102>20,VAR102*1.01,0), STICK, COLORRED,LINETHICK2;
STICKLINE(VAR102>=0,0,VAR102*1,4,0), COLORRED, ;
STICKLINE(VAR102>=0,0,VAR102*0.8,4,0), ,COLOR0000FF ;
STICKLINE(VAR102>=0,0,VAR102*0.6,4,0), ,COLOR0066FF ;
STICKLINE(VAR102>=0,0,VAR102*0.4,4,0), ,COLOR0099FF ;
STICKLINE(VAR102>=0,0,VAR102*0.2,4,0), COLORYELLOW;