筹码主图 （源码）

谈一谈学生的看法:  个人意见
1:当大家发出作品或申请解决问题的时候,是不是要遵守《版规》呢,您说呢?
2:论坛的作品，是每一个人的辛勤劳动而付出的结果,当大家看到时,是不是给予评分鼓励，您说呢?
3:在论坛呆了一段时间，是不是要为大家做一点的奉献呢？您说呢？
4:还有，曾经邦助过自己的老师或学友,是不是给予评分鼓励,您说呢?
5:好了,闲话休提...许多人来问...此公式的用法...学生认为“看图识字”.........
6:故发出此公式主图，副图，选股的源码及图片，给大家去思考，请多多指教，谢谢!
例如：600111 包钢稀土;000869 张裕A; 600460 士兰微;600403 欣网视讯等等
   
借此表示感谢原作者...衷心感谢帮助过老师和同学，祝大家身体健康，投资顺利!!!
{筹码主图}
m2:cost(2),color0000ff;
m50:cost(50),color00ffff;
m90:cost(90),colorffff00;
DRAWICON(CROSS(c,m50),m50,1);
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N1:=COST(85 );
F11:=(J-F)/(F+J)*100;M1:=(N1-M)/(N1+M)*100;
成本集中度90%:=F11;
成本集中度70%:=M1;
浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
A1A:=100*V/CAPITAL;
B1B:=100*(WINNER(C)-REF(WINNER(C),1));
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N1:=COST(85 );
F11:=(J-F)/(F+J)*100;M1:=(N1-M)/(N1+M)*100;
成本集中度90%:=F11;
成本集中度70%:=M1;
浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
A1A:=100*V/CAPITAL;
B1B:=100*(WINNER(C)-REF(WINNER(C),1));
MM:=5-1;
筹码穿透率:=B1b/A1a;
DRAWTEXTABS(16,20,'筹码分析：'),Color00FFFF;
DRAWTEXTABS(70,20,'获利盘:'+获利盘+'% '),LINETHICK1,Color0000FF;
DRAWTEXTABS(160,20,'套牢盘:'+套牢盘+'% '),LINETHICK1,ColorFF6A00;
DRAWTEXTABS(260,20,'底仓区成本集中度:'+成本集中度70%+'% '),LINETHICK1,Color0000FF;
DRAWTEXTABS(420,20,'吸筹拉升区成本集中度：'+成本集中度90%+'% '),LINETHICK1,ColorFF00FF;
DRAWTEXTABS(610,20,'浮筹比例:'+浮筹比例+'% '),LINETHICK1,ColorFFFF00;
DRAWTEXTABS(730,20,'筹码穿透率:'+筹码穿透率+'% '),LINETHICK1,Color00FFFF;

...........................................................................

{解读换手率的应用附筹码公式}
获利筹码:EMA(WINNER(C)*70,5),Color00ffff,LINETHICK3;
亏损筹码:EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,5),Colorff0000;
主力控筹:If(获利筹码>亏损筹码,获利筹码*2,获利筹码),colorff00ff,LINETHICK3;
AI:=AMOUNT/VOL/100;
C0:=REF(C,2)*0.865;
C1:=REF(C,13)*0.772;
DSY:=100*vol/CApitAl;
抄底:If((C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8,100, 0),ColorFF00ff,COLOR3D;
stickline(抄底,0,80,4,0),ColorFF00FF;
动态底部:EMA(IF(L<= LLV(l,30),SMA(ABS(L-REF(L,1)),30,1)/SMA(MAX(L-REF(l,1),0),30,1),0),3)*10,COLORYELLOW,LINETHICK2,COLOR3D;{STICK}
SAT:=IF((AMOUNT/C)/(HHV(AMOU