相關標簽:

?

{八方力道}
主力:=ema((EXTDATA(9)+EXTDATA(10)+EXTDATA(11))*100/capital,3)*200000;
散戶:=ema((EXTDATA(13)+EXTDATA(12))*100/capital,3)*200000;
均量:=(散戶+主力)/2;
主力能量:=(主力-均量);
散戶能量:=(散戶-均量);
機構加倉:STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0,主力能量,6,0),COLORred;
散戶瘋買:STICKLINE(散戶能量>=0 AND 散戶能量>=REF(散戶能量,1),0,散戶能量,6,0),ColorFF00ff;機構減倉:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0,主力能量,6,0),COLOR00ff00;
散戶出票:STICKLINE(散戶能量>=0 AND 散戶能量< REF(散戶能量,1),0,散戶能量,6,0),ColorFFBF00;機構試盤:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0,主力能量,6,0),ColorFF5B00;
散戶跟風:STICKLINE(散戶能量<0 AND 散戶能量>=REF(散戶能量,1),0,散戶能量,6,0),Color0095FF;機構撈魚:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0,主力能量,6,0),COLOR00ffff;
散戶抄底:STICKLINE(散戶能量<0 AND 散戶能量< REF(散戶能量,1),0,散戶能量,6,0),COLORffff00;
{}
市值貢獻:=CAPITAL/100*CLOSE/10000,coloryellow;
指數貢獻:=(c-ref(ma(c,5),5))*finance(1)/10000,colorred;
資金貢獻:=ema(amount,3)/finance(7)/10000,colorff00ff;
總成交:=DYNAINFO(8)*100;
總J:=AMOUNT;
Q:=stkindi('','引用.Q',0,0);
Q1:=stkindi('','引用.Q1',0,0);
股數:=STKINDI('','引用.股數',0,0);
資金:=STKINDI('','引用.資金',0,0);
每股公積金:=FINANCE(18);
凈利潤:=FINANCE(30);
主營業務增長率:=FINANCE(53);
凈利潤增長率:=FINANCE(55);
{成本}
PT:=(REF(HIGH,1) - REF(LOW,1));
CDP:=(((HIGH + LOW) + CLOSE) / 3);
AH:=(CDP + PT);
AL:=(CDP - PT);
NH:=((2 * CDP) - LOW);
NL:=((2 * CDP) - HIGH);
A:=((((OPEN + HIGH) + LOW) + (CLOSE * 2)) / 5);
S:=(((HIGH - A) * 0.618) + A);
X:=(((A - LOW) * 0.382) + LOW);
賣出價:=(((CLOSE * 2.5) / 100) + CLOSE);
買入價:=(CLOSE - ((CLOSE * 2.5) / 100));
{盤口}
特大買入:=STKINDI('','引用.特大買入',0,0);
特大賣出:=STKINDI('','引用.特大賣出',0,0);
大單買入:=STKINDI('','引用.大單買入',0,0);
大單賣出:=STKINDI('','引用.大單賣出',0,0);
中單買入:=STKINDI('','引用.中單買入',0,0);
中單賣出:=STKINDI('','引用.中單賣出',0,0);
小單買入:=STKINDI('','引用.小單買入',0,0);
小單賣出:=STKINDI('','引用.小單賣出',0,0);
隱性買單:=stkindi('','引用.隱性買單',0,0);
隱性賣單:=stkindi('','引用.隱性賣單',0,0);
機:=特大買入-特大賣出;
法:=隱性買單-隱性賣單;
大:=大單買入-大單賣出;
中:=中單買入-中單賣出;
散:=小單買入-小單賣出;
機增:=EXTDATA(9);
機1:=SUM(機增,2);
機3:=SUM(機增,3);
機5:=SUM(機增,5);
機20:=SUM(機增,20);
機60:=SUM(機增,60);
機240:=SUM(機增,240);
機11:=SUM(機增,0);
機12:=ABS(機11);法增:=EXTDATA(10);
法1:=SUM(法增,2);
法3:=SUM(法增,3);
法5:=SUM(法增,5);
法20:=SUM(法增,20);
法60:=SUM(法增,60);
法240:=SUM(法增,240);
法11:=SUM(法增,0);
法12:=ABS(法11);大增:=EXTDATA(11);
大1:=SUM(大增,2);
大3:=SUM(大增,3);
大5:=SUM(大增,5);
大20:=SUM(大增,20);
大60:=SUM(大增,60);
大240:=SUM(大增,240);
大11:=SUM(大增,0);
大12:=ABS(大11);中增:=EXTDATA(12);
中1:=SUM(中增,2);
中3:=SUM(中增,3);
中5:=SUM(中增,5);
中20:=SUM(中增,20);
中60:=SUM(中增,60);
中240:=SUM(中增,240);
中11:=SUM(中增,0);
中12:=ABS(中11);散增:=EXTDATA(13);
散1:=SUM(散增,2);
散3:=SUM(散增,3);
散5:=SUM(散增,5);
散20:=SUM(散增,20);
散60:=SUM(散增,60);
散240:=SUM(散增,240);
散11:=SUM(散增,0);
散12:=ABS(散11);
{}
{KS:=SYSPARAM(6);}
KS:=DATACOUNT;
P3:=(機增+法增+大增);
P4:=(中增+散增);
{機構線:EMA(P3*10,7),Color39AFFF,LINETHICK2;
散戶線:EMA(P4*10,7),ColorFCFF00,LINETHICK2;}
{柱線}
STICKLINE(BARPOS=KS-110,0,法12[KS]+機12[KS]+大12[KS]+中12[KS]+散12[KS],340,0),align5,PXUP80,Color000000;
STICKLINE(BARPOS=KS-93,0,散12[KS]+散[KS],60,0),align5,Colorffff00;
STICKLINE(BARPOS=KS-93,0,散12[KS]+散[KS],10,0),align5,Color00ffff;
STICKLINE(BARPOS=KS-101,0,中12[KS]+中[KS],60,0),align5,Colorff00ff;
STICKLINE(BARPOS=KS-101,0,中12[KS]+中[KS],10,0),align5,Colorffffff;
STICKLINE(BARPOS=KS-109,0,大12[KS]+大[KS],60,0),align5,Color00FFff;
STICKLINE(BARPOS=KS-109,0,大12[KS]+大[KS],10,0),align5,Colorffff00;
STICKLINE(BARPOS=KS-117,0,法12[KS]+法[KS],60,0),align5,Colorff0000;
STICKLINE(BARPOS=KS-117,0,法12[KS]+法[KS],10,0),align5,Colorffffff;
STICKLINE(BARPOS=KS-125,0,機12[KS]+機[KS],60,0),align5,Color0000ff;
STICKLINE(BARPOS=KS-125,0,機12[KS]+機[KS],10,0),align5,Color00ffff;
{柱顯示}
DRAWTEXT(BARPOS=DATACOUNT-128,0,'機構'),align5,PXUP0,Color00FFFF;
DRAWTEXT(BARPOS=DATACOUNT-129,0,''+NUMTOSTR(機11/FINANCE(7),2)),align5,PXUP68,ColorFFffff;
DRAWTEXT(BARPOS=DATACOUNT-120,0,'券商'),align5,PXUP0,Color00ffff;
DRAWTEXT(BARPOS=DATACOUNT-121,0,''+NUMTOSTR(法11/FINANCE(7),2)),align5,PXUP88,ColorffffFF;
DRAWTEXT(BARPOS=DATACOUNT-112,0,'大戶'),align5,PXUP0,Color00ffff;
DRAWTEXT(BARPOS=DATACOUNT-113,0,''+NUMTOSTR(大11/FINANCE( 7),2)),align5,PXUP68,ColorffffFF;
DRAWTEXT(BARPOS=DATACOUNT-104,0,'中戶'),align5,PXUP0,Color00ffff;
DRAWTEXT(BARPOS=DATACOUNT-105,0,''+NUMTOSTR(中11/FINANCE( 7),2)),align5,PXUP88,ColorffffFF;
DRAWTEXT(BARPOS=DATACOUNT-97,0,'散戶'),align5,PXUP0,Color00FFFF;
DRAWTEXT(BARPOS=DATACOUNT-98,0,''+NUMTOSTR(散11/FINANCE( 7),2)),align5,PXUP68,ColorffffFF;
DRAWTEXTEX(C,1,330,100,'盤口成交:'+NUMTOSTR(股數,0)+' 股'),Color9CFF7A;
DRAWTEXTEX(C,1,530,100,'該筆金額:'+NUMTOSTR(FLOOR(資金)/10000,2)+' 萬元'),Color9CFF7A;
DRAWTEXTEX(c,1,770,100,'均價:'+NUMTOSTR(c,2)+' 元'),Color9CFF7A;
DRAWTEXTEX(C,1,470,0,' 成交股數:'+NUMTOSTR(總成交/10000,2)+'萬股'),ColorFFBF00;
DRAWTEXTEX(C,1,740,0,' 成交總額:'+NUMTOSTR(AMOUNT/10000,2)+'萬元'),ColorFFBF00;
DRAWTEXTEX(C,1,0,0,STKLABEL+' '+STKNAME+''),ColorFFBF00;
DRAWTEXTEX(C,1,20,250,'目前主力倉位:'+NUMTOSTR((機11+法11+大11)/FINANCE( 7),2)+' %'),ColorFFBFFF;
DRAWTEXTEX(C,1,770,250,'市值貢獻:'+NUMTOSTR(市值貢獻,2)+' %'),ColorFFBFFF;
DRAWTEXTEX(C,1,330,250,'指數貢獻:'+NUMTOSTR(指數貢獻,2)+' %'),ColorFFBFFF;
DRAWTEXTEX(C,1,530,250,'資金貢獻:'+NUMTOSTR(資金貢獻,2)+' %'),ColorFFBFFF;
{顯示時間}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系統參數(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+數字轉化為字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,200,0,str1),ColorFFBF00;
DRAWTEXTEX(c,1,20,100,'今日大單凈量: '+NUMTOSTR(P3*100/10000,2)+' 萬股'),Color9CFF7A;
{解盤}
EXPLAIN(C>0,'-------------------------------------------------------------'),Color006EFF;
EXPLAIN(C>0,'一發千鈞告誡朋友:\n據此入市風險自負!'),Color008BFF;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1=1,'【凈利潤】='+NUMTOSTR(凈利潤,2)+'萬元'),Color00FF00;
EXPLAIN(1=1,'【主營業務增長率】='+NUMTOSTR(主營業務增長率,2)+'%'),Color0000FF;
EXPLAIN(1=1,'【凈利潤增長率】='+NUMTOSTR(凈利潤增長率,2)+'%'),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(C>0,'機構季倉:'+NUMTOSTR(((機60*100)*c)/10000,2)+' 萬元:'),ColorFF00FF;
EXPLAIN(C>0,'機構年倉:'+NUMTOSTR(((機240*100)*c)/10000,2)+' 萬元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(C>0,'券商季倉:'+NUMTOSTR(((法60*100)*c)/10000,2)+' 萬元:'),ColorFF00FF;
EXPLAIN(C>0,'券商年倉:'+NUMTOSTR(((法240*100)*c)/10000,2)+' 萬元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(C>0,'大戶季倉:'+NUMTOSTR(((大60*100)*c)/10000,2)+' 萬元:'),ColorFF00FF;
EXPLAIN(C>0,'大戶年倉:'+NUMTOSTR(((大240*100)*c)/10000,2)+' 萬元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(C>0,'中戶季倉:'+NUMTOSTR(((中60*100)*c)/10000,2)+' 萬元:'),ColorFF00FF;
EXPLAIN(C>0,'中戶年倉:'+NUMTOSTR(((中240*100)*c)/10000,2)+' 萬元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(C>0,'散戶季倉:'+NUMTOSTR(((散60*100)*c)/10000,2)+' 萬元:'),ColorFF00FF;
EXPLAIN(C>0,'散戶年倉:'+NUMTOSTR(((散240*100)*c)/10000,2)+' 萬元:'),ColorFF8F00;
EXPLAIN(1,'==================================='),colorwhite;
{}

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?