-- 作者:readonly
-- 发布时间:2012/5/7 20:35:26
-- 请帮忙写个带数据库的指标
想学习数据库编模型,希望各位老师能帮忙写以下要求作为范例,谢谢!
=====================
时间周期:日线
1、满足条件 REF(H,1)=HHV(H,3) 时,记录:HH、D1、D2到数据库里,增加一条新记录;
HH:=REF(H,1);//分形最高价
D1:=REF(DATE,1);//昨天日期
D2:REF(DATE,BARSLAST(CROSS(HH,H))+1);//前一次日期,用于计算这次下跌浪持续的时间
2、只在最后一根K线执行:按以下条件检索数据库HH的历史记录;
小于H*1.002 && 大于H*0.998;
该记录之后没有日期更新且HH值更大的记录;
上述检索得到了上次的顶部日期;
3、在最后K线附近显示:
OLDH:数据库里记录的上次顶部价格,画横线;
显示文字:注意,即将到底双顶;
上次顶部离现在的K线数,用今天日期-检索到的D1算出来;
前一次跌破HH时下跌浪持续的时间长度,K线数,用检索到的D2-D1算出来;
以上编程条件最终得到如下图的效果: 此主题相关图片如下:20120507203827.gif
[此贴子已经被作者于2012-5-7 20:42:19编辑过]
|
-- 作者:rushtaotao
-- 发布时间:2012/5/16 8:49:54
--
给出一个例子,仅供参考 ////保存到数据库(可以正常执行的代码,不要删除) //if islastbar then begin //只在最后一周期保存到数据库 // sql1:=\'insert into tblGuzhi1 (stockdate,stocktime,stockopen,stockhigh,stocklow,stockclose,var2,var3,D1,D2,G1,G2,A1,A2,Code,Market,Period) // values("\'+numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\'",\'+numtostr(time,0)+\',\'+numtostr(_open,1) // +\',\'+numtostr(_high,1)+\',\'+numtostr(_low,1)+\',\'+numtostr(_close,1)+\',\'+numtostr(var2,0)+\',\'+numtostr(var3,0)+\',\' // +numtostr(D1,1)+\',\'+numtostr(D2,1)+\',\'+numtostr(G1,1)+\',\'+numtostr(G2,1)+\',\'+numtostr(A1,1)+\',\'+numtostr(A2,1) // +\',"\'+ stklabel + \'","\' + Marketlabel +\'",\'+numtostr(datatype,0)+\')\'; // dbexecute(sql1); //end;
|