$3倍做多生物技术ETF-Direxion (LABU.US)$ 飞流直下三千尺 疑是银河落九天!止损不悔才算跳出韭菜田!
4
1
VKP:=IF(AMOUNT=0,(C+L+H+O)/4,AMOUNT/VOL);
RR:=VKP;
D1:=20;
SMD:=5;
WIDTH:=1.5;
RCCI:=(RR-MA(RR,D1))*100/(WIDTH*STDP(RR,D1));
VD:=120;
RV:=(VOL-LLV(VOL,VD))*100/(HHV(VOL,VD)-LLV(VOL,VD));
RVB:=RV*2-100;
VM:=EMA(RVb,SMD);
CCI:RCCI,COLORFF9300,NODRAW;
V%:RV,COLORFFFB00,NODRAW;
T:100,COLORLICYAN,DOTLINE;
M:0,COLORWHITE,DOTLINE;
G:-100,COLORLICYAN,DOTLINE;
X:=VKP;
Y:=REF(X,1);
STICKLINE(C>=O AND X>Y,-100,RVb,0.2,0),COLORRED;
STICKLINE(C<O AND X>Y,-100,RVb,0.2,0),COLORLIRED;
STICk...
RR:=VKP;
D1:=20;
SMD:=5;
WIDTH:=1.5;
RCCI:=(RR-MA(RR,D1))*100/(WIDTH*STDP(RR,D1));
VD:=120;
RV:=(VOL-LLV(VOL,VD))*100/(HHV(VOL,VD)-LLV(VOL,VD));
RVB:=RV*2-100;
VM:=EMA(RVb,SMD);
CCI:RCCI,COLORFF9300,NODRAW;
V%:RV,COLORFFFB00,NODRAW;
T:100,COLORLICYAN,DOTLINE;
M:0,COLORWHITE,DOTLINE;
G:-100,COLORLICYAN,DOTLINE;
X:=VKP;
Y:=REF(X,1);
STICKLINE(C>=O AND X>Y,-100,RVb,0.2,0),COLORRED;
STICKLINE(C<O AND X>Y,-100,RVb,0.2,0),COLORLIRED;
STICk...
已翻译
专栏 我撰写的交易分析主图程序
VKP:=IF(AMOUNT=0,(C+L+H+O)/4,AMOUNT/VOL);
{—-改进平均趋势烛图—}
XC:=(收盘价+最低价+最高价+开盘价)/4;
XO:=三角移动平均(参考(XC,1), 0.5,0.5);
XH:=最大值(最高价,最大值(XC,XO));
XL:=最小值(最低价,最小值(XC,XO));
{—-改进平均趋势烛图—}
RR:=VKP;
D1:=20;
M1:=WMA(2*WMA(RR,ROUND(D1/2))-WMA(RR,D1),ROUND(SQRT(D1)));
VM1:=EMA(RR,144);
VM2:=EMA(RR,169);
SR:=SAR(4,2,20);
NR:=CONST(C);
HL:=CONST(IF(XC>=XO,H,L));
C: 目标颜色为白色,线条宽度为1;
C%: (新纪录-当前值)*100/新纪录,目标颜色为白色,不显示;
P: VKP,目标颜色为蓝色,不显示;
PH%: (VKP-上一个数值)*100/VKP,目标颜色为蓝色,不显示;
H:M1,COLORL...
{—-改进平均趋势烛图—}
XC:=(收盘价+最低价+最高价+开盘价)/4;
XO:=三角移动平均(参考(XC,1), 0.5,0.5);
XH:=最大值(最高价,最大值(XC,XO));
XL:=最小值(最低价,最小值(XC,XO));
{—-改进平均趋势烛图—}
RR:=VKP;
D1:=20;
M1:=WMA(2*WMA(RR,ROUND(D1/2))-WMA(RR,D1),ROUND(SQRT(D1)));
VM1:=EMA(RR,144);
VM2:=EMA(RR,169);
SR:=SAR(4,2,20);
NR:=CONST(C);
HL:=CONST(IF(XC>=XO,H,L));
C: 目标颜色为白色,线条宽度为1;
C%: (新纪录-当前值)*100/新纪录,目标颜色为白色,不显示;
P: VKP,目标颜色为蓝色,不显示;
PH%: (VKP-上一个数值)*100/VKP,目标颜色为蓝色,不显示;
H:M1,COLORL...
已翻译
专栏 我写的OBV量能分析程序
VKP:=IF(AMOUNT=0,(C+L+H+O)/4,AMOUNT/VOL);
{- - - -OBV END - - - -}
SR:=VKP-REF(VKP,1);
OBR:=如果AMOUNT大于0,则返回AMOUNT,否则返回VOL;
OBV:=TMA(OBR*SIGN(SR),1,1);
{- - - -OBV END - - - -}
RR:=OBV;
D1:=20;
M1:=WMA(2*WMA(RR,ROUND(D1/2))-WMA(RR,D1),ROUND(SQRT(D1)));
NR:=CONST(RR);
R:RR,COLORFF9300,NODRAW;
R%:(NR-RR)*100/RR,COLORFF9300,NODRAW;
H:M1,COLORLIMAGENTA,NODRAW;
RH%:(RR-M1)*100/RR,COLORLIMAGENTA,NODRAW;
O1:=M1;
O1,COLORLIMAGENTA,LINETHICK2;
IF(O1>=REF(O1,1),O1,DRAWNULL),COLORMAGENTA,LINETHICK2;
...
{- - - -OBV END - - - -}
SR:=VKP-REF(VKP,1);
OBR:=如果AMOUNT大于0,则返回AMOUNT,否则返回VOL;
OBV:=TMA(OBR*SIGN(SR),1,1);
{- - - -OBV END - - - -}
RR:=OBV;
D1:=20;
M1:=WMA(2*WMA(RR,ROUND(D1/2))-WMA(RR,D1),ROUND(SQRT(D1)));
NR:=CONST(RR);
R:RR,COLORFF9300,NODRAW;
R%:(NR-RR)*100/RR,COLORFF9300,NODRAW;
H:M1,COLORLIMAGENTA,NODRAW;
RH%:(RR-M1)*100/RR,COLORLIMAGENTA,NODRAW;
O1:=M1;
O1,COLORLIMAGENTA,LINETHICK2;
IF(O1>=REF(O1,1),O1,DRAWNULL),COLORMAGENTA,LINETHICK2;
...
已翻译
{RSI 和交易量}
KD: =IF(周期 = 14,2,如果(周期 = 13,4,如果(周期 = 4,7,如果(周期 = 18,3,1)));
VDP:=IF(总金额=0,如果(金额=0,(C+L+H)/3,金额/体积),总量/总量);
RR: =VDP;
D1: =20*KD;
LC: =RR-REF (RR,1)
TEMP1: =MAX (RR-REF (RR,1) ,0);
TEMP2: =ABS (RR-REF (RR,1));
RSI1S:=WMA (2*WMA (TEMP1,ROUND (D1/2))-WMA(TEMP1,D1),回合(SQRT (D1))*100/WMA(TEMP2,ROUND (D1/2))-WMA(TEMP2,D1),回合(SQRT(D1));
VD: =60*KD;
RV: = (VOL-LLV (VOL, VD)) *100/ (HHV (VOL, VD)-LLV (VOL, VD));
RVB: =RV;
VMD:=5*KD;
VM: =MA (RV,V...
KD: =IF(周期 = 14,2,如果(周期 = 13,4,如果(周期 = 4,7,如果(周期 = 18,3,1)));
VDP:=IF(总金额=0,如果(金额=0,(C+L+H)/3,金额/体积),总量/总量);
RR: =VDP;
D1: =20*KD;
LC: =RR-REF (RR,1)
TEMP1: =MAX (RR-REF (RR,1) ,0);
TEMP2: =ABS (RR-REF (RR,1));
RSI1S:=WMA (2*WMA (TEMP1,ROUND (D1/2))-WMA(TEMP1,D1),回合(SQRT (D1))*100/WMA(TEMP2,ROUND (D1/2))-WMA(TEMP2,D1),回合(SQRT(D1));
VD: =60*KD;
RV: = (VOL-LLV (VOL, VD)) *100/ (HHV (VOL, VD)-LLV (VOL, VD));
RVB: =RV;
VMD:=5*KD;
VM: =MA (RV,V...
已翻译
专栏 我写的VWAP
{VWAP}
RVWAP:=如果TOTALAMOUNT等于0,那么如果AMOUNT等于0,则(C+L+H)/3,否则AMOUNT/VOL;
VWAP:RVWAP,COLORBLUE,NODRAW;
O0:=RVWAP;
O0,蓝色,线条2;
O0,COLORFF9300,POINTDOt,LINETHICK1;
IF(O0>=REF(O0,1) ,O0,DRAWNULL),COLORFFFB00,POINTDOt,LINETHICK1;
RVWAP:=如果TOTALAMOUNT等于0,那么如果AMOUNT等于0,则(C+L+H)/3,否则AMOUNT/VOL;
VWAP:RVWAP,COLORBLUE,NODRAW;
O0:=RVWAP;
O0,蓝色,线条2;
O0,COLORFF9300,POINTDOt,LINETHICK1;
IF(O0>=REF(O0,1) ,O0,DRAWNULL),COLORFFFB00,POINTDOt,LINETHICK1;
已翻译
专栏 我写的CCI指标
{- - -CCI - - - }
R:=C;
D:=20;
WIDTH:=2;
CCI:=(R-MA(R,D))*100/(WIDTH*STDP(R,D));
{- - - CCI END - - -}
使用体验:CCI和布林线都运用了统计学的标准理论来设计,试图实现超买与超卖的量化分析,从而找到顶与底位置。但事实上从实际图表可见总是顶了还继续顶,底了还可以再底,往往也被机构利用骗线。而且设计中用到一简单平均线,延时反应真实情况是必然存在的,所以不建议使用。因为相信所谓底,往往会让人深套很难翻身。
R:=C;
D:=20;
WIDTH:=2;
CCI:=(R-MA(R,D))*100/(WIDTH*STDP(R,D));
{- - - CCI END - - -}
使用体验:CCI和布林线都运用了统计学的标准理论来设计,试图实现超买与超卖的量化分析,从而找到顶与底位置。但事实上从实际图表可见总是顶了还继续顶,底了还可以再底,往往也被机构利用骗线。而且设计中用到一简单平均线,延时反应真实情况是必然存在的,所以不建议使用。因为相信所谓底,往往会让人深套很难翻身。
{— HMA 赫尔移动均线—}
HD:=20;
R:=C;
HMA:=WMA(2*WMA(R,ROUND(HD/2))-WMA(R,HD),ROUND(SQRT(HD)));
{- - - HMA END- - -}
体验:HMA赫尔移动均线确实有最大限度地克服了其它类均线的延迟问题。同时采用20,60,240日作周期分析趋势比较理想。但牛熊分界线的量化还是采用120天的简单平均线MA更准确些。
HD:=20;
R:=C;
HMA:=WMA(2*WMA(R,ROUND(HD/2))-WMA(R,HD),ROUND(SQRT(HD)));
{- - - HMA END- - -}
体验:HMA赫尔移动均线确实有最大限度地克服了其它类均线的延迟问题。同时采用20,60,240日作周期分析趋势比较理想。但牛熊分界线的量化还是采用120天的简单平均线MA更准确些。
3
1
专栏 我写的OBV指标代码
{- - - OBV - - - - - - - -}
X:=(C+H+L+O)/4;
OBV:=TMA(VOL*SIGN(X-REF(X,1)),1,1);
{- - - -OBV END - - - -}
体验:由于软件系统能提供的成交量不是整个交易市场的总成交量,其量化的可靠性存在问题。再加上X的变化与实践量能的变化是否一致也是值的存疑。还是不用好。
X:=(C+H+L+O)/4;
OBV:=TMA(VOL*SIGN(X-REF(X,1)),1,1);
{- - - -OBV END - - - -}
体验:由于软件系统能提供的成交量不是整个交易市场的总成交量,其量化的可靠性存在问题。再加上X的变化与实践量能的变化是否一致也是值的存疑。还是不用好。
{—-HEIKEN ASHI K线—}
XC:=(C+H+L+O)/4;
XO:=TMA(REF(XC,1),0.5,0.5);
XH:=MAX(H,MAX(XC,XO));
XL:=MIN(L,MIN(XC,XO));
DRAWKLINE(XH,XO,XL,XC);
{—-HEIKEN ASHI K线—}
体验:MOOM中XC:=(C+H+L+O)/4; 但由于机构利用盘前盘后拉升股价,操控开盘价,影响的股价变化趋势的量化效果,所以不用开盘价。这个K线采用作为辅助分析还量可以的。
XC:=(C+H+L+O)/4;
XO:=TMA(REF(XC,1),0.5,0.5);
XH:=MAX(H,MAX(XC,XO));
XL:=MIN(L,MIN(XC,XO));
DRAWKLINE(XH,XO,XL,XC);
{—-HEIKEN ASHI K线—}
体验:MOOM中XC:=(C+H+L+O)/4; 但由于机构利用盘前盘后拉升股价,操控开盘价,影响的股价变化趋势的量化效果,所以不用开盘价。这个K线采用作为辅助分析还量可以的。
2