指标编写问答52学习的宝藏

股友量

256.问:
     我想实现这样一个思路：当用函数“+BLKNAME”找到所属版块，或者从F10中找到所属版块，如: “制造业，化学原料及化学制品制造业，浙江,网络……”时，假如我做了如下规定：当在前两项（   两个逗号内），出现    “化学原料”字样（模糊匹配），就让它等于“0.2”，出现“电子元器件   ”字样，就让它等于“0.5”；
     当在第三、第四项出现“网络”，就等于“0.3”，出现“化学原料”，就等于“0.1”等等。而且
这里的数字 0.1，0.2，0.3，0.5等，是可以进行加减乘除运算的的。关系式大概可以写为：
       如果在第一第二项，+BLKNAME“=化学原料，则输出数字“0.2
       如果在第一第二项，+BLKNAME“=电子元器件，则输出数字“0.5
       如果在第三第四项，+BLKNAME“=化学原料，则输出数字“0.1
       如果在第三第四项，+BLKNAME“=网络，则输出数字“0.3
   答(恒悦):
       当用函数“+BLKNAME”找到所属版块，或者从F10中找到所属版块，
       如：“制造业，化学原料及化学制品制造业，浙江，网络……”
       时，假如我做了如下规定：当在前两项（ ...
       v1:=BLKNAME;
       v2:=STRFIND(v1,',',STRFIND(v1,',',1)+1);
       v3:=STRLEFT(v1,v2);
       v4:=STRNCMP(STRRIGHT(v3,9),'化学原料',8)=0 or STRNCMP(v3,'化学 原料',8)=0;
       v5:=STRNCMP(STRRIGHT(v3,11),'电子元器件',10)=0 or STRNCMP(v3,' 电子元器件',10)=0;
       v6:=STRFIND(v1,',',STRFIND(v1,',',v2+1)+1);
       v7:=STRMID(v1,v2+1,v6-v2);
       v8:=STRNCMP(STRRIGHT(v7,9),'化学原料',8)=0 or STRNCMP(v7,'化学 原料',8)=0;
       v9:=STRNCMP(STRRIGHT(v7,5),'网络',4)=0 or STRNCMP(v7,'网络 ',4)=0;
       if(v4=1,0.2,if(v5=1,0.5,if(v8=1,0.1,if(v9=1,0.3,0))));

257.问:
     主图背景指标,按照K线的日期不同 每年分为12个月份 在主图填充12中不同颜色的背景色 就是每  个月的背景色不同 背景颜色改变时画出分隔的垂直线
     设置个2个参数
       N（0，1，1，1)   
       0：按照阴历月
       1：按照阳历月
       M（1，31，1，1)
       1-31：表示从每月第M日开始划分到下月的M-1日m
       比如 N=1 M=15 就是 按阳历从每月15日到下月14日为一个周期划分 填 充颜色
    答(恒悦):
       input:p(1,1,2),d(1,1,31);
       dd:=if(p=1,day,LDAY);
       mm:=if(p=1,month,LMONTH);
       tj1:=(mm=1 and dd>=d) or (mm=2 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=1);
       tj2:=(mm=2 and dd>=d) or (mm=3 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=2);
       tj3:=(mm=3 and dd>=d) or (mm=4 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=3);
       tj4:=(mm=4 and dd>=d) or (mm=5 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=4);
       tj5:=(mm=5 and dd>=d) or (mm=6 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=5);
       tj6:=(mm=6 and dd>=d) or (mm=7 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=6);
       tj7:=(mm=7 and dd>=d) or (mm=8 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=7);
       tj8:=(mm=8 and dd>=d) or (mm=9 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=8);
       tj9:=(mm=9 and dd>=d) or (mm=10 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=9);
       tj10:=(mm=10 and dd>=d) or (mm=11 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=10);
       tj11:=(mm=11 and dd>=d) or (mm=12 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=11);
       tj12:=(mm=12 and dd>=d) or (mm=1 and dd<d and ref(mm,BARSLAST(dd<ref(dd,1))+1)=12);
       hh:=hhv(h,0);ll:=llv(l,0);
       STICKLINE(tj1,hh[datacount],ll[datacount],10,0.1),colorc0c0c0;
       STICKLINE(tj2,hh[datacount],ll[datacount],10,0.1),colorb5a5b5;
       STICKLINE(tj3,hh[datacount],ll[datacount],10,0.1),color808080;
       STICKLINE(tj4,hh[datacount],ll[datacount],10,0.1),color8080ff;
       STICKLINE(tj5,hh[datacount],ll[datacount],10,0.1),colorff0080;
       STICKLINE(tj6,hh[datacount],ll[datacount],10,0.1),colorff8000;
       STICKLINE(tj7,hh[datacount],ll[datacount],10,0.1),color0080ff;
       STICKLINE(tj8,hh[datacount],ll[datacount],10,0.1),colorffff00;
       STICKLINE(tj9,hh[datacount],ll[datacount],10,0.1),color33ff00;
       STICKLINE(tj10,hh[datacount],ll[datacount],10,0.1),colorffff80;
       STICKLINE(tj11,hh[datacount],ll[datacount],10,0.1),color00ffff;
       STICKLINE(tj12,hh[datacount],ll[datacount],10,0.1),color0099ff;
       VERTLINE(tj1<>ref(tj1,1) or tj2<>ref(tj2,1) or tj3<>ref(tj3,1) or tj4<>ref(tj4,1)
        or tj5<>ref(tj5,1) or tj6<>ref(tj6,1) or tj7<>ref(tj7,1) or tj8<>ref(tj8,1)
        or tj9<>ref(tj9,1) or tj10<>ref(tj10,1) or tj11<>ref(tj11,1) or tj12<>ref        
          (tj12,1)),colorred;

       STICKLINE(c>o,c,o,8,1),colorred;
       STICKLINE(c>o,l,o,0.9,1),colorred;
       STICKLINE(c>o,h,c,0.9,1),colorred;
       STICKLINE(c<o,c,o,8,0.5),colorffff00;
       STICKLINE(c<o,h,l,0.9,0.5),colorffff00;
       STICKLINE(c=o and c>ref(c,1),c,o,8,1),colorred;
       STICKLINE(c=o and c>ref(c,1),l,h,0.9,1),colorred;
       STICKLINE(c=o and c<ref(c,1),c,o,8,0.5),colorffff00;
       STICKLINE(c=o and c<ref(c,1),h,l,0.9,0.5),colorffff00;

258.问:
     当日股价收在55日均线之上，5日均线金叉10日均线（或已金叉），当日成交量大于5日成交 量，5日成交量大于10成交量。

   答(恒悦):
      c>ma(c,55) and cross(ma(c,5),ma(c,10)) and v>ma(v,5 ) and ma(v,5)>ma(v,10)

259.问:
      请帮我做个社保基金持股版块!  

    答(恒悦):
       大股东中含有社保基金,鹏搏资讯F10资料
       X:=F10FIND('社保基金',1);
       z:=F10FIND(' ㈠、十大股东 截止日期：2003-12-31(来源:2003年年度 报告)',1);
       Y:=F10FIND('以上流通股合计(万股):',1);
       X<y and x>z

260.问:
      5日 10日 20日 30日 均线靠拢的排序指标（分析家的）

    答(恒悦):
       m:=ma(c,5);
       m1:=ma(c,10);
       m2:=ma(c,20);
       m3:=ma(c,30);
       d:=max(max(max(m,m1),m2),m3);
       x:=min(min(min(m,m1),m2),m3);
       (d/x-1)*100;

西南的狼

谢谢楼主分享。。。。。。。。