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

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

• 使用说明：
  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;