箱体王 - 分析家公式网

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

当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：箱体王

软件名称：[B]箱体王[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-05-22 00:07:27
软件简介:

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),COLORAA;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,8,0),COLOR998855;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),COLORCC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLORDD;
STICKLINE(CLOSE>OPEN,HIGH,LOW,0,0),COLORFF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,5,0),COLORBBAA77;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLORDDCC99;
STICKLINE(CLOSE<OPEN,HIGH,LOW,0,0),COLORFFEEBB;
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),LINEDOT,COLORFFFF;
PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),LINEDOT,COLORFFFF;
STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),LINEDOT,COLORFFFF;
DRAWICON(BUY,LOW*0.98,4);
DRAWICON(SELL,HIGH*1.02,5);
A1:=BOXH AND BOXH=REF(BOXH,1);
A2:=REFX(REF(A1=0,1) AND A1=1,1);
A3:=REFX(REF(A1=1,1) AND A1=0,1);
DRAWLINE(A2,BOXL,A3,BOXH,0),COLORFF9900;
DRAWLINE(A2,BOXH,A3,BOXL,0),COLORFF00;
PARTLINE(BOXH AND BOXH=REF(BOXH,1),(BOXH-BOXL)/2+BOXL),COLORFF9900;
STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),LINEDOT,COLORFFFF;
ZZ:=BACKSET(REFX(BUY OR SELL,1),BARSLAST(SIGNAL)/2);
ZX:=REFX(REF(ZZ=0,1) AND ZZ=1,1);
DRAWLINE(SIGNAL,BOXH,ZX,BOXL,0),LINEDOT,COLORFF00;
DRAWLINE(SIGNAL,BOXH,REFX(BUY OR SELL,1),(BOXH-BOXL)/2+BOXL,0),LINEDOT,COLORFF00;
DRAWLINE(SIGNAL,BOXL,ZX,BOXH,0),LINEDOT,COLORFF9900;
DRAWLINE(SIGNAL,BOXL,REFX(BUY OR SELL,1),(BOXH-BOXL)/2+BOXL,0),LINEDOT,COLORFF9900;
DRAWLINE(SIGNAL,BOXH,ISLASTBAR AND BOXH>BOXL,BOXL,0),COLORFF00;
DRAWLINE(SIGNAL,BOXH,ISLASTBAR AND BOXH>BOXL,(BOXH-BOXL)/2+BOXL,0),LINEDOT,COLORFF00;
DRAWLINE(SIGNAL,BOXL,ISLASTBAR AND BOXH>BOXL,BOXH,0),COLORFF9900;
DRAWLINE(SIGNAL,BOXL,ISLASTBAR AND BOXH>BOXL,(BOXH-BOXL)/2+BOXL,0),LINEDOT,COLORFF9900;
ZA:=BACKSET(ISLASTBAR AND BOXH>BOXL,BARSLAST(SIGNAL)/2);
ZB:=REFX(REF(ZA=0,1) AND ZA=1,1);
DRAWLINE(SIGNAL,BOXH,ZB,BOXL,0),LINEDOT,COLORFF00;
DRAWLINE(SIGNAL,BOXL,ZB,BOXH,0),LINEDOT,COLORFF9900;

[url=http://www.70822.com/soft/sort013/sort02/down-34022.html]箱体王[/url]