分时简化（通达信公式 主图 源码 测试图）

{公式名称: 分时简化

公式描述: 含大盘分时}

 

VAR1:=IF(FINANCE(3)!=0,DYNAINFO(3)*(1+0.02),DRAWNULL);

VAR2:=IF(FINANCE(3)!=0,DYNAINFO(3)*1.04,DRAWNULL);

VAR3:=IF(FINANCE(3)!=0,DYNAINFO(3)*(1-0.015),DRAWNULL);

VAR4:=IF(FINANCE(3)!=0,DYNAINFO(3)*(1-0.01),DRAWNULL);

DRAWBAND(VAR2,RGB(48,48,48),VAR1,RGB(48,48,48));

DRAWBAND(DYNAINFO(3),RGB(68,68,68),VAR3,RGB(68,68,68));

DRAWBAND(DYNAINFO(3),RGB(48,48,48),VAR4,RGB(48,48,48));

VAR5:=IF(HOUR<12,(HOUR-9.5)*60+MINUTE,(HOUR-11)*60+MINUTE);

均线:IF(1,SUM(CLOSE*VOL,VAR5)/SUM(VOL,VAR5),DRAWNULL),COLORYELLOW;

DRAWBAND(CLOSE,RGB(58,0,0),均线,RGB(0,58,0));

IF(1,SUM(CLOSE*VOL,VAR5)/SUM(VOL,VAR5),DRAWNULL),COLORYELLOW;

CLOSE,COLORWHITE;

IF(DYNAINFO(5)>DYNAINFO(3)*(1+0.05),DYNAINFO(3)*(1+0.05),DRAWNULL),COLORCCCCCC;

IF(DYNAINFO(5)>DYNAINFO(3)*(1+0.07),DYNAINFO(3)*(1+0.07),DRAWNULL),COLORCC00CC;

VAR6:=STRCAT(STRCAT(HYBLOCK,DYBLOCK),GNBLOCK);

DRAWTEXT_FIX(ISLASTBAR,0.05,0.95,0,VAR6),COLOR00CCCC;

VAR7:=STRCAT(STRCAT(120,CON2STR(CAPITAL/1000000,2)),121);

VAR8:=STRCAT(STRCAT(122,CON2STR(CAPITAL/1000000*CLOSE,2)),121);

VAR9:=STRCAT(VAR7,VAR8);

DRAWTEXT_FIX(ISLASTBAR,0.045,0.85,0,VAR9),COLOR00CCCC;

VAR10:=IF(1,HHV(HIGH,480),DRAWNULL);

VAR11:=IF(1,LLV(LOW,480),DRAWNULL);

IF(CLOSE>=REF(VAR10,1),CLOSE,DRAWNULL),COLORRED;

IF(CLOSE<=REF(VAR11,1),CLOSE,DRAWNULL),COLORGREEN;

VAR12:=(CLOSE+LOW+HIGH)/3;

VAR13:=IF(VAR12>REF(VAR12,1),(CLOSE+LOW+HIGH)/3,REF((CLOSE+LOW+HIGH)/3,1));

VAR14:=IF(VAR12<REF(VAR12,1),(CLOSE+LOW+HIGH)/3,REF((CLOSE+LOW+HIGH)/3,1));

VAR15:=VAR13;

VAR16:=(VAR13+VAR14)/2;

VAR17:=VAR14;

VAR18:=IF(ISLASTBAR,REF(VAR15,1),DRAWNULL);

VAR19:=IF(ISLASTBAR,REF(VAR16,1),DRAWNULL);

VAR20:=IF(ISLASTBAR,REF(VAR17,1),DRAWNULL);

VAR21:=1;

STICKLINE(VAR21=1,VAR18,VAR18,20,(-1)),COLOR0000CC;

STICKLINE(VAR21=1,VAR19,VAR19,20,(-1)),COLORWHITE;

STICKLINE(VAR21=1,VAR20,VAR20,20,(-1)),COLORCCCC00;

VAR22:=1;

VAR23:=BARSLAST(HOUR=9 AND MINUTE=30+VAR22)+1;

VAR24:=IF(FINANCE(3)=0,SUM(AMOUNT,0)/SUM(VOL,0),SUM(AMOUNT,0)/SUM(VOL,0)/100);

VAR25:=IF(打工皇帝#DAY,0.025,IF(打工皇帝#DAY,0.04,0.015));

VAR26:=IF(打工皇帝#DAY,0.025,IF(打工皇帝#DAY,0.015,0.04));

VAR27:=IF(FINANCE(3)=0,VAR25/5,VAR25);

VAR28:=IF(FINANCE(3)=0,VAR26/5,VAR26);

VAR29:=CLOSE>REF(CLOSE,1) AND CLOSE/VAR24>1+VAR27;

VAR30:=CLOSE<REF(CLOSE,1) AND CLOSE/VAR24<1-VAR28;

VAR31:=CROSS(SUM(VAR29,0),0.5);

VAR32:=CROSS(SUM(VAR30,0),0.5);

VAR33:=SUM(VAR31,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(VAR31)),0.5);

VAR34:=SUM(VAR32,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(VAR32)),0.5);

