通达信虎拓主图源码

以下是通达信虎拓主图源码

MA5:MA(C,5),COLOR000099;

MA10:MA(C,10),COLOR006600;

MA20:MA(C,20),COLOR005555;

{

DRAWTEXT(30,0,BKNAME ),COLORDDDDDD;

DRAWTEXT(30,15,'流通盘：'+CAPITAL/100+'万股，利润增长：'+FINANCE2(10)+'%。每股收益：'+FINANCE2(3)+'元。' ),COLOR00DDDD;

DRAWTEXT(30,30,'红白柱买入，蓝绿柱卖出。' ),COLORFFDD00;

}

STICKLINE(C>= REF(C,1),O,C,3,1),COLOR000000;

STICKLINE(C< REF(C,1),O,C,3,1),COLOR000000;

{A1:=EMA(CLOSE,5)> EMA(CLOSE,6) AND EMA(CLOSE,6)> EMA(CLOSE,7) AND EMA(CLOSE,7)> EMA(CLOSE,8) AND EMA(CLOSE,8)> EMA(CLOSE,9)

AND EMA(CLOSE,9)> EMA(CLOSE,10) AND EMA(CLOSE,10)> EMA(CLOSE,11) AND EMA(CLOSE,11)> EMA(CLOSE,12)

AND EMA(CLOSE,12)> EMA(CLOSE,13) AND EMA(CLOSE,13)> EMA(CLOSE,14) AND EMA(CLOSE,14)> EMA(CLOSE,15)

AND EMA(CLOSE,15)> EMA(CLOSE,20) AND EMA(CLOSE,20)> EMA(CLOSE,30) AND EMA(CLOSE,30)> EMA(CLOSE,60) AND EMA(CLOSE,60)> EMA(CLOSE,90)

AND EMA(CLOSE,90)> EMA(CLOSE,120) AND EMA(CLOSE,120)> EMA(CLOSE,250)};

A101:=EMA(CLOSE,5)> EMA(CLOSE,6) AND EMA(CLOSE,6)> EMA(CLOSE,7) AND EMA(CLOSE,7)> EMA(CLOSE,8) AND EMA(CLOSE,8)> EMA(CLOSE,9)

AND EMA(CLOSE,9)> EMA(CLOSE,10) AND EMA(CLOSE,10)> EMA(CLOSE,11) AND EMA(CLOSE,11)> EMA(CLOSE,12)

AND EMA(CLOSE,12)> EMA(CLOSE,13) AND EMA(CLOSE,13)> EMA(CLOSE,14) AND EMA(CLOSE,14)> EMA(CLOSE,15);

A102:=EMA(CLOSE,15)> EMA(CLOSE,20) AND EMA(CLOSE,20)> EMA(CLOSE,30) AND EMA(CLOSE,30)> EMA(CLOSE,60) AND EMA(CLOSE,60)> EMA(CLOSE,90)

AND EMA(CLOSE,90)> EMA(CLOSE,120) AND EMA(CLOSE,120)> EMA(CLOSE,250);

A1:= A101 AND A102;

A2:=EMA(CLOSE,5)> EMA(CLOSE,6) AND EMA(CLOSE,6)> EMA(CLOSE,7) AND EMA(CLOSE,7)> EMA(CLOSE,8) AND EMA(CLOSE,8)> EMA(CLOSE,9)

AND EMA(CLOSE,9)> EMA(CLOSE,10) AND EMA(CLOSE,10)> EMA(CLOSE,11) AND EMA(CLOSE,11)>E MA(CLOSE,12)

AND EMA(CLOSE,12)> EMA(CLOSE,13) AND EMA(CLOSE,13)> EMA(CLOSE,14);

B1:=IF(A1,1,2);

VAR1:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));

VAR2:=((REF(VAR1,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR3:=((REF(VAR2,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR4:=((REF(VAR3,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR5:=((REF(VAR4,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR6:=((REF(VAR5,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR7:=((REF(VAR6,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR8:=((REF(VAR7,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR9:=((REF(VAR8,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VARA:=((REF(VAR9,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VARB:=((REF(VARA,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VARC:=((REF(VARB,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),C,REF(C,1),2,0),COLOR0000DD;

STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),L,H,0,0),COLOR0000DD;

VARD:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));

VARE:=((REF(VARD,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VARF:=((REF(VARE,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR10:=((REF(VARF,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR11:=((REF(VAR10,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR12:=((REF(VAR11,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR13:=((REF(VAR12,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR14:=((REF(VAR13,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR15:=((REF(VAR14,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR16:=((REF(VAR15,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

VAR17:=((REF(VAR16,1) AND (CLOSE <= and="" close="">= REF(CLOSE,2)));

VAR18:=((REF(VAR17,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));

STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),C,REF(C,1),2 ,0 ),COLOR00DD00;

STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),H,L,0 ,0 ),COLOR00DD00;

VAR19:=(REF((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),1) AND VAR1);

VAR1A:=(REF((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),1) AND VARD);

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2 ,0 ),COLORDDDDDD;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2,0),COLORDD8800;