【原】改版周期指标公式

编程思路破译

-13
50
60
P赋值:(最高价 + 最低价 + 收盘价)/3
CCI日赋值:(P-P的14日简单移动平均)*100/(1.5*P的14日平均绝对偏差),画白色,线宽为1
CCI3日均赋值:CCI日的3日简单移动平均,COLOREF03CC,线宽为1
当满足条件CCI3日均>=1日前的CCI3日均时,在50位置画38号图标
当满足条件CCI3日均<1日前的CCI3日均时,在50位置画39号图标
当满足条件到最后交易的周期=1时,在49位置书写文字,COLORFF00FF
输出WR:100-100*(5*8日内最高价的最高值-收盘价)/(5*8日内最高价的最高值-5*8日内最低价的最低值),COLORFFFFFF,NODRAW
WR2日赋值:WR的5日指数移动平均,COLORF933C2
WR4日赋值:WR的9日指数移动平均,画淡红色

当满足条件WR2日>=1日前的WR2日时,在45位置画38号图标

当满足条件WR2日<1日前的WR2日时,在45位置画39号图标

当满足条件到最后交易的周期=1时,在44位置书写文字,COLORFF00FF

RSV1赋值:100- (9日内最高价的最高值-收盘价)/(9日内最高价的最高值-9日内最低价的最低值)*100

LWR1赋值:RSV1的4日[1日权重]移动平均

LWR2赋值:LWR1的4日[1日权重]移动平均

当满足条件LWR1>=1日前的LWR1时,在40位置画38号图标

当满足条件LWR1<1日前的LWR1时,在40位置画39号图标

当满足条件到最后交易的周期=1时,在39位置书写文字,COLORFF00FF

RSV赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100

K赋值:RSV的3日[1日权重]移动平均

D赋值:K的3日[1日权重]移动平均

J赋值:3*K-2*D

当满足条件D>=1日前的D*0.95时,在35位置画38号图标

当满足条件D<1日前的D*0.95时,在35位置画39号图标

当满足条件到最后交易的周期=1时,在34位置书写文字,COLORFF00FF

DIF赋值:收盘价的9日指数移动平均-收盘价的21日指数移动平均

DEA赋值:DIF的9日指数移动平均

当满足条件DIF>=1日前的DIF时,在30位置画38号图标

当满足条件DIF<1日前的DIF时,在30位置画39号图标

当满足条件到最后交易的周期=1时,在29位置书写文字,COLORFF00FF

DIF120赋值:收盘价的9/2日指数移动平均-收盘价的21/2日指数移动平均

DEA120赋值:DIF120的9/2日指数移动平均

当满足条件DIF120>=DEA120时,在25位置画34号图标

当满足条件DIF120<DEA120时,在25位置画35号图标

当满足条件到最后交易的周期=1时,在24位置书写文字,COLORFF00FF

B1赋值:(20日内最高价的最高值-收盘价)/(20日内最高价的最高值-20日内最低价的最低值)*100-100

B2赋值:B1的25日[1日权重]移动平均+100

B3赋值:(收盘价-20日内最低价的最低值)/(20日内最高价的最高值- 20日内最低价的最低值)*100

B4赋值:B3的3日[1日权重]移动平均

B5赋值:B4的3日[1日权重]移动平均+100

B6赋值:B5-B2

控盘程度赋值:(如果B6>40,返回B6-40,否则返回0)*2.5,画黄色

控盘度赋值:100,COLOR0037CD

当满足条件控盘程度<1日前的控盘程度*1.011时,在20位置画43号图标

当满足条件控盘程度<1AND控盘程度>=1日前的控盘程度*1.011时,在20位置画43号图标

当满足条件控盘程度>=1AND控盘程度>=1日前的控盘程度*1.011时,在20位置画42号图标

当满足条件到最后交易的周期=1时,在19位置书写文字,画黄色

