1

[ 本帖最后由 蓝鼠 于 2008-4-1 10:26 编辑 ]

2

3

[ 本帖最后由 蓝鼠 于 2008-4-3 09:12 编辑 ]

引用:

公式名称: 箱体顶底
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2007-04-09
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%C4%BD%D4%B6

引用:

答“xecret ”网友——箱体顶底



根据（恒悦）原码优化，不知你能满意否？


DRAWGBK(1, COLORRGB(100,100,100),COLORRGB(50,50,50),0);

{-----------------------☆功能开关------------------------}
{箱体部分}
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);

{-----------------【图解模板】---------------------};
{箱体部分}
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;//右侧竖线
{K线}
STICKLINE(cc>oo,cc,oo,8,1),color5454ff;
STICKLINE(cc>oo,ll,oo,0.9,1),color5454ff;
STICKLINE(cc>oo,hh,cc,0.9,1),color5454ff;
STICKLINE(cc<oo,cc,oo,8,0.5),ColorFFA800;
STICKLINE(cc<oo,hh,ll,0.9,0.5),ColorFFA800;
{信号部分---参考}
{未来}
STICKLINE(买点,L,(O+C)/2,0,0),COLORWHITE; {未来买点}
STICKLINE(买点,C,(O+C)/2,5,0),COLORWHITE; {未来买点}
STICKLINE(卖点,H,(O+C)/2,0,0),COLORYELLOW;{未来卖点}
STICKLINE(卖点,C,(O+C)/2,5,0),COLORYELLOW;{未来卖点}
{短波--未来}
STICKLINE(买D5 and 涨AL,L,(O+C)/2,0,0),COLORWHITE; {未来买}
STICKLINE(买D5 and 涨AL,O,(O+C)/2,5,0),COLORWHITE; {未来买}
STICKLINE(卖D6 and 跌AG,L,(O+C)/2,0,0),Color3EA63E;{未来卖}
STICKLINE(卖D6 and 跌AG,O,(O+C)/2,5,0),Color3EA63E;{未来卖}
{短波--未来--画线写字}
DRAWLINE(FW=0,FZ,GW=0 or ISLASTBAR,REF(FZ,FW),0),Color02A800;   //未来--转跌
DRAWLINE(GW=0,GZ,FW=0 or ISLASTBAR,REF(GZ,GW),0),COLORMAGENTA;  //未来--转涨
DRAWTEXT(BARPOS=SYSPARAM(2),h,'■上涨第'+NUMTOSTR(Ss4[SYSPARAM(1)],0)+'天'),align4,COLORMAGENTA;//未来
DRAWTEXT(BARPOS=SYSPARAM(2),h,' \n■下跌第'+NUMTOSTR(Ss3[SYSPARAM(1)],0)+'天'),align4,COLORCYAN;//未来
{箱体部分}
PARTLINE(top=ref(top,1),中位线),LINEDOT,Color008293;//中位线
//

指标下载：

引用:

公式名称: 易水江山全部指标原码
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2005-11-28
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%C4%BD%D4%B6

引用:

M论坛版主 yngs 大师破解的易水江山全部指标原码



公式来自于号称“可确保大家一年收益翻两番”的易水晶龙雅虎公文包，易水江山股票智能决策系统股神0号选股公式组，呵呵！大家都开开眼！

此贴值得你回帖！


哀兵必胜

input:N1(14,1,100),N2(7,1,100),M1(60,1,200),M2(22,1,100);
VAR1:=REF(CLOSE,1);
VAR2:=((SMA(MAX((CLOSE - VAR1),0),N1,1) / SMA(ABS((CLOSE - VAR1)),N1,1)) * 100);
VAR3:=((SMA(MAX((CLOSE - VAR1),0),(N1 + N2),1) / SMA(ABS((CLOSE - VAR1)),(N1 + N2),1)) * 100);
VAR4:=((100 * (MA(CLOSE,N1) - CLOSE)) / MA(CLOSE,N1));
VAR5:=((100 * (MA(CLOSE,(N1 + N2)) - CLOSE)) / MA(CLOSE,(N1 + N2)));
哀兵:IF((((((VAR2 + VAR3) < M1) AND VAR4) AND (VAR5 > M2)) AND (BARSCOUNT(CLOSE) > (N1 + N2))),100,0);

-------------------------------------------------------------------------


百无一失

input:N1(27,1,100),N2(16,1,100);
VAR1:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR2:=(MA(VOL,2) / MA(VOL,10));
VAR3:=(VOL / CAPITAL);
VAR4:=((((0.007 * VAR1) - (0.007 * VAR2)) - (0.568 * VAR3)) - 0.01);
VAR5:=((((0.002 * VAR1) - (0.012 * VAR2)) + (1.746 * VAR3)) - 0.007);
VAR6:=(((((0 - 0) * VAR1) + (0.047 * VAR2)) - (0.573 * VAR3)) - 0.055);
百胜:IF(((((((0 - 12.24) * VAR4) - (1 * VAR5)) + 0.321) < 0) AND (((MA(CLOSE,N1) - CLOSE) / MA(CLOSE,N1)) > (N2 / 100))),100,0);

----------------------------------------------------------------------------

别有洞天

input:M1(25,1,100),M2(8,1,100),M3(3,1,100);
VAR1:=((VOL / CAPITAL) * 100);
VAR2:=HHVBARS(HIGH,50);
VAR3:=(((REF(OPEN,VAR2) - CLOSE) / REF(OPEN,VAR2)) * 100);
VAR4:=(REF(CLOSE,2) * 0.865);
VAR5:=(REF(CLOSE,13) * 0.772);
VAR6:=MIN(VAR4,VAR5);
洞天:IF((((((CLOSE - VAR6) / CLOSE) < (M3 / 100)) AND (VAR3 > M1)) AND (SUM(VAR1,5) < M2)),100,0);

---------------------------------------------------------------------------


财神之底

input:N1(6,1,100),N2(22,1,100);
VAR1:=((((MA(CLOSE,5) - CLOSE) / MA(CLOSE,5)) * 100) > N1);
VAR2:=(EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 1000),3) < N2);
抄底:IF((VAR1 AND VAR2),100,0);

----------------------------------------------------------------------------

抄底之神

input:N1(5,1,100),N2(32,1,100),N3(10,1,100);
VAR1:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR2:=(((REF(OPEN,30) - CLOSE) / REF(OPEN,30)) * 100);
VAR3:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);
VAR4:=SMA(VAR3,3,1);
VAR5:=SMA(VAR4,3,1);
底神:IF((((VAR1 > N1) AND (REF(VAR2,1) > N2)) AND (REF(VAR5,1) < N3)),100,0);


---------------------------------------------------------------------------

超绝之底


VAR1:=((((EMA(CLOSE,5) / EMA(EMA(CLOSE,9),16)) <= 0.85) AND ((CLOSE / REF(CLOSE,1)) > 0.905)) AND ((CLOSE / REF(CLOSE,1)) < 1.05));
VAR2:=((((0 - 100) * (HHV(HIGH,34) - CLOSE)) / (HHV(HIGH,34) - LLV(LOW,34))) + 100);
VAR3:=((((0 - 100) * (HHV(HIGH,50) - CLOSE)) / (HHV(HIGH,50) - LLV(LOW,50))) + 100);
VAR4:=((((0 - 100) * (HHV(HIGH,70) - CLOSE)) / (HHV(HIGH,70) - LLV(LOW,70))) + 100);
VAR5:=(((((CLOSE - MA(CLOSE,34)) / MA(CLOSE,34)) * 100) + 10) * 5);
VAR6:=(((((CLOSE - MA(CLOSE,50)) / MA(CLOSE,50)) * 100) + 10) * 5);
VAR7:=(((((CLOSE - MA(CLOSE,70)) / MA(CLOSE,70)) * 100) + 10) * 5);
VAR8:=((((((VAR2 + VAR3) + VAR4) + VAR5) + VAR6) + VAR7) / 6);
VAR9:=EMA(VAR8,3);
VARA:=ABS((VAR5 - VAR7));
VARB:=((VAR8 + VARA) / 2);
VARC:=(((0 - 1) * (EMA((100 * (1 - WINNER(CLOSE))),1) - 50)) + 50);
VARD:=(VARC + VARB);
VARE:=((VAR1 > 0) AND (VARD < 0));
VARF:=((((VARB < 0) AND (CLOSE = LLV(CLOSE,5))) AND ((CLOSE / REF(CLOSE,1)) > 0.905)) AND ((CLOSE / REF(CLOSE,1)) < 1.05));
VAR10:=(REF(CLOSE,2) * 0.865);
VAR11:=(REF(CLOSE,13) * 0.772);
VAR12:=MIN(VAR10,VAR11);
VAR13:=(((CLOSE - VAR12) / CLOSE) < 0.03);
底部:IF(VAR13 AND (VARF OR VAR1 OR VARE),100,0);

----------------------------------------------------------------------

底部神探

