老師修改文華能用　[文華財經]

M:=10;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

超跌:IF(J<0,10,0),COLORFFFF00;

BDDD:=LLV(J,2)=LLV(J,8);

重啟:IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0),COLOR00FF00;

加碼:IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND BETWEEN(J,20,60),1,0),COLOR00FFFF,POINTDOT,LINETHICK0;

BDGD:=HHV(J,2)=HHV(J,8) AND J>80;

小心:IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),70,100),COLOR0000FF;

DRAWTEXT(加碼,J,'★'),COLOR00FFFF;

STICKLINE(REF(J,7)<0 AND J>1,10,0,10,0),COLOR00FF00;

VAR1:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;

VAR2:=SMA(VAR1,3,1);

VAR3:=SMA(VAR2,3,1);

貴:=N,COLOR00FF00;

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

VAR5:=CROSS(VAR4,10) AND VAR3<N;

IF(J<D,J,DRAWNULL),COLORFFEE44;

A22:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));

B2:=REF(C,A22+1)>C AND REF("KDJ.K"(9,3,3),A22+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));

A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));

B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));

抄底:IF(VAR5,90,1),COLORRED;

DRAWICON(VAR5,65,1);

DRAWTEXT(VAR5,30,'抄底'),COLORYELLOW;

備錢:IF(CROSS(10,VAR4),40,1),COLORFF00FF;

DRAWICON(CROSS(10,VAR4),45,1);

DRAWTEXT(IF(CROSS(10,VAR4),1,0),20,'$備錢'),COLORWHITE;

危機線: 80,COLORRED,POINTDOT,LINETHICK2;

中間線: 50,COLORFFCCCC,POINTDOT,LINETHICK2;

安全線: 10,COLORFF00FF,POINTDOT,LINETHICK2;

VAR6:=(2*CLOSE+HIGH+LOW)/4;

VAR7:=LLV(LOW,M);

VAR8:=HHV(HIGH,M);

VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);

VARA:=EMA(0.667*REF(VAR9,1)+0.333*VAR9,2);

DJ:=CROSS(J,D) AND D<20;

DRAWTEXT(DJ,J-0.3,'低金叉'),COLORCYAN;

戰術線: VAR9,COLORYELLOW,LINETHICK2;

戰略線: EMA(0.382*REF(VAR9,2)+0.618*VAR9,12),COLORBLUE;

STICKLINE(VAR9>VARA,VAR9,VARA,6,0),COLORRED;

STICKLINE(VAR9<=VARA,VAR9,VARA,6,0),COLOR00FF00;

VARB:=SUM(IF(CLOSE>REF(CLOSE,7),VOL,IF(CLOSE<REF(CLOSE,7),0-VOL,0)),0);

VARC:=SUMBARS(VOL,CAPITAL);

VARD:=IF(CLOSE>LLV(CLOSE,VARC),1,-1);

VARE:=IF(VARB>LLV(VARB,VARC),1,-1);

VARF:=VARD*VARE;

VAR10:=IF(VARF=-1,1,0);

關注:IF(VAR10 AND CLOSE=LLV(CLOSE,20) AND VAR3<N,70,1),COLORFFCC66;

DRAWICON(CROSS(K,D),D,1);

DRAWICON(CROSS(D,K),D,2);

?

?來源:程序化99