情绪传播指标

情绪传播指标（V.101103）

先简单实现，暂时用来在日内看内盘期货是不是需要提前反手。

一、文档列表

1．
Qxcb.docx说明文档

2．
Qxcb.afl AB公式

3．
Inall.afl AB公式

4．
Qxcb.gif
效果和布局图

二、理念

认为各市场的同向逻辑运动加速（情绪扩散），或者是由混乱运动快速转为一致运动（情绪反转）体现了投资者的情绪。通过快速发现并顺应这种情绪获得优势。

三、实现

1．IBGateway连接IB服务器获取实时数据

2．AB连接IBGateway处理并显示数据

3．平均波动根据历史数据的平均C-C波动确定，各类内权重根据主观经验

四、算法

1获取数据序列

2确定基点

3确定基准品种

4计算波动幅度

5根据基准品种的平均波动计算各品种波动调整因子

5标准化波动

6各类内品种加权相加

7类符号调整（根据不同类与基准品种所在类的相关性的符号）

8类求和

五、使用

曲线的方向，特别是显著拐点后的方向作为将收盘交易提前的参照。

###########################################

##########################################

qxcb.afl

_SECTION_BEGIN(“Price”);

s1=Foreign(“esz0-globex-fut”,” C”);
t1=Foreign(“zn dec
10-ecbot-fut”,” C”);
f1=Foreign(“dxz0-nybot-fut”, “C”);
c1=Foreign(“clz0-nymex-fut”, “C”);
c2=Foreign(“hgz0-nymex-fut”, “C”);
s1ar=0.79;
t1ar=0.22;
f1ar=0.41;
c1ar=1.40;
c2ar=1.31;
s1w=1;
t1w=1;
f1w=1;
c1w=0.5;
c2w=0.5;
range=Param( “range(min)”,60, 20, 600);
s1b=LastValue(Ref(s1,-range));
t1b=LastValue(Ref(t1,-range));
f1b=LastValue(Ref(f1,-range));
c1b=LastValue(Ref(c1,-range));
c2b=LastValue(Ref(c2,-range));

s1r=s1/s1b-1;
t1r=t1/t1b-1;
f1r=f1/f1b-1;
c1r=c1/c1b-1;
c2r=c2/c2b-1;

sr=s1ar;
s1srf=sr/s1ar;
t1srf=sr/t1ar;
f1srf=sr/f1ar;
c1srf=sr/c1ar;
c2srf=sr/c2ar;

s1sr=s1r*s1srf;
t1sr=t1r*t1srf;
f1sr=f1r*f1srf;
c1sr=c1r*c1srf;
c2sr=c2r*c2srf;

ss=s1sr*s1w;
st=t1sr*t1w;
sf=f1sr*f1w;
sc=c1sr*c1w+c2sr*c2w;
qxcb=(ss-st-sf+sc)/4*100;
Plot(qxcb,”qxcb” ,11);
Title=”qxcb:”+qxcb+””+”\nstart:”+range/60+” hours ago”;
_SECTION_END();

##########################################

inall.afl

_SECTION_BEGIN(“”);

s1=Foreign(“esz0-globex-fut”,” C”);
t1=Foreign(“zn dec
10-ecbot-fut”,” C”);
f1=Foreign(“dxz0-nybot-fut”, “C”);
c1=Foreign(“clz0-nymex-fut”, “C”);
c2=Foreign(“hgz0-nymex-fut”, “C”);
Plot(s1/s1[0],”es”,10);
Plot(t1/t1[0],”zn”,11);
Plot(f1/f1[0],”dx”,12);
Plot(C1/C1[0],”cl”,13);
Plot(C2/C2[0],”hg”,14);

_SECTION_END();

##############################

Qxcb.gif