以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  麻烦哪位高手老大给改成金字塔的  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=79423)

--  作者:老男孩
--  发布时间:2015/6/5 12:20:23
--  麻烦哪位高手老大给改成金字塔的
p1    30  4   100
显示   2     0    10

P:=SYSPARAM(1);
NA:=IF((P = DATACOUNT),IF((DATACOUNT > P1),210,DATACOUNT),((DATACOUNT - P) + 1));
HH:=HHV(HIGH,NA);
LL:=LLV(LOW,NA);
VN:=NA;
for I=DATACOUNT downto ((DATACOUNT - VN) + 1) do
begin
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
End;
高:=SETLBOUND(hh,((DATACOUNT - VN) + 1));
低:=SETLBOUND(ll,((DATACOUNT - VN) + 1));
KKH:=BARSSINCE((HIGH = HH));
KKL:=BARSSINCE((LOW = LL));
上角:=FILTER((COUNT((KKH + 1),BARSLAST((KKH = 0))) = 1),1);
下角:=FILTER((COUNT((KKL + 1),BARSLAST((KKL = 0))) = 1),1);
K:=((SYSPARAM(4) - SYSPARAM(5)))/((SYSPARAM(3) - SYSPARAM(2)));
DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((20)*(K))/(60)),0,0),POINTDOT,colorCyan;
DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((30)*(K))/(60)),0,0),POINTDOT,colorCyan;
DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((50)*(K))/(60)),0,0),colorCyan;
DRAWSL((上角 and (显示 = 2)),HIGH,(0 - ((70)*(K))/(60)),0,0),POINTDOT,colorCyan;
DRAWSL((下角 and (显示 = 2)),LOW,((20)*(K))/(60),0,0),POINTDOT,colorMagenta;
DRAWSL((下角 and (显示 = 2)),LOW,((50)*(K))/(60),0,0),POINTDOT,colorMagenta;
DRAWSL((下角 and (显示 = 2)),LOW,((70)*(K))/(60),0,0),POINTDOT,colorMagenta;
DRAWSL((下角 and (显示 = 2)),LOW,((100)*(K))/(60),0,0),colorMagenta;
A2:=SYSPARAM(2);
A3:=SYSPARAM(3);
A4:=SYSPARAM(4);
A5:=SYSPARAM(5);
H1:=((A4 - A5))/(8);
H2:=(H1)/(4);
L1:=LLV(LOW,(A3 - A2));
LL2:=L1[A3];
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (20)*(H2)))),(A4 - (20)*(H2)),(A4 - (20)*(H2)),SYSPARAM(1),0),Color002288;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (20)*(H2)))),(A4 - (20)*(H2)),(A4 - (20)*(H2)),SYSPARAM(1),0),ColorFF0000;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (24)*(H2)))),(A4 - (24)*(H2)),(A4 - (24)*(H2)),SYSPARAM(1),0),Color002288;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (24)*(H2)))),(A4 - (24)*(H2)),(A4 - (24)*(H2)),SYSPARAM(1),0),Color996633;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (16)*(H2)))),(A4 - (16)*(H2)),(A4 - (16)*(H2)),SYSPARAM(1),0),colorRed;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (16)*(H2)))),(A4 - (16)*(H2)),(A4 - (16)*(H2)),SYSPARAM(1),0),ColorFF0000;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (12)*(H2)))),(A4 - (12)*(H2)),(A4 - (12)*(H2)),SYSPARAM(1),0),Color002288;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (12)*(H2)))),(A4 - (12)*(H2)),(A4 - (12)*(H2)),SYSPARAM(1),0),colorGreen;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - ((2.7)*(3))*(H2)))),(A4 - ((2.7)*(3))*(H2)),(A4 - ((2.7)*(3))*(H2)),SYSPARAM(1),0),Color002288;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - ((2.7)*(3))*(H2)))),(A4 - ((2.7)*(3))*(H2)),(A4 - ((2.7)*(3))*(H2)),SYSPARAM(1),0),ColorFF0000;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (A4 - (1)*(H1)))),(A4 - (1)*(H1)),(A4 - (1)*(H1)),SYSPARAM(1),0),Color002288;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (1)*(H1)))),(A4 - (1)*(H1)),(A4 - (1)*(H1)),SYSPARAM(3),SYSPARAM(1)),colorWhite;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < (A4 - (1)*(H1)))),(A4 - (1)*(H1)),(A4 - (1)*(H1)),SYSPARAM(1),0),colorWhite;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > A4)),A4,A5,SYSPARAM(4),1),colorYellow;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE < A4)),A4,A4,SYSPARAM(3),SYSPARAM(1)),colorGreen;
STICKLINE(((BARPOS = (SYSPARAM(1) - 0)) and (CLOSE > (LL2 + ((1)*(4))*(H2)))),(LL2 + ((1)*(4))*(H2)),(LL2 + ((1)*(4))*(H2)),SYSPARAM(1),0),align0,ColorAA0088;


--  作者:jinzhe
--  发布时间:2015/6/5 13:23:13
--  
能直接用
--  作者:老男孩
--  发布时间:2015/6/5 15:13:00
--  
不可以的,我已经试过了,不能用才求助。
斜线不正确
水平线太短
没有办法用啊!

--  作者:jinzhe
--  发布时间:2015/6/5 15:13:50
--  
那就没办法了,代码的结果就是这样的
--  作者:老男孩
--  发布时间:2015/6/5 17:01:56
--  
垃圾软件
--  作者:jinzhe
--  发布时间:2015/6/5 17:06:45
--  

用户有什么建议呢,我们是欢迎的。

但是如果直接开骂呢,这个不太好吧