W百变K线 - 分析家公式网

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：W百变K线

软件名称：[B]W百变K线[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：20.0 KB
官方主页：Home Page
更新时间：2008-11-23 20:24:09
软件简介:

DRAWGBK(CLOSE>0,COLORRGB(1,777,777),COLORRGB(1,222,444),1);
J5:MA(CLOSE,5),colorCCFFFF;
J10:MA(CLOSE,10),colorFFFF;
J20:MA(CLOSE,20),colorF00FF0;
J30:MA(CLOSE,30),colorFF00;
J60:MA(CLOSE,60),colorFFAA00;
J120:MA(CLOSE,120),color9900;
J250:MA(CLOSE,250),colorFF0000;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),color9900FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),colorCC00FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),colorFF00FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),colorFF66FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,2,0),colorFF99FF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,1,0),colorFFCCFF;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),colorFF0033;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,7,0),colorFF3333;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),colorFF6633;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),colorFF9933;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),colorFFCC33;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,1,0),colorFFFF33;
AA:=SYSPARAM(1);
CC:=SYSPARAM(2);
DD:=AA-CC;
IF DD=1 THEN BEGIN
DRAWGBK(DD=1,COLORRGB(255,125,0),COLORRGB(255,255,0),1);
STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,9,0),colorAAAAAA;
STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,6,0),colorBBBBBB;
STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,2.4,0),colorCCCCCC;
STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,1.1,0),colorDDDDDD;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,9,0),color6666CC;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,6,0),color7777DD;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,2.4,0),color8888EE;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,1.1,0),color9999FF;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0),color1199FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5,0),color1199FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5,0),colorCCCCCC;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5,0),colorCCCCCC;
FH:=HIGH;
FL:=LOW;
SELL:=0*FH;
BUY:=SELL;
SIGNAL:=SELL;
BOXH:SELL,LINETHICK0;
BOXL:SELL,LINETHICK0;
VARIABLE:HC=0,LC=0,BT=FH[1],BB=FH[1];
FOR I=1 TO DATACOUNT DO BEGIN
IF HC>1 THEN BEGIN
IF LC>2 AND BT<=FH[I] THEN BEGIN
BUY[I]:=1;
FOR J=I-1 DOWNTO I-HC DO BEGIN
BOXH[J]:FH[I-HC],LINETHICK0;
BOXL[J]:FL[I-LC],LINETHICK0;
END;
HC:=0;
LC:=0;
END;
IF BT>FH[I] THEN BEGIN
IF LC>2 THEN BEGIN
IF BB>=FL[I] THEN BEGIN
SELL[I]:=1;
FOR J=I-1 DOWNTO I-HC DO BEGIN
BOXH[J]:FH[I-HC],LINETHICK0;
BOXL[J]:FL[I-LC],LINETHICK0;
END;
HC:=-1;
LC:=0;
END;ELSE BEGIN
BOXH[I]:FH[I-HC],LINETHICK0;
BOXL[I]:FL[I-LC],LINETHICK0;
END;
END;
HC:=HC+1;
IF LC>1 THEN BEGIN
IF BB<FL[I] THEN BEGIN
LC:=LC+1;
IF LC=3 THEN BEGIN
SIGNAL[I-HC+1]:=1;
FOR J=I DOWNTO I-HC+1 DO BEGIN
BOXH[J]:FH[I-HC+1],LINETHICK0;
BOXL[J]:FL[I-LC+1],LINETHICK0;
END;
END;
END;ELSE
LC:=0;
END;ELSE
IF LC=1 THEN BEGIN
IF BB<FL[I] THEN BEGIN
LC:=LC+1;
END;ELSE
LC:=0;
END;
IF LC=0 AND HC>1 THEN BEGIN
BB:=FL[I];
LC:=LC+1;
END;
END;ELSE BEGIN
HC:=0;
LC:=0;
END;
END;ELSE
IF HC=1 THEN BEGIN
IF BT>FH[I] THEN
HC:=HC+1;ELSE BEGIN
HC:=0;
LC:=0;
END;
END;
IF HC=0 THEN BEGIN
BT:=FH[I];
HC:=HC+1;
END;
END;
PARTLINE(BOXH AND BOXH=REF(BOXH,1),BOXH),colorFFFF;
PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),colorFFFF;
STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),colorFFFF;
DRAWICON(BUY,LOW*0.98,4);
DRAWICON(SELL,HIGH*1.02,5);
END;
IF DD=2 THEN BEGIN
DRAWGBK(DD=2,COLORRGB(1,888,888),COLORRGB(1,222,444),1);
MA3:MA(CLOSE,3);
MA5:MA(CLOSE,5),colorFFFF;
MA21:MA(CLOSE,21);
AA:=REF(HIGH,12)=HHV(HIGH,2*12+1);
BB:=BACKSET(AA,12+1);
CC:=FILTER(BB,12) AND HIGH=HHV(HIGH,12+1);
DRAWICON(CC AND ISLASTBAR=1,HIGH*1.01,10);
AA2:=REF(LOW,12)=LLV(LOW,2*12+1);
BB2:=BACKSET(AA2,12+1);
CC2:=FILTER(BB2,12) AND LOW=LLV(LOW,12+1);
DRAWICON(CC2 AND ISLASTBAR=1,LOW*0.998,11);
GG:=ISLASTBAR=1 AND REF(CC,BARSLAST(CC));
HH:=BACKSET(GG,BARSLAST(CC)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,HIGH,II,HIGH,1),colorFF;
GG2:=ISLASTBAR=1 AND REF(CC2,BARSLAST(CC2));
HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,LOW,II2,LOW,1),colorFF00;
LA1:=LLVBARS(LOW,30);
LA2:=BACKSET(ISLASTBAR,LA1+1);
LA:=FILTER(LA2,30);
DRAWICON(LA,LOW,10);
LB1:=LLVBARS(LOW,60);
LB2:=BACKSET(ISLASTBAR,LB1+1);
LB:=FILTER(LB2,60);
DRAWICON(LB,LOW,10);
LC1:=LLVBARS(LOW,120);
LC2:=BACKSET(ISLASTBAR,LC1+1);
LC:=FILTER(LC2,120);
DRAWICON(LC,LOW,10);
LD1:=LLVBARS(LOW,250);
LD2:=BACKSET(ISLASTBAR,LD1+1);
LD:=FILTER(LD2,250);
DRAWICON(LD,LOW,10);
LINEVALUE(LD,LOW,LC,LOW,0,0),colorFFFF;
LINEVALUE(LC,LOW,LB,LOW,0,0),colorFF9000;
LINEVALUE(LB,LOW,LA,LOW,0,0),colorFF00;
VAR1:=(2*CLOSE+HIGH+LOW)/4;
VAR2:=MA(VAR1,5);
VAR3:=MA(VAR1,21);
VAR4:=MA(VAR1,60);
STICKLINE(VAR1>=VAR2,CLOSE,OPEN,6,0),colorFF00FF;
STICKLINE(VAR1>=VAR2,HIGH,LOW,0,0),colorFF00FF;
STICKLINE(VAR1<VAR2,CLOSE,OPEN,6,0),colorFFFFFF;
STICKLINE(VAR1<VAR2,HIGH,LOW,0,0),colorFFFFFF;
STICKLINE(VAR1<=VAR3 AND VAR1>OPEN,CLOSE,OPEN,6,0),colorFFFF;
STICKLINE(VAR1<=VAR3 AND VAR1>OPEN,HIGH,LOW,0,0),colorFFFF;
STICKLINE(VAR1>=VAR4 AND VAR1>OPEN,CLOSE,OPEN,6,0),colorFF;
STICKLINE(VAR1>=VAR4 AND VAR1>OPEN,HIGH,LOW,0,0),colorFF;
STICKLINE(VAR1>=VAR4 AND VAR1<OPEN,CLOSE,OPEN,6,0),color646464;
STICKLINE(VAR1>=VAR4 AND VAR1<OPEN,HIGH,LOW,0,0),color646464;
A3:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1));
B3:=REF(CLOSE,A3+1)>CLOSE AND REF("MACD.DIFF",A3+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA");
DRAWTEXT(FILTER(B3>0,5),LOW-0.38,'MACD底背'),colorFF00;
C3:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
D3:=REF(CLOSE,C3+1)>CLOSE AND REF("KDJ.K",C3+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(FILTER(D3>0,5),LOW-0.39,'KDJ底背'),colorFFFF;
短线2:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
短线1:=REF(CLOSE,短线2+1)>CLOSE AND REF("RSI.RSI1",短线2+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(短线1>0,5),LOW,'RSI底背'),colorFFFF00;
MA10:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFF"),1));
VARA:=REF(CLOSE,MA10+1)<CLOSE AND REF("MACD.DIFF",MA10+1)>"MACD.DIFF" AND CROSS("MACD.DEA","MACD.DIFF");
DRAWTEXT(FILTER(VARA>0,5),HIGH+0.08,'MACD顶背'),colorFFF
[url=http://www.70822.com/soft/sort013/sort02/down-4581.html]W百变K线[/url]