6职业传奇是什么:箱体王 - 【指标公式及技术研讨】 - 老钱庄股票论坛 中国最好的股票论坛-纵横股海梦,情...

来源:百度文库 编辑:中财网 时间:2024/04/29 12:24:27
返回列表 回复 发帖 lsphx
  • 发短消息
  • 加为好友

lsphx 当前离线

UID
275462 
帖子
599 
精华
积分
6026 
威望
16  
庄币
1229  充值
推广币
0  
阅读权限
80 
性别
男 
在线时间
352 小时 
注册时间
2008-12-18 
最后登录
2009-10-14 

高级经理

财富圈 模拟炒股

金币
充值
积分
6026 
威望
16  
庄币
1229  充值
推广币
0  
阅读权限
80 
性别
男 
1 打印 tT 发表于 2009-5-11 21:26 | 只看该作者     舞台617493坐镇专家解答栏目,有问必答! |老钱庄模拟炒股大奖赛004期报名开始,现金大奖等你拿!

[飞狐] 箱体王

箱体王
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),colorAA;
STICKLINE(CLOSESTICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),colorCC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),colorDD;
STICKLINE(CLOSE>OPEN,HIGH,LOW,0,0),colorFF;
STICKLINE(CLOSESTICKLINE(CLOSESTICKLINE(CLOSEFH:=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 BBLC:=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 BBLC:=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;