通达信 天地人和副图，源码

DRAWGBK(C>0,RGB(150,100,0),RGB(50,100,0),0,'',0);

VAR0 := ((REF(C,1) - HHV(OPEN,4)) / HHV(OPEN,4)) <= -0.05;

VAR1 := (C > OPEN) AND (REF(C,1) < REF(OPEN,1));

VAR2 := ((C > OPEN) AND (REF(C,1) < REF(OPEN,1))) AND (C >= ((((ABS(REF(OPEN,1) - REF(C,1))) * 2) / 5) + REF(C,1)));

VAR3 := ((C > OPEN) AND (REF(C,1) < REF(OPEN,1))) AND (C >= (((ABS(REF(OPEN,1) - REF(C,1))) / 2) + REF(C,1)));

VAR4 := ((C > OPEN) AND (REF(C,1) < REF(OPEN,1))) AND (C >= REF(OPEN,1));

VAR5 := ((((ABS(OPEN - REF(C,1))) <= 0.03) OR ((ABS(LOW - REF(C,1))) <= 0.05)) OR (LOW = REF(LOW,1))) OR (OPEN = REF(C,1));

VAR6 := (((ABS(OPEN - REF(C,1))) <= 0.01) OR ((ABS(LOW - REF(C,1))) <= 0.01)) OR (LOW = REF(LOW,1));

VAR7 := VOL < REF(LLV(VOL,100),1);

VAR8 := (((OPEN - C) / OPEN) >= 0.04) AND ((((VOL / MA(VOL,60)) <= (2 / 3)) OR ((VOL / REF(VOL,1)) <= 1)) OR (VOL < HHV(VOL,5)));

VAR9 := VOL < REF(LLV(VOL,20),1);

VAR10 := ((C > OPEN) AND (((OPEN - LOW) / OPEN) >= 0.025)) OR ((C < OPEN) AND (((C - LOW) / C) >= 0.025));

VAR11 := (((VOL < REF(VOL,1)) AND (REF(VOL,1) < REF(VOL,2))) AND (REF(VOL,2) < REF(VOL,3))) AND (HIGH > LOW);

VAR12 := (VOL / REF(VOL,1)) <= 0.52;{公式平台，公式源码http://www.gspt.com}

VAR13 := COUNT(VAR12,2) AND ((VOL / REF(VOL,1)) <= 0.7);

VAR14 := COUNT(((((VAR7 OR VAR8) OR VAR9) OR VAR10) OR VAR11) OR VAR13,5);

VAR15 := IF(NAMELIKE('DT'),0,1);

VAR16 := IF(NAMELIKE('*ST'),0,1);

VAR17 := ((DYNAINFO(7) > 2) AND (DYNAINFO(7) < 270)) AND (NOT(DYNAINFO(4) = 0));

VAR18 := (VAR15 AND VAR16) AND VAR17;

天1 : IF((((VAR0 AND VAR1) AND VAR5) AND VAR14) AND VAR18,1,0);

地2 : IF((((VAR0 AND VAR2) AND VAR5) AND VAR14) AND VAR18,1.5,0);

人3 : IF((((VAR0 AND VAR3) AND VAR5) AND VAR14) AND VAR18,2,0);

和4 : IF((((VAR0 AND VAR4) AND VAR5) AND VAR14) AND VAR18,2.5,0),COLORRED;

DRAWICON((((VAR0 AND VAR1) AND VAR6) AND VAR14) AND VAR18,0,41);