原帖由 太白山人 于 2007-4-17 17:24 发表 
我的自定义数据取自“上海聚源数据服务”的e财讯，数据提取到1996年，十年差不多了吧，不过，数据的准确性就不得而知了！
发一张图，用自定义数据可以做出像“五年利润复合增长率”、三年利润复合增长率、 ...
太白兄，你用的复合增长率计算公式是什么？请不吝赐教！谢谢！这样我可以修改并加入到港澳的F10提取公式中去，直接算出来并显示。
先共享一个我自己的主图指标，可以看中线突破。
{大智慧L2--L--亮剑}
DRAWGBKLAST(C>0,STRIP(RGB(80,100,120),RGB(0,0,0),0));
{DRAWGBK(c>0,STRIP(RGB(1,100,125),RGB(1,30,10),0));}
drawtextrel(10,10,'【想入獾獾】 ：只做'),coloryellow;
drawtextrel(160,10,'蓝线'),colorblue;
drawtextrel(195,10,'和'),coloryellow;
drawtextrel(215,10,'绿线'),colorgreen;
drawtextrel(255,10,'之上的股票'),coloryellow;
STICKLINE(CLOSE<OPEN and ref(CLOSE,1)>ref(OPEN,1),ref(close,1),ref(close,1),20,0),COLORFFFFFF;
STICKLINE(CLOSE>OPEN and ref(CLOSE,1)<ref(OPEN,1),ref(close,1),ref(close,1),20,0),COLORFF00A0;
VAR1:=(OPEN+LOW+HIGH+CLOSE)/4;
支撑:=EMA(VAR1,5);
阻力:=llv(llv(hhv(h,11),11),11);
短压:=HHV(LOW,20);
长压:HHV(支撑,55),colorblue,linethick4;
partline(长压,长压>ref(长压,1),rgb(255,0,0)),linethick5;
A:=(HHV(HIGH,26)+LLV(LOW,26))/2;
B:=(HHV(HIGH,9)+LLV(LOW,9))/2;
DL:=CLOSE; FN:=26;
先上:=REF((A+B)/2,26);
先下:=REF((HHV(HIGH,52)+LLV(LOW,52))/2,26);
STICKLINE(先上>先下,先上,先下,0.5,1),ColorFF00FF;
STICKLINE(先下>先上,先上,先下,0.5,1),ColorFFFF00;
基准线:A,LINETHICK1,COLORFF00A0;
partline(基准线,基准线>=先上 and 基准线>=先下,rgb(0,255,0)),linethick3;
转换線:=B;
{亮剑}
XX2:=(MA(CLOSE,90)-MA(CLOSE,13)/3);
神奇线:=MA((CLOSE-XX2)/XX2,1);
base:=hhv(神奇线,20);
stickline(base>=1,ref(c,barslast(cross(base>=1,1))),ref(c,barslast(cross(base>=1,1))),9,0),colorwhite,linethick2;{
drawtext(cross(base>=1,1),ref(c,barslast(cross(base>=1,1)))*1.1,'〆'),linethick4,colorwhite;}
亮剑宰牛:ref(c,barslast(cross(base>=1,1))),linethick0,colorwhite;
亮剑:cross(base>=1,1),colorgreen,linethick0;
{
drawtext(cross(base<1,1),ref(c,barslast(cross(base<1,1)))*0.8,'〆闪人！'),linethick4,colorwhite;
}
拔刀杀猪:ref(c,barslast(cross(基准线>先上 and 基准线>先下,1))),colorff00a0,linethick0;
拔刀:cross(基准线>先上 and 基准线>先下,1),colorff00a0,linethick0;
{
drawtext(拔刀,拔刀杀猪*1.1,'〆'),linethick5,colormagenta;
}
STICKLINE(基准线>先上 and 基准线>先下,拔刀杀猪,拔刀杀猪,9,0),COLORred,linethick2;
突破:c>拔刀杀猪,linethick0;
{疙瘩逃顶}
var1a:=(c-wma(c,21))/wma(c,21)*108;
var3a:=100-(60+-(abs(var1a)));
疙瘩:=hhv(var3a,20);
STICKLINE(疙瘩=ref(疙瘩,1) and ref(疙瘩,1)>ref(疙瘩,2),h*1.01,h*1.01,6,0),Colorffffff,linethick6;
STICKLINE(疙瘩=ref(疙瘩,1) and ref(疙瘩,1)<ref(疙瘩,2) and c>o,l*0.99,l*0.99,6,0),Colorffffff,linethick6;
{牛熊线}
牛熊线:ema(c,250)-(ema(c,3)-ema(c,250)),colorgreen,linethick0;
drawtext(cross(c>=牛熊线,1),牛熊线*1.3,'◆牛'),linethick5,colorred;
drawtext(cross(c<牛熊线,1),牛熊线*1.3,'◆'),linethick5,colorgreen;{
drawtext(拔刀,长压*1.2,'〆'),linethick4,colormagenta;↑× ┏ ♀ ♂
drawtext(cross(长压>ref(长压,1),1),长压*1.01,'┏'),linethick4,colorgreen;}
ema13:stickline(v>0,ema(c,13),ema(c,13),4,1),colorgray;
ema17:stickline(v>0,ema(c,17),ema(c,17),4,1),colorblue;
{布林带}
MID:=MA(CLOSE,26);
UPPER:=MID+2*STD(CLOSE,26);
LOWER:=MID-2*STD(CLOSE,26);
stickline(v>0,MID,MID,4,1),colormagenta;
stickline(v>0,UPPER,UPPER,4,1),colorred;
stickline(v>0,LOWER,LOWER,4,1),colorgreen;
{红色}
STICKLINE(c>=ref(c,1),C,O,7.5,0),COLOR0000AA;
STICKLINE(c>=ref(c,1),C,O,7,0),COLOR0000AA;
STICKLINE(c>=ref(c,1),C,O,6,0),COLOR0000bb ;
STICKLINE(c>=ref(c,1),C,O,5,0),COLOR0000cc;
STICKLINE(c>=ref(c,1),C,O,4,0),COLOR0000DD ;
STICKLINE(c>=ref(c,1),C,O,3,0),COLOR0000ee;
STICKLINE(c>=ref(c,1),C,O,2,0),COLOR0000ff;
STICKLINE(c>=ref(c,1),C,O,1,0),COLOR0000ff;
STICKLINE(c>=ref(c,1),H,L,0,0),COLORRED;
{绿色}
STICKLINE(c<ref(c,1),h,l,0,0),Colorgreen;
STICKLINE(c<ref(c,1),c,o,7.5,0),Color007700;
STICKLINE(c<ref(c,1),c,o,7,0),Color008E00;
STICKLINE(c<ref(c,1),c,o,6,0),Color009900;
STICKLINE(c<ref(c,1),c,o,5,0),Color00A600;
STICKLINE(c<ref(c,1),c,o,4,0),Color00B500;
STICKLINE(c<ref(c,1),c,o,3,0),Color00C600;
STICKLINE(c<ref(c,1),c,o,2,0),Color00D500;
STICKLINE(c<ref(c,1),c,o,1,0),Color00E600;
{青色
STICKLINE(卖线<安全线,C,O,7.5,0),Coloraaaa00;
STICKLINE(卖线<安全线,C,O,7,0),Coloraaaa00;
STICKLINE(卖线<安全线,C,O,6,0),Colorbbbb00;
STICKLINE(卖线<安全线,C,O,5,0),Colorcccc00;
STICKLINE(卖线<安全线,C,O,4,0),Colordddd00;
STICKLINE(卖线<安全线,C,O,3,0),Coloreeee00;
STICKLINE(卖线<安全线,C,O,2,0),COLORffff00;
STICKLINE(卖线<安全线,C,O,1,0),Colorffff00;
STICKLINE(卖线<安全线,H,L,0,0),COLORffff00;}
{蓝色
STICKLINE(卖线>=安全线 and c<cost(72),C,O,7.5,0),colorAA0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,7,0),colorAA0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,6,0),colorBB0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,5,0),colorCC0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,4,0),colorDD0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,3,0),colorEE0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,2,0),colorEE0000;
STICKLINE(卖线>=安全线 and c<cost(72),C,O,1,0),colorFF0000;
STICKLINE(卖线>=安全线 and c<cost(72),H,L,0,0),colorFF0000;}
{黄色
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,7.5,0),color00AAAA;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,7,0),color00AAAA;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,6,0),color00BBBB;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,5,0),color00CCCC;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,4,0),color00DDDD;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,3,0),color00EEEE;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,2,0),color00FFFF;
STICKLINE(买线>=卖线 and 卖线<安全线,C,O,1,0),color00DDEE;
STICKLINE(买线>=卖线 and 卖线<安全线,H,L,0,0),colorYELLOW;};
{大智慧L2--港澳F10股东持股数及机构持股数
sdgd1:=f10find('十大流通股东情况',1);
sdgdsj1:=f10text(sdgd1-12,10);
blwz1:=f10find('流通Ａ股',sdgd1+1);
bfhwz1:=f10find('％',blwz1+1);
cgbl1:=strtonum(f10text(blwz1+8,bfhwz1-blwz1-8));
sdgd2:=f10find('十大流通股东情况',sdgd1+1);
sdgdsj2:=f10text(sdgd2-12,10);
blwz2:=f10find('流通Ａ股',sdgd2+1);
bfhwz2:=f10find('％',blwz2+1);
cgbl2:=strtonum(f10text(blwz2+8,bfhwz2-blwz2-8));
sdgd3:=f10find('十大流通股东情况',sdgd2+1);
sdgdsj3:=f10text(sdgd3-12,10);
blwz3:=f10find('流通Ａ股',sdgd3+1);
bfhwz3:=f10find('％',blwz3+1);
cgbl3:=strtonum(f10text(blwz3+8,bfhwz3-blwz3-8));
sdgd4:=f10find('十大流通股东情况',sdgd3+1);
sdgdsj4:=f10text(sdgd4-12,10);
blwz4:=f10find('流通Ａ股',sdgd4+1);
bfhwz4:=f10find('％',blwz4+1);
cgbl4:=strtonum(f10text(blwz4+8,bfhwz4-blwz4-8));
主力增幅:=(cgbl1-cgbl2)/cgbl2*100;
主力增幅1:=(cgbl2-cgbl3)/cgbl3*100;
主力增幅2:=(cgbl3-cgbl4)/cgbl4*100;
DRAWTEXTREL(10,60,'【'+sdgdsj1+'机构持有】 '+cgbl1+' %'),COLORblue;
DRAWTEXTREL(10,110,'【'+sdgdsj2+'机构持有】 '+cgbl2+' %'),COLORblue;
DRAWTEXTREL(10,160,'【'+sdgdsj3+'机构持有】 '+cgbl3+' %'),COLORblue;
DRAWTEXTREL(10,210,'【'+sdgdsj4+'机构持有】 '+cgbl4+' %'),COLORblue;
DRAWTEXTREL(260,60,'【增幅】 '+主力增幅+' %'),COLORblue;
DRAWTEXTREL(260,110,'【增幅】 '+主力增幅1+' %'),COLORblue;
DRAWTEXTREL(260,160,'【增幅】 '+主力增幅2+' %'),COLORblue;}；
[ 本帖最后由 zhbsystem888 于 2007-4-17 19:19 编辑 ] |
[复制链接]
发表于 2007-4-17 17:44
楼主