开拓者期货期权程序化系统交易论坛

标题: 同一个程序极速版可以编译，旗舰版编译通不过，请指教 [打印本页]

作者: bingjiu 时间: 2018-2-8 12:18:14 标题: 同一个程序极速版可以编译，旗舰版编译通不过，请指教

代码如下：

Params

Vars
   Numeric RSI;
Numeric TEMP1;
Numeric TEMP2;

NumericSeries DIFF;
NumericSeries DEA;
NumericSeries JJ;
NumericSeries A;
NumericSeries VAR2;

Bool JC;
Bool SC;
Bool DCJC;
Bool VAR3;
Bool VAR7;
Bool VAR8;
Bool VAR9;
Bool VAR10;
Bool VAR11;
   Bool VARC;
Bool VARD;

BoolSeries VARA;
BoolSeries VARE;
BoolSeries VAR12;

Begin

DIFF=XAverage(Close,5) - XAverage(Close,20);
DEA=XAverage(DIFF,10);
JC=CrossOver(DIFF,DEA);
SC=CrossOver(DEA,DIFF);
DCJC=JC AND (DEA>0);

VAR2=(Close-Average(Close,30))/Average(Close,30)*100;
VAR3=Close>Open And Open-Low>High-Close;
If(Close>Open)
   TEMP1=Close;
Else
   TEMP1=Open;
If (Open<Close)
   TEMP2=Open;
Else
   TEMP2=Close;
VAR7=Open>Close And High-TEMP1>TEMP2-Low;
VAR8=VAR2[1]>Abs(-20) And VAR7;
VAR9=VAR2[1]>Abs(-20) And Close<Open And (Close[1]-Close)/Close[1]*1000>20;
if(VARA=VAR8 Or VAR9 )
   if(VARA[1] || VARA[2] || VARA[3] )
   VARA=False;
VARC=VAR2[1]<-13 And VAR3;
VARD=VAR2[1]<-13 And Close>Open And (Close-Close[1])/Close[1]*1000>20;
if(VARE=VARC Or VARD )
   if(VARE[1] || VARE[2] || VARE[3])
   VARE=False;
VAR10=VAR2[1]>Abs(-13) And VAR7;
VAR11=VAR2[1]>Abs(-13) And Close<Open And (Close[1]-Close)/Close[1]*1000>20;
if(VAR12=VAR10 Or VAR11)
   if(VAR12[1] || VAR12[2] || VAR12[3])
   VAR12=False;
If(VARE==True)
   PlotString("attention short","短线关注",Low,Red);
If(VAR12==True)
   PlotString("control risk","控制风险",High,Cyan);
RSI=SMA(Max(Close-Close[1],0 ),6,1)/SMA(Abs(Close-Close[1]),6,1)*100;
If(CrossOver(84,RSI))
   PlotString("escape","→ 逃顶",High,Blue);
If(CrossOver(RSI,11))
   PlotString("bargain hunting","→ 低吸",Low,Red);
JJ=(Close+High+Low)/3;
A=XAverage(JJ,11);
If(A>A[1])
{
   PlotNumeric("High",Max(A[1],A));
   PlotNumeric("Low",Min(A[1],A));
   PlotNumeric("Close",Max(A[1],A));
   PlotNumeric("Open",Min(A[1],A));
}
Else
{
   PlotNumeric("High",Max(A[1],A));
   PlotNumeric("Low",Min(A[1],A));
   PlotNumeric("Open",Max(A[1],A));
   PlotNumeric("Close",Min(A[1],A));
}
   PlotNumeric("天籁",Highest(High,35),0,Red);
   PlotNumeric("地籁",Lowest(Low,55),0,Red);
   PlotNumeric("5日",Average(Close,5));
   PlotNumeric("10日",Average(Close,10));
   PlotNumeric("20日",Average(Close,20));
   PlotNumeric("60日",Average(Close,60));
   PlotNumeric("120日",Average(Close,120));
   PlotNumeric("无穷成本均线",SMA(Close,5,0.1));

End

欢迎光临开拓者期货期权程序化系统交易论坛 (http://bbs.tb18.net/)