- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-3-16
|
|
- {主力持仓大全}
- DRAWTEXTABS(200,0,'主力持仓大全-lymanqun原创');
- ss:=STKLABEL;
- if STRCMP(ss,'000002')=0 then{全部A股}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('全部A股大买量');
- 大卖:=SELFDATA('全部A股大卖量');
- end
- else if STRCMP(ss,'000300')=0 then{沪深300}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('沪深300大买量');
- 大卖:=SELFDATA('沪深300大卖量');
- end
- else if STRCMP(ss,'399001')=0 then{深成40}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('深成40大买量');
- 大卖:=SELFDATA('深成40大卖量');
- end
- else if STRCMP(ss,'000016')=0 then{上证50}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('上证50大买量');
- 大卖:=SELFDATA('上证50大卖量');
- end
- else if STRCMP(ss,'399004')=0 then{深证100}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('深证100大买量');
- 大卖:=SELFDATA('深证100大卖量');
- end
- else if STRCMP(ss,'000903')=0 then{中证100}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('中证100大买量');
- 大卖:=SELFDATA('中证100大卖量');
- end
- else {个股}
- begin
- drawtextrel(10,10,STKNAME);
- 大买:=SELFDATA('大买量');{单位:手(百股)}
- 大卖:=SELFDATA('大卖量');
- end
- 流通股:FINANCE(7);{(CAPITAL/100)}{单位:万股}
- 当天增减:(大买-大卖),LINETHICK0,COLOR0000ff;
- 主力仓量:sum(大买-大卖,0),COLORwhite,linethick4;
- {主力持仓百分率:sum(主力仓量,0)/(流通股*10000/100)*100%,linethick0;}
- 三天前仓:=ref(主力仓量,3);
- 五天前仓:=ref(主力仓量,5);
- 十天前仓:=ref(主力仓量,10);
- 廿天前仓:=ref(主力仓量,20);
- 三天增减:主力仓量-三天前仓,LINETHICK0,color003399;
- 五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
- 十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
- 廿天增减:主力仓量-廿天前仓,LINETHICK0,color00ffff;
- FILLRGN(廿天增减,0,廿天增减>0,rgb(255,255,00),廿天增减<0,rgb(00,255,255));
- {廿天增减,COLORWHITE;}
- FILLRGN(十天增减,0,十天增减>0,rgb(255,170,00),十天增减<0,rgb(00,170,255));
- {十天图:十天增减,COLORWHITE;}
- FILLRGN(五天增减,0,五天增减>0,rgb(255,85,00),五天增减<0,rgb(00,85,255));
- {五天图:五天增减,COLORWHITE;}
- FILLRGN(三天增减,0,三天增减>0,rgb(153,51,00),三天增减<0,rgb(00,51,153));
- {三天图:三天增减,COLORWHITE;}
- STICKLINE(当天增减>0,当天增减,0,6,0),COLOR0000ff;
- STICKLINE(当天增减<0,当天增减,0,6,0),color00ff00;
- ma5:MA(主力仓量,5),colorred;
- ma10:MA(主力仓量,10),COLORGRAY;
- ma20:MA(主力仓量,20),COLORBLUE,linethick4;
- ma30:MA(主力仓量,30),colorgreen;
- ma50:MA(主力仓量,50),CIRCLEDOT,COLORMAGENTA;
- 主力增减:当天增减/FINANCE(7);
- drawtext(ma(主力仓量,50)>ref(ma(主力仓量,50),1),ma(主力仓量,50),'o'),COLORgray;
- {PARTLINE(ma50,ma50<ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),rgb(255,0,0),
- ma50<ma30,rgb(255,255,0),
- ma50>ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),rgb(255,0,255),
- 1,rgb(0,0,255)),CIRCLEDOT;
- }
- PARTLINE(ma50<ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),ma50),color0000ff,CIRCLEDOT;
- PARTLINE(ma50<ma30 and (ma50<ref(ma50,1) or ma30<ref(ma30,1)),ma50),color00ffff,CIRCLEDOT;
- PARTLINE(ma50>ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),ma50),colorff00ff,CIRCLEDOT;
- PARTLINE(ma50>ma30 and (ma50<ref(ma50,1) or ma30<ref(ma30,1)),ma50),colorff0000;
- 当天增减比率:当天增减/CAPITAL*100;
- 三天增减比率:三天增减/CAPITAL*100;
- 五天增减比率:五天增减/CAPITAL*100;
- 十天增减比率:十天增减/CAPITAL*100;
- 廿天增减比率:廿天增减/CAPITAL*100;
- 仓量斜率3:ma(主力仓量-ref(主力仓量,1),3)/FINANCE(7),linethick0;
- 仓量斜率5:ma(主力仓量-ref(主力仓量,1),5)/FINANCE(7),linethick0;
- 仓量斜率10:ma(主力仓量-ref(主力仓量,1),10)/FINANCE(7),linethick0;
- 仓量斜率20:ma(主力仓量-ref(主力仓量,1),20)/FINANCE(7),linethick0;
复制代码
我操,太强了,强死了,强死人啦!:*9*:
[ 本帖最后由 ptst0578 于 2007-3-18 20:07 编辑 ] |
|
|