VA赋值:如果收盘价>1日前的开盘价和收盘价的较大值,返回成交量(手),否则返回如果收盘价<1日前的开盘价和收盘价的较小值,返回-成交量(手),否则返回((收盘价-最低价)-(最高价-收盘价))/(最高价-最低价)*成交量(手)

OBV赋值:如果收盘价=1日前的收盘价,返回0,否则返回VA的历史累和

MAOBV1赋值:OBV的2日简单移动平均,COLOR8AD8FD

MAOBV2赋值:OBV的3日简单移动平均,COLOREF03CC,线宽为2

MAOBV3赋值:MAOBV2的4日简单移动平均,COLORB57826

当满足条件MAOBV2>=1日前的MAOBV2时,在15位置画38号图标

当满足条件MAOBV2<1日前的MAOBV2时,在15位置画39号图标

当满足条件到最后交易的周期=1时,在14位置书写文字,COLOR3E9EFF

VALUE1赋值:收盘价-开盘价

VALUE2赋值:最高价-最低价

VALUE3赋值:如果VALUE2=0,返回0,否则返回VALUE1/VALUE2

SRSIN赋值:VALUE3的7日累和

SRSI赋值:SRSIN/7,画淡蓝色

SRSIM赋值:SRSI的3日简单移动平均,COLORF933C2

SRSIK赋值:SRSI的6日简单移动平均,画淡红色

当满足条件SRSIM>=1日前的SRSIM*1.005时,在10位置画38号图标

当满足条件SRSIM<1日前的SRSIM*1.005时,在10位置画39号图标

当满足条件到最后交易的周期=1时,在9位置书写文字,COLOR3E9EFF

日RSI1赋值:"RSI的RSI1[取日线数据]"(7)

日RSI2赋值:"RSI的RSI2[取日线数据]"(7)

当满足条件日RSI1>=日RSI2时,在5位置画38号图标

当满足条件日RSI1<日RSI2时,在5位置画39号图标

当满足条件到最后交易的周期=1时,在4位置书写文字,COLOR3E9EFF

VOLUME赋值:成交量(手),VOLSTICK

MAVOL1赋值:VOLUME的3日简单移动平均

MAVOL2赋值:VOLUME的7日简单移动平均

当满足条件MAVOL1>=MAVOL2时,在0位置画38号图标

当满足条件MAVOL1<MAVOL2时,在0位置画39号图标

当满足条件到最后交易的周期=1时,在-1位置书写文字,COLOR3E9EFF

RSV2赋值:(收盘价-9*2日内最低价的最低值)/(9*2日内最高价的最高值-9*2日内最低价的最低值)*100

K2赋值:RSV2的3*2日[1日权重]移动平均

D2赋值:K2的3*2日[1日权重]移动平均

J2赋值:3*K2-2*D2

当满足条件J2>=1日前的J2*1时,在-5位置画1号图标

当满足条件J2<1日前的J2*1时,在-5位置画2号图标

当满足条件到最后交易的周期=1时,在-6位置书写文字,COLOR3E9EFF

DIF2赋值:收盘价的9*2日指数移动平均-收盘价的21*2日指数移动平均

DEA2赋值:DIF2的9*2日指数移动平均

当满足条件DIF2>=1日前的DIF2时,在-10位置画1号图标

当满足条件DIF2<1日前的DIF2时,在-10位置画2号图标

当满足条件到最后交易的周期=1时,在-11位置书写文字,COLOR3E9EFF

当满足条件CCI3日均>=1日前的CCI3日均ANDWR2日>=1日前的WR2日ANDLWR1>=1日前的LWR1ANDD>=1日前的D*0.95ANDDIF>=1日前的DIFANDDIF120>=DEA120时,在59位置画25号图标

