?

?來源:程序化99

?

?來源: www.tumamayizhan.com

MA10:MA(CLOSE,10),COLORGREEN,LINETHICK1;　　

MA21:MA(CLOSE,21),COLORLIBLUE,LINETHICK1;　　

MA30:MA(CLOSE,30),COLORYELLOW,LINETHICK2;　　

MA60:MA(CLOSE,60),COLORRED,LINETHICK3;　　

MA120:MA(CLOSE,120),COLOR990099,LINETHICK2;　　

MA250:MA(CLOSE,250),COLOR777700,LINETHICK2;　　

MA500:MA(CLOSE,500),COLORBLUE,LINETHICK2;　　

買線:=ZIG(3,10);　　

賣線:=MA(買線,2);　　

BU:=CROSS(買線,賣線);　　

SEL:=CROSS(賣線,買線);　　

DRAWTEXT(BU,L*0.99,'/span>←機構進場',LINETHICK2,COLOR00FFFF;　　

DRAWTEXT(SEL,H*1.0,'/span>←機構清倉',LINETHICK1,COLOR00FF00;　　

DRAWTEXT("X09A.T">0,L*0.99,'',LINETHICK1,COLORFFFFFF;　　

DRAWTEXT("X09A.T1">0,L*0.99,'',LINETHICK1,COLOR0000FF;　　

STICKLINE(買線>=賣線,LOW,HIGH,0.1,0),COLOR0000CC;　　

STICKLINE(買線>=賣線,CLOSE,OPEN,7,0),COLOR0000CC;　　

STICKLINE(買線<賣線,CLOSE,OPEN,7,0),COLORCCCC00;　　

STICKLINE(買線<賣線,LOW,HIGH,0.1,0),COLORCCCC00;　　

STICKLINE(CROSS(買線,賣線),OPEN,CLOSE,7,0),COLOR00AAFF;　　

STICKLINE(CROSS(賣線,買線),OPEN,CLOSE,7,0),COLOR00DD00;　　

DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND　　

(REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.99,1);　　

DRAWICON((ZIG(3,5)=REF(ZIG(3,5),2)) AND　　

(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),H,2);　　

VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND　　

(REF(ZIG(3,5),2)<=REF(ZIG(3,5),3));　　

VARD:=(ZIG(3,5)=REF(ZIG(3,5),2)) AND　　

(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3));　　

DRAWTEXT((VARC=1),L,'/span>←買',COLOR0000FF;　　

DRAWTEXT((VARD=1),H,'/span>←賣',COLOR00FF00;　　

V10:=PEAKBARS(3,15,1)<10;　　

V12:=IF(V10=1,50,0);　　

頭部:= IF(V12=50,100,0);　　

DRAWTEXT(IF(頭部>REF(頭部,1),H,0),H*1.02,'/span>←拉升減倉 ',COLORWHITE,LINETHICK1;　　

V9:=TROUGHBARS(3,15,1)<10;　　

V11:=IF(V9=1,50,0);　　

DRAWTEXT(IF( IF(V11=50,50,0)>REF(IF(V11=50,50,0),1),L,0),L*0.96,'/span>↖抄底 ',COLORMAGENTA;　　

VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;　　

VARF:=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);　　

VAR10:=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);　　

VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);　　

DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,L*0.99,'/span>←短線資金進',LINETHICK1,COLORLIMAGENTA;　　

VAR12:=(HIGH+LOW+CLOSE)/3;　　

VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));　　

VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));　　

VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);　　

VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);　　

VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;　　

VAR18:=100-ABS(VAR17);　　

VAR19:=IF(VAR18<90,VAR18,100);　　

VAR1A:=IF(VARE>0,VARE,0);　　

VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;　　

VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;　　

DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,H*1,'/span>←短線資金出',LINETHICK1,COLORLIBLUE;　　

VAR1D:=SMA(VAR1C,4,1);　　

VAR1E:=SMA(VAR1D,3,1);　　

VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;　　

VAR20:=VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50;　　

VAR21:=(HIGH+LOW+CLOSE)/3;　　

VAR22:=(VAR21-MA(VAR21,14))/(0.015*AVEDEV(VAR21,14));　　

VAR23:=(VAR21-MA(VAR21,70))/(0.015*AVEDEV(VAR21,70));　　

VAR24:=IF(VAR22>=150 AND VAR22<200 AND VAR23>=150 AND VAR23<200,10,0);　　

VAR25:=IF(VAR22<=-150 AND VAR22>-200 AND VAR23<=-150 AND VAR23>-200,-10,VAR24);　　

DRAWTEXT(VAR20 AND COUNT(VAR20,1)=1,H*0.99,'/span>↖基金建倉!' , COLORMAGENTA;　　

DRAWTEXT(VAR24 AND COUNT(VAR24,1)=1,L*1.1,'/span>↙基金清倉!' , COLOR00FF00;　　

?

?

?