相關標簽:

?

DRAWGBK(1,COLORRGB(265,0,0),COLORRGB(265,285,0),0);
IF MARKETLABEL<>'SH' THEN
DRAWTEXTEX(CLOSE,1,5,20,''+STKLABEL),colorFFFF;
P:=SYSPARAM(1);
A2:=SYSPARAM(2);
A3:=SYSPARAM(3);
KS:=SYSPARAM(3)-SYSPARAM(2);
Z:=KS/140;
W1:=ROUND(70*Z);
VERTLINE(BARPOS=A2+ROUND(42*Z)),colorFF00FF;
VERTLINE(BARPOS=A2+ROUND(68*Z)),colorFF00FF;
總股本:=CAPITAL;
基數:=CAPITAL/5000000;
基準股:=總股本*0.1;
DRAWTEXT(BARPOS=A2+ROUND(5*Z),-4,'區間分類：'),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(74*Z),-4,'0.1萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(82*Z),-4,'1萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(90*Z),-4,'5萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(98*Z),-4,'10萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(106*Z),-4,'50萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(112*Z),-4,'100萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(120*Z),-4,'500萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(129*Z),-4,'1000萬'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(138*Z),-4,'1000萬以上'),ALIGN0,colorED;
XX:=A3-P;
KDCM:=100*WINNER(REF(CLOSE,XX));
SHTL:=100*(1-WINNER(REF(CLOSE,XX)));
DDCM:=EMA(100*WINNER(REF(CLOSE,XX)),13);
總:=總股本;
券基:=DDCM*總*0.003+KDCM*總*0.004;
普通:=SHTL*總*0.008,LINETHICK0;
法人:=ABS(總-券基-普通);
虛擬總:=券基+普通+法人;
券基戶數:=INTPART(ABS(DDCM)*基數*0.008);
法人戶數:=INTPART(ABS(KDCM)*基數*0.02);
普通戶數:INTPART(SHTL*20*基數),LINETHICK0;
總戶數:=券基戶數+法人戶數+普通戶數;
STICKLINE(BARPOS=A2+ROUND(62*Z),20,20*(券基/虛擬總)+20,15,0),colorFF;
STICKLINE(BARPOS=A2+ROUND(56*Z),20,20*(法人/虛擬總)+20,15,0),colorFFFF;
STICKLINE(BARPOS=A2+ROUND(48*Z),20,20*(普通/虛擬總)+20,15,0),colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(62*Z),-4,'券基'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(56*Z),-4,'法人'),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(48*Z),-4,'普通'),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(62*Z),6,NUMTOSTR(券基戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(56*Z),6,NUMTOSTR(法人戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(48*Z),6,NUMTOSTR(普通戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(62*Z),15,NUMTOSTR(券基,0)),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(56*Z),15,NUMTOSTR(法人,0)),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(48*Z),15,NUMTOSTR(普通,0)),ALIGN0,colorFF00;
特大:=MAX(DDCM,0)*總*0.009,LINETHICK0;
大戶:=KDCM*總*0.003+DDCM*總*0.001;
小股民:=SHTL*總*0.008;
中戶:=ABS(總-特大-大戶-小股民);
特大比:特大/小股民,LINETHICK0;
小股民比:小股民/特大,LINETHICK0;
ZZ:=特大+大戶+小股民+中戶;
戶數過渡:=RAND(20);
特大戶數:=ABS(券基戶數-戶數過渡);
大戶戶數:=法人戶數+戶數過渡;
中戶戶數:=2*戶數過渡;
小股民戶數:=普通戶數;
STICKLINE(BARPOS=A2+ROUND(36*Z),20,20*(特大/ZZ)+20,15,0),colorFF;
STICKLINE(BARPOS=A2+ROUND(29*Z),20,20*(大戶/ZZ)+20,15,0),colorFFFF;
STICKLINE(BARPOS=A2+ROUND(22*Z),20,20*(中戶/ZZ)+20,15,0),colorFF00;
STICKLINE(BARPOS=A2+ROUND(15*Z),20,20*(小股民/ZZ)+20,15,0),color18A4FF;
DRAWTEXT(BARPOS=A2+ROUND(36*Z),-4,'特大'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(29*Z),-4,'大戶'),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(22*Z),-4,'中戶'),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(15*Z),-4,'小股民'),ALIGN0,color18A4FF;
DRAWTEXT(BARPOS=A2+ROUND(36*Z),6,NUMTOSTR(特大戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(29*Z),6,NUMTOSTR(大戶戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(22*Z),6,NUMTOSTR(中戶戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(15*Z),6,NUMTOSTR(小股民戶數,0)),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(36*Z),15,NUMTOSTR(特大,0)),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(29*Z),15,NUMTOSTR(大戶,0)),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(22*Z),15,NUMTOSTR(中戶,0)),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(15*Z),15,NUMTOSTR(小股民,0)),ALIGN0,color18A4FF;
A1K:=SHTL*總*0.008+基準股*0.5+DDCM*總*0.001;
A1W:=SHTL*總*0.004+基準股*0.7+DDCM*總*0.002;
A5W:=SHTL*總*0.002+基準股*0.9+DDCM*總*0.002;
A10W:=基準股*0.15+KDCM*總*0.0002;
A50W:=基準股*0.3+KDCM*總*0.0001;
A100W:=基準股*0.1+KDCM*總*0.0001;
A500W:=DDCM*總*0.01+KDCM*總*0.0001;
A1000W:=DDCM*總*0.02+KDCM*總*0.0002;
A1000WP:=DDCM*總*0.05,LINETHICK0;
總價:=A1K+A1W+A5W+A10W+A50W+A100W+A500W+A1000W+A1000WP,LINETHICK0;
B1000w:=A1000W/總價*100,LINETHICK0;
B1000WP:A1000WP/總價*100,LINETHICK0;
B1K:(A1K/總價)*100,LINETHICK0;
{特大比:B1000WP/B1K,LINETHICK0;
小股民比:B1K/B1000WP,LINETHICK0;}

