打印本文
關(guān)閉窗口
?
?來源:程序化99
?
?來源: www.kzuj.com.cn
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>←機(jī)構(gòu)進(jìn)場',LINETHICK2,COLOR00FFFF;
DRAWTEXT(SEL,H*1.0,'/span>←機(jī)構(gòu)清倉',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>←短線資金進(jìn)',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;
?
?
?