不能動行，高手修改下好嗎？　[文華財經]

N:=9;M1:=3;M2:=3;P:=9;　　

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

K:=SMA(RSV,M1,1),COLORRED,LINETHICK2;　　

D:=SMA(K,M2,1),COLOR00FF00;　　

JJ:=P*(3*D-2*K),COLOR00FF00;　　

J:=((3 * K) - (2 * D));　　

MAIRU:=? CROSS(K,D) AND K<20;　　

MAICHU:= CROSS(D,K) AND D>80;　　

VAR2:=REF(LOW,1);　　

VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;　　

VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3);　　

VAR5:=LLV(LOW,30);　　

VAR6:=HHV(VAR4,30);　　

VAR7:=IF(MA(CLOSE,58),1,0);　　

VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;　　

VAR9:=IF(VAR8>100,100,VAR8);　　

吸籌:STICKLINE(VAR9>-120,0,VAR9,6,1),COLORF00FF0;　　

快線:(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,COLORFF937F;　　

慢線:SMA(快線,M1,1),COLORRED,LINETHICK2;　　

空:SMA(慢線,M2,1),COLOR00FF00;　　

牛股:IF(BARSLAST(CROSS(慢線,空))<P AND BARSLAST(CROSS(空,慢線))<P AND CROSS(慢線,空) AND 慢線<20,90,0),STICK,COLORFF937F;　　

STICKLINE(牛股,0,90,6,1),LINETHICK4,STICK,COLORFF937F;　　

BB:=IF(BARSLAST(CROSS(慢線,快線))>=3 AND CROSS(快線,慢線) AND 慢線<30,20,0);　　

買:STICKLINE(BB,0,20,7,1),COLORYELLOW;　　

DRAWTEXT(bb ,20,'慮')；　　

AA:=IF(BARSLAST(CROSS(快線,慢線))>=4 AND CROSS(慢線,快線) AND 快線>50,20,0);　　

賣:STICKLINE(AA,80,100,7,1),COLOR00FF00;　　

?

?

2.第二指標（副圖運行）：　　

N:=9;M1:=3;M2:=3;P:=9;　　

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

K:=SMA(RSV,M1,1),COLORRED,LINETHICK2;　　

D:=SMA(K,M2,1),COLOR00FF00;　　

JJ:=P*(3*D-2*K),COLOR00FF00;　　

J:=((3 * K) - (2 * D));　　

MAIRU:=? CROSS(K,D) AND K<20;　　

MAICHU:= CROSS(D,K) AND D>80;　　

VAR2:=REF(LOW,1);　　

VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;　　

VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3);　　

VAR5:=LLV(LOW,30);　　

VAR6:=HHV(VAR4,30);　　

VAR7:=IF(MA(CLOSE,58),1,0);　　

VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;　　

VAR9:=IF(VAR8>100,100,VAR8);　　

吸籌:STICKLINE(VAR9>-120,0,VAR9,6,1),COLORF00FF0;　　

快線:(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,COLORFF937F;　　

慢線:SMA(快線,M1,1),COLORRED,LINETHICK2;　　

空:SMA(慢線,M2,1),COLOR00FF00;　　

牛股:IF(BARSLAST(CROSS(慢線,空))<P AND BARSLAST(CROSS(空,慢線))<P AND CROSS(慢線,空) AND 慢線<20,90,0),STICK,COLORFF937F;　　

STICKLINE(牛股,0,90,6,1),LINETHICK4,STICK,COLORFF937F;　　

BB:=IF(BARSLAST(CROSS(慢線,快線))>=3 AND CROSS(快線,慢線) AND 慢線<30,20,0);　　

買:STICKLINE(BB,0,20,7,1),COLORYELLOW;　　

DRAWTEXT(bb ,20,'慮')；　　

AA:=IF(BARSLAST(CROSS(快線,慢線))>=4 AND CROSS(慢線,快線) AND 快線>50,20,0);　　

賣:STICKLINE(AA,80,100,7,1),COLOR00FF00;　　

?

?

?

第三個是智慧買賣指標在主圖k線附屬指標（主圖上疊加運行）　　

?

VAR3:=LLV(HIGH,240);　　

VAR4:=100*(CLOSE-VAR3)/VAR3;　　

VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;　　

VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;　　

VAR7:=0;　　

VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;　　

VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;　　

VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);　　

VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);　　

VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);　　

VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);　　

VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);　　

VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);　　

VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);　　

VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);　　

VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);　　

VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);　　

買１:=VAR10;　　

買２:=(VAR11+VAR13+VAR15+VAR17);　　

賣１:=(VAR12+VAR14+VAR16+VAR18);　　

B:IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;　　

DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'入',COLORRED;　　

S:IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;　　

DRAWTEXT(賣１>0,HIGH*1.02,'出',COLORGREEN;　　

{股靈吧決策}　　

VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));　　

VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));　　

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

F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;　　

年:MA(CLOSE,22),LINETHICK2,COLORWHITE;　　

?

?

?來源:程序化99

?

?來源: www.tumamayizhan.com

?

?