input:N1(30,1,100),N2(30,1,100),N3(17,1,100),N4(43,1,100);
VAR1:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR2:=(EMA(WINNER(CLOSE),3) * 100);
VAR3:=(((REF(CLOSE,N1) - CLOSE) / REF(CLOSE,N1)) * 100);
VAR4:=((10 * VOL) / MA(VOL,250));
神探:IF(((((VAR1 > VAR2) AND (REF(VAR3,1) > N2)) AND (REF(VAR4,1) < N3)) AND (REF(VAR4,1) > (N4 / 10))),100,0);

----------------------------------------------------------------------

底部追涨

input:N1(5,1,100),N2(50,1,100),M1(25,1,100),M2(15,1,100);
VAR1:=(((MA(CLOSE,(N1 + N2)) - MA(CLOSE,N1)) / MA(CLOSE,(N1 + N2))) * 100);
VAR2:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
VAR3:=SMA(VAR2,3,1);
VAR4:=SMA(VAR3,3,1);
底部:IF((CROSS(VAR4,M2) AND (VAR1 > M1)),100,0);

----------------------------------------------------------------------

滑道小心

input:N1(250,1,500),N2(20,1,100),M1(50,1,100),M2(35,1,100);
VAR1:=(MA((VOL / MA(VOL,N1)),N2) < (M1 / 10));
VAR2:=((((REF(CLOSE,N2) - CLOSE) / REF(CLOSE,N2)) * 100) > M2);
底部:IF(((VAR1 AND VAR2) AND (BARSCOUNT(CLOSE) > (N1 - 1))),100,0);

----------------------------------------------------------------------

九阴雌剑

input:N(12,1,100);
VAR1:=REF(CLOSE,1);
VAR2:=REF(VOL,1);
VAR3:=((CLOSE - VAR1) / (CLOSE + VAR1));
VAR4:=((VOL - VAR2) / (VOL + VAR2));
VAR5:=(SUM(ABS(VAR4),N) / SUM(ABS(VAR3),N));
VAR6:=((SMA(MAX((CLOSE - VAR1),0),N,1) / SMA(ABS((CLOSE - VAR1)),N,1)) * 100);
A1:=((VAR5 < 6) AND (VAR6 < 25));
A2:=((VAR5 < 7) AND (VAR6 < 30));
A3:=((VAR5 < 8) AND (VAR6 < 31));
雌:IF((A1 OR A2 OR A3) AND BARSCOUNT(CLOSE) > 60,100,0);


----------------------------------------------------------------------

腊梅报春

input:N1(4,0,100),N2(30,1,100),N3(19,1,100);
VAR1:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR2:=(((REF(OPEN,30) - CLOSE) / REF(OPEN,30)) * 100);
VAR3:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),9,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),9,1)) * 100);
腊梅:IF(VAR1 > N1 AND VAR2 > N2 AND COUNT(VAR3 < N3,10) > 1,100,0);

----------------------------------------------------------------------

龙跃九渊

input:N1(21,1,100),N2(34,1,100),M1(25,1,100);
VAR1:=(((CLOSE - MA(CLOSE,N1)) / STD(CLOSE,N1)) * 100);
VAR2:=EMA(VAR1,5);
VAR3:=EMA(VAR2,5);
VAR4:=(((MA(CLOSE,N2) - CLOSE) / MA(CLOSE,N2)) * 100);
龙:IF(CROSS(VAR2,VAR3) AND REF(VAR4,1) > M1 AND CLOSE > REF(CLOSE,1),100,0);


----------------------------------------------------------------------

三神临门

input:M1(17,1,100),N1(3,1,100),M2(11,1,100);
VAR1:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VAR2:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VAR3:=(((CLOSE - MA(CLOSE,32)) / MA(CLOSE,32)) * 100);
VAR4:=(((VAR1 + VAR2) + VAR3) / 3);
VAR5:=(VOL / CAPITAL);
VAR6:=(1000 * EMA(VAR5,N1));
财气:IF(VAR4 < - 1 * M1 AND VAR6 < M2,100,0);

----------------------------------------------------------------------

神窥底顶

VAR1:=REF(CLOSE,1);
VAR2:=((SMA(MAX((CLOSE - VAR1),0),7,1) / SMA(ABS((CLOSE - VAR1)),7,1)) * 100);
VAR3:=((SMA(MAX((CLOSE - VAR1),0),13,1) / SMA(ABS((CLOSE - VAR1)),13,1)) * 100);
VAR4:=((100 * (HHV(HIGH,48) - LOW)) / HHV(HIGH,48));
VAR5:=((100 * (HIGH - LLV(LOW,48))) / LLV(LOW,48));
底部:IF(VAR2 < 15 AND VAR3 < 20 AND (VAR2 + VAR3) > 20 AND VAR4 > 40 AND BARSCOUNT(CLOSE) > 47,100,0);



----------------------------------------------------------------------

顺势而为

input:N1(29,1,100),N2(25,1,100),M(11,1,100);
VAR1:=(EMA(CLOSE,N1) - EMA(CLOSE,(N1 + N2)));
VAR2:=MA(VAR1,5);
底部:IF(CROSS(VAR1,VAR2) AND REF(VAR1 * (-100) / EMA(CLOSE,N1 + N2) > M,1) AND BARSCOUNT(CLOSE) > (N1 + N2),100,0);



----------------------------------------------------------------------

太极神功

input:N1(25,1,100),N2(20,1,100),N3(40,1,100);
VAR1:=(((CLOSE - LLV(LOW,64)) / (HHV(HIGH,64) - LLV(LOW,64))) * 100);
VAR2:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),18,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),18,1)) * 100);
VAR3:=(((HHV(HIGH,64) - LOW) / HHV(HIGH,64)) * 100);
丹田:IF(100 * VAR1 / VAR2 < N1 AND VAR3 > N3 AND VAR2 < N2 AND VAR2 > 10 AND BARSCOUNT(CLOSE) > 63,100,0);


----------------------------------------------------------------------

杨眉剑飞

input:N1(4,1,100),N2(3,1,100),N3(16,1,100);
VAR1:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),5);
VAR2:=(EMA((VOL * CLOSE),5) / EMA(VOL,5));
VAR3:=(((CLOSE - VAR2) / VAR2) * 100);
VAR4:=(((MA(CLOSE,20) - CLOSE) / MA(CLOSE,20)) * 100);
剑飞:IF(VAR1 < N1 AND VAR3 < (-1) * N2 AND VAR4 > N3,100,0);


----------------------------------------------------------------------

一柱擎天

input:N1(29,1,100),M1(29,1,100),M2(6,0,100),M3(8,0,100);
VAR1:=(((REF(OPEN,N1) - CLOSE) / REF(OPEN,N1)) * 100);
VAR2:=(((CLOSE - LLV(LOW,N1)) / (HHV(HIGH,N1) - LLV(LOW,N1))) * 100);
VAR3:=SMA(VAR2,3,1);
VAR4:=SMA(VAR3,3,1);
擎天:IF(REF(VAR1,1) > M1 AND CLOSE / OPEN > (1 + M2 / 100) AND REF(VAR4,1) < M3,100,0);


----------------------------------------------------------------------


正月花开

input:M1(39,1,100),M2(23,0,100);
VAR1:=DMA(EMA(CLOSE,12),((SUM(VOL,5) / 3) / CAPITAL));
VAR2:=(((VAR1 - CLOSE) / VAR1) * 100);
花开:IF(REF(VAR2,1) > M1 AND VAR2 < (REF(VAR2,1) - M2 / 10),100,0);

----------------------------------------------------------------------

庄股发力

input:N1(6,1,100),M1(15,1,100),N2(20,1,300),M2(15,1,100);
VAR1:=(MA(WINNER(CLOSE),N1) * 100);
VAR2:=((100 * (MA(CLOSE,N2) - CLOSE)) / MA(CLOSE,N2));
底部:IF(CROSS(VAR1,M1 / 10) AND REF(VAR2,1) > M2 AND BARSCOUNT(CLOSE) > (N1 - 1),100,0);


----------------------------------------------------------------------

江山胜率

input:N(30,0,1000),M(360,0,1000),M2(360,0,1000),M4(240,0,1000);
VAR1:=(MA(HIGH,N) - LOW) / MA(HIGH,N)* 100;
VAR2:=(SMA(HIGH,N,1) - LOW) / SMA(HIGH,N,1) * 100;
VAR3:=(DMA(HIGH,MA(VOL,N) / CAPITAL) - LOW) / DMA(HIGH,MA(VOL,N) / CAPITAL) * 100;
VAR4:=(COST(N) - LOW) / COST(N) * 100;
VAR5:=100* (HHV(HIGH,20) - LOW) / HHV(HIGH,20);
VAR6:=IF(VAR1 > 0,VAR1,0) * IF(VAR2 > 0,VAR2,0) * IF(VAR3 > 0,VAR3,0) * IF(VAR4 > 0,VAR4,0) * IF(VAR5 > 0,VAR5,0);
VAR7:=100 * (VAR6 - LLV(VAR6,M)) / (HHV(VAR6,M) - LLV(VAR6,M));
VAR8:=SMA(VAR7,3,1);
VAR9:=SMA(VAR8,3,1);
VAR10:=((100 * (VAR9 - LLV(VAR9,M2))) / (HHV(VAR9,M2) - LLV(VAR9,M2)));
平均胜率:IF(VAR10 > 50 AND BARSCOUNT(CLOSE) > M4,VAR10,50),LINETHICK2,colorFFFF;
VAR11:=3 * VAR8 - 2 * VAR9;
VAR12:=100 * (VAR11 - LLV(VAR11,M2)) / (HHV(VAR11,M2) - LLV(VAR11,M2));
江山胜率:IF(VAR12 > 50 AND BARSCOUNT(CLOSE) > M4,VAR12,50),LINETHICK2,colorFFFFFF;
100;
75;


