软件名称：[B]神奇的八彩K线[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：14.0 KB
官方主页：Home Page
更新时间：2008-09-25 15:03:07
软件简介:

DRAWGBK(CLOSE>0,COLORRGB(0,188,38888),COLORRGB(0,33,333),1);
RVAR:=IF(DATE<1041228,1,0);
VAR1:=RVAR*IF(RN,AMOUNT/VOL/100,CLOSE);
MID:MA(VAR1,26);
UPPER:MID+2*STD(VAR1,26);
LOWER:MID-2*STD(VAR1,26);
VAR2:=RVAR*HHV(HIGH,9)-LLV(LOW,9);
VAR3:=RVAR*HHV(HIGH,9)-VAR1;
VAR4:=RVAR*VAR1-LLV(LOW,9);
VAR5:=RVAR*VAR3/VAR2*100-70;
VAR6:=RVAR*(VAR1-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VAR7:=RVAR*(2*VAR1+HIGH+LOW)/4;
VAR8:=RVAR*SMA(VAR4/VAR2*100,3,1);
VAR9:=RVAR*LLV(LOW,34);
VARA:=RVAR*SMA(VAR8,3,1)-SMA(VAR5,9,1);
VARB:=RVAR*(IF(VARA>100,VARA-100,0));
VARC:=RVAR*HHV(HIGH,34);
VARD:=RVAR*EMA((VAR7-VAR9)/(VARC-VAR9)*100,8);
VARE:=RVAR*EMA(VARD,5);
VARF:=RVAR*(HHV(HIGH,9)-VAR1)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
VAR10:=RVAR*SMA(VARF,9,1)+100;
VAR11:=RVAR*(VAR1-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR12:=RVAR*SMA(VAR11,3,1);
VAR13:=RVAR*SMA(VAR12,3,1)+100;
RSV:=RVAR*VAR13-VAR10;
多:STICKLINE(VARD-VARE>0,HIGH,LOW,0,0),colorFF;
STICKLINE(VARD-VARE>0,CLOSE,OPEN,8,0),colorFF;
STICKLINE(VARD-VARE>0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),colorFF;
空:STICKLINE(VARD-VARE<0,HIGH,LOW,0,0),colorFF0000;
STICKLINE(VARD-VARE<0,CLOSE,OPEN,8,0),colorFF0000;
STICKLINE(VARD-VARE<0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),colorFF0000;
进:STICKLINE(VARD>17 AND VARD<59 AND VARD-VARE>=0,HIGH,LOW,0,0),colorFFFFFF;
STICKLINE(VARD>17 AND VARD<59 AND VARD-VARE>=0,CLOSE,OPEN,8,0),colorFFFFFF;
STICKLINE(VARD>17 AND VARD<59 AND VARD-VARE>=0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),colorFFFFFF;
守:STICKLINE(VARD>47 AND VARD<70 AND VARD-VARE>=0,HIGH,LOW,0,0),colorFFFF;
STICKLINE(VARD>47 AND VARD<70 AND VARD-VARE>=0,CLOSE,OPEN,8,0),colorFFFF;
STICKLINE(VARD>47 AND VARD<70 AND VARD-VARE>=0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),colorFFFF;
出:STICKLINE(VARD>70 AND VARD-VARE>=0,HIGH,LOW,0,0),colorFF00FF;
STICKLINE(VARD>70 AND VARD-VARE>=0,CLOSE,OPEN,8,0),colorFF00FF;
STICKLINE(VARD>70 AND VARD-VARE>=0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),colorFF00FF;
压:STICKLINE(VARD>65 AND VARD<80 AND VARD-VARE<0,HIGH,LOW,0,0),color808080;
STICKLINE(VARD>65 AND VARD<80 AND VARD-VARE<0,CLOSE,OPEN,8,0),color808080;
STICKLINE(VARD>65 AND VARD<80 AND VARD-VARE<0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),color808080;
跌:STICKLINE(VARD>26 AND VARD<65 AND VARD-VARE<0,HIGH,LOW,0,0),color800000;
STICKLINE(VARD>26 AND VARD<65 AND VARD-VARE<0,CLOSE,OPEN,8,0),color800000;
STICKLINE(VARD>26 AND VARD<65 AND VARD-VARE<0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),color800000;
空末:STICKLINE(VARD>5 AND VARD<35 AND VARD-VARE<0,HIGH,LOW,0,0),color8000FF;
STICKLINE(VARD>5 AND VARD<35 AND VARD-VARE<0,CLOSE,OPEN,8,0),color8000FF;
STICKLINE(VARD>5 AND VARD<35 AND VARD-VARE<0 AND CLOSE>OPEN,CLOSE,OPEN,8,2),color8000FF;
STICKLINE(VAR1<EMA(VAR1,27),LOW,IF(CLOSE>OPEN,OPEN,CLOSE),0,0),colorFF0000;
K:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
D1:=SMA(K,3,1);
J:=SMA(D1,3,1);
RSV12:=3*D1-2*J;
K12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
D12:=SMA(K12,3,1);
J12:=SMA(D12,3,1);
RSV24:=3*D12-2*J12;
K24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
D24:=SMA(K24,3,1);
J24:=SMA(D24,3,1);
ZCW:=3*D24-2*J24;
YLW:=IF(CROSS(RSV12,ZCW),LOW,REF(LOW,BARSLAST(CROSS(RSV12,ZCW))));
U2L:=IF(CROSS(ZCW,RSV12),HIGH,REF(HIGH,BARSLAST(CROSS(ZCW,RSV12))));
L2L:=IF(CLOSE>=MA(CLOSE,20),80,50);
RH1:=IF(CLOSE>=MA(CLOSE,20),50,20);
RH4:=IF(RSV12<L2L AND REF(RSV12,1)>=L2L,HHV(REF(HIGH,1),(BARSLAST(RSV12>=L2L AND REF(RSV12,1)<L2L))-1),REF(HHV(REF(HIGH,1),(BARSLAST(RSV12>=L2L AND REF(RSV12,1)<L2L))-1),BARSLAST(RSV12<L2L AND REF(RSV12,1))));
RH42:=IF(HIGH>RH4,LOW,REF(LOW,BARSLAST(HIGH>RH4)));
RH5:=IF(HIGH>RH4,RSV12,REF(RSV12,BARSLAST(HIGH>RH4)));
RL1:=IF(HIGH>RH42 AND RSV12<RH5 AND RSV12<ZCW,HIGH,REF(HIGH,BARSLAST(HIGH>RH42 AND RSV12<RH5 AND RSV12<ZCW)));
RL4:=IF(RSV12>RH1 AND REF(RSV12,1)<=RH1,LLV(REF(LOW,1),(BARSLAST(RSV12<=RH1 AND REF(RSV12,1)>RH1))-1),REF(LLV(REF(LOW,1),(BARSLAST(RSV12<=RH1 AND REF(RSV12,1)>RH1))-1),BARSLAST(RSV12>RH1 AND REF(RSV12,1))));
RL42:=IF(LOW<RL4,HIGH,REF(HIGH,BARSLAST(LOW<RL4)));
RL5:=IF(LOW<RL4,RSV12,REF(RSV12,BARSLAST(LOW<RL4)));
VARDD:=IF(LOW<RL42 AND RSV12>RL5 AND RSV12>ZCW,LOW,REF(LOW,BARSLAST(LOW<RL42 AND RSV12>RL5 AND RSV12>ZCW)));
VAR2:=REF(CLOSE,1);
VAR3:=MA(CLOSE,5);
VAR4:=(SMA(MAX(CLOSE-VAR2,0),6,1))/(SMA(ABS(CLOSE-VAR2),6,1))*100;
VAR5:=(SMA(MAX(CLOSE-VAR2,0),12,1))/(SMA(ABS(CLOSE-VAR2),12,1))*100;
VAR6:=(SMA(MAX(CLOSE-VAR2,0),24,1))/(SMA(ABS(CLOSE-VAR2),24,1))*100;
VAR7:=IF(CROSS(VAR4,VAR6),LOW,REF(LOW,BARSLAST(CROSS(VAR4,VAR6))));
VAR8:=IF(CROSS(VAR6,VAR4),HIGH,REF(HIGH,BARSLAST(CROSS(VAR6,VAR4))));
VAR9:=IF(CLOSE>=MA(CLOSE,20),80,50);
VARA:=IF(CLOSE>=MA(CLOSE,20),50,20);
VARB:=IF(VAR4<VAR9 AND REF(VAR4,1)>=VAR9,HHV(REF(HIGH,1),(BARSLAST(VAR4>=VAR9 AND REF(VAR4,1)<VAR9))-1),REF(HHV(REF(HIGH,1),(BARSLAST(VAR4>=VAR9 AND REF(VAR4,1)<VAR9))-1),BARSLAST(VAR4<VAR9 AND REF(VAR4,1))));
VARC:=IF(HIGH>VARB,LOW,REF(LOW,BARSLAST(HIGH>VARB)));
VARD:=IF(HIGH>VARB,VAR4,REF(VAR4,BARSLAST(HIGH>VARB)));
XD1:=IF(HIGH>VARC AND VAR4<VARD AND VAR4<VAR6,HIGH,REF(HIGH,BARSLAST(HIGH>VARC AND VAR4<VARD AND VAR4<VAR6)));
VARF:=IF(VAR4>VARA AND REF(VAR4,1)<=VARA,LLV(REF(LOW,1),(BARSLAST(VAR4<=VARA AND REF(VAR4,1)>VARA))-1),REF(LLV(REF(LOW,1),(BARSLAST(VAR4<=VARA AND REF(VAR4,1)>VARA))-1),BARSLAST(VAR4>VARA AND REF(VAR4,1))));
VAR10:=IF(LOW<VARF,HIGH,REF(HIGH,BARSLAST(LOW<VARF)));
VAR11:=IF(LOW<VARF,VAR4,REF(VAR4,BARSLAST(LOW<VARF)));
VAR12:=IF(LOW<VAR10 AND VAR4>VAR11 AND VAR4>VAR6,LOW,REF(LOW,BARSLAST(LOW<VAR10 AND VAR4>VAR11 AND VAR4>VAR6)));
XD2:=MAX(IF(VARDD>VAR1,0,VARDD),MAX(IF(VAR12>VAR1,0,VAR12),IF(YLW>VAR1,0,YLW)));
STICKLINE(XD2>0,XD2-0.002,XD2+0.002,14,1),colorFF;
箱底:XD2,LINETHICK0,colorFF;
A1:=MIN(IF(RL1<VAR1,0,RL1),MIN(IF(XD1<VAR1,0,XD1),IF(U2L<VAR1,0,U2L)));
STICKLINE(A1>0,A1-0.002,A1+0.002,14,1),colorFF0000;
箱顶:A1,LINETHICK0,colorFF0000;
RAY_L:RVAR*MA(VAR1,233),LINETHICK3,colorFFFF;
PARTLINE(RAY_L>REF(RAY_L,1),RAY_L),LINETHICK3,colorFF;
B1:=RVAR*BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1));
A2:=REF(CLOSE,B1+1)>CLOSE AND REF("MACD.DIFF",B1+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA");
DRAWTEXT(ISLASTBAR AND FILTER(A2>0,5),CLOSE,'MACD底背离'),colorFF00;
EXPLAIN(FILTER(A2>0,5),'MACD底背离'),colorFF00;
B2:=RVAR*BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
A3:=REF(CLOSE,B2+1)>CLOSE AND REF("KDJ.K",B2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(ISLASTBAR AND FILTER(A3>0,5),OPEN,'KDJ底背离'),colorFFBB66;
EXPLAIN(FILTER(A3>0,5),'KDJ底背离'),colorFFBB66;
B3:=RVAR*BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
C1:=REF(CLOSE,B3+1)>CLOSE AND REF("RSI.RSI1",B3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1"

[url=http://www.70822.com/soft/sort013/sort02/down-1405.html]神奇的八彩K线[/url]