当满足条件控盘程度>=1AND控盘程度>=1日前的控盘程度*1.011ANDMAOBV2>=1日前的MAOBV2AND日RSI1>=日RSI2ANDMAVOL1>=MAVOL2ANDSRSIM>=1日前的SRSIM*1.005ANDJ2>=1日前的J2*1ANDDIF2>=R时,在F(DIF2,1)位置画55号图标

程序源码

-13;

50;

60;

{1日cci}

P:=(HIGH + LOW + CLOSE)/3;

CCI日:=(P-MA(P,14))*100/(1.5*AVEDEV(P,14)),COLORWHITE,LINETHICK1;

CCI3日均:=MA(CCI日,3),COLOREF03CC,LINETHICK1;

DRAWICON(CCI3日均>=REF(CCI3日均,1),50,38);

DRAWICON(CCI3日均<REF(CCI3日均,1),50,39);

DRAWTEXT(CURRBARSCOUNT=1,49,' CCI3日均 '),COLORFF00FF;

{1日wr}

WR:100-100*(HHV(HIGH,5*8)-CLOSE)/(HHV(HIGH,5*8)-LLV(LOW,5*8)),COLORFFFFFF,NODRAW;

WR2日:=EMA(WR,5),COLORF933C2;

WR4日:=EMA(WR,9),COLORLIRED;

DRAWICON(WR2日>=REF(WR2日,1),45,38);

DRAWICON(WR2日<REF(WR2日,1),45,39);

DRAWTEXT(CURRBARSCOUNT=1,44,' 1日WR '),COLORFF00FF;

{1日改良LWR}

RSV1:=100- (HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100;

LWR1:=SMA(RSV1,4,1);

LWR2:=SMA(LWR1,4,1);

DRAWICON(LWR1>=REF(LWR1,1),40,38);

DRAWICON(LWR1<REF(LWR1,1),40,39);

DRAWTEXT(CURRBARSCOUNT=1,39,' 1日LWR改良 '),COLORFF00FF;

{kdj1日}

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

DRAWICON(D>=REF(D*0.95,1),35,38);

DRAWICON(D<REF(D*0.95,1),35,39);

DRAWTEXT(CURRBARSCOUNT=1,34,' 1日kdJ '),COLORFF00FF;

{1日macd}

DIF:=EMA(CLOSE,9)-EMA(CLOSE,21);

DEA:=EMA(DIF,9);

DRAWICON(DIF>=REF(DIF,1),30,38);

DRAWICON(DIF<REF(DIF,1),30,39);

DRAWTEXT(CURRBARSCOUNT=1,29,' 1日MacD '),COLORFF00FF;

{120分MACD}

DIF120:=EMA(CLOSE,9/2)-EMA(CLOSE,21/2);

DEA120:=EMA(DIF120,9/2);

DRAWICON(DIF120>=DEA120,25,34);

DRAWICON(DIF120<DEA120,25,35);

DRAWTEXT(CURRBARSCOUNT=1,24,' 120MACD '),COLORFF00FF;

{1日控盘}

B1:=(HHV(H,20)-C)/(HHV(H,20)-LLV(LOW,20))*100-100;

B2:=SMA(B1,25,1)+100;

B3:=(C-LLV(L,20))/(HHV(H,20)- LLV(L,20))*100;

B4:=SMA(B3,3,1);

B5:=SMA(B4,3,1)+100;

B6:=B5-B2;

控盘程度:=(IF(B6>40,B6-40,0))*2.5,COLORYELLOW;

控盘度:=100,COLOR0037CD;

DRAWICON(控盘程度<REF(控盘程度,1)*1.011,20,43);

DRAWICON(控盘程度<1 AND 控盘程度>=REF(控盘程度,1)*1.011,20,43);

DRAWICON(控盘程度>=1 AND 控盘程度>=REF(控盘程度,1)*1.011,20,42);

DRAWTEXT(CURRBARSCOUNT=1,19,' 1日控盘 '),COLORYELLOW;

{1日obv}

VA:=IF(CLOSE>REF(MAX(O,C),1),vol, IF(CLOSE<REF(MIN(O,C),1),-VOL, ((C-L)-(H-C))/(H-L)*V));

OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);