----------------------------------------------------------------------

江山心跳

input:N(89,2,100000),M(89,1,10000);
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE - LC,0),N,1) / SMA(ABS(CLOSE - LC),N,1) * 100;
VAR1:=POW((100 - RSI) * REF(WINNER(CLOSE),N) / WINNER(CLOSE),2);
VAR2:=SUM(VAR1,0) / SUM(VAR1 / VAR1,0);
底部:IF(VAR1 > M * VAR2 / 2,VAR1,0),LINETHICK2,colorFF;
VAR3:=POW(RSI * WINNER(CLOSE) / REF(WINNER(CLOSE),N),2);
VAR4:=SUM(VAR3,0) / SUM(VAR3 / VAR3,0);
顶部:IF(VAR3 > M * VAR4 / 2,VAR3,0),LINETHICK2,colorFFFF;


----------------------------------------------------------------------

看盘均线

input:参数(10,1,100);
五:MA(CLOSE,5);
十:MA(CLOSE,10);
二十:MA(CLOSE,20);
三十:MA(CLOSE,30);
六十:MA(CLOSE,60),LINETHICK2,colorFFFF00;
半年:MA(CLOSE,120),LINETHICK2,colorFF;
全年:MA(CLOSE,240),LINETHICK2,colorFF00FF;
ZL1:=(WINNER((1.25 * COST(25))) - WINNER((0.75 * COST(25))));
ZL2:=(WINNER((1.25 * COST(50))) - WINNER((0.75 * COST(50))));
ZL3:=(WINNER((1.25 * COST(75))) - WINNER((0.75 * COST(75))));
ZL:=MAX(MAX(ZL1,ZL2),ZL3);
Z1:=IF((ZL1 = ZL),COST(25),0);
Z2:=IF((ZL2 = ZL),COST(50),0);
Z3:=IF((ZL3 = ZL),COST(75),0);
SCCB:=MAX(MAX(Z1,Z2),Z3);
市场成本:SCCB,LINETHICK2,colorFFFF;
趋势:FORCAST(CLOSE,120),LINETHICK2,colorFFFFFF;
VAR1:=REF(SUM(CLOSE,5),4) - SUM(CLOSE,4);
VAR2:=100 * (五 + 十 + 二十 - 3 * 趋势) / 3 * 趋势;
EXPLAINEX(CLOSE,'五日均线',五,2,0),colorFFFFFF;
EXPLAINEX(CLOSE,'十日均线',十,2,0),colorFFFF;
EXPLAINEX(CLOSE,'二十日均线',二十,2,0),colorFF00FF;
EXPLAINEX(CLOSE,'三十日均线',三十,2,0),colorFF00;
EXPLAINEX(CLOSE,'六十日均线',六十,2,0),colorFFFF00;
EXPLAINEX(CLOSE,'半年均线',半年,2,0),colorFF;
EXPLAINEX(CLOSE,'全年均线',全年,2,0),colorFF00FF;
EXPLAINEX(CLOSE,'市场成本',市场成本,2,0),colorFFFF;
EXPLAINEX(CLOSE,'趋势线',趋势,2,0),colorFFFFFF;
EXPLAIN(100 * ABS(SCCB - REF(SCCB,1)) / REF(SCCB,1) > 2,'变盘'),colorFF;
EXPLAIN(CLOSE > 趋势 AND 趋势 > REF(趋势,1),'趋势上行，多头市场'),colorFF;
EXPLAIN(CLOSE < 趋势 AND 趋势 < REF(趋势,1),'趋势下行，空头市场'),colorFF00;
EXPLAIN(CLOSE > 趋势 AND 趋势 < REF(趋势,1),'趋势下行，空欲翻多'),colorFF00FF;
EXPLAIN(CLOSE < 趋势 AND 趋势 > REF(趋势,1),'趋势下行，多欲翻空'),colorFFFF00;
EXPLAINEX(CLOSE,'明日五日十日线交叉点',VAR1,2,0),colorFF00;
EXPLAIN(CLOSE > VAR1,'明日五日十日线多头排列'),colorFF;
EXPLAIN(CLOSE < VAR1,'明日五日十日线空头排列'),colorFFFF00;
EXPLAINEX(CLOSE,'易度',VAR2,2,0),colorFFFFFF;
EXPLAIN(VAR2 > 0 AND REF(VAR2,1) > 0 AND VAR2 > REF(VAR2,1),'正易度上升，多头上升趋势'),colorFF;
EXPLAIN(VAR2 > 0 AND REF(VAR2,1) > 0 AND VAR2 < REF(VAR2,1),'正易度下降，多头调整趋势'),colorFFFF00;
EXPLAIN(VAR2 < 0 AND REF(VAR2,1) < 0 AND ABS(VAR2) > REF(ABS(VAR2),1),'负易度上升，空头下降趋势'),colorFFFF00;
EXPLAIN(VAR2 < 0 AND REF(VAR2,1) < 0 AND ABS(VAR2) < REF(ABS(VAR2),1),'负易度下降，空头反弹趋势'),colorFF;
EXPLAIN(CROSS(VAR2,0),'易度转正，空翻多'),colorFF;
EXPLAIN(CROSS(0,VAR2),'易度转负，多翻空'),colorFFFF00;
EXPLAIN(ABS(VAR2) < 参数 / 10,'易度过小，面临变盘'),colorFF00;


用法：
1,江山损赢公式有两个：
一个是慢速损赢一个是快速损赢可为了对照使用
两个公式可以相互补充
2，止损点对后势的判断
（1）在上升通道中，当股价缩量回落到止损点甚至跌破止损点时
，往往是最佳的买入时机。
（2）在上升通道中，股价如果放量跌破止损点，通常是行情逆转的象征
（3）在下降通道中，一般跌破止损点就要出局
3，止赢点的应用
（1）在下降通道中，达到止赢点就是出货点
（2）下降通道的末端向上放量突破止赢点为进场信号
上升通道中，如果股价突破上升的止赢价，也是进场信号
（3）上升通道中：如果止赢点走平，股价达到止赢点为出货信号
4，走平的止赢点和止损点
（1）下降通道中，止损点走平，此时股价多在止损点下方，
该线构成强大的压力
（2）上升通道中止损点走平，股价通常在止损点上方，该线
往往构成强大的支撑
（3）止赢点走平，通常是下降的信号


----------------------------------------------------------------------

BDYS江山快损赢

input:简单(2,0,100),滑动(2,0,100),移动(2,0,100),加权(2,0,100);
简止损:= MA(LOW,简单);
简损:IF(简止损 > REF(简止损,1),简止损,REF(简止损,BARSLAST(简止损 > REF(简止损,1)))),LINETHICK2,colorFF;
滑止损:=EMA(LOW,滑动);
滑损:IF(滑止损 > REF(滑止损,1),滑止损,REF(滑止损,BARSLAST(滑止损 > REF(滑止损,1)))),LINETHICK2,colorFFFF;
移止损:=SMA(LOW,移动,1);
移损:IF(移止损 > REF(移止损,1),移止损,REF(移止损,BARSLAST(移止损 > REF(移止损,1)))),LINETHICK2,colorFFFFFF;
权止损:= WMA(LOW,加权);
权损:IF(权止损 > REF(权止损,1),权止损,REF(权止损,BARSLAST(权止损 > REF(权止损,1)))),LINETHICK2,colorFF00;
EXPLAINEX(c,'简止损价',简损,2,0),colorFF;
EXPLAINEX(c,'滑止损价',滑损,2,0),colorFFFF;
EXPLAINEX(c,'移止损价',移损,2,0),colorFFFFFF;
EXPLAINEX(c,'权止损价',权损,2,0),colorFF00;
EXPLAINEX(c,'平均止损',(移损 + 权损 + 滑损 + 简损) / 4,2,0),colorFF0000;
EXPLAIN(CROSS((移损 + 权损 + 滑损 + 简损) / 4,CLOSE),'跌破止损价'),colorFFFF00;
简止赢:=MA(HIGH,简单);
简赢:IF(简止赢 > REF(简止赢,1),简止赢,REF(简止赢,BARSLAST(简止赢 > REF(简止赢,1)))),CROSSDOT,colorFF;
滑止赢:=EMA(HIGH,滑动);
滑赢:IF(滑止赢 > REF(滑止赢,1),滑止赢,REF(滑止赢,BARSLAST(滑止赢 > REF(滑止赢,1)))),CROSSDOT,colorFFFF;
移止赢:=SMA(HIGH,移动,1);
移赢:IF(移止赢 > REF(移止赢,1),移止赢,REF(移止赢,BARSLAST(移止赢 > REF(移止赢,1)))),CROSSDOT,colorFFFFFF;
权止赢:=WMA(HIGH,加权);
权赢:IF(权止赢 > REF(权止赢,1),权止赢,REF(权止赢,BARSLAST(权止赢 > REF(权止赢,1)))),CROSSDOT,colorFF00;
EXPLAINEX(c,'简止赢价',简赢,2,0),colorFF;
EXPLAINEX(c,'滑止赢价',滑赢,2,0),colorFFFF;
EXPLAINEX(c,'移止赢价',移赢,2,0),colorFFFFFF;
EXPLAINEX(c,'权止赢价',权赢,2,0),colorFF00;
EXPLAINEX(c,'平均止赢',(移赢 + 权赢 + 滑赢 + 简赢) / 4,2,0),colorFF0000;
EXPLAIN(CROSS(CLOSE,移赢 + 权赢 + 滑赢 + 简赢) / 4,'突破止赢价'),colorFFFF00;


