以下是通达信分时弹压 资金方程源码
引用公式：资金方程
JGV:=(L2_VOL(0,0) - L2_VOL(0,1))*VOL/1000;
DHV:=(L2_VOL(1,0) - L2_VOL(1,1))*VOL/1000;
ZHV:=(L2_VOL(2,0) - L2_VOL(2,1))*VOL/1000;
SHV:=(L2_VOL(3,0) - L2_VOL(3,1))*VOL/1000;
超B:=L2_AMO(0,2)/100000000.0;
大B:=L2_AMO(1,2)/100000000.0;
中B:=L2_AMO(2,2)/100000000.0;
小B:=L2_AMO(3,2)/100000000.0;
超S:=-L2_AMO(0,3)/100000000.0;
大S:=-L2_AMO(1,3)/100000000.0;
中S:=-L2_AMO(2,3)/100000000.0;
小S:=-L2_AMO(3,3)/100000000.0;
净流入:(超B+大B+中B+小B)+(超S+大S+中S+小S),NODRAW;
五流入:净流入+REF(净流入,1)+REF(净流入,2)+REF(净流入,3)+REF(净流入,4),NODRAW;
机构净流:超B+超S,NODRAW;
游资净流:大B+大S,NODRAW;
中户净流:中B+中S,NODRAW;
散户净流:小B+小S,NODRAW;
大单动向:(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7),NODRAW;
N天内红:COUNT(DDX>0,10),COLORRED,NODRAW;
N连红天:BARSLASTCOUNT(DDX>0)NODRAW;
{分时弹压}
参数：长趋势（1,500,13）
机构净流:="资金方程.机构净流#DAY";
游资净流:="资金方程.游资净流#DAY";
中户净流:="资金方程.中户净流#DAY";
散户净流:="资金方程.散户净流#DAY";
当日净买:="资金方程.净流入#DAY";
五日净买:="资金方程.五流入#DAY";
O5:="分时引用.O5#DAY";
C5:="分时引用.C5#DAY";
H5:="分时引用.H5#DAY";
L5:="分时引用.L5#DAY";
O4:="分时引用.O4#DAY";
C4:="分时引用.C4#DAY";
H4:="分时引用.H4#DAY";
L4:="分时引用.L4#DAY";
O3:="分时引用.O3#DAY";
C3:="分时引用.C3#DAY";
H3:="分时引用.H3#DAY";
L3:="分时引用.L3#DAY";
O2:="分时引用.O2#DAY";
C2:="分时引用.C2#DAY";
H2:="分时引用.H2#DAY";
L2:="分时引用.L2#DAY";
O1:="分时引用.O1#DAY";
C1:="分时引用.C1#DAY";
H1:="分时引用.H1#DAY";
L1:="分时引用.L1#DAY";
O0:=DYNAINFO(4);
C0:=DYNAINFO(7);
H0:=DYNAINFO(5);
L0:=DYNAINFO(6);
HH1:=MAX(H1,H2);
HH2:=MAX(H3,H4);
HH3:=MAX(MAX(H0,H5),MAX(HH1,HH2));
LL1:=MIN(L1,L2);
LL2:=MIN(L3,L4);
LL3:=MIN(MIN(L0,L5),MIN(LL1,LL2));
HL:=999/(HH3-LL3);
C52:=999-((C5-LL3)*HL);
H52:=999-((H5-LL3)*HL);
L52:=999-((L5-LL3)*HL);
O52:=999-((O5-LL3)*HL);
C42:=999-((C4-LL3)*HL);
H42:=999-((H4-LL3)*HL);
L42:=999-((L4-LL3)*HL);
O42:=999-((O4-LL3)*HL);
C32:=999-((C3-LL3)*HL);
H32:=999-((H3-LL3)*HL);
L32:=999-((L3-LL3)*HL);
O32:=999-((O3-LL3)*HL);
C22:=999-((C2-LL3)*HL);
H22:=999-((H2-LL3)*HL);
L22:=999-((L2-LL3)*HL);
O22:=999-((O2-LL3)*HL);
C12:=999-((C1-LL3)*HL);
H12:=999-((H1-LL3)*HL);
L12:=999-((L1-LL3)*HL);
O12:=999-((O1-LL3)*HL);
C02:=999-((C0-LL3)*HL);
H02:=999-((H0-LL3)*HL);
L02:=999-((L0-LL3)*HL);
O02:=999-((O0-LL3)*HL);
DRAWRECTREL( 8,H52, 8,L52,RGB(IF(C5>=O5,200,0),IF(C5>=O5,0,200),0));
DRAWRECTREL( 0,C52,16,O52,RGB(IF(C5>=O5,128,0),IF(C5>=O5,0,128),0));
DRAWRECTREL(28,H42,28,L42,RGB(IF(C4>=O4,200,0),IF(C4>=O4,0,200),0));
DRAWRECTREL(20,C42,36,O42,RGB(IF(C4>=O4,128,0),IF(C4>=O4,0,128),0));
DRAWRECTREL(48,H32,48,L32,RGB(IF(C3>=O3,200,0),IF(C3>=O3,0,200),0));
DRAWRECTREL(40,C32,56,O32,RGB(IF(C3>=O3,128,0),IF(C3>=O3,0,128),0));
DRAWRECTREL(68,H22,68,L22,RGB(IF(C2>=O2,200,0),IF(C2>=O2,0,200),0));
DRAWRECTREL(60,C22,76,O22,RGB(IF(C2>=O2,128,0),IF(C2>=O2,0,128),0));
DRAWRECTREL(88,H12,88,L12,RGB(IF(C1>=O1,200,0),IF(C1>=O1,0,200),0));
DRAWRECTREL(80,C12,96,O12,RGB(IF(C1>=O1,128,0),IF(C1>=O1,0,128),0));
DRAWRECTREL(108,H02,108,L02,RGB(IF(C0>=O0,200,0),IF(C0>=O0,0,200),0));
DRAWRECTREL(100,C02,116,O02,RGB(IF(C0>=O0,128,0),IF(C0>=O0,0,128),0));
{分时弹压}
BAA:=(DYNAINFO(5)-DYNAINFO(3))/DYNAINFO(3)*100;
BAB:=ABS((DYNAINFO(6)-DYNAINFO(3))/DYNAINFO(3)*100);
BAC:=MAX(BAA,BAB);
昨收:=DYNAINFO(3);
今开:=DYNAINFO(4),COLORLICYAN;
现价:=DYNAINFO(7);
均价:SUM(C*V,0)/SUM(V,0),COLORYELLOW;
新高:=HHV(H,480);
新低:=LLV(L,480);
EAA:=(CLOSE-新高)/新高*100;
EAB:=(CLOSE-新低)/新低*100;
XG:=FILTER(CROSS(C,REF(新高,1)),10);
XD:=FILTER(CROSS(C,REF(新低,1)),10);
STICKLINE(XG,均价,C*1.002,8,0),COLORLIRED;
STICKLINE(XD,均价,C*0.998,8,0),COLORCYAN;
时5:MA(C,300),COLORMAGENTA;
T:=CURRBARSCOUNT;
A5:="分时引用.MA1#DAY";
A25:="分时引用.MA2#DAY";
GJ:=400;
CAA:=(CLOSE-A5)/A5*100;
CAB:=(CLOSE-A25)/A25*100;
日5:IF(C<GJ AND BETWEEN(CAA,BAC,REVERSE(BAC)),A5,DRAWNULL),COLOR888888;
日25:IF(C<GJ AND BETWEEN(CAB,BAC,REVERSE(BAC)),A25,DRAWNULL),COLORRED,LINETHICK1;
IF(现价<日25 AND BETWEEN(CAB,BAC,REVERSE(BAC)),日25,DRAWNULL),COLORGREEN,LINETHICK1;
DRAWTEXT(T=4,日5, '← 5均'),COLOR888888;
DRAWTEXT(T=6,日25,'←趋势'),COLOR888888;
VAR2W:=100-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
MW:= EMA(VAR2W,3);
VAR3W:=EMA(VAR2W,7);
M1:= EMA(VAR3W,5);
M2:= C>MA(CLOSE,5);
反弹:((CROSS(MW,M1) AND M1<20) AND M2)NODRAW;
DRAWTEXT(CROSS(MW,M1) AND M1<20 AND M2 AND A5>A25,L,'★'),COLORYELLOW;
VAR01:=(HIGH+LOW+CLOSE)/3;
VAR02:=(VAR01-MA(VAR01,14))/(0.015*AVEDEV(VAR01,14));
VAR03:=(VAR01-MA(VAR01,70))/(0.015*AVEDEV(VAR01,70));
VAR04:=IF(VAR02>=150 AND VAR02<200 AND VAR03>=150 AND VAR03<200,10,0);
VAR05:=IF(VAR02<=-150 AND VAR02>-200 AND VAR03<=-150 AND VAR03>-200,-10,VAR04);
VAR1B:=IF(VAR03>=200 AND VAR02>=150,15,IF(VAR03<=-200 AND VAR02<=-150,-15,VAR05))+60;
DRAWTEXT(FILTER(VAR1B=75,5),H,'★'),COLORGREEN;
AA:=REF(H,长趋势)=HHV(H,2*长趋势+1);
QY:=BACKSET(AA,长趋势+1);
CC:=FILTER(QY,长趋势) AND H=HHV(H,长趋势+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM1:=IF(CURRBARSCOUNT>GDCS2,0,1);
长上轨:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),COLORMAGENTA,LINETHICK1;
AA1:=REF(L,长趋势)=LLV(L,2*长趋势+1);
QY1:=BACKSET(AA1,长趋势+1);
CC1:=FILTER(QY1,长趋势) AND L=LLV(L,长趋势+1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
长下轨:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(机构净流)>0,0.01,0.70,0,STRCAT(STRCAT('机构+ ',CON2STR(机构净流,2)),'亿')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(机构净流)<0,0.01,0.70,0,STRCAT(STRCAT('机构 ',CON2STR(机构净流,2)),'亿')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(机构净流)=0,0.01,0.70,0,STRCAT(STRCAT('机构= ',CON2STR(机构净流,2)),'')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(游资净流)>0,0.01,1.0,0,STRCAT(STRCAT('游资+ ',CON2STR(游资净流,2)),'亿')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(游资净流)<0,0.01,1.0,0,STRCAT(STRCAT('游资 ',CON2STR(游资净流,2)),'亿')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(游资净流)=0,0.01,1.0,0,STRCAT(STRCAT('游资= ',CON2STR(游资净流,2)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中户净流)>0,0.35,0.70,0,STRCAT(STRCAT('中户+ ',CON2STR(中户净流,2)),'亿')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中户净流)<0,0.35,0.70,0,STRCAT(STRCAT('中户 ',CON2STR(中户净流,2)),'亿')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(中户净流)=0,0.35,0.70,0,STRCAT(STRCAT('中户= ',CON2STR(中户净流,2)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(散户净流)>0,0.35,1.0,0,STRCAT(STRCAT('散户+ ',CON2STR(散户净流,2)),'亿')),COLORLIRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(散户净流)<0,0.35,1.0,0,STRCAT(STRCAT('散户 ',CON2STR(散户净流,2)),'亿')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(散户净流)=0,0.35,1.0,0,STRCAT(STRCAT('散户= ',CON2STR(散户净流,2)),' ')),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(当日净买)>0,0.70,0.70,0,STRCAT('当日净买+ ',STRCAT(CON2STR(当日净买,2),'亿'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(当日净买)<0,0.70,0.70,0,STRCAT('当日净买 ',STRCAT(CON2STR(当日净买,2),'亿'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(五日净买)>0,0.70,1.0,0,STRCAT('五日净买+ ',STRCAT(CON2STR(五日净买,2),'亿'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(五日净买)<0,0.70,1.0,0,STRCAT('五日净买 ',STRCAT(CON2STR(五日净买,2),'亿'))) COLOR00FF00;
