千钧【霸占大牛股】公布源码
-
相关简介:C/C++ Code 复制内容到剪贴板 指标源码: varl13:=STKINDI( '' , 'macd.diff' ,0,7); varl14:=STKINDI( '' , 'macd.dea' ,0,7); VL:=REF(LOW,1);VH:=REF(H,1); Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100; Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)
-
文章来源:择股网作者:股海网发布时间:2009-08-16浏览次数:
C/C++ Code复制内容到剪贴板
- 指标源码:
- varl13:=STKINDI('' ,'macd.diff',0,7);
- varl14:=STKINDI('' ,'macd.dea',0,7);
- VL:=REF(LOW,1); VH:=REF(H,1);
- Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
- Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
- Var3:=MA(Var1,13);
- Var4:=MA(Var2,13);
- Var5:=LLV(L,34);
- Var6:=HHV(H,34);
- Var7:=EMA(IF(H>=Var6,Var3,0),3);
- Var8:=EMA(IF(L<=Var5,Var4,0),3);
- var9:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
- var10:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var9* 10.9);
- Var11:=FILTER(IF(var10<=var9 AND Var8>REF(Var8,1),Var8*8,0),55);
- Var21:=LLV(LOW,60);
- Var31:=HHV(HIGH,60);
- Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);
- Var51:=EMA(0.667*REF(Var41,1)+0.333*Var41,21);
- varl2:=FILTER(CROSS(Var51,Var41) AND Var41>84,13);
- {K线}
- STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;
- STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,7,0),colorred;
- STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan;
- STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,7,0),colorcyan;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
- STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
- STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
- b:=BARSCOUNT(C)=SYSPARAM(2);
- d:=BARSLAST(b);
- hh:=hhv(h,d);
- DRAWTEXTEX(c,1,20,0,STKLABEL+' '+STKNAME+' '),ColorFFFF80;
- 换手率:=100*v/capital,colorfffFff;
- RH:=H-L;
- R:=DYNAINFO(14)*100;
- DRAWTEXTEX(c,1,20,80,'当日涨幅:'+NUMTOSTR(R,2)+'% 日高低差:'+NUMTOSTR(RH,2)+'元'+' 当前换手率:'+NUMTOSTR(换手率,2)+'% '+' '),Color989500;
- gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
- DRAWTEXT(BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),hh,'今日成交量大于昨日,且有继续增大趋势'+' '),Color8285FF,pxdn90,align4,align2;
- DRAWTEXT(BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),hh,'今日成交量小于昨日,但有放大迹象'+' '),Color8285FF,pxdn90,align4,align2;
- DRAWTEXT(BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),hh,'今日成交量大于昨日, 但有缩小迹象'+' '),Color8285FF,pxdn90,align4,align2;
- DRAWTEXT(BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),hh,'今日成交量小于昨日,且有缩小迹象'+' '),Color8285FF,pxdn90,align4,align2;
- 持股线:=MA(C,26);
- PARTLINE(MA(C,5)>持股线,持股线),Color0000FF,LINETHICK2;
- PARTLINE(MA(C,5)<持股线,持股线),Color00FF00,LINETHICK2;
- qjj:FILTER((CROSS(varl13,varl14) and varl14<0 and CROSS(c,持股线)),90),LINETHICK0;
- DRAWTEXTEX(c,1,20,400,'一发千钧告诫朋友:指标是参考,决策在人脑.\n \n锁定:分批建仓.霸占:满仓待涨.逃跑:遵守纪律.\n \n祝君:股海拾贝 沙海淘金'),Color989500;
- var100:='所属板块:';
- if inblock('电力')=1 then var100:=var100+' 电力';
- if inblock('电脑')=1 then var100:=var100+' 电脑';
- if inblock('电器')=1 then var100:=var100+' 电器';
- if inblock('电子信息')=1 then var100:=var100+' 电子信息';
- if inblock('房地产')=1 then var100:=var100+' 房地产';
- if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';
- if inblock('钢铁')=1 then var100:=var100+' 钢铁';
- if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';
- if inblock('供水供气')=1 then var100:=var100+' 供水供气';
- if inblock('化工')=1 then var100:=var100+' 化工';
- if inblock('化纤')=1 then var100:=var100+' 化纤';
- if inblock('机械')=1 then var100:=var100+' 机械';
- if inblock('建材')=1 then var100:=var100+' 建材';
- if inblock('交通工具')=1 then var100:=var100+' 交通工具';
- if inblock('交通设施')=1 then var100:=var100+' 交通设施';
- if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';
- if inblock('金融')=1 then var100:=var100+' 金融';
- if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';
- if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';
- if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';
- if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';
- if inblock('其他行业')=1 then var100:=var100+' 其他行业';
- if inblock('汽车')=1 then var100:=var100+' 汽车';
- if inblock('汽配')=1 then var100:=var100+' 汽配';
- if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';
- if inblock('石化')=1 then var100:=var100+' 石化';
- if inblock('通信')=1 then var100:=var100+' 通信';
- if inblock('外贸')=1 then var100:=var100+' 外贸';
- if inblock('医药')=1 then var100:=var100+' 医药';
- if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';
- if inblock('有色金属')=1 then var100:=var100+' 有色金属';
- if inblock('运输物流')=1 then var100:=var100+' 运输物流';
- if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';
- if inblock('安徽')=1 then var100:=var100+' 安徽';
- if inblock('北京')=1 then var100:=var100+' 北京';
- if inblock('福建')=1 then var100:=var100+' 福建';
- if inblock('甘肃')=1 then var100:=var100+' 甘肃';
- if inblock('广东')=1 then var100:=var100+' 广东';
- if inblock('广西')=1 then var100:=var100+' 广西';
- if inblock('贵州')=1 then var100:=var100+' 贵州';
- if inblock('海南')=1 then var100:=var100+' 海南';
- if inblock('河北')=1 then var100:=var100+' 河北';
- if inblock('河南')=1 then var100:=var100+' 河南';
- if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';
- if inblock('湖北')=1 then var100:=var100+' 湖北';
- if inblock('湖南')=1 then var100:=var100+' 湖南';
- if inblock('吉林')=1 then var100:=var100+' 吉林';
- if inblock('江苏')=1 then var100:=var100+' 江苏';
- if inblock('江西')=1 then var100:=var100+' 江西';
- if inblock('辽宁')=1 then var100:=var100+' 辽宁';
- if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';
- if inblock('宁夏')=1 then var100:=var100+' 宁夏';
- if inblock('青海')=1 then var100:=var100+' 青海';
- if inblock('山东')=1 then var100:=var100+' 山东';
- if inblock('山西')=1 then var100:=var100+' 山西';
- if inblock('陕西')=1 then var100:=var100+' 陕西';
- if inblock('上海')=1 then var100:=var100+' 上海';
- if inblock('深圳')=1 then var100:=var100+' 深圳';
- if inblock('四川')=1 then var100:=var100+' 四川';
- if inblock('天津')=1 then var100:=var100+' 天津';
- if inblock('***')=1 then var100:=var100+' ***';
- if inblock('新疆')=1 then var100:=var100+' 新疆';
- if inblock('云南')=1 then var100:=var100+' 云南';
- if inblock('浙江')=1 then var100:=var100+' 浙江';
- if inblock('重庆')=1 then var100:=var100+' 重庆';
- if inblock('3G')=1 then var100:=var100+' 3G';
- if inblock('H股')=1 then var100:=var100+' H股';
- if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
- if inblock('ST')=1 then var100:=var100+' ST';
- if inblock('奥运')=1 then var100:=var100+' 奥运';
- if inblock('创投')=1 then var100:=var100+' 创投';
- if inblock('次新股')=1 then var100:=var100+' 次新股';
- if inblock('大盘')=1 then var100:=var100+' 大盘';
- if inblock('股权改革')=1 then var100:=var100+' 股权改革';
- if inblock('股权投资')=1 then var100:=var100+' 股权投资';
- DD:=FINANCE( 1);
- SS:=FINANCE( 7);
- GG:=FINANCE(33);
- TH:=DYNAINFO(39);
- DRAWTEXTEX(c,1,20,240,'总股本:'+NUMTOSTR(DD,0)+'万股' +' 流通A股:'+NUMTOSTR(SS,0)+'万股\n \n'+'市盈率:'+NUMTOSTR(TH,2)+' 倍'+' 每股收益:'+NUMTOSTR(GG,3)+' 元'),Color989500;
- DRAWTEXTEX(c,1,20,160,var100+' '),Color989500;
- DRAWTEXT(var11,C*0.98,'锁定'),ColorFFFF00;
- DRAWICON(qjj,C*1.09,1);
- DRAWTEXT(qjj,l*0.78,'霸占大牛股'),COLOR00FFFF;
- DRAWTEXT(varl2,C*1.04,'逃跑'),Colorgreen;
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|