用法：
1,江山损赢公式有两个：
一个是慢速损赢一个是快速损赢可为了对照使用
两个公式可以相互补充
2，止损点对后势的判断
（1）在上升通道中，当股价缩量回落到止损点甚至跌破止损点时
，往往是最佳的买入时机。
（2）在上升通道中，股价如果放量跌破止损点，通常是行情逆转的象征
（3）在下降通道中，一般跌破止损点就要出局
3，止赢点的应用
（1）在下降通道中，达到止赢点就是出货点
（2）下降通道的末端向上放量突破止赢点为进场信号
上升通道中，如果股价突破上升的止赢价，也是进场信号
（3）上升通道中：如果止赢点走平，股价达到止赢点为出货信号
4，走平的止赢点和止损点
（1）下降通道中，止损点走平，此时股价多在止损点下方，
该线构成强大的压力
（2）上升通道中止损点走平，股价通常在止损点上方，该线
往往构成强大的支撑
（3）止赢点走平，通常是下降的信号

----------------------------------------------------------------------

BDYS江山慢损赢

input:简单(6,0,100),滑动(6,0,100),移动(4,0,100),加权(4,0,100);VAR0:=1;
NL:=FORCAST(2 * CLOSE - HIGH,2);
NH:=FORCAST(2 * CLOSE - LOW,2);
简止损:=MA(NL,简单);
简损:IF(简止损 > REF(简止损,1),简止损,REF(简止损,BARSLAST(简止损 > REF(简止损,1)))),LINETHICK2,colorFF;
滑止损:=EMA(NL,滑动);
滑损:IF(滑止损 > REF(滑止损,1),滑止损,REF(滑止损,BARSLAST(滑止损 > REF(滑止损,1)))),LINETHICK2,colorFFFF;
移止损:=SMA(NL,移动,1);
移损:IF(移止损 > REF(移止损,1),移止损,REF(移止损,BARSLAST(移止损 > REF(移止损,1)))),LINETHICK2,colorFFFFFF;
权止损:=WMA(NL,加权);
权损:IF(权止损 > REF(权止损,1),权止损,REF(权止损,BARSLAST(权止损 > REF(权止损,1)))),LINETHICK2,colorFF00;
EXPLAINEX(c,'简止损价',简损,2,0),colorFF;
EXPLAINEX(c,'滑止损价',滑损,2,0),colorFFFF;
EXPLAINEX(c,'移止损价',移损,2,0),colorFFFFFF;
EXPLAINEX(c,'权止损价',权损,2,0),colorFF00;
EXPLAINEX(c,'平均止损',(移损 + 权损 + 滑损 + 简损) / 4,2,0),colorFF0000;
EXPLAIN(CROSS((移损 + 权损 + 滑损 + 简损) / 4,CLOSE),'跌破止损价'),colorFFFF00;
简止赢:=MA(NH,简单);
简赢:IF(简止赢 > REF(简止赢,1),简止赢,REF(简止赢,BARSLAST(简止赢 > REF(简止赢,1)))),CROSSDOT,colorFF;
滑止赢:=EMA(NH,滑动);
滑赢:IF(滑止赢 > REF(滑止赢,1),滑止赢,REF(滑止赢,BARSLAST(滑止赢 > REF(滑止赢,1)))),CROSSDOT,colorFFFF;
移止赢:=SMA(NH,移动,1);
移赢:IF(移止赢 > REF(移止赢,1),移止赢,REF(移止赢,BARSLAST(移止赢 > REF(移止赢,1)))),CROSSDOT,colorFFFFFF;
权止赢:=WMA(NH,加权);
权赢:IF(权止赢 > REF(权止赢,1),权止赢,REF(权止赢,BARSLAST(权止赢 > REF(权止赢,1)))),CROSSDOT,colorFF00;
EXPLAINEX(c,'简止赢价',简赢,2,0),colorFF;
EXPLAINEX(c,'滑止赢价',滑赢,2,0),colorFFFF;
EXPLAINEX(c,'移止赢价',移赢,2,0),colorFFFFFF;
EXPLAINEX(c,'权止赢价',权赢,2,0),colorFF00;
EXPLAINEX(c,'平均止赢',(移赢 + 权赢 + 滑赢 + 简赢) / 4,2,0),colorFF0000;
EXPLAIN(CROSS(CLOSE,(移赢 + 权赢 + 滑赢 + 简赢) / 4),'突破止赢价'),colorFFFF00;



----------------------------------------------------------------------


跑道粗选

混沌爆破+多空跑道=中线黑马：

1，必须是混沌爆破的黑马
2，熊转牛条件：
1）股价首先在下中轨之间横向震荡，下中轨收窄，
然后股价放量突破中轨。
2）中轨走平后上行
3，多空跑道突破条件
1）股价向上放量突破多空跑道
2）多空跑道向上翻转，快线上穿慢线
3）快线藏于多空跑道之内
4）多空跑道和k线变成红色
4，分界线走平上行
1）股价放量向上突破分界，回抽也不能达到分界线下方
2）分界线走平然后上行
3）出现买入信号（或笑脸）为中线见底信号


input:N1(6,1,100),N2(3,1,100),N3(5,1,100);
CC:=(((HIGH + LOW) + (3 * CLOSE)) / 5);
VAR1:=EMA(CC,5);
VAR2:=EMA(CC,13);
VAR3:=EMA(CC,21);
VAR4:=EMA(CC,34);
HLA:=((((VAR1 + VAR2) + VAR3) + VAR4) / 4);
MA0:=EMA(HLA,4);
MA8:=EMA(HLA,12);
MA16:=EMA(HLA,20);
快:=WMA(CC,30);
慢:=WMA(CC,60);
上:=DMA(COST(50),(VOL / SUM((CLOSE / CLOSE),0)));
下:=DMA(COST(1),(VOL / SUM((CLOSE / CLOSE),0)));
MA06:=MA0 - MA16;
KM:=快 - 慢;
TJ1:=REF(上 - 下,1) > (上 - 下) AND REF(上 - 下,2) < REF(上 - 下,1) AND 10 * ABS(上 - 下) / 下 < N1;
TJ2:=(((REF(ABS(MA06),1) < REF(ABS(MA06),2)) AND (REF(ABS(MA06),1) > ABS(MA06))) AND (((100 * ABS(MA06)) / MA8) < N2));
TJ3:=(((REF(ABS(KM),1) < REF(ABS(KM),2)) AND (REF(ABS(KM),1) > ABS(KM))) AND (((100 * ABS(KM)) / 慢) < N3));
TJ4:=(CLOSE > FORCAST(CLOSE,120));
TJ5:=CROSS(CLOSE,MA8);
粗选:IF(TJ1 AND TJ2 AND TJ2 AND TJ3 AND TJ4 AND TJ5,100,0);



----------------------------------------------------------------------

五级变盘

变盘点或者是重要的高点，或者为重要的低点
级别越高的变盘预示意义越大
各级变盘点越聚焦于某区域，该区域的变盘预示意义越大


T1:=SUMBARS(VOL,CAPITAL);
H1:=FILTER(HHV(HIGH,T1) = REF(HIGH,T1),3);
L1:=FILTER(LLV(LOW,T1) = REF(LOW,T1),3);
STICKLINE(H1 OR L1,0,20,2,1),colorFFFFFF;
DRAWTEXT(H1 OR L1,10,'一级变盘'),colorFFFFFF;
T2:=SUMBARS(VOL,2 * CAPITAL);
H2:=FILTER(HHV(HIGH,T2) = REF(HIGH,T2),3);
L2:=FILTER(LLV(LOW,T2) = REF(LOW,T2),3);
STICKLINE(H2 OR L2,20,40,2,1),colorFF00;
DRAWTEXT(H2 OR L2,30,'二级变盘'),colorFF00;
T3:=SUMBARS(VOL,3 * CAPITAL);
H3:=FILTER(HHV(HIGH,T3) = REF(HIGH,T3),3);
L3:=FILTER(LLV(LOW,T3) = REF(LOW,T3),3);
STICKLINE(H3 OR L3,40,60,2,1),colorFFFF;
DRAWTEXT(H3 OR L3,50,'三级变盘'),colorFFFF;
T4:=SUMBARS(VOL,4 * CAPITAL);
H4:=FILTER(HHV(HIGH,T4) = REF(HIGH,T4),3);
L4:=FILTER(LLV(LOW,T4) = REF(LOW,T4),3);
STICKLINE(H4 OR L4,60,80,2,1),colorFF00FF;
DRAWTEXT(H4 OR L4,70,'四级变盘'),colorFF00FF;
T5:=SUMBARS(VOL,5 * CAPITAL);
H5:=FILTER(HHV(HIGH,T5) = REF(HIGH,T5),3);
L5:=FILTER(LLV(LOW,T5) = REF(LOW,T5),3);
STICKLINE(H5 OR L5,80,100,2,1),colorFF;
DRAWTEXT(H5 OR L5,90,'五级变盘'),colorFF;
0;
20;
40;
60;
80;
100;