MaoBV1:=MA(OBV,2),COLOR8AD8FD;

MAOBV2:=MA(OBV,3),COLOREF03CC,LINETHICK2;

MAOBV3:=MA(MAOBV2,4),COLORB57826;

DRAWICON(MAOBV2>=REF(MAOBV2,1),15,38);

DRAWICON(MAOBV2<REF(MAOBV2,1),15,39);

DRAWTEXT(CURRBARSCOUNT=1,14,' 1日OBV '),COLOR3E9EFF;

{1日Srsi}

VALUE1:=C-O;

VALUE2:=H-L;

VALUE3:=IF(VALUE2=0,0,VALUE1/VALUE2);

SRSIN:=SUM(VALUE3,7);

SRSI:=SRSIN/7,COLORLIBLUE;

SRSIM:=MA(SRSI,3),COLORF933C2;

SRSIK:=MA(SRSI,6),COLORLIRED;

DRAWICON(SRSIM>=REF(SRSIM*1.005,1),10,38);

DRAWICON(SRSIM<REF(SRSIM*1.005,1),10,39);

DRAWTEXT(CURRBARSCOUNT=1,9,' 1日SRSI '),COLOR3E9EFF;

日RSI1:="RSI.RSI1#DAY"(7);

日RSI2:="RSI.RSI2#DAY"(7);

DRAWICON(日RSI1>=日RSI2,5,38);

DRAWICON(日RSI1<日RSI2,5,39);

DRAWTEXT(CURRBARSCOUNT=1,4,' 日R金叉 '),COLOR3E9EFF;

VOLUME:=VOL,VOLSTICK;

MAVOL1:=MA(VOLUME,3);

MAVOL2:=MA(VOLUME,7);

DRAWICON(MAVOL1>=MAVOL2,0,38);

DRAWICON(MAVOL1<MAVOL2,0,39);

DRAWTEXT(CURRBARSCOUNT=1,-1,' 成交量 '),COLOR3E9EFF;

{KDJ2日}

RSV2:=(CLOSE-LLV(LOW,9*2))/(HHV(HIGH,9*2)-LLV(LOW,9*2))*100;

K2:=SMA(RSV2,3*2,1);

D2:=SMA(K2,3*2,1);

J2:=3*K2-2*D2;

DRAWICON(J2>=REF(J2*1,1),-5,1);

DRAWICON(J2<REF(J2*1,1),-5,2);

DRAWTEXT(CURRBARSCOUNT=1,-6,' 2日KDJ '),COLOR3E9EFF;

{2日MACD}

DIF2:=EMA(CLOSE,9*2)-EMA(CLOSE,21*2);

DEA2:=EMA(DIF2,9*2);

DRAWICON(DIF2>=REF(DIF2,1),-10,1);

DRAWICON(DIF2<REF(DIF2,1),-10,2);

DRAWTEXT(CURRBARSCOUNT=1,-11,' 2日MACD '),COLOR3E9EFF;

{共振力度}

DRAWICON(CCI3日均>=REF(CCI3日均,1) AND WR2日>=REF(WR2日,1) AND LWR1>=REF(LWR1,1) AND D>=REF(D*0.95,1) AND DIF>=REF(DIF,1) AND DIF120>=DEA120 ,59,25);

DRAWICON(控盘程度>=1 AND 控盘程度>=REF(控盘程度,1)*1.011 AND MAOBV2>=REF(MAOBV2,1) AND 日RSI1>=日RSI2 AND MAVOL1>=MAVOL2 AND SRSIM>=REF(SRSIM*1.005,1) AND J2>=REF(J2*1,1) AND DIF2>=REF(DIF2,1),55,26);

注：

       馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。

       发文不易，如获益，欢迎赞赏，赞赏必复！