|
论坛版主
   
指标公式版主 - 帖子
- 3162
- 积分
- 15552
- 威望
- 0
- 注册时间
- 2007-4-11
|
15楼
大 中
小 发表于 2008-2-23 11:12 只看该作者
引用:送上网友要的我的自用指标------X.B
自从我发出自编的指标"游刃有鱼"后,承蒙版主和网友们的厚爱,我在此再次向大家表示衷心感谢!
不少朋友发来短消息,要求我提供主图原码,并对"游刃有余"的用法做一说明.
下面,我先把主图原码贴出来,供喜爱的朋友门使用.
BX本就是来自网上,就让它仍在网上为朋友们服务吧!
BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:BBI+3*STD(BBI,10) ;
DWN:BBI-3*STD(BBI,10);
UPPERL:MA(H,30)*1.15;
UPPERS:MA(H,3)*1.03 ,colorffaa00 ;
LOWERS:MA(L,3)*0.97;
LWERS:MA(L,30)*0.85, color00dd00;
Th:=HHVBARS(H,21);
TL:=LLVBARS(L,55);
tL21:=(tL+20=21), circledot coloree00ee;
tL55:=(tL+54=55), circledot coloree00ee;
tL89:=(tL+88=89), circledot coloree00ee;
th21:=(th+20=21), crossdot color00dd00;
th55:=(th+54=55), crossdot color00dd00;
th89:=(th+88=89), crossdot color00dd00;
A5:=(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))*-0.5 , circledot colorffffff;;
B5:=(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))*-0.5 , crossdot color00dd00;
A10:=(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,110),3))*-1, circledot color0000ff;
B10:=(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))*-1 , crossdot color00dd00;
A20:=(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))*-1.5 , circledot color00ffff;;
B20:=(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))*-1.5 , crossdot color00dd00;
A50:=(ZIG(3,50)>REF(ZIG(3,50),1) AND REF(ZIG(3,50),1)
<=REF(ZIG(3,50),2) AND REF(ZIG(3,50),2)<=REF(ZIG(3,50),3))*-2 , circledot colorffaa00;;
B50:=(ZIG(3,50)<REF(ZIG(3,50),1) AND REF(ZIG(3,50),1)
>=REF(ZIG(3,50),2) AND REF(ZIG(3,50),2)>=REF(ZIG(3,50),3))*-2, crossdot color00dd00;
A100:=(ZIG(3,100)>REF(ZIG(3,100),1) AND REF(ZIG(3,100),1)
<=REF(ZIG(3,100),2) AND REF(ZIG(3,100),2)<=REF(ZIG(3,100),3))*-2 , circledot colorffaa00;;
B100:=(ZIG(3,100)<REF(ZIG(3,100),1) AND REF(ZIG(3,100),1)
>=REF(ZIG(3,100),2) AND REF(ZIG(3,100),2)>=REF(ZIG(3,100),3))*-2, crossdot color00dd00;
STICKLINE(((A5 and A10) or (A5 and A20) or (A5 and A50) or (A20 and A10) or
(A50 and A10) or (A50 and A20)) and (TH or TL),L-0.3,L-0.5,20,0) , colorffffff;
STICKLINE(((A5 and A10 and A20) or (A5 and A10 and A50) or (A5 and A20 and A50) or
(A10 and A20 and A50)) and (TH or TL),L-0.3,L-0.6,40,1) , color00ffff;
STICKLINE((A5 and A10 and A20 and A50) and (TH or TL),L-0.3,L-0.6,60,1) , coloree00ee;
STICKLINE(A5 and (TH or TL),L-0.3,L-0.4,20,0) , color00dd00;
STICKLINE(((B5 and B10) or (B5 and B20) or (B5 and B50) or (B20 and B10) or
(B50 and B10) or (B50 and B20)) and (TH or TL),H+0.3,H+0.5,20,0) ,colorffffff;
STICKLINE(((B5 and B10 and B20) or (B5 and B10 and B50) or (B5 and B20 and B50) or
(B10 and B20 and B50)) and (TH or TL),H+0.3,H+0.6,40,1), color00ffff;
STICKLINE((B5 and B10 and B20 and B50) and (TH or TL),H+0.3,H+0.6,60,1), coloree00ee;
STICKLINE(B5 and (TH or TL),H+0.3,H+0.4,20,0), color00dd00;
DRAWICON(A100,L-0.3,1);
再贴一张图,还是用"天威"股票. [ 本帖最后由 蓝鼠 于 2008-2-27 14:32 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。
|