全套指南针(用于飞狐和分析家)原码

==============================

CBAND——指南针布林线宽指标

Var1:=MA(CLOSE,N);

Var2:=Var1+2*STD(CLOSE,N);

变盘: 5, POINTDOT;

布林宽度: (Var2-Var1)/Var1*100;

警戒: 30, POINTDOT;

{N 30 5 100}

CBW——指南针成本带宽

CBW: 100*(COST(N1)-COST(N2))/COST(N1);

{N1 97.5 0 100 N2 2.5 0

100}

CBXQD——指南针成本均线强度

Var1:=AMOUNT/(100*VOL);

Var2:=MA(Var1,N1);

Var3:=MA(Var1,N2);

Var4:=MA(Var1,N3);

Var5:=DMA(CLOSE,VOL/CAPITAL);

CYR5: 100*(Var2-REF(Var2,N))/REF(Var2,N);

CYR13: 100*(Var3-REF(Var3,N))/REF(Var3,N);

CYR34: 100*(Var4-REF(Var4,N))/REF(Var4,N);

CYR无穷: 100*(Var5-REF(Var5,N))/REF(Var5,1);

《做自编公式，找罟缘！罟缘QQ：46388784》

{N 4 N1 5 N2 13 N3 34}

CKD——指南针相对价位

Var1:=AMOUNT/(100*VOL);

Var2:=MA(Var1,13);

Var3:=DMA(Var1,VOL/CAPITAL);

CKDP: 100*(Var2-COST(0))/(COST(100)-COST(0));

CKDW: 100*(Var3-COST(0))/(COST(100)-COST(0));

CMACD——指南针CMACD指标

Var1:=AMOUNT/(100*VOL);

Var2:=MA(Var1,N1);

Var3:=MA(Var1,N2);

CMACD: 100*(Var2-Var3)/Var3, COLORSTICK;

{N1 5 N2 13}

CYB——指南针优化布林线

MB: MA(CLOSE,N);

上轨: MB+STD(CLOSE,N);

下轨: MB-STD(CLOSE,N);

上极限: MB+2*STD(CLOSE,N);

下极限: MB-2*STD(CLOSE,N);

STICKLINE(open>=close ,close ,open,9,0

),COLORaaaaaa;

STICKLINE(open>=close ,close ,open,6,0

),COLORbbbbbb;

STICKLINE(open>=close ,close ,open,2.4,0

),COLORcccccc;

STICKLINE(open>=close ,close ,open,1.1,0

),COLOR;

STICKLINE(close>open,close,open,9,0

),COLOr6666cc;

STICKLINE(close>open,close,open,6 ,0

),COLOR7777dd;

STICKLINE(close>open,close,open,2.4 ,0

),COLOR8888ee;

STICKLINE(close>open,close,open,1.1 ,0

),COLOR9999ff;

STICKLINE(close>open,open,low,0.5,0

),COLOR1199ff;

STICKLINE(close>open,close,HIGH,0.5 ,0

),COLOR1199ff;

STICKLINE(open>=close,close,low,0.5 ,0

),COLORcccccc;

STICKLINE(open>=close,open,HIGH,0.5 ,0

),COLORcccccc;

CYC1——指南针成本均线

Var1:=AMOUNT/(100*VOL);

短线成本均线: MA(Var1,N1);

中线成本均线: MA(Var1,N2);

长线成本均线: MA(Var1,N3);

无穷成本均线: DMA(CLOSE,VOL/CAPITAL);

STICKLINE(open>=close ,close ,open,9,0

),COLORaaaaaa;

STICKLINE(open>=close ,close ,open,6,0

),COLORbbbbbb;

STICKLINE(open>=close ,close ,open,2.4,0

),COLORcccccc;

STICKLINE(open>=close ,close ,open,1.1,0

),COLOR;

STICKLINE(close>open,close,open,9,0

),COLOr6666cc;

STICKLINE(close>open,close,open,6 ,0

),COLOR7777dd;

STICKLINE(close>open,close,open,2.4 ,0

),COLOR8888ee;

STICKLINE(close>open,close,open,1.1 ,0

),COLOR9999ff;

STICKLINE(close>open,open,low,0.5,0

),COLOR1199ff;

