公式指标平台 股票指标公式源码分享 登录 注册
公式指标平台
未来函数检测
首 页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 操盘手公式 东财通公式 飞狐公式 其他公式 公式解答 股票软件 股票池
当前位置:→ 公式指标平台 > 飞狐公式 > 正文 → 正文

金魔方 kt交易师的五彩K线指标组合优化 框架代码

发布时间:2018/4/9 6:46:28  浏览次数:

做程序出身,见了公式难免想到优化问题。
 网上有许多的公式号称多厉害,譬如五彩K线,到底哪个最好,好到什么程度,没有具体的数值,专门写了一个公式用来对五彩K线指标进行多重组合,选出最后组合,这才是最需要的。
 相比炒股软件中自带的回测工具,这个无疑是最灵活的,可以实现你的大绝多说想法,并给出一个量化的验证结果。
 要求也稍微高一些,能编写基本的公式代码,可以在我这个代码上自己任意修改,前后的框架不用动,只需要把中间的修改即可。
 同时,如果针对一个指标优化参数,一样可以用这个进行改进,无非是多重for循环的问题,欢迎大家讨论。
 另外一个,账户里面没金币,不能完全免费了,实在和我一样没金币的,发吧,有时间上来会回复的。
 代码示例,详细说明见附件:

{
使用说明:
1.引入金魔方后,打开K线图,日线;kt交易师本质上也是支持的,只不过每次需要单独在另外一个公式中将全局变量 G_currentIndex 重置为0。金魔方也可以在软件菜单里面,程式交易->全局变量里面查看、修改和删除。
2.打开浦发银行600000K线图
3、将这个公式拖入附图指标中,等待附图窗口出现一条白线,表明已经计算完毕。如果你的机器慢的话,可能在主图窗口右上角有一个显示运行中的小黄圆圈,不断旋转。
4、由于软件的bug,有时候前面几个股票计算完毕后,并不会自动跳转到下一个股票,所以需要手动翻到下一个,我一般用键盘上的PgDn,也就是下一页完成,鼠标滚动有的是缩放功能,有的是太快,翻过很多个股票了。
5、等待,公式运行完毕混自动将附图指标设定为kdj指标,同时再次跳转到浦发银行那个K线图上。这表示完成了所有统计。
6、在excel里面查看csv文件,可以对不同的参数组合分别统计总数和成功次数,这里面经常用到excel的sumifs函数,可以了解一下,网上很多帮助。
7、很明显,公式的两头的是框架。这个框架的作用就是能够完全控制的实现自己的思路,并对所有的数据进行测试,得出自己思路的全部回测结果。
8、这个框架能干什么呢:
1)任意多个指标的组合,用多重循环可以搞定,不过这里面有个计算量的问题需要注意;毕竟3000多个A股,一个一秒,就需要1小时了,我曾经最长的用时24小时,不过对优化确实很有效,不是自己翻几个K线图看看能比的。
2单个指标的参数优化,比如都说macd金叉如何,那么12 26 9这个参数是最适合的吗?未必,可以按自己的优化目标进行参数优化,之后自己优化的才是自己的,才心理有谱,用起来也得心应手。
3 更复杂一点,多个指标的组合和参数一起优化,工作量肯定不小,可以通过多个机器分开跑,比如第一个机器只跑前面1000只股票,第二个接力,第三个再接力,结果是可以直接合并的。
9.结果中,需要按照股票代码和参数一起做一个唯一值,对结果进行去重,理论上不应该重复,或者只有一条重复,但软件有bug,这个去重还是需要做一下,有一半的机会是没有重复结果的。

}

stkblkName:='A股板块';
stkblkcount:=STKCOUNT(stkblkName);
 currentIndex := GetGlobalVar('G_currentIndex');
 if currentindex<1 then
 currentindex:=1;
 Else
 currentindex+=1;
 setGlobalVar('G_currentIndex',currentindex);

//下面加入需要统计的内容

Function getCondi
 input:
 CondiNumber(1,1,30000);

 Begin
 

cond1:= REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND
 REF(OPEN,1) < REF(CLOSE,2) AND
 ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
 CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);//早晨之星
cond2:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND
 CLOSE/OPEN>1.03 AND
 OPEN<REF(CLOSE,1) AND
 CLOSE>REF(CLOSE,1);//曙光初现
