欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 哪里出问题了?

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2798人关注过本帖平板打印复制链接

主题:哪里出问题了?

帅哥哟,离线,有人找我吗?
hyp354300
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:71 积分:0 威望:0 精华:0 注册:2015/7/25 10:16:09
哪里出问题了?  发帖心情 Post By:2020/4/22 21:30:34    Post IP:125.85.199.46[只看该作者]

 
INPUT:N(5),P(20),M(8);
DRAWGBK(1,COLORRGB(20,50,70),COLORRGB(100,150,180),1);
TBS:=POW(10,ABS(LOG(MINDIFF)));
BZ:=MOD(BARSSINCE(C),N);ZB:=BZ=0 OR BARPOS=1;
ZW:=BARSLAST(ZB),LINETHICK;
Zdg:=ZW=0 or ISLASTBAR;
Zwx:=0*c;
for i=datacount-1 downto lbound(Zdg) do
if Zdg[I] then
Zwx[I]:=0;
else
Zwx[I]:=Zwx[i+1]+1;
Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;
Zwx:=refx(Zwx,1)+Zr,LINETHICK;
zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1;
Zo:=ref(o,Zw);
Zh:=hhv(h,Zw+1);
ZL:=LLv(L,Zw+1);
开:ROUND(ZO*TBS)/TBS,LINETHICK;
高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;
低:ROUND(refx(ZL,Zwx)*TBS)/TBS,COLORFF00,LINETHICK;
收:ROUND(refx(c,Zwx)*TBS)/TBS,,COLORFF00FF,LINETHICK;
振:ROUND((高-低)/低*TBS)/TBS*100,COLOR00FFFF,LINETHICK;
yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
STICKLINE(开>收,低,高,YT,0),COLORBBBAAA;
STICKLINE(开<=收,低,高,YT,0),COLORAA9ABB;
TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,1,0),ColorE9;
STICKLINE(TJ,LOW,CLOSE,8,0),Color80;
STICKLINE(TJ,LOW,CLOSE,6,0),ColorA5;
STICKLINE(TJ,LOW,CLOSE,4,0),ColorC0;
STICKLINE(TJ,LOW,CLOSE,2,0),ColorE6;
STICKLINE(NOT(TJ),HIGH,LOW,1,0),ColorAA00;
STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color5000;
STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),Color6600;
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color8000;
STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),ColorA000;
DRAWTEXTEX(1,1,10,10,'◎长阳真人◎'),COLORAA00FF;
黄金生命线:MD(收,p),COLOREE0000;{黄金生命线}
var1:=MD(WMA(收,p),N);
MA1:=WMA(MA(黄金生命线,1),M);ma0:=黄金生命线;
股:PARTLINE(var1>REF(var1,2),var1), COLORRED, LINETHICK4;
币:PARTLINE(var1<REF(var1,2),var1), COLORGREEN, LINETHICK4;
变:PARTLINE(ABS(var1-REF(var1,1))/黄金生命线*10000<n,var1), COLORBLUE, LINETHICK4;
MA(收,5);MA(收,20);
I:=SYSPARAM(1);
DRAWTEXTEX(1,1,10,400,'【 '+NUMTOSTR(N,0)+' 天 为一箱体(可调N)】'),COLOR0099DD;
DRAWTEXTEX(1,1,10,500,'◆ 本箱体开盘 '+NUMTOSTR(开,2)),COLOR000000;
DRAWTEXTEX(1,1,10,600,'◆ 本箱体收盘 '+NUMTOSTR(收,2)),COLOR000000;
DRAWTEXTEX(1,1,10,700,'◆ 本箱体最高 '+NUMTOSTR(高,2)),COLOR000000;
DRAWTEXTEX(1,1,10,800,'◆ 本箱体最低 '+NUMTOSTR(低,2)),COLOR000000;
DRAWTEXTEX(1,1,10,900,'◆ 本箱体振幅 '+NUMTOSTR(振,2)),COLOR000000;

不显示矩形图片,原因在于
高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;
低:ROUND(refx(ZL,Zwx)*TBS)/TBS,COLORFF00,LINETHICK;
收:ROUND(refx(c,Zwx)*TBS)/TBS,,COLORFF00FF,LINETHICK;
这几个数据不对。
直接涉及到的函数有ROUND,POW,ABS,LOG(MINDIFF);
要不就是
for i=datacount-1 downto lbound(Zdg) do
if Zdg[I] then
Zwx[I]:=0;
else
这里错了?
可是其他股软可以使用啊?


 回到顶部