软件名称：[B]箱体－－类弘历软件箱体（源码、主图、贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-12-27 04:02:31
软件简介:

{-----------------------☆功能开关------------------------}
{箱体部分}
cc:=c;
oo:=o;
hh:=h;
ll:=l;
top:=h;
bot:=l;
xx[1]:=1;
kk:=1;
for i=1 to datacount do begin
  if xx=1 then begin
    top:=hh;
  end;
  if xx[i-1]=1 then begin
    if hh>top[i-1] then begin
      top:=hh;
      xx:=1;
    end;else begin
      top:=top[i-1];
      xx:=2;
      end;
  end;
  if xx[i-1]=2 then begin
    if hh>top[i-1] then begin
      top:=hh;
      xx:=1;
    end;else begin
      top:=top[i-1];
      bot:=ll;
      xx:=3;
    end;
  end;
  if xx[i-1]=3 then begin
    top:=top[i-1];
    if ll<bot[i-1] then begin
      bot:=ll;
      xx:=3;
    end;else begin
      bot:=bot[i-1];
      xx:=4;
    end;
  end;
  if xx[i-1]=4 then begin
    top:=top[i-1];
    if ll<bot[i-1] then begin
      bot:=ll;
      xx:=3;
    end;else begin
      bot:=bot[i-1];
      xx:=5;
    end;
  end;
  if xx[i-1]=5 then begin
      if ll<bot[i-1] or hh>top[i-1] then begin
      top:=hh;
      bot:=hh;
      xx:=1;
      end;else begin
      bot:=bot[i-1];
      top:=top[i-1];
      xx:=5;
    end;
  end; 
end;
for j=1 to datacount do begin
  if xx[j]=5 and xx[j-1]=4 then begin
    for k=j-1 downto j-kk do begin
      top[k]:=top[j];
      bot[k]:=bot[j];
    end;
  end;
  if xx[j-1]=5 and xx[j]=1 then kk:=0;
  kk:=kk+1;
end;
中位线:=(top+bot)/2;

{信号部分---参考}
买点:=FILTER((TROUGHBARS(3,15,1)<4)=1,3);
卖点:=FILTER((PEAKBARS(3,15,1)<4)=1,3); 
{短波--未来}
F:=100*(C-REF(C,1))/REF(C,1);
p1:=IF(C<REF(O,1) AND f<0,1,0);
p3:=IF(C>REF(O,1) AND f>0,1,0);
p2:=IF(C<REF(O,2) AND f<0,1,0);
p4:=IF(C>REF(O,2) AND f>0,1,0);
买D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;
卖D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1;
FZ:=PEAK(3,5,1);
FW:=PEAKBARS(3,5,1);
GZ:=TROUGH(3,5,1);
GW:=TROUGHBARS(3,5,1);
AS:=ZIG(3,3); 
涨AL:=CROSS(AS,REF(AS,1));
跌AG:=CROSS(REF(AS,1),AS);
Ss1:=IF(FW>GW,FW,0);
Ss2:=IF(FW<GW,GW,0);
Ss3:=BARSLAST(Ss1);
Ss4:=BARSLAST(Ss2);
{---------立体K线--------}
M1:MA(CLOSE,5);
M2:MA(CLOSE,13);
M3:MA(CLOSE,30);
M4:MA(CLOSE,60);
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,9,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00cc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2.4,0 ),COLOR33ff00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.1,0 ),COLOR66ff00;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,9,0 ),COLOr000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6 ,0 ),COLOR0000cc;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4 ,0 ),COLOR0000ff;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1 ,0 ),COLOR0033ff;

STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR9933ff;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR9933ff;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR66cc33;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR66cc33;

A0:=NUMTOSTR(MA(VOL,5),2);
B0:=NUMTOSTR(MA(VOL/CAPITAL*100,5)*5,2);
TYP:=(HIGH+LOW+CLOSE)/3;
LL:=LLV(LOW,12);
HH:=HHV(HIGH,12);
WR:=TYP+(TYP-LL);
WS:=TYP-(HH-TYP);
WA:=NUMTOSTR(WR,2);
WB:=NUMTOSTR(WS,2);
MM:=BUYVOL/(BUYVOL+SELLVOL)*100;
ZLM1:=(DYNAINFO(23)/2+DYNAINFO(22)/10)/2;
ZLM2:=MA(VOL,60)*0.333;
ZLM3:=CAPITAL*(MA(VOL/CAPITAL*100,60)*60-INDEXV/ESTDATA(1)*1000);
ZLM:=(ZLM1+ZLM2+ZLM3)/3;
T:=NUMTOSTR(ZLM/10000,2);

DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'\n'+BLKNAME+'；五日均量:'+A0+',五日换手:'+B0+'％'+',支撑:'
+WB+',压力:'+WA+',\n主力持仓:'+T),align4,COLORGREEN;

A1:=BARSLAST(REF(CROSS("macd.diff","macd.dea"),1));
B1:=REF(CLOSE,A1+1)>CLOSE and REF("macd.diff",A1+1)<"macd.diff" and CROSS("macd.diff","macd.dea");

A2:=BARSLAST(REF(CROSS("kdj.k","kdj.d"),1));
B2:=REF(CLOSE,A2+1)>CLOSE and REF("kdj.k",A2+1)<"kdj.k" and CROSS("kdj.k","kdj.d");

A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(CLOSE,A3+1)>CLOSE and REF("RSI.RSI1",A3+1)<"RSI.RSI1" and CROSS("RSI.RSI1","RSI.RSI2");

FIL1:=FILTER(B1>0,7) or FILTER(B2>0,7) or FILTER(B3>0,7);
DRAWTEXT(FIL1,LOW-0.02,'底背'),COLORRED;

C1:=BARSLAST(REF(CROSS("macd.dea","macd.diff"),1));
D1:=REF(CLOSE,C1+1)<CLOSE and REF("macd.diff",C1+1)>"macd.diff" and CROSS("macd.dea","macd.diff");

C2:=BARSLAST(REF(CROSS("kdj.d","kdj.k"),1));
D2:=REF(CLOSE,C2+1)<CLOSE and REF("kdj.k",C2+1)>"kdj.k" and CROSS("kdj.d","kdj.k");

C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(CLOSE,C3+1)<CLOSE and REF("RSI.RSI1",C3+1)>"RSI.RSI1" and CROSS("RSI.RSI2","RSI.RSI1");

FIL2:=FILTER(D1>0,7) OR FILTER(D2>0,7) OR FILTER(D3>0,7);
DRAWTEXT(FIL2,HIGH+0.1,'顶背'),COLORBLUE;

{-----------------【图解模板】---------------------};
{箱体部分}
PARTLINE(top=ref(top,1),top),Color008293;//箱顶
PARTLINE(bot=ref(bot,1),bot),Color008293;//箱底
STICKLINE((top<>ref(top,1) or bot<>ref(bot,1)) and xx=1 and ref(xx,1)=5,top,bot,1,0),Color008293;//左侧竖线
STICKLINE((top<>refx(top,1) or bot<>refx(bot,1)) and xx=5 and refx(xx,1)=1,top,bot,1,0),Color008293;//右侧竖线

{-------阻力支撑------}
b:=BARSCOUNT(CLOSE)=SYSPARAM(2);
d:=BARSLAST(b);
hh:=HHV(HIGH,d);
DRAWTEXT(BARSTATUS=2,hh,STKLABEL+' '+STKNAME+'                                                                              &nb
[url=http://www.70822.com/soft/sort013/sort02/down-42536.html]箱体－－类弘历软件箱体（源码、主图、贴图）[/url]