课程经典白糖程序化交易模型源码.docVIP

经典白糖程序化交易模型源码 //该模型模型不错，主要是一些高手提供出来给大家学习 // 文华财经免费白糖 BA:= BARPOS; // 当前K线位置（从1开始） VOL1:= IFELSE(LLV(VOL,0)=0, 1, INTPART(VOL*100)); // 从头到尾遍历。只要出现 成交量=0时，返回1。否则，返回VOL*100取整。 HC:=LLV(IFELSE(H-C=0, 1000, H-C), 0); // 从头到尾遍历，寻找最小的 最高价与 收盘价的距离。默认当最高价= 最低价时，返回1000。 CL:=LLV(IFELSE(C-L=0, 1000, ABS(C-L)), 0); // 从头到尾遍历，寻找最小的收盘价与最低价距离。 CO:=LLV(IFELSE(C-O=0, 1000, ABS(C-O)), 0); // 从头到尾遍历，寻找最小的收盘价与 开盘价距离。 ZXBD:=MIN(HC, MIN(CL, CO)); // 找当前周期之前的最小的HC, CL, CO。 DFX:= REF(L, 2)=LLV(L,15) REF(L,1)REF(L,2) LREF(L,1) REF(L,2)=REF(L,3); // 是否上涨起点。原：“LREF(L, 2)” 【参数】 GFX:= REF(H, 2)=HHV(H,9) REF(H,1)REF(H,2) HREF(H,1) REF(H,2)=REF(H,3); // 是否下跌起点。 原：“HREF(H, 2)” 【参数】 DFXI:= VALUEWHEN(DFX, BA); // 取上涨起点的K线位置。若是上涨起点，则返回K线位置。反之返回前一个上涨起点的K线位置。 GFXI:= VALUEWHEN(GFX, BA); // 跟上面类似，取下跌起点K线位置。 DDP1:= VALUEWHEN(DFX, REF(L, 2)); // 取上涨起点的最低值。 GDP1:= VALUEWHEN(GFX, REF(H, 2)); // 取下跌起点的最高值。 DDP:= VALUEWHEN(DFX DDP1REF(DDP1, 1), DDP1); // 取当前的上涨起点最低值。实际等于DDP1。 GDP:= VALUEWHEN(GFX GDP1REF(GDP1, 1), GDP1); // 取当前的下跌起点最高值。实际等于GDP1。 DFX1I:= VALUEWHEN(DFX, REF(DFXI, 1)); // 取上涨起点的前一个上涨起点的K线位置。 DFX1P:= VALUEWHEN(DFX, REF(DDP, BA-DFX1I)); // 取上涨起点的前一个上涨起点的K线位置的最低值。原DFX1P:= VALUEWHEN(DFX, REF(DDP, BA-DFX1I+1));。 GFX1I:= VALUEWHEN(GFX, REF(GFXI, 1)); // 取下跌起点的前一个下跌起点的K线位置。 GFX1P:= VALUEWHEN(GFX, REF(GDP,BA-GFX1I)); // 取下跌起点的前一下跌起点的K线位置的最高值。原GFX1P:= VALUEWHEN(GFX, REF(GDP,BA-GFX1I+1));。 DFXP:= VALUEWHEN(DFX DDPREF(DDP,1), MIN(DDP, MIN(DFX1P, REF(DDP, 1)))); // 取当前上涨起点最低值、前一个上涨起点值、上一个周期最低值中的最低值。 GFXP:= VALUEWHEN(GFX GDPREF(GDP,1), MAX(GDP, MAX(GFX1P, REF(GDP, 1)))); // 取当前下跌起点最高值、前一个下跌起点值、上一个周期最高值中的最高值。 // ---------------------------------------抛物转向------------------------------------------ SA:= SAR(4, 0.02, 0.2); // 抛物转向值 【参数】 DZZ:= SA0 REF(SA, 1)=0; // 抛物转向值是否上涨启动。原SA0 NOT(REF(SA,1)0) || BA=0。 GZZ:= SA0 REF(SA, 1)=0; // 抛物转向值是否下跌启动。原SA0 NOT(REF(SA,1)0) || BA=0。 DZZI:= VALUEWHEN(DZZ, BA); // 返回抛物转向值上涨的K线位置。 GZZI:= VALUEWHEN(GZZ, BA); // 返回抛物转向值下跌的K线位置。 DZZ0I:= IFELSE( NOT( VALUEWHEN( D