STICKLINE(BARPOS=A2+ROUND(74*Z),20,20*(A1K/總價)+20,15,0),colorFFFFFF;
STICKLINE(BARPOS=A2+ROUND(82*Z),20,20*(A1W/總價)+20,15,0),color18A4FF;
STICKLINE(BARPOS=A2+ROUND(90*Z),20,20*(A5W/總價)+20,15,0),colorFFFF;
STICKLINE(BARPOS=A2+ROUND(98*Z),20,20*(A10W/總價)+20,15,0),colorFF00;
STICKLINE(BARPOS=A2+ROUND(106*Z),20,20*(A50W/總價)+20,15,0),colorFFFF00;
STICKLINE(BARPOS=A2+ROUND(112*Z),20,20*(A100W/總價)+20,15,0),colorFFA826;
STICKLINE(BARPOS=A2+ROUND(120*Z),20,20*(A500W/總價)+20,15,0),colorFF69B4;
STICKLINE(BARPOS=A2+ROUND(129*Z),20,20*(A1000W/總價)+20,15,0),color9732F6;
STICKLINE(BARPOS=A2+ROUND(137*Z),20,20*(A1000WP/總價)+20,15,0),colorFF;
FILLRGN(CLOSE,-7,-7-0.01);
DRAWTEXT(BARPOS=A2+ROUND(74*Z),12,NUMTOSTR(A1K,0)),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(82*Z),12,NUMTOSTR(A1W,0)),ALIGN0,colorFF0000;
DRAWTEXT(BARPOS=A2+ROUND(90*Z),12,NUMTOSTR(A5W,0)),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(98*Z),12,NUMTOSTR(A10W,0)),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(106*Z),12,NUMTOSTR(A50W,0)),ALIGN0,color808080;
DRAWTEXT(BARPOS=A2+ROUND(114*Z),12,NUMTOSTR(A100W,0)),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(122*Z),12,NUMTOSTR(A500W,0)),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(130*Z),12,NUMTOSTR(A1000W,0)),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(137*Z),12,NUMTOSTR(A1000WP,0)),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(5*Z),25,'分類持倉%:'),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(74*Z),18,NUMTOSTR(A1K/總價*100,2)+'%'),ALIGN0,colorFFFFFF;
DRAWTEXT(BARPOS=A2+ROUND(82*Z),18,NUMTOSTR(A1W/總價*100,2)+'%'),ALIGN0,color18A4FF;
DRAWTEXT(BARPOS=A2+ROUND(90*Z),18,NUMTOSTR(A5W/總價*100,2)+'%'),ALIGN0,colorFFFF;
DRAWTEXT(BARPOS=A2+ROUND(98*Z),18,NUMTOSTR(A10W/總價*100,2)+'%'),ALIGN0,colorFF00;
DRAWTEXT(BARPOS=A2+ROUND(106*Z),18,NUMTOSTR(A50W/總價*100,2)+'%'),ALIGN0,colorFFFF00;
DRAWTEXT(BARPOS=A2+ROUND(112*Z),18,NUMTOSTR(A100W/總價*100,2)+'%'),ALIGN0,colorFFA826;
DRAWTEXT(BARPOS=A2+ROUND(121*Z),18,NUMTOSTR(A500W/總價*100,2)+'%'),ALIGN0,colorFF69B4;
DRAWTEXT(BARPOS=A2+ROUND(129*Z),18,NUMTOSTR(A1000W/總價*100,2)+'%'),ALIGN0,color9732F6;
DRAWTEXT(BARPOS=A2+ROUND(137*Z),18,NUMTOSTR(A1000WP/總價*100,2)+'%'),ALIGN0,colorFF;
DRAWTEXT(BARPOS=A2+ROUND(5*Z),6,'參數：'),ALIGN0,colorFFFF;
CXHIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
STR1:=''+' '+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1]+' '+' ';
DRAWTEXTEX(CLOSE,1,680,0,''+STR1);
DRAWTEXTEX(CLOSE,1,880,0,' '),colorFF;{程序化交易 www.kzuj.com.cn }

?

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

?