STICKLINE(close>open,close,HIGH,0.5 ,0

),COLOR1199ff;

STICKLINE(open>=close,close,low,0.5 ,0

),COLORcccccc;

STICKLINE(open>=close,open,HIGH,0.5 ,0

),COLORcccccc;

{N1 5 N2 13 N3 34}

CYC2——指南针成本均线

CYC1:0.01*EMA(AMOUNT,P1)/EMA(VOL,P1);

CYC2:0.01*EMA(AMOUNT,P2)/EMA(VOL,P2);

CYC3:0.01*EMA(AMOUNT,P3)/EMA(VOL,P3);

CYC∞MA(AMOUNT/(100*VOL),VOL/(100*FINANCE(7)));

{P1 5 P2 13 P3 34]

CYD——指南针承接因子

CYDS:WINNER(CLOSE)/(VOL/CAPITAL);

CYDN:WINNER(CLOSE)/MA(VOL/CAPITAL,N);

{年 21}

CYD2——指南针承接因子

A:=WINNER(CLOSE )*CAPITAL;

承接因子:A/VOL;

CYDD——指南针动态承接因子

Var1:=WINNER(CLOSE);

Var2:=DMA(Var1,VOL/CAPITAL);

Var3:=DMA(VOL,VOL/CAPITAL)/CAPITAL;

CYDD: Var1/Var3;

CYDD1: Var2/Var3;

1, POINTDOT;

CYE——指南针市场趋势

MAL:=MA(CLOSE,5);

MAS:=MA(MA(CLOSE,20),5);

CYELMAL-REF(MAL,1))/REF(MAL,1)*100;

CYESMAS-REF(MAS,1))/REF(MAS,1)*100;

CYF——指南针市场能量

HSL:=VOL/CAPITAL*100;

CYF:100-100/(1+EMA(HSL,N)*100);

{N 21}

CYOBV——指南针优化累积能量线

NOBV1:

SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE

VOL,0)),N)/CAPITAL;

{N 34}

CYQKL——指南针博弈K线长度

100*(WINNER(CLOSE)-WINNER(OPEN)), COLORSTICK;

CYR——指南针市场强弱

DIVE:=0.01*EMA(AMOUNT,N)/EMA(VOL,N);

CYRDIVE/REF(DIVE,1)-1)*100;

MACYR:MA(CYR,M);

{N 13 M 5}

CYS——指南针盈亏指标

Var1:=AMOUNT/(100*VOL);

Var2:=MA(Var1,N1);

Var3:=MA(Var1,N2);

Var4:=MA(Var1,N3);

Var5:=DMA(CLOSE,VOL/CAPITAL);

CYS5: 100*(CLOSE-Var2)/Var2;

CYS13: 100*(CLOSE-Var3)/Var3;

CYS34: 100*(CLOSE-Var4)/Var4;

CYS无穷: 100*(CLOSE-Var5)/Var5;

{N1 5 N2 13 N3 34}

CYW-YJJ——主力控盘

VAR1:=1;

VAR2:=CLOSE-REF(CLOSE,1);

VAR3:=IF(CLOSE-REF(CLOSE,1)>=0,VAR2,0);

VAR4:=REF(CLOSE,1)-CLOSE;

VAR5:=IF(CLOSE-REF(CLOSE,1)<=0,VAR4,0);

VAR6:=SUM(VAR3,P1)/SUM(VAR5,P1);

VAR7:=100-100/(1+VAR6);

VAR8:=EMA(VAR7,P1);

VAR9:=EMA(VAR8,P2);

VARA:=EMA(VAR8,P3);

MO: (VAR8-VARA)*VAR1;

ML: (VAR9-VARA)*VAR1;

MODE: MO*VAR1, COLORSTICK;

{P1 16 P2

8 P3 45}

CYW——指南针主力控盘

VAR1:=CLOSE-LOW;

VAR2:=HIGH-LOW;

VAR3:=CLOSE-HIGH;

VAR4:=IF(CLOSE>=0,(VAR1/VAR2+VAR3/VAR2)*VOL,(VAR3/VAR2+VAR1/VAR2)*VOL);

CYW: SUM(VAR4,10)/10000, COLORSTICK;