[求助]求助，一个金字塔的公式，想改编　[文华财经]

一直用文华，很不习惯金字塔的软件

但是朋友给了一个金字塔公式，天天开两个软件，好烦，请老师帮忙改成文华的，可以吗，谢谢

 input:mm1(4,4,5,1);
input:mm2(4,2,5,1);
input:mm3(5,4,6,1);
input:mm4(10,8,10,1);
input:mm5(200,170,260,10);
input:mm6(7,6,10,1);
runmode:=0;
variable:ema12=c,ema26=c,dea=0;
if day<>ref(day,1) then begin
  ema12:=c;
  ema26:=c;
  dea:=0;
end
ema12:=ema12*11/13+c*2/13;
ema26:=ema26*25/27+c*2/27;
diff:=ema12-ema26;
dea:=dea*4/5+diff/5;
dea1:=dea;
macd:=2*(diff-dea),colorstick;


TYP:= (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));
开多1:=count(diff>ref(diff,1),mm1)=mm1;
开多2:=count(macd>ref(macd,1),mm2)=mm2;
开多3:=count(diff>dea1,mm3)=mm3;
开多:=开多1 AND 开多2 AND 开多3;
开空1:=count(diff<ref(diff,1),mm1)=mm1;
开空2:=count(macd<ref(macd,1),mm2)=mm2;
开空3:=count(diff<dea1,mm3)=mm3;
开空:=开空1 AND 开空2 AND 开空3;


平多1:=count(macd<ref(macd,1),mm4)=mm4;
平多2:=cci>mm5;
平空1:=count(macd>ref(macd,1),mm4)=mm4;
平空2:=cci<-mm5;
平多:=平多1 or 平多2 or CLOSE<=(ENTERPRICE-mm6); 
平空:=平空1 or 平空2 or CLOSE>=(ENTERPRICE+mm6);
 
IF HOLDING>0 AND 平多 THEN SELL(1,0,MARKET);
IF HOLDING>0 AND TIME=151200  THEN SELL(1,0,MARKET);
IF HOLDING<0 AND 平空  THEN SELLSHORT(1,0,MARKET);
IF HOLDING<0 AND TIME=151200  THEN SELLSHORT(1,0,MARKET);
IF HOLDING=0 AND 开多  AND TIME<150900  THEN BUY(1,1,MARKET); 
IF HOLDING=0 AND 开空  AND TIME<150900  THEN BUYSHORT(1,1,MARKET);


{
KD:=;          //开多条件
PD:=;          //平多条件
KK:=;          //开空条件
PK:=;          //平空条件


平空:SELLSHORT(PK,1,THISCLOSE);                  //平空信号
开多:BUY(KD AND HOLDING=0,1,THISCLOSE);          //开多信号
平多:SELL(PD,1,THISCLOSE);                       //平多信号
开空:BUYSHORT(KK AND HOLDING=0,1,THISCLOSE);     //开空信号

}
{
信号语句排列规则——先平后开
“费率设置”按钮——用于合理设置模型“费率”，以便在图形上正确输出如下帐户信息：

内容非常多，辛苦老师了~

最近改写需求较多，相关同事分析研究后给您回复，请耐心等待

另外，您的版本不是最新版，请登录文华官网下载最新WH6赢顺实盘通用版：www.wenhua.com.cn  

嗯，辛苦啦～

确实太多

最近改写需求较多，相关同事分析研究后给您回复，请耐心等待

另外，您的版本不是最新版，请登录文华官网下载最新WH6赢顺实盘通用版：www.wenhua.com.cn  

我用的是WH6啊