

既然有朋友喜欢,那就再讲一些,先发一组指标提提神,是组合指标----箱体主图与副图。
箱体主图
中轨 :=MA(CLOSE,20),colorwhite;
上上轨:=中轨 + 2*STDDEV(CLOSE,20),coloryellow;
下下轨:=中轨 - 2*STDDEV(CLOSE,20),colorff00ff;
上轨:=中轨 + 1*STDDEV(CLOSE,20),colorred;
下轨:=中轨 - 1*STDDEV(CLOSE,20),color00ff00;
stickline(c,上上轨,上轨,6,0){,Color3584FD},Color0A3771;
stickline(c,中轨,上轨,6,0){,Color00BECA},Color5E7498;
stickline(c,中轨,下轨,6,0),colorgreen;
stickline(c,下轨,下下轨,6,0),colorblue;
STICKLINE(C>=O ,O ,C ,5 ,0 ),colorred;
STICKLINE(O> C ,C ,O ,5 ,0 ),colorffcccc;
STICKLINE(C>=O ,C ,H ,0.5 ,0 ),colorred;
STICKLINE(C>=O ,O ,L ,0.5 ,0 ),colorred;
STICKLINE(O> C ,C ,L ,0.5 ,0 ),colorffcccc;
STICKLINE(O> C ,O ,H ,0.5 ,0 ),colorffcccc;
nn:=20;n:=2;
RSV:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,49))/(HHV(HIGH,49)-LLV(LOW,49))*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)))),Color3584FD,LINETHICK2;
压力位:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),Color4AFF22,LINETHICK2;
U2L:=IF(C>=MA(C,NN),80,50);
L2L:=IF(C>=MA(C,NN),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))),ColorFFD300;
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))),Color00BECA;
箱体副图
Var1:=WINNER(CLOSE*0.900)*100;
Var2:=VOL/CAPITAL*100;
Var3:=Var1-Var2;
var4:=hhv(var3,20);
var5:=hhv(var3,10);
var6:=ma(c,5)<ma(c,10) and ma(c,5)>ma(c,30);
箱体底1:if(if(Var3<1,10,0)=10 and c>ma(c,10),20,0) ;
箱体顶1:if(if(Var3>=25,10,0)=10 and var3<ref(var3,1),80,100);
箱体底2:if(var4=var5 and var6,30,50);
箱体顶2:if(var4>70 and var5>70,70,50);
LC := REF(CLOSE,1);
RSI5:SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
RSI10:SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1)*100;
RSI20:SMA(MAX(CLOSE-LC,0),20,1)/SMA(ABS(CLOSE-LC),20,1)*100;
[ 本帖最后由 popozzz 于 2008-3-5 13:01 编辑 ]
附件: 您所在的用户组无法下载或查看附件