- 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp)
-- 金字塔软件问题提交 (http://www.weistock.com/bbs/list.asp?boardid=2)
---- 这个自带公式怎么写的？ (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=137189)
-- 发布时间：2016/7/28 9:26:04
-- 这个自带公式怎么写的？
把光标指向一个K线，自动出来日期，开，高，低，收，量，额，换，涨，振，正序，逆序。
这个公式怎么写的？
源码能公开吗？
-- 发布时间：2016/7/28 9:32:40
--
这个公式飞狐能够显示，金字塔显示的有点奇葩，能不能帮忙修改一下？
//日线
TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,0,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,0,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;
{日周K线}
TBS:=POW(10,ABS(LOG(MINDIFF)));
//周线
BZ:=WEEKDAY;
ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) 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,colored;
周高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;
周低:ROUND(refx(ZL,Zwx)*TBS)/TBS,COLORFF00,LINETHICK;
周收:ROUND(refx(c,Zwx)*TBS)/TBS,,COLORFF00FF,LINETHICK;
Zf:=周收>周开 or (周收=周开 and 周收>ref(周收,Zw+1));
Zj:=cross(Zw,Zwx);// OR ISLASTBAR;
yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
//画横线
wv:=BARSLAST(zb),LINETHICK;
PARTLINE(wv>0 and zf,周收)COLOR0066ff;
PARTLINE(wv>0 and zf,周开)COLOR0066ff;
PARTLINE(wv>0 and not(zf),周收),COLORFFffcc;
PARTLINE(wv>0 and not(zf),周开),COLORFFffcc;
STICKLINE(wv>0 and not(zf) and zj,周开,周高,1,0)COLORFFffcc;
STICKLINE(wv>0 and not(zf) and zj,周收,周低,1,0)COLORFFffcc;
STICKLINE(wv=0 and not(zf),周开,周收,1,0)COLORFFffcc;
STICKLINE((refx(wv=0,1) or ISLASTBAR) and not(zf),周收,周开,1,0),COLORFFffcc;
//影线
{STICKLINE(Zw>0 and Zf and Zj,周低,周高,1,0)COLORAAAAEE;}
{STICKLINE(周开<周收,周开,周收,YT,0),COLORAAAAEE;}
{STICKLINE(Zw>0 and not(Zf) and Zj,周低,周高,0,0)COLOREEAAAA;}
{STICKLINE(周开>周收,周开,周收,YT,0),COLOREEAAAA;}
STICKLINE(Zw>0 and zf and zj,周收,周高,0,0),COLOR0066ff;
STICKLINE(Zw>0 and zf and zj,周开,周低,0,0),COLOR0066ff;
STICKLINE(Zw=0 and zf ,周收,周开,0,0),COLOR0066ff;
STICKLINE((refx(wv=0,1) or ISLASTBAR) and zf,周开,周收,0,0),COLOR0066ff;
-- 发布时间：2016/7/28 9:33:20
--
这个软件后台处理的。
你是需要调用这个数据吗？pel提供了对应变量的函数，直接使用就可以了
-- 发布时间：2016/7/28 9:35:16
--
那二楼那个公式再帮忙看一下？
-- 发布时间：2016/7/28 9:45:23
--
直接编译就能运行通过，你说的不同，指的是什么。
-- 发布时间：2016/7/28 9:46:42
--
啊？图形显示不正常啊？
-- 发布时间：2016/7/28 9:47:52
--
截图看下你说的正常的，做个比对
-- 发布时间：2016/7/28 9:49:50
--
-- 发布时间：2016/7/28 9:50:27
--
上传不了图片。
-- 发布时间：2016/7/28 9:51:14
--
用ie浏览器发图，贴图方法http://www.weistock.com/bbs/dispbbs.asp?BoardID=2&ID=31614&skin=0