设为首页收藏本站

 找回密码
 注册
查看: 3211|回复: 1
打印 上一主题 下一主题

请帮助修改程序 [复制链接]

Rank: 7Rank: 7Rank: 7

精华
1
UID
387
积分
2724
帖子
167
主题
33
阅读权限
80
注册时间
2007-9-21
最后登录
2020-2-24
跳转到指定楼层
1#
发表于 2007-9-26 09:59:32 |只看该作者 |倒序浏览
DRAWGBK(CLOSE>0, COLORRGB(50,180,150), COLORRGB(100,100,100),1);
P1:=SYSPARAM(2);
DRAWTEXT(P1+2=BARSCOUNT(C),1,'【静听花落】'),ALIGN4,COLOR3333CC;


Var1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
Var2:=(HHV(HIGH,27)-CLOSE)/(HHV(HIGH,27)-LLV(LOW,27))*C*10;
Var3:=SMA(MAX(Var2-CLOSE,0),5,1)/SMA(ABS(Var2-CLOSE),5,1)*100;
Var4:=SMA(MAX(CLOSE-Var1,0),5,1)/SMA(ABS(CLOSE-Var1),5,1)*100;
Var5:=EMA(CLOSE,2)-EMA(CLOSE,150);
Var6:=EMA(Var5,100);
Var7:=2*(Var5-Var6);
Var18:=POW(Var7,3)*0.1+POW(Var7,1);
JHSH:=IF(Var7>0.1,Var18,0)*5;
江花似火:IF(JHSH>100,100,JHSH),stick ,linethick2 ,colorred;
b:=((C+2*StD(C,20)-MA(C,20))/(4*StD(C,20)))*100;
Osc:=b;
Value1 := MA(EMA(Osc,6),3);
Value2 := HHV(Value1,60);
Value3 := LLV(Value1,60);
Value4 := Value2 - Value3;
Value5 := Value4 * (95/100);
Value6 := Value3 + Value5;
Value7 := Value2 - Value5;
高位筹:IF(Var3<Value6,Var3,Value6),color99CCFF;
低位筹:IF(Var4>Value7,Var4,Value7),colorFFCCCC;
Var12:=LLV(L,10);
Var13:=HHV(H,10);
震荡:EMA((C-Var12)/(Var13-Var12)*100,26),colorFF00FF,linethick0;
STICKLINE(震荡-REF(震荡,1)>0,震荡,震荡,1,0),linethick3,pointdot,colorFF00FF;
STICKLINE(震荡-REF(震荡,1)<0,震荡,震荡,1,0),linethick3,pointdot,colorblue ;
LC := REF(CLOSE,1);
RSIV:=SMA(MAX(CLOSE-LC,0),9,1)/SMA(ABS(CLOSE-LC),9,1)*100;
RS1:=SMA(MAX(CLOSE-LC,0),9,1);
RS2:=SMA(ABS(CLOSE-LC),9,1);
R1:=(RS1*8*4)-(RS2*8);
R2:=(RS2*8/4)-(RS1*8);
R3:=(RS2*8*4)-(RS1*8);
R4:=(RS1*8*4)+(RS2/8);
STICKLINE(CROSS(R2,R1),20,0,3,0),color99CCFF;
STICKLINE(CROSS(R1,R2),30,0,6,0),color00FFFF;
drawtext(CROSS(R1,R2),25,'买'),color00FFFF,SHIFT1;
STICKLINE(CROSS(R4,R3),80,100,3,0),colorCCFF66;
STICKLINE(CROSS(R3,R4),70,100,6,0),color00CC66;
drawtext(CROSS(R3,R4),90,'卖'),color00CC66,SHIFT1;

0,colorred,POINTDOT;100,colorred,POINTDOT;

Rank: 6Rank: 6

精华
2
UID
390
积分
2142
帖子
286
主题
45
阅读权限
70
注册时间
2007-9-21
最后登录
2019-4-1
2#
发表于 2007-9-26 11:34:10 |只看该作者
请最好能够做到自己写TB程序
!!
如果在写的途中有什么不明白的大家都会帮你的

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-5-3 12:14

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部