----------------------------------------------------------------------

b极目银河


MAA:=EMA(CLOSE,50);
MID:=(((HIGH + LOW) + CLOSE) / 3);
MD:=((SUM(MAX(0,(HIGH - REF(MID,1))),26) / SUM(MAX(0,(REF(MID,1) - LOW)),26)) * 100);
MA1:=EMA(MD,13);
R2:=(REF(HIGH,1) * 1.1);
R3:=(HIGH * 1.1);
R4:=(((R3 * VOL) + (R2 * (CAPITAL - VOL))) / CAPITAL);
R5:=(REF(LOW,1) * 0.9);
R6:=(LOW * 0.9);
R7:=(((R6 * VOL) + (R5 * (CAPITAL - VOL))) / CAPITAL);
R8:=EMA(R7,39);
R9:=EMA(R4,39);
VAR1:=((CLOSE / MA(CLOSE,40)) * 100);
VAR2:=((CLOSE / MA(CLOSE,60)) * 100);
VAR3:=(HIGH > (LOW * 1.051));
VAR4:=(VAR3 AND (COUNT(VAR3,5) > 1));
VAR5:=((VAR4 AND ((VAR1 < 76) OR (VAR2 < 74))) AND (ABS((CLOSE - OPEN)) > (0.01 * REF(CLOSE,1))));
VAR6:=IF((VAR1 > 96),96,VAR1);
VAR7:=IF((VAR2 > 96),96,VAR2);
VAR8:=IF((VAR2 > 96),96,VAR2);
VAR9:=IF((VAR1 > 105),105,VAR1);
VARC:=(HHV(HIGH,9) - LLV(LOW,9));
VARD:=(HHV(HIGH,9) - CLOSE);
VARE:=(CLOSE - LLV(LOW,9));
VARF:=(((VARD / VARC) * 100) - 70);
VAR10:=(((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100);
VAR11:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VAR12:=SMA(((VARE / VARC) * 100),3,1);
VAR13:=LLV(LOW,34);
VAR14:=(SMA(VAR12,3,1) - SMA(VARF,9,1));
VAR15:=IF((VAR14 > 100),(VAR14 - 100),0);
VAR16:=HHV(HIGH,34);
VAR17:=EMA((((VAR11 - VAR13) / (VAR16 - VAR13)) * 100),8);
VAR18:=EMA(VAR17,5);
RED:=(((HIGH + LOW) + (CLOSE * 2)) / 4);
HYS:=LLV(LOW,34);
VR3:=HHV(HIGH,34);
波段:=EMA((((RED - HYS) / (VR3 - HYS)) * 100),9);
B1:=EMA(((0.667 * REF(波段,1)) + (0.333 * 波段)),2);
STICKLINE((B1 > 80),OPEN,CLOSE,8,0),,colorFFFF;
STICKLINE((波段 < 20),OPEN,CLOSE,8,0),,colorFF0000;
STICKLINE((波段 > B1),OPEN,CLOSE,8,0),,colorFF00;
VAR19:=EMA(CLOSE,12);
VAR1A:=EMA(CLOSE,50);
VAR1B:=(((CLOSE - VAR1A) * 0.039) + VAR1A);
VAR1C:=(((CLOSE - VAR19) * 0.154) + VAR19);
VA1:=SMA(((((CLOSE - LLV(LOW,24)) / (HHV(HIGH,24) - LLV(LOW,24))) * 200) - 105),5,1);
VA2:=SMA(((((HHV(HIGH,24) - CLOSE) / (HHV(HIGH,24) - LLV(LOW,24))) * 200) - 125),5,1);
视线:(((CLOSE - MAA) * (2 / (50 + 1))) + MAA),,colorFFFF;
银河:STICKLINE((MD >= MA1),R9,((R9 + (MD / MA1)) - 1),5,1),,colorFFFFFF;
黑洞:STICKLINE((MD < MA1),R8,((R8 + (MD / MA1)) - 1),5,0),,colorFF0000;
行星:DRAWTEXT((CROSS(104.99,VAR9) AND (VAR9 < (1 * REF(VAR9,1)))),(HIGH * 1.02),'★'),,colorFFFF;
恒星:DRAWTEXT((CROSS(VAR18,VAR17) AND (VAR18 > 74)),(HIGH * 1),'●'),,colorFF;
卫星:DRAWTEXT(CROSS(55,VA1),R9,'☆'),,colorFFFFFF;
天穹:DRAWTEXT(CROSS(VA1,VA2),R9,'←穹'),,colorFFFFFF;
聚焦:DRAWTEXT(VAR5,LOW,'⊙'),,colorFF;
镜筒:DRAWTEXT((CROSS(VAR8,84) AND (VAR8 > (1 * REF(VAR8,1)))),(LOW * 0.98),'■'),,colorFF;
支架:DRAWTEXT((CROSS(VAR8,73) AND (VAR8 > (1 * REF(VAR8,1)))),(LOW * 0.96),'▲'),,colorFFFF;
调焦:DRAWTEXT(((CROSS(VAR18,16) AND BETWEEN(MA(CLOSE,3),MA(CLOSE,12),MA(CLOSE,24))) AND (CLOSE > MA(CLOSE,12))),(OPEN * 0.98),'◎'),,colorFF;
AR1:=((((HHV(HIGH,9) - CLOSE) / (HHV(HIGH,9) - LLV(LOW,9))) * 100) - 70);
AR2:=(SMA(AR1,9,1) + 100);
AR3:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
AR4:=SMA(AR3,3,1);
AR5:=(SMA(AR4,3,1) + 100);
AR6:=(AR5 - AR2);
S:=IF((AR6 > 100),(AR6 - 100),0);
OS:=(S - REF(S,1));
望远:DRAWTEXT((CROSS(0,OS) = 1),OPEN,'◆'),,colorFF;
注视:DRAWTEXT(CROSS(55,VA2),R8,'@-@'),,colorFFFF;

引用:

公式名称: 任意K线
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-09-03
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%C4%BD%D4%B6

引用:

任意K线



可任意调整到你需要的周期K线,很方便的，也较直观...........

{任意K线}
DRAWGBK(1, COLORRGB(50,50,50),COLORRGB(100,100,100),0);
input:AA(5,1,1000),BB(20,1,1000);

{-----------------------☆功能开关------------------------}
{月--周期K线}
if datacount<BB then exit;
y1:=mod(barpos,BB);
Y2:=if(y1=0,BB-1,y1-1);
Y3:=barslast(Y2=0);
Y4:=barslast(Y2=BB-1);
Y5:=ref(o,Y3);
Y6:=hhv(h,Y3+1)*(Y4=0);
Y7:=llv(if(L=0,100000,L),Y3+1)*(Y4=0);
Y8:=IF(Y3=0,C,0);
Y9:=IF(Y4=0,C,0);
Y10:=IF(Y4=0,Y6,0);
Y11:=IF(Y4=0,Y7,0);

for n=lbound(Y8) to ubound(Y8) do begin
  if Y8[n]>0 then begin
    for z=n+BB-1 to ubound(Y8) do begin
      if Y9[z]>0 then begin
        for s=n to z-1 do begin
          YC1[s]:=Y9[z];
          YH1[s]:=Y10[z];
          YL1[s]:=Y11[z];
        end;
        break;
      end;
    end;
  end;
end;

YXQc1:=C;
YXQh1:=hhv(h,Y2[datacount]+1);
XQL1:=LLV(if(L=0,1000000,L),Y2[datacount]+1);
YXQCC:=if(barpos>datacount-Y2[datacount]-1,YXQc1[datacount],if(Y2=BB-1,C,YC1));
YXQHH:=if(barpos>datacount-Y2[datacount]-1,YXQh1[datacount],if(Y2=BB-1,ref(YH1,1),YH1));
YXQLL:=if(barpos>datacount-Y2[datacount]-1,XQL1[datacount],if(Y2=BB-1,ref(YL1,1),YL1));

{周--周期K线}
if datacount<AA then exit;
Z1:=mod(barpos,AA);
Z2:=if(Z1=0,AA-1,Z1-1);
Z3:=barslast(Z2=0);
Z4:=barslast(Z2=AA-1);
Z5:=ref(o,Z3);
Z6:=hhv(h,Z3+1)*(Z4=0);
Z7:=llv(if(L=0,100000,L),Z3+1)*(Z4=0);
Z8:=IF(Z3=0,C,0);
Z9:=IF(Z4=0,C,0);
Z11:=IF(Z4=0,Z6,0);
Z12:=IF(Z4=0,Z7,0);

for n=lbound(Z8) to ubound(Z8) do begin
  if Z8[n]>0 then begin
    for z=n+AA-1 to ubound(Z8) do begin
      if Z9[z]>0 then begin
        for s=n to z-1 do begin
          ZC1[s]:=Z9[z];
          ZH1[s]:=Z11[z];
          ZL1[s]:=Z12[z];
        end;
        break;
      end;
    end;
  end;
end;

Zzc1:=C;
Zzh1:=hhv(h,Z2[datacount]+1);
ZzL1:=LLV(if(L=0,1000000,L),Z2[datacount]+1);
ZzCC:=if(barpos>datacount-Z2[datacount]-1,Zzc1[datacount],if(Z2=AA-1,C,ZC1));
ZzHH:=if(barpos>datacount-Z2[datacount]-1,Zzh1[datacount],if(Z2=AA-1,ref(ZH1,1),ZH1));
ZzLL:=if(barpos>datacount-Z2[datacount]-1,ZzL1[datacount],if(Z2=AA-1,ref(ZL1,1),ZL1));

{-----------------【图解模板】---------------------}
{月--周期K线}
FILLRGN(Y2>0 and YXQCC>=Y5,YXQHH,YXQLL),ColorA8A6FF;
FILLRGN(Y2>0 and YXQCC<Y5,YXQHH,YXQLL),ColorD8A668;
{周--周期K线}
FILLRGN(Z2>0 and ZzCC>=Z5,ZzHH,ZzLL),Color8787E9;
FILLRGN(Z2>0 and ZzCC<Z5,ZzHH,ZzLL),ColorFF8E18;
{日--K线}
STICKLINE(C>O,C,O,6,1),COLORRED;
STICKLINE(C>O,C,H,0,1),COLORRED;
STICKLINE(C>O,L,O,0,1),COLORRED;
STICKLINE(O>=C,H,L,0,0),ColorFFFF00;
STICKLINE(O>=C,O,C,6,0),ColorFFFF00;
//

引用:

公式名称: 多空趋势
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2005-08-03
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%C4%BD%D4%B6

引用:

网传价值6万元指标----多空趋势的优化（飞狐）



{●多空趋势●}
是比较典型的K线动力型，它避开是容易被主力做假的最高与最低价，以所有阳线因素或阴线因素与当时的成交量的积构成信号系统，较好地反映了进出点和趋势两个问题。
1.能够判断每一个波段。能够判断每一个短期头部。
2.买入信号安全，卖出信号明确。
3.能够洞察多空能量，有效判断安全区与风险区，精
  确至每一天。
4.指示及时，甚至超前， 准确率极高 。
5.适用于常见的日K线，最好进行还权分析（除权数
  据应及时更新）。
6.简单易懂，通用性强，适用于指数及所有个股。

********* 多空看盘简要使用说明： *************
一，当"空头"运行于零位以下，且"多头"已上穿过
   "空头"或"警报线"，呈开口状态时，则可逢低介
   入：
1.（当"空头"运行于零位以上，
  且"多头"已上穿过"空头"或"警示线"，呈开口状态
  时，则当以反弹看待）;
2.当"警示线"在相对高位上穿"多头"时应考虑卖出，
  做空头时当"多头"在相对高位向下拐头斜率效大时
  就可考虑卖出;
3,做多头时直到在"警示线"在相对高位向下拐头时才
  卖出。
4.通常在一波涨势后"多头"下探零位或"空头"后又上
  穿"警示线"或"空头力量"呈开口状态且股价近似平
  台整理，则还有向上突破的可能。

****************** 操作要点 *********************
1、对保持上升通道的个股应参看5日均价是否破位。
2、高胜率操作：蓝色网络弥漫，即“空头量”线在零
   位以上，代表空头气氛重，不做；黄色网络的后半
   段，即“警示线”上穿“多头”线后，不做；没有
   优秀的短线操作能力与条件，不做。不追高。

***************** 指标价值 *********************

引用:

解压密码：回帖解压



公式密码另索......和朋友们开个玩笑，混个脸熟......哈哈（我不保密）


密码就是:回帖解压

引用:

公式名称: 第二代小天K-KDJ & 奇效--多空
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-01-31
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%C4%BD%D4%B6

引用:

第二代小天K-KDJ & 奇效--多空



第二代小天K-KDJ 是采用了周.日 不同周期组合设计而成.比第一代指标反映的压力位置更为准确也更敏感.

设计原理:采用周,日周期的kdj指标的顶底背离原理,在主图上显示压力与支撑的重要价格.使用方法与小天K-KDJ(第一代)的方法相同.只是反映的敏感程度和重要价位不同.

第一节:小天K-KDJ指标的应用法则
说明:
  这个指标的设计是在飞狐论坛中,在"中文老师"的指导下完成的设计.该指标具有以下5项主要功能.
  1.逃顶----(小天指标名:空中拦截);
  2.炒底----(小天指标名:海底金针,双剑合臂);
  3.股票箱--(小天指标名:天地之间);
  4.放空----(小天指标名:走为上计);
  5.突破----(小天指标名:平地惊雷).
  从这5项功能上看,该指标应该是一个全能的技术指标,因此,大家经常看到我发的贴图中,这个指标出现的频率最多.
小天K-KDJ指标逃顶
1.逃顶----(小天指标名:空中拦截);
由于本指标采用的设计原理是：在主图上及时反映指标的顶背离逃顶，底背离炒底的技术手段。也就是说：如果能准确的理解这个指标，可以在瞬息万变的市场中，迅速的判断顶底。
  （1）RH5的拦截：相当与顶部预警，通常的原则是：只要获利，出现RH5的拦截动作就应该出局。避免高位被套或是空利（已经获利，但没有挣到钱）。
  （2）压力位的拦截：说明趋势已经逆转。
**这两条线的向上抬头，可以形象的比喻为象导弹在空中击落飞机一样，一旦飞机被击中，开动会坠落的。
   从以上两幅图可以看出,这个指标中的[RH5]和[压力线]的主要作用是逃顶.这是股票操作最关键的问题,股谚:"地价百日,天价三天",又说:"会买的是徒弟,会卖的是师傅".可见卖出时难就难在:时间就是金钱.在股价的顶部绝对不允许忧郁.
2.炒底----(小天指标名:海底金针);
前面我们讲了[小天K-kdj]指标的[RH5]和[压力线]，他们的主要作用是逃顶；而该指标的另外两条线[RL5]和[支撑线]的主要作用是用来炒底的。
当股价向下运行时，首先这两条线对股价构成支撑，一旦这两条线被跌破，那么什么时间才能见底呢？
这有两种情况：（1）弱势之底；（2）强势之地。
（1）弱势之底：既股价向下运行时，一些传统的技术分析指标会造成低位钝化，让人很难判断传统指标在低位置的金叉是不是可以买入？这个指标的优点是：不出现
[RL5]或[支撑线]的向下打击就不可能出现底。
（2）强势之底---[双剑和臂]
   股价的回调，有时我们不容易分清是洗盘还是向下定位。既很难区别是强势洗盘（主力没有出货），和出货后的下跌。
*****传统的出货方式是拉高放量，但很多朋友不知道向下定位方式的出货*****
   如果能搞清楚是洗盘，那么就可以低吸，买便宜货。他的技术特征是什么？
让[小天K-KDJ]告诉你：
   A.股价回调时，受到[支撑线]的支撑，[RL5]从下向迎接，并且，[压力线]和[RL5]和到一起----既：[双剑和臂]。这时形成的底部是强势洗盘结束。好就在这时
买便宜货吧。这种强底往往是大行情的开始。
大行情股票一年内也没有几只,能抓住,连做梦都会高兴的.现在,我多找几幅这样的底部,祝朋友们发财.   
-------------------------------------------------------------------------------
  3.股票箱--(小天指标名:天地之间);
  这是[小天k-kdj]指标的第三大功能;这一功能具有预测意义.我们经常碰到这样的问题:反弹开始了,一但开始发动,能看到什么价位?或者,调整开始能在什么地方准备炒底?
  我们说:在操作中,应该心里有数(但不能教条***).
  1.[小天K-KDJ]图6.1:神奇的股票箱预测(反弹预测)
  一但反弹开始,心里应该有一个准备,到什么地方结束?
  预测方法:当股价上穿[支撑线]和[ RL5]时,这时看一下[压力线]和[RH5]在什么位置,反弹的最到高度就在这个地方.如图所示:上海大盘在1874点发生反弹,这时[压力]线在2097点.这就告诉我们,大盘反弹的高度在2100点附近
   2.[小天K-KDJ]神奇的股票箱预测(先放空,走为上计;探底预测)
大盘在2001.07.25日跌破2129点,向下破位,这时我们应该敢放空,就在这时,没有在顶部出局的投资者,已经有了一定深度的被套的损失.这时的心理是:卖不情愿,拿有心理没有底.
怎么办:请先看一下前期的[RL5]在什么位置(1906点),这个数据告诉我们大盘至少要有130点的落差,此时采取的策略是放空.需要说明的是:底部的确认要采用前面讲过的底部技巧.

引用:

先建一个引入指标
{XTYY}
a1:close;
a2:high;
a3:low;

引用:

{ 二代小天K-KDJ }
input: N(8,1,100),M(55,1,100);

zc:=STKINDI(STKLABEL,'xtyy.a1',0,7);//引用周收盘价;
zh:=STKINDI(STKLABEL,'xtyy.a2',0,7);//引用周最高价;
zl:=STKINDI(STKLABEL,'xtyy.a3',0,7);//引用周最低价;
RSV:=(zc-LLV(zl,n))/(HHV(zh,n)-LLV(zl,n))*100;
K:=eMA(RSV,3);
D:=eMA(K,3);
J:=3*K-2*D;
RSV24:=(CLOSE-LLV(LOW,m))/(HHV(HIGH,m)-LLV(LOW,m))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
支撑:IF(CROSS(j,j24),L,REF(L,BARSLAST(CROSS(j,j24)))),COLORYELLOW;
压力:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),COLorred;
U2L:=IF(C>=MA(C,21),80,50);
L2L:=IF(C>=MA(C,21),50,20);
RH1:=IF(j<U2L AND REF(j,1)>=U2L,HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)<U2L)-1),
REF(HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)<U2L)-1),BARSLAST(j<U2L AND REF(j,1))));
RH4:=IF(H>RH1,L,REF(L,BARSLAST(H>RH1)));
RH42:=IF(H>RH1,j,REF(j,BARSLAST(H>RH1)));
强压:IF(H>RH4 AND j<RH42 AND j<j24,H,REF(H,BARSLAST(H>RH4 AND j<RH42 AND j<j24))),COLORgreen;
RL1:=IF(j>L2L AND REF(j,1)<=L2L,LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),
REF(LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),BARSLAST(j>L2L AND REF(j,1))));
RL4:=IF(L<RL1,H,REF(H,BARSLAST(L<RL1)));
RL42:=IF(L<RL1,j,REF(j,BARSLAST(L<RL1)));
强撑:IF(L<RL4 AND j>RL42 AND j>j24,L,REF(L,BARSLAST(L<RL4 AND j>RL42 AND j>j24))),COLORMAGENTA;
STICKLINE(c>=o,l,h,0.1,0),colorred;
STICKLINE(c>=o,o,c,7,1),colorred;
STICKLINE(c<=o,l,h,0.1,0),colorcyan;
STICKLINE(c<=o,o,c,7,0),colorcyan;

