通达信盈亏平衡指标源码测试图

以下是通达信盈亏平衡指标源码测试图

N:=3;KG:=0;
 A:=PERIOD;KK:=DRAWNULL;
 TJ1:=A<1 OR A>6 AND A!=9 OR KG;
 TJ2:=A<2 OR A>6 AND A!=9 OR KG;
 TJ3:=A<3 OR A>7 AND A!=9 OR KG;
 TJ4:=A<4 OR A=8 OR KG;
 TJ5:=A<5 OR A=8 OR KG;
 {10日盈亏平衡线，根据牛熊界线基准线内插；当KG=1时，显示普通均线MA(C,10)}
 N1:=IF(A=5,10,IF(A=6,2,IF(A=9,3,IF(A=4,40,IF(A=3,80,IF(A=2,160,480))))));
 H10:=IF(TJ1,KK,IF(CAPITAL,HHV(EMA(H+C,N),N1)*0.933,HHV(EMA(H+C,N),N1)*0.983));
 L10:=IF(TJ1,KK,IF(CAPITAL,LLV(EMA(L+C,N),N1)*1.067,LLV(EMA(L+C,N),N1)*1.017));
 YK10R:IF(TJ1,MA(C,10),(H10+L10)/4),LINETHICK1;
 {30日盈亏平衡线，根据牛熊界线基准线内插；当KG=1时，显示普通均线MA(C,30)}
 N2:=IF(A=5,30,IF(A=6,6,IF(A=9,10,IF(A=4,120,IF(A=3,240,480)))));
 H30:=IF(TJ2,KK,IF(CAPITAL,HHV(EMA(H+C,N),N2)*0.9,HHV(EMA(H+C,N),N2)*0.95));
 L30:=IF(TJ2,KK,IF(CAPITAL,LLV(EMA(L+C,N),N2)*1.1,LLV(EMA(L+C,N),N2)*1.05));
 YK30R:IF(TJ2,MA(C,30),(H30+L30)/4),LINETHICK1;
 {60日盈亏平衡线，根据牛熊界线基准线内插；当KG=1时，显示普通均线MA(C,60)}
 N3:=IF(A=5,60,IF(A=6,12,IF(A=7,3,IF(A=9,20,IF(A=4,240,IF(A=3,480,480))))));
 H60:=IF(TJ3,KK,IF(CAPITAL,HHV(EMA(H,N),N3)*0.8,HHV(EMA(H,N),N3)*0.9));
 L60:=IF(TJ3,KK,IF(CAPITAL,LLV(EMA(L,N),N3)*1.2,LLV(EMA(L,N),N3)*1.1));
 YK60R:IF(TJ3,MA(C,60),(H60+L60)/2),LINETHICK1;
 {120日盈亏平衡线，牛熊界线基准线；当KG=1时，显示普通均线MA(C,120)即半年线}
N4:=IF(A=4,480,IF(A=5,120,IF(A=6,24,IF(A=7,6,IF(A=9,40,IF(A>=10,2,480))))));
 H120:=IF(TJ4,KK,IF(CAPITAL,HHV(EMA(H,N),N4)*0.7,HHV(EMA(H,N),N4)*0.8));
 L120:=IF(TJ4,KK,IF(CAPITAL,LLV(EMA(L,N),N4)*1.3,LLV(EMA(L,N),N4)*1.2));
 YK120R:IF(TJ4,MA(C,120),(H120+L120)/2),COLOR1389EE,LINETHICK2;
 {240日盈亏平衡线，根据牛熊界线基准线外推；当KG=1时，显示普通均线MA(C,240)即年线}
N5:=IF(A=5,240,IF(A=6,48,IF(A=7,12,IF(A=10,4,IF(A=11,1,IF(A=9,80,480))))));
 H240:=IF(TJ5,KK,IF(CAPITAL,HHV(EMA(H,N),N5)*0.8,HHV(EMA(H,N),N5)*0.9));
 L240:=IF(TJ5,KK,IF(CAPITAL,LLV(EMA(L,N),N5)*1.2,LLV(EMA(L,N),N5)*1.1));
 YK240R:IF(TJ5,MA(C,240),(H240+L240)/2),LINETHICK2;
 {480日盈亏平衡线，根据牛熊界线基准线外推；当KG=1时，显示普通均线MA(C,480)即2年线}
N6:=IF(A=5,480,IF(A=6,96,IF(A=7,24,IF(A=9,160,IF(A=10,8,IF(A=11,2,480))))));
 H480:=IF(TJ5,KK,IF(CAPITAL,HHV(EMA(H,N),N6)*0.70,HHV(EMA(H,N),N6)*0.8));
 L480:=IF(TJ5,KK,IF(CAPITAL,LLV(EMA(L,N),N6)*1.3,LLV(EMA(L,N),N6)*1.2));
 YK480R:IF(TJ5,MA(C,480),(H480+L480)/2),LINETHICK2;