改文華能用的

老師，過年好，請幫個忙，謝謝

工作線:(EMA(C,8)),POINTDOT,LINETHICK5,COLORYELLOW;　　

AA05:MA(C,5),LINETHICK3,COLOR0099CC;　　

五日乖離率:=(C-AA05)/AA05*100;　　

BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;　　

速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);　　

加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW;　　

IF(BB05>30 AND AA05>REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORRED;　　

AA10:MA(C,10), LINETHICK0;

AA20:=MA(C,20);　　

BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;　　

IF(BB05<0 AND AA05<REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORFFFF00;　　

AA30:MA(C,30), LINETHICK0;　　

三拾日乖離率:(C-AA30)/AA30*100,NODRAW;　　

VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);　　

VAR2:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);　　

BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;　　

狙擊:=FILTER(BB30>30 AND BB10>60 AND CROSS(BB05,60),10);　　

加倉:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1)? AND 三拾日乖離率>REF(三拾日乖離率,1) AND AA10>REF(AA10,1)　　

AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)? ,10) ;　　

清倉:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1)? AND 三拾日乖離率<REF(三拾日乖離率,1) AND AA10<REF(AA10,1),10);　　

DRAWTEXT(加倉 ,LOW*0.98,'-----加倉',COLORYELLOW;　　

JC:=CROSS(0,五日乖離率) AND 三拾日乖離率<REF(三拾日乖離率,1) AND AA10>REF(AA10,1) ;　　

減倉:=FILTER(JC,10);　　

MR:=COUNT(CROSS(五日乖離率,0),3)>=1 AND 三拾日乖離率>REF(三拾日乖離率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;　　

買入:=FILTER(MR,10);　　

DRAWTEXT(減倉,HIGH*1.02,'減倉',COLORCYAN;　　

DRAWTEXT(買入,LOW*0.98,'買入',COLORYELLOW;　　

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

CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));　　

VAR5:=CROSS(CCI,-75);　　

VAR6:=CCI>=150;　　

DRAWTEXT(VAR6,HIGH*1.02,'----注意',COLORYELLOW;　　

SJ:=VAR5;　　

STICKLINE(SJ,H,L,0.6,0),COLORYELLOW;　　

LC:=REF(CLOSE,1);　　

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;　　

DRAWTEXT(CROSS(90,RSI) , HIGH,'-----逃',COLORGREEN;　　

VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);　　

VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);　　

DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'---大膽搏 ',COLORYELLOW;　　

A:=(3*C+L+O+H)/6;　　

X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+　　

14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)　　

+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;

?

?來源:程序化99