引用:

这是一个优化改进的公式，对大盘和个股的趋势预测均有奇效。
使用方法：当长线拐头向上，多空线上穿长线，即四条线从粘合向上呈分散状时介入，介入后做多线(红线)消失，卖出。
注意：多空线在0轴线以下突破长线的成功率极高。多空线非有效突破长线，不介入。

引用:

{奇效--多空}
A:EMA((CLOSE-ref(c,1))/ref(c,1)*10-
(INDEXC-ref(INDEXC,1))/ref(INDEXC,1)*10,5)LINETHICK0,COLORRED;
STICKLINE(A>0,0,A,1,2),LINETHICK1,COLORRED;
STICKLINE(A<0,0,A,1,2),LINETHICK2,COLORGREEN;
HSNP1:=CLOSE-REF(CLOSE,1);
HSNP2:=IF(CLOSE-REF(CLOSE,1)>=0,HSNP1,0);
HSNP3:=REF(CLOSE,1)-CLOSE;
HSNP4:=IF(CLOSE-REF(CLOSE,1)<=0,HSNP3,0);
HSN...:=SUM(HSNP2,90)/SUM(HSNP4,90);
HSNP6:=100-100/(1+HSN...);
HSNP7:=EMA(HSNP6,21);
HSNP8:=EMA(HSNP7,5);
HSNP:=EMA(HSNP7,3);
np:= (HSNP7-HSNP),COLORMAGENTA,linethick1;
nl:=(HSNP-HSNP7),COLORYELLOW,linethick1;
STICKLINE(nl<0,0,nl,1,2),Color0B0B77;
STICKLINE(np<0,0,np,1,2),COLOR666666;
JJ :=(C*2+H+L)/4;
SK := EMA(JJ,13) - EMA(JJ,21);
SD := EMA(SK,3);
SP := EMA(SK,10);
长线1:IF(SD>=SP,SD,SP),LINETHICK2,COLORMAGENTA;
长线2:IF(SP-SD,SP,SD),LINETHICK2,COLORWHITE;
A1:=EMA(CLOSE,7)-EMA(CLOSE,21);
B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);
做多:IF(A1>=B1,A1,B1),LINETHICK2,COLORRED;
做空:IF(B1-A1,B1,A1),LINETHICK2,COLORGREEn;