VAR35:=CONST(SUM(IF(VAR33,REF(CLOSE,1),DRAWNULL),0));

VAR36:=CONST(SUM(IF(VAR34,REF(CLOSE,1),DRAWNULL),0));

VAR37:=CROSS(SUM(VAR29 AND CLOSE>VAR35*(1+VAR27),0),0.5);

VAR38:=CROSS(SUM(VAR30 AND CLOSE<VAR36*(1-VAR28),0),0.5);

VAR39:=SUM(VAR37,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(VAR37)),0.5);

VAR40:=SUM(VAR38,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(VAR38)),0.5);

VAR41:=CONST(SUM(IF(VAR39,REF(CLOSE,1),DRAWNULL),0));

VAR42:=CONST(SUM(IF(VAR40,REF(CLOSE,1),DRAWNULL),0));

DRAWICON(VAR31 OR VAR37,CLOSE*1.001,39);

DRAWICON(VAR32 OR VAR38,CLOSE*0.999,38);

DRAWICON(VAR34 OR VAR40,REF(CLOSE,1)*0.9985,7);

DRAWICON(VAR33 OR VAR39,REF(CLOSE,1)*1.0015,8);

 

{打工皇帝}

N:=20;

N1:=7;

N2:=69;

T1:=IF((DATE<=1341231),1,1);

M3:=EMA(CLOSE,3);

M6:EMA(CLOSE,6),COLOR008000,LINETHICK3;

M12:EMA(M6,12),COLOR0000FF,LINETHICK3;

VAR1:=EMA(M12,62);

VAR2:=(CLOSE+HIGH+LOW)/(3);

VAR3:=(EMA(VAR2,10))*(T1);

VAR4:=(REF(VAR3,1))*(T1);

STICKLINE((VAR3>VAR4),VAR3,VAR4,4,0),COLOR00FFFF;

STICKLINE((VAR3<VAR4),VAR3,VAR4,4,0),COLORFF0000;

VAR5:=((REF(HIGH,1)+REF(LOW,1))/(2))*(T1);

VAR6:=MA(CLOSE,N)+((2)*(STD(CLOSE,N)))*(T1);

DRAWTEXT(CROSS(VAR3,VAR4),(VAR3)*(0.98),'★'),COLOR00FFFF;

DRAWTEXT(CROSS(VAR5,VAR6),(HIGH)*(1.04),'↓卖'),COLOR008000;

VAR7:=REF(CLOSE,1);

VAR8:=((SMA(MAX(CLOSE-VAR7,0),N1,1))/(SMA(ABS(CLOSE-VAR7),N1,1)))*(100);

VAR9:=CROSS(N2,VAR8);

VARA:=(FILTER(VAR9,4))*(T1);

DRAWTEXT(VARA,(HIGH)*(1.04),'↓卖'),COLORFFFFFF;

VARB:=((2)*(CLOSE)+HIGH+LOW)/(4);

VARC:=LLV(LOW,34);

VARD:=HHV(HIGH,34);

VARE:=(EMA(((VARB-VAR1)/(VAR5-VAR1))*(100),7))*(T1);

VARF:=(EMA((0.667)*(REF(VARE,1))+(0.333)*(VARE),5))*(T1);

DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),6))/(6)>0.6) AND (VOL>=(1.5)*(MA(VOL,5))) AND COUNT((VARE>=VARF),3) AND (REF(LOW,1)=LLV(LOW,120)),1,0),LOW,'●买进'),COLORFF00FF;

DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),12))/(12)>0.6) AND COUNT((VARE>VARF),6) AND (REF(LOW,5)=LLV(LOW,120)) AND REF((CLOSE>=OPEN),4) AND REF((CLOSE>OPEN),3) AND REF((CLOSE>OPEN),2) AND REF((OPEN>CLOSE),1) AND (OPEN>REF(CLOSE,1)),1,0),LOW,'●买进'),COLOR00FFFF;

VAR10:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3))*(T1);

DRAWTEXT(IF((CLOSE<VAR10) AND ((VOL)/(240)>(MA(VOL,5))/(240)) AND (CLOSE>(REF(CLOSE,1))*(1.08)) AND (CLOSE<(MA(CLOSE,12))*(1.3)),1,0),LOW,'●抄底'),COLOR0000FF;

 

p20202152362861426.jpg