cond3:=REF(CLOSE,2)>REF(OPEN,2) AND
 REF(CLOSE,1)>REF(OPEN,1) AND
 CLOSE>OPEN AND
 REF(CLOSE,1)>REF(CLOSE,2) AND
 CLOSE>REF(CLOSE,1); //三个白武士
cond4:=HIGH=CLOSE AND HIGH<>LOW; //光头阳线
cond5:=CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018; //大阳烛 继续看涨或者见底
cond6:=LOW>REF(HIGH,1); //向上突破缺口
cond7:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 and Range(abs(close/ref(close,1)-1),0.009,0.031); //仙人指路
cond8:=1;//"000diFenXing.ot"(0) ;,原本为缠论中底分型条件,这里暂时取消,不影响测试,可以换成自己的任何其他指标
cond9:=cross("dmi-ql.pdi","dmi-ql.mdi" );//


 if(CondiNumber>0) then Begin
 i:=INTPART((CondiNumber-1)/2)+1;//七个指标中的哪一个
j:=CondiNumber-(i-1)*2;//1 2 3表示一个指标的ref(,1),exist(,1)状态,
cond:=false;
 Switch (i) Begin
 case 1: Begin
 cond:=cond1;
 end
 case 2: Begin
 cond:=cond2;
 end
 case 3: Begin
 cond:=cond3;
 end
 case 4: Begin
 cond:=cond4;
 end
 case 5: Begin
 cond:=cond5;
 end
 case 6: Begin
 cond:=cond6;
 end
 case 7: Begin
 cond:=cond7;
 end
 case 8: Begin
 cond:=cond8;
 end
 case 9: Begin
 cond:=cond9;
 end
 end;
 Switch (j) Begin
 case 1: Begin
 cond:=ref(cond,1);
 end
 case 2: Begin
 //cond:=cond;
 end
 end;
 end;
 Else//其它因子默认为true
 cond:=true;
 Return cond;
 end;

close_zhangTing:=round(ref(close,1),3)+round(round(ref(close,1),3)*0.1,3);
 close_new:=round(close,3);
 FeiZhangTingcond01:=iif(close_new>=close_zhangTing,0, close_zhangTing-close_new>=0.010) ;//非涨停严格条件

 

TotalNums:=18;
 GroupNums:=2;


 Cond005:=close*1.005<=max(refx(high,1),refx(high,2));//成功条件,对公式优化很关键,可以改成自己的任意条件,比如两日内收盘价创新高
Cond010:=close*1.01<=max(refx(high,1),refx(high,2));//
 outStr = '';
 filename:='d:/paras/'+FormulaName(0)+ '_'+NumToStr(DataType,0)+'.csv';
 for i=1 to TotalNums do Begin //两个一组,可以设置三个或者四个一组,这里是表示一个指标的ref(,1),exist(,1)状态,
for j=(INTPART((i-1)/GroupNums)+1)*GroupNums+1 to TotalNums do Begin

 allcond:=getCondi(i) and getCondi(j) and FeiZhangTingcond01;//
 if count(allcond>0,0)>0 then Begin
 for k=0 to TotalNums do Begin
 if k=0 or k>= (INTPART((j-1)/GroupNums)+1)*GroupNums+1 then Begin
 allcond:=getCondi(i) and getCondi(j) and getCondi(k) and FeiZhangTingcond01;//
 allcount:=count(allcond>0,0);
 if allcount>0 then Begin
 outStr := NumToStr(i,0) + ',' + NumToStr(j,0) + ',' + NumToStr(k,0) + ',' + //
 NumToStr( allcount,0) + ',' +
 NumToStr( count( allcond and Cond005,0),0) + ',' +
 NumToStr( count( allcond and Cond010,0),0) ;
 FileAppend(filename,STKLABEL,',',outStr);
 end;
 end;
 end;
 end;
 end;
 end;


 //切换股票
if currentindex<=stkblkcount then
 OpenChartView(STKFROMBLK(stkblkName,currentindex),'',P_Day);
 Else
 Begin
 OpenChartView(STKFROMBLK(stkblkName,1),'kdj',P_Day);
 PLAYSOUND(1,0,'D:\\KT\\Sound\\ALERT7.WAV');
 end;

资源下载链接   资源大小:unknow

手机移动版 - 关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - TOP
湘ICP备09016573号 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZB.COM ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识