引用:

公式名称: 股东人数
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-04-16
发表网址: http://www.li20.net/viewthread.p ... p;extra=&page=1

引用:

送正版朋友——◆股东人数



以下内容需要回复才能看到
{鹏博股东人数}
控盘:CAPITAL/100/ FINANCE(50),LINETHICK,COLORWHITE;
{基于鹏搏资讯，因为F10资料经常变动，所以在变动后，需要对应调整，可做主图}
gdstar:=F10FIND('总户数',500);{查找F10中股东人数的位置}
gdw1:=F10FIND('200',gdstar+40);
gdw2:=F10FIND('200',gdw1+40);
gdw3:=F10FIND('200',gdw2+40);
gdw4:=F10FIND('200',gdw3+40);
IF gdstar<0 THEN EXIT;
{取对应的数据资料}
gdtd1:=F10TEXT(gdw1,10);gdtx1:=LTRIM(F10TEXT(gdw1+14,10));
gdtd2:=F10TEXT(gdw2,10);gdtx2:=LTRIM(F10TEXT(gdw2+14,10));
gdtd3:=F10TEXT(gdw3,10);gdtx3:=LTRIM(F10TEXT(gdw3+14,10));
gdtd4:=F10TEXT(gdw4,10);gdtx4:=LTRIM(F10TEXT(gdw4+14,10));
{转换字符串为数值}
gd1:=STRTONUM(gdtx1),LINETHICK;gd2:=STRTONUM(gdtx2),LINETHICK;
gd3:=STRTONUM(gdtx3),LINETHICK;gd4:=STRTONUM(gdtx4),LINETHICK;
{显示}
本期:=gd1;
前:=gd2;
近:=gd3;
远:=gd4;
D:=BACKSET(ISLASTBAR,88);
A:=D>REF(D,1);
STICKLINE(REF(A,37) AND GD4>1,0,远,30,0),color00ffcc;
STICKLINE(REF(A,53) AND GD3>1,0,近,30,0),color00ff00;
STICKLINE(REF(A,69) AND GD2>1,0,前,30,0),colorffff00;
STICKLINE(REF(A,85) AND GD1>1,0,本期,30,0),colorFF00FF;

股东增幅:(本期-前)/前*100,linethick0,COLORYELLOW;
BLW:=F10FIND('占流通A股比例',500);
十大流通股东本期占（%）:STRTONUM(STRRIGHT(F10TEXT(BLW,20),6)),PRECISION2,LINETHICK0,COLORGREEN;
上期占（%）:STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例',BLW+20),20),6)),PRECISION2,COLORCYAN,LINETHICK0;
-0.1,color;
DRAWTEXT(ref(a,37) AND GD4>1,-0.02,'远期'),ALIGN,color00ffcc;
DRAWTEXT(ref(a,53) AND GD2>1,-0.02,'前期'),ALIGN,colorffff00;
DRAWTEXT(ref(a,69) AND GD3>1,-0.02,'近期'),ALIGN,color00ff00;
DRAWTEXT(ref(a,85) AND GD1>1,-0.02,'本期'),ALIGN,colorff00ff;
DRAWTEXT(ref(a,36) AND GD4>1,1.1*GD4,'人数:'+gdtx4),ALIGN,color00ffcc;
DRAWTEXT(ref(a,52) AND GD3>1,1.1*GD3,'人数:'+gdtx3),ALIGN,color00ff00;
DRAWTEXT(ref(a,68) AND GD2>1,1.1*GD2,'人数:'+gdtx2),ALIGN,colorffff00;
DRAWTEXT(ref(a,84) AND GD1>1,1.1*GD1,'人数:'+gdtx1),ALIGN,colorff00ff;
{◆鹏搏-户均持股}
PARTLINE(1,0),COLORBLACK;
w:=F10FIND('控盘情况:',1);//
wf:=f10find('━━━━━━┯',w);//
wg:=f10find('┷━━━━━',w);
aa:=STRLEN(F10TEXT(wf,wg-wf+12));
N:=-50;//
ws:=n;//
f:=0;
时:='';
dd:=date;
while ws>=N and ws<aa do begin
ws:=ws-n;//
if ws>=N and ws<aa then begin
f:=f+1;
wss:=w+ws;
时:=时+F10TEXT(wss+11,0)+'\n';
end;end;
期数:=f-4,LINETHICK;
DRAWTEXT(BARPOS=SYSPARAM(2),c,'期数:'+NUMTOSTR(期数,0)),align4,COLORGREEN;
Xl6:=max(GD4,GD3);
Xl7:=max(GD2,GD1);
Xl8:=max(Xl6,Xl7)/1.1;
DRAWTEXT(barpos=SYSPARAM(2),Xl8,时);

//

引用:

