以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (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=158766)
--  作者：爬山虎福气
--  发布时间：2017/10/18 22:37:53
--  [求助]金字塔如何进行统计功能编写

在金字塔环境下如何实现数据统计功能，比如：

统计 2017.01.01-2017.10.01 期间，某品种 KDJ指标 日线 有效金叉次数及有效金叉后，最高涨10点的次数。
--  作者：wenarm
--  发布时间：2017/10/19 9:06:34
--  

VARIABLE:sum_jc=0;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;


cond:=CROSS(K,D);
cond1:=CROSS(D,K);
if date>1170101 and date<1171001 then begin
 sum_jc:=sum_jc+cond;
end

aa:sum_jc;

 

最高涨10点的次数这个是谁和谁比最高涨10点
--  作者：爬山虎福气
--  发布时间：2017/10/19 21:34:30
--  
以下是引用wenarm在2017/10/19 9:06:34的发言：

VARIABLE:sum_jc=0;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;


cond:=CROSS(K,D);
cond1:=CROSS(D,K);
if date>1170101 and date<1171001 then begin
 sum_jc:=sum_jc+cond;
end

aa:sum_jc;

 

最高涨10点的次数这个是谁和谁比最高涨10点

 

1、这是想统计，金叉成立后的下一周期开盘价open和本次金叉能达到的最高价，如果有10点价差，统计为1次；

2、补充问题1，统计出来的数据如何输出到数据文件？

3、补充问题2，要设悬赏贴，需要论坛金币，金币哪里买？
--  作者：wenarm
--  发布时间：2017/10/20 0:18:59
--  
VARIABLE:sum_jc=0,sum10=0,temp=0,hh=0;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),NOAXIS;
D:SMA(K,3,1),NOAXIS;
J:=3*K-2*D;
cond:CROSS(K,D);
cond1:CROSS(D,k);
if date>1170101 and date<1171001 then begin
sum_jc:=sum_jc+cond;
end
if cond=1 then hh:=high;
if ref(cond,1)=1 then begin
 temp:=open;
 
end
if hh<HIGH then BEGIN
 hh:=HIGH;
end
if hh-temp>10 and date>1170101 and date<1171001 then BEGIN
sum10:=sum10+1;
end
cc:sum10;

2. 你要写到输出到哪，做什么用。
3.没有。金币只能通过在论坛中回复优质帖子，或者分享技术贴等。由管理员奖励得到的、
[此贴子已经被作者于2017/10/20 0:20:47编辑过]
--  作者：爬山虎福气
--  发布时间：2017/10/21 19:31:30
--  
if ref(cond,1)=1 then begin
 temp:=open;
end
这句妙，原来可以这么用。
2、结果比如输出到excel、access文件或其他数据库文件里
--  作者：wenarm
--  发布时间：2017/10/22 20:31:15
--  
第二点，如果是需要写数据库或者excel建议你用vba的方式处理。
pel对着数据库的支持有限。
--  作者：爬山虎福气
--  发布时间：2017/10/22 23:10:09
--  

好的，谢谢您专业的建议。

下一步，学习VBA相关内容。