把笑臉去掉一下　[文華財(cái)經(jīng)]

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;

?

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);
VAR11:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA
(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
VAR12:=EMA(VAR1,8);
VAR13:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA
(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

趨勢:=EMA(VAR3,3)-10,LINETHICK2,COLOR0000FF;
A1:=IF(趨勢>76,趨勢,80),COLORYELLOW;
DRAWICON(CROSS(趨勢,0),0,1);
VAR14:=(趨勢-REF(趨勢,1))/REF(趨勢,1)*100;
STICKLINE(趨勢<=4,0,20,5,0),COLORCC9900;
DRAWTEXT(FILTER(趨勢<=4,15),30,'倉',COLORWHITE;
STICKLINE(趨勢>=90 AND VAR4,0,30,5,0),COLORGRAY;
VAR5:=MA(趨勢,8);
A2:=IF(CROSS(VAR2,VAR5) AND VAR2<15,10,0),COLORRED;
FILTER(趨勢<=4,15),SOUND('';
DRAWTEXT(FILTER(趨勢<=4,15),30,'倉',COLORWHITE;
STICKLINE(趨勢>=90 AND VAR4,0,30,5,0),COLORGRAY;
CROSS(趨勢<=4,0.5),SOUND('';

?

?

?來源:程序化99