公式名称: 快速排序：户均持股增幅；股东增减
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-11-20
发表网址: http://www.li20.net/viewthread.p ... p;extra=&page=1

引用:

快速排序：户均持股增幅；股东增减



指标仅适应于---- ◇鹏搏资讯F10资料◇
{该指标较有实用价值}
本指标仅限创幻正版用户自己使用（请维护自己的权益），望不要外传。谢谢！！

下载的朋友把压件内的图片“FOX1.bmp”复制到你的
飞狐:FoxTrader\FmlDLL 文件夹内，就可正常显示。

引用:

公式名称: 沪指短线
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-07-15
发表网址: http://www.li20.net/viewthread.p ... p;extra=&page=1

引用:

如何逃掉指数高位长阴——沪指短线



如何逃掉指数高位长阴——沪指短线？
系习作，请高手指教。
谢谢！！


使用方法：大量滞涨时应用最好。
1.比例曲线在10以下，为大盘短期低点，做多线显示，应考虑进场。
2.比例曲线在90以上，为大盘短期高点，一旦做多线消失，只剩绿线，应考  虑减仓。

//先建一个横向统计指标：
{比例曲线的横向统计两个数据--求和并刷新}


{比例曲线}
mm:c>MA(c,30);//设为横向统计(1)
js:c<>0;//设为横向统计(2)   



//////////////////////////////////////////////

{沪指短线}
DRAWGBK(1, COLORRGB(100,100,100),COLORRGB(50,50,50),0);
PARTLINE(C,90),LINEDOT,COLORGRAY;
PARTLINE(C,50),LINEDOT,COLORGRAY;
PARTLINE(C,10),LINEDOT,COLORGRAY;
比例曲线:(ESTDATA(1)/ESTDATA(2))*100,PRECISION2,Color008987;
Var1:=INDEXA/100000000;
Var2:=INDEXADV;
Var3:=INDEXDEC;
Var4:=Var2/(Var2+Var3)*Var1;
Var6:=EMA(Var4,3);
Aa:= EMA(Var6,3)/150 *100;
Bd:=(Aa+REF(Aa,1)+REF(Aa,2)+REF(Aa,3))/4;
x1:=(o+3*c+l+h)/6;
x2:=wma(wma(x1,3),5);
x3:=reverse(x1)+2*x2;
x4:=wma(wma(x1,1),5);
x5:=reverse(x1)+2*x4;
x6:=3*x5-2*sma(x5,2,1);
开:=Bd*x6/1000;
收:=Bd*C/1000;
做多:IF(收>=开 and 收>REF(收,1),收*1.1,开)-50,PRECISION2,COLORRED;
做空:IF((开-收),开,收)-50,PRECISION2,COLORGREEN;

引用:

公式名称: 中，长趋势线
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-07-05
发表网址: http://www.li20.net/viewthread.p ... p;extra=&page=1

引用:

很好的一条 ------ 中，长趋势线



{一条线送给朋友:
把它放在你的任意主图指标后面，不错呢！}



{中趋}
ZQ1:=EMA(((SLOPE(C,20)*20)+ C),55);
中趋:(IF(((DATATYPE>5) AND (DATATYPE<9)),EMA(ZQ1,1),
IF((DATATYPE=5),EMA(ZQ1,4),
IF((DATATYPE =4),EMA(ZQ1,8),
IF((DATATYPE=3),EMA(ZQ1,16),
IF((DATATYPE=2),EMA(ZQ1,32),0)))))),PRECISION2,LINETHICK,COLORMAGENTA;
PARTLINE(EMA(C,3)<中趋,中趋),{LINEDOT,}LINETHICK2,COLORWHITE;
PARTLINE(EMA(C,3)>中趋,中趋),{LINEDOT,}LINETHICK2,COLORMAGENTA;
//

引用:

公式名称: 数浪公式
适用软件: 飞狐
发 表 人: 慕远     
发表日期: 2006-08-01
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%C4%BD%D4%B6

引用:

数浪公式


n   5


v1:=ma(HIGH,30)*1.15 ;
v2:=ma(HIGH,3)*1.03;
v3:=ma(LOW,3)*0.97;
v4:=ma(LOW,30)*0.85;
{v5}大通道上:fft(v1,30);
{v6}小通道上:fft(v2,30);
{v7}小通道下:fft(v3,30);
{v8}大通道下:fft(v4,30);
A1:=大通道上-REF(大通道上,1);
A2:=小通道上-REF(小通道上,1);
A3:=小通道下-REF(小通道下,1);
A4:=大通道下-REF(大通道下,1);
PARTLINE(A1>0,大通道上) LINETHICK2 COLORRED;
PARTLINE(A1=0,大通道上) LINETHICK1 COLORWHITE;
PARTLINE(A1<0,大通道上) LINETHICK1 COLORGREEN;
PARTLINE(A2>0,小通道上) LINETHICK2 COLORRED;
PARTLINE(A2=0,小通道上) LINETHICK1 COLORWHITE;
PARTLINE(A2<0,小通道上) LINETHICK1 COLORGREEN;
PARTLINE(A3>0,小通道下) LINETHICK2 COLORRED;
PARTLINE(A3=0,小通道下) LINETHICK1 COLORWHITE;
PARTLINE(A3<0,小通道下) LINETHICK1 COLORGREEN;
PARTLINE(A4>0,大通道下) LINETHICK2 COLORRED;
PARTLINE(A4=0,大通道下) LINETHICK1 COLORWHITE;
PARTLINE(A4<0,大通道下) LINETHICK1 COLORGREEN;

kxs:=sysparam(2);
dsj:=1;
GET:zig(3,n),coloryellow;
pl5:=zig(3,5)*dsj;
en1:=zig(3,5)>ref(zig(3,5),1) and ref(zig(3,5),1)<=ref(zig(3,5),2) and  ref(zig(3,5),2)<=ref(zig(3,5),3)*dsj;
ex1:=zig(3,5)<ref(zig(3,5),1) and ref(zig(3,5),1)>=ref(zig(3,5),2) and  ref(zig(3,5),2)>=ref(zig(3,5),3)*dsj;
pl10:=zig(3,10)*dsj;
en2:=zig(3,10)>ref(zig(3,10),1) and ref(zig(3,10),1)<=ref(zig(3,10),2)  and ref(zig(3,10),2)<=ref(zig(3,10),3)*dsj;
ex2:=zig(3,10)<ref(zig(3,10),1) and ref(zig(3,10),1)>=ref(zig(3,10),2)  and ref(zig(3,10),2)>=ref(zig(3,10),3)*dsj;
pl20:=zig(3,20)*dsj;
en3:=zig(3,20)>ref(zig(3,20),1) and ref(zig(3,20),1)<=ref(zig(3,20),2)  and ref(zig(3,20),2)<=ref(zig(3,20),3)*dsj;
ex3:=zig(3,20)<ref(zig(3,20),1) and ref(zig(3,20),1)>=ref(zig(3,20),2)  and ref(zig(3,20),2)>=ref(zig(3,20),3)*dsj;
pl40:=zig(3,40)*dsj;
走强1:=barslast(pl5<ref(pl5,1));
走弱1:=barslast(pl5>ref(pl5,1));
走强2:=barslast(pl10<ref(pl10,1));
走弱2:=barslast(pl10>ref(pl10,1));
走强3:=barslast(pl20<ref(pl20,1));
走弱3:=barslast(pl20>ref(pl20,1));
ztjz5:=if(pl10>ref(pl10,1),count(en1,走强2),0);
ztjd5:=if(pl10>ref(pl10,1),count(ex1,走强2),0);
dtjz5:=if(pl10<ref(pl10,1),count(en1,走弱2),0);
dtjd5:=if(pl10<ref(pl10,1),count(ex1,走弱2),0);
ztjz10:=if(pl20>ref(pl20,1),count(en2,走强3),0);
ztjd10:=if(pl20>ref(pl20,1),count(ex2,走强3),0);
dtjz10:=if(pl20<ref(pl20,1),count(en2,走弱3),0);
dtjd10:=if(pl20<ref(pl20,1),count(ex2,走弱3),0);
drawtext(en1 and dtjz5=1,l*0.98,'㈠'),colorffff00;
drawtext(ex1 and dtjd5=2,h*1.02,'㈡'),colorffff00;
drawtext(en2 and ztjz5=1,l*0.98,'㈢'),colorffff00;
drawtext(ex1 and pl10>ref(pl10,1) and ztjd5=1,h*1.02,'⑴'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.98,'⑵'),colorff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.02,'⑶'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.98,'⑷'),colorff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.02,'⑸'),colorff;
drawtext(en2 and dtjz10=1,l*0.94,'Ⅰ'),colorff0000;
drawtext(ex2 and dtjd10=2,h*1.06,'Ⅱ'),colorff0000;
drawtext(en3 and ztjz10=1,l*0.94,'Ⅲ'),colorff0000;
drawtext(ex2 and pl20>ref(pl20,1) and  ztjd10=1,h*1.06,'①'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and  ztjz10=2,l*0.94,'②'),Linethick3,colorffff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=2 or (ztjd10=0 or  ztjd10=2) and ex2,h*1.06*dsj,'③'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and  ztjz10=3,l*0.94,'④'),Linethick3,colorffff;