地瓜分时内部 合成版（通达信公式 主图 源码 测试图）

 {地瓜分时内部 合成版}

AF1:=1;

TT:=BARSLAST(HOUR=9 AND MINUTE=(30+AF1))+1;

均价:AMOUNT/VOL/100,COLORYELLOW;

价位:C,COLORWHITE,LINETHICK4;

盘整:IF(HOUR>9 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK2;

V1:=V;

HH:=C>REF(C,1)   AND C/均价>(1+0.03);

LL:=C<REF(C,1)   AND C/均价<(1-0.03);

HH1:=CROSS(SUM(HH,0),0.5);

LL1:=CROSS(SUM(LL,0),0.5);

SS1:=SUM(HH1,0)*CROSS(COUNT(C<REF(C,1),BARSLAST(HH1)),0.5);

BB1:=SUM(LL1,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL1)),0.5);

CS1:CONST(SUM(IF(SS1,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK2;

CB1:CONST(SUM(IF(BB1,REF(C,1),DRAWNULL),0)),COLORRED,LINETHICK2;

HH2:=CROSS(SUM(HH AND C>CS1*1.03,0),0.5);

LL2:=CROSS(SUM(LL AND C<CB1*0.97,0),0.5);

SS2:=SUM(HH2,0)*CROSS(COUNT(C<REF(C,1),BARSLAST(HH2)),0.5);

BB2:=SUM(LL2,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL2)),0.5);

CS2:CONST(SUM(IF(SS2,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK1;

CB2:CONST(SUM(IF(BB2,REF(C,1),DRAWNULL),0)),COLORRED,LINETHICK1;

DRAWICON(HH1 OR HH2,C*1.01,39);

DRAWICON(LL1 OR LL2,C*0.99,38);

DRAWICON(BB1 OR BB2,REF(C,1)*0.99,7);

DRAWICON(SS1 OR SS2,REF(C,1)*1.01,8);

成交额:=V*C/100,NODRAW;{万元}

A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

A6:=(A2+A3);

A7:=IF((ISLASTBAR),((100*A2)/A6),0);

A8:=IF((ISLASTBAR),((100*A3)/A6),0);

DD1:=1;{分析家公式网70822}

AAA1:=STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%');

AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%');

AAA3:=STRCAT(STRCAT('总买入',CON2STR((100*(A2-A3))/A6,0)),'%');

DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;

DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;

DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

H1:EMA(C,8);

H2:EMA(H1,20);

VAR1:=(HHV(H,36)-C)/(HHV(H,36)-LLV(L,36))*100;

VAR2:=SMA(VAR1,5,1);

VAR3:=SMA(VAR2,8,1);

VAR4:=CROSS(VAR2,VAR3) AND VAR3< 20;

VAR5:=C>LLV(C,60)*1.13 AND VAR4;

VAR6:=IF(C>200,VAR4,VAR5);

STICKLINE(H1>H2,H1,H2,0,1),COLORRED;

STICKLINE(H1< H2,H1,H2,0,1),COLORGREEN;

现价:C,COLORWHITE,LINETHICK2;

盘整1:IF(HOUR>8.75 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK6;

H11:=MAX(DYNAINFO(3),DYNAINFO(5)); 

L1:=MIN(DYNAINFO(3),DYNAINFO(6)); 

P1:=H11-L1; 

阻力:L1+P1*7.7/8,NODRAW; 

支撑:L1+P1*0.3/8,NODRAW; 

STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),NODRAW; 

DRAWTEXT(LONGCROSS(支撑,现价,8),支撑,'----★B吸'),COLORRED;{吸} 

DRAWTEXT(LONGCROSS(现价,阻力,8),现价,'----★S抛'),COLORGREEN;{抛};

A:C,COLORWHITE,LINETHICK3;

p20203218411312084.jpg