通达信财神送财主图指标(源码)

IF (A1 =A2,A1,A3),COLOR00FF00,LINETHICK2;
IF (A1 =A2,A2,A3),COLOR00FF00,LINETHICK2;
A3,COLORWHITE,LINETHICK2;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,43)),(LOW * 0.998),8);
DRAWICON(CROSS(MA(VAR3,43),VAR1),(HIGH * 1.013),9);
DRAWTEXT(CROSS(VAR2,MA(VAR3,26)),(LOW * 0.984),' --天降横财 '),COLOR0000FF;
DRAWTEXT(CROSS(MA(VAR3,26),VAR1),(HIGH * 1.035),' --财富入袋 '),COLOR00FFFF;