查看完整版本: 泡哥交易系统之后知招财猫&D市场热点分析&G系统盈利分析源码

yngs 2005-8-17 16:37

泡哥交易系统之后知招财猫&D市场热点分析&G系统盈利分析源码

:p

yngs 2005-8-17 16:39

{指标名称:后知招财猫}


input: n(4,1,255),m(13,1,255);
drawgbk(c=c,colorrgb(90,90,90),colorrgb(0,0,0),1);
aa:=ref(h,n)=hhv(h,2*n+1);
aaa:=filter(aa,n);
bb:=backset(aaa,n+1);
cc1:=filter(bb,n);
cc:=cc1 or islastbar;
aa2:=ref(l,n)=llv(l,2*n+1);
aaa2:=filter(aa2,n);
bb2:=backset(aaa2,n+1);
cc22:=filter(bb2,n);
cc2:=cc22 and not(cc1);
ea:=backset(cc,ref(barslast(cc2),1)+1);
eb:=ea>ref(ea,1);
ee:=backset(eb,2);
ff1:=ee>ref(ee,1);
ee2:=backset(ff1 and count(cc,ref(barslast(cc2),1)+2)=0,ref(barslast(cc2),1)+2);
ff2:=ee2>ref(ee2,1);
ee3:=backset(ff2 and count(cc,ref(barslast(cc2),1)+2)=0,ref(barslast(cc2),1)+2);
ff3:=ee3>ref(ee3,1);
js:=if(cc,count(cc2,ref(barslast(cc),1)+1),0);
g1:=if(js=1 and cc,barslast(ff1),0);
ga:=if(cc and ref(l,barslast(ff1))>=ref(l,barslast(ff2)),barslast(ff2),barslast(ff1));
g2:=if(js=2 and cc,ga,0);
g3:=if(js>=3 and cc,if(cc and ref(l,ga)>=ref(l,barslast(ff3)),barslast(ff3),ga),0);
gg:=g1+g2+g3;
ja:=backset(cc,gg);
jb:=ja>ref(ja,1);
jj:=backset(jb,2);
ld:=jj>ref(jj,1);
ld1:=ld or islastbar;
hea:=backset(ld1,ref(barslast(cc),1)+1);
heb:=hea>ref(hea,1);
hee:=backset(heb,2);
hff1:=hee>ref(hee,1);
hee2:=backset(hff1 and count(ld1,ref(barslast(cc),1)+2)=0,ref(barslast(cc),1)+2);
hff2:=hee2>ref(hee2,1);
hee3:=backset(hff2 and count(ld1,ref(barslast(cc),1)+2)=0,ref(barslast(cc),1)+2);
hff3:=hee3>ref(hee3,1);
hjs:=if(ld1,count(cc1,ref(barslast(ld1),1)+1),0);
hg1:=if(hjs=1 and ld1,barslast(hff1),0);
hga:=if(ld1 and ref(h,barslast(hff1))<=ref(h,barslast(hff2)),barslast(hff2),barslast(hff1));
hg2:=if(hjs=2 and ld1,hga,0);
hg3:=if(hjs>=3 and ld1,if(ld1 and ref(h,hga)<=ref(h,barslast(hff3)),barslast(hff3),hga),0);
hgg:=hg1+hg2+hg3;
hja:=backset(ld1,hgg);
hjb:=hja>ref(hja,1);
hjj:=backset(hjb,2);
hd:=hjj>ref(hjj,1);
x1:=backset(islastbar,barslast(ld)+1);
x2:=x1>ref(x1,1);
y1:=backset(islastbar,barslast(hd)+1);
y2:=y1>ref(y1,1);
z1:=if(barslast(x2)<barslast(y2),x2,y2);
z2:=if(barslast(x2)<barslast(y2),l,h);
drawline(z1,z2,islastbar,c,0),pointdot,colorff9900;
uu:=backset(islastbar,barslast(ld)+1);
vv:=uu>ref(uu,1);
ww:=backset(vv,ref(barslast(ld),1)+2);
xx:=ww>ref(ww,1);
drawline(xx,l,vv,l,1),pointdot,colorffff;
uu2:=backset(islastbar,barslast(hd)+1);
vv2:=uu2>ref(uu2,1);
ww2:=backset(vv2,ref(barslast(hd),1)+2);
xx2:=ww2>ref(ww2,1);
drawline(xx2,h,vv2,h,1),pointdot,colorffff;
drawicon(hd and xx2,h*1.002,12);
drawicon(ld and xx,l*1.002,10);
高1:ref(h,barslast(vv2)),pointdot,color99ff66;
高2:ref(h,barslast(xx2)),pointdot,colorff66ff;
低1:ref(l,barslast(vv)),pointdot,color99ff66;
低2:ref(l,barslast(xx)),pointdot,colorff66ff;
ok:=ema(o,60);
cg:=ema(c,60);
pdu:=if(ok>ref(ok,1) and cg>ref(cg,1),1,0);
pdd:=if(ok<ref(ok,1) and cg<ref(cg,1),1,0);
pdm:=if(pdu=0 and pdu=0,1,0);
z1:=ma(c,m);
zx:=ref(z1,m/2+1);
life:=(ema(c,60)+ema(c,90))/2;
var1:=(2*c+h+l)/4;
snook:=ema(var1,99)*0.91;
a1:=(c-ref(c,1))/ref(c,1)*100;
ma5:=barslast(a1>3);
ma20:=if(ma5>0,1,0);
stickline(c>zx,h,l,1,0),colorffff;
stickline(c>zx and c>=life,o,c,8,0),colorff;
stickline(c>zx and c<=snook,o,c,8,0),colorff00;
stickline(c>zx and c>snook and c<life,o,c,8,0),colorff0000;
stickline(c>zx and ma20=0,o,c,8,0),colorffff;
stickline(c>zx,o,c,2,0),colorffffff;
drawicon(cross(c,zx),l*0.99,4);
drawicon(cross(zx,c),h*1.01,5);
by20:=ma(c,5);
by21:=ma(c,20);
by22:=if(by20>by21,by21,by20);
招财猫:by21,colorffff;
鼠变异:by22,color808080;
partline(鼠变异>ref(鼠变异,1) and 鼠变异=by21,鼠变异),Linethick2,colorff66ff;
partline(鼠变异>ref(鼠变异,1) and 鼠变异=by21 and pdu=1,鼠变异),Linethick2,colorff;
partline(鼠变异>ref(鼠变异,1) and 鼠变异<>by21,鼠变异),colorff00;
explain(c>zx and c>=life,'老鼠出洞了,逮住它!'),colorff;
explain(c>zx and c>snook and c<life,'老鼠玩猫猫,守着它!'),colorff0000;
explain(c>zx and c<=snook,'老鼠露尾巴,动作快!'),colorff00;
explain(c<=zx,'老鼠没有了,打个盹!'),color808080;
explain(鼠变异>ref(鼠变异,1) and 鼠变异<>by21,'发现鼠迹!'),colorff00;
explain(鼠变异>ref(鼠变异,1) and 鼠变异=by21 and pdu<>1,'瞬间鼠影!'),colorff66ff;
explain(鼠变异>ref(鼠变异,1) and 鼠变异=by21 and pdu=1,'恶鼠难遁!'),colorff;
explain(c>zx and ma20=0,'老鼠去哪里,思考哦!'),colorffff;

yngs 2005-8-17 16:40

{G系统盈利分析}

input: k(4,1,9);
drawgbk(c=c,colorrgb(30,30,30),colorrgb(130,130,130),1);
a1:=ma(c,13);
zx:=ref(a1,13/2+1);
b1:=cross(c,zx);
s1:=cross(zx,c);
drawicon(cross(c,zx),1,12);
drawicon(c>zx and ref(c,1)>ref(zx,1),1,10);
drawicon(c<zx and ref(c,1)>ref(zx,1),1,11);
sxf:=k/1000;
d1:=900101;
lb:=ref(barslast(b1),1)+1;
ls:=ref(barslast(s1),1)+1;
bj1:=ref(c,barslast(b1));
syl:=if(s1 and ls>lb,(c/(1+sxf)-bj1*(1+sxf))/bj1*(1+sxf)*100,0);
收益率:syl,linethick0;
rq1:=barscount(c);
rq2:=barssince(date>=d1)+1;
zsyl:=sum(syl,min(rq1,rq2));
总收益率:zsyl,linethick0;
jycs:=sum(if(syl=0,0,1),min(rq1,rq2));
交易次数:jycs,linethick0;
成功率:sum(if(syl>0,1,0),min(rq1,rq2))/jycs*100,linethick0;

yngs 2005-8-17 16:42

{D市场热点分析}

explain(c>0,'──【个股评估分析】───');
qs:=zig(3,19);
ss:=hhvbars(ref(qs,1)<ref(qs,2),0);
explain(ss=1 or cross(zig(3,19),ref(zig(3,19),1)),'操作时段分析:操作盲区'),colorffff;
explain(ss>=2 and ss<20 and ref(qs,1)<qs,'操作时段分析:短线投机'),colorff;
explain(ss>=20 and ss<88 and ref(qs,1)<qs,'操作时段分析:中线波段'),colorff33ff;
explain(ss>=88 and ref(qs,1)<qs,'操作时段分析:长线投资'),color66ff;
xd:=hhvbars(qs>ref(qs,1),0);
explain(xd=2 or xd=1,'操作时段分析:操作盲区'),colorffff;
explain(xd>=3 and xd<21 and ref(qs,1)>qs,'操作时段分析:短期回调'),colorffff;
explain(xd>=21 and xd<89 and ref(qs,1)>qs,'操作时段分析:中期杀跌'),colorffff00;
explain(xd>=89 and ref(qs,1)>qs,'操作时段分析:长期盘跌'),colorff00;
life:=(ema(c,60)+ema(c,90))/2;
var1:=(2*c+h+l)/4;
snook:=ema(var1,99)*0.91;
explain(c>life,'操作区域分析:多头区域'),color3300ff;
explain(c<=life and c>=snook,'操作区域分析:盘整区域'),colorff0066;
explain(c<snook,'操作区域分析:空头区域'),color99ff33;
tc:=if(cross(ref(zig(3,19),1),zig(3,19)),1,0);
explain(cross(zig(3,19),ref(zig(3,19),1)),'价格拐点分析:相对底部'),colorffff;
explainex(ss>0 and tc<>1 and ss<>2 and ss<>4 and ss<>7 and ss<>12 and ss<>20 and ss<>33 and ss<>54 and ss<>88 and ss<>143 and ss<>232,'时间拐点分析:上涨天数 ',ss+1,0,0),colorccffff;
explainex(ss=2,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=4,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=7,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=12,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=20,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=33,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=54,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=88,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=143,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=232,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explain(cross(ref(zig(3,19),1),zig(3,19)),'价格拐点分析:相对顶部'),colorffff;
explainex(xd>0 and tc<>1 and xd<>3 and xd<>5 and xd<>8 and xd<>13 and xd<>21 and xd<>34 and xd<>55 and xd<>89 and xd<>144 and xd<>233,'时间拐点分析:下跌天数 ',xd,0,0),colorccffff;
explainex(xd=3,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=5,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=8,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=13,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=21,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=34,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=55,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=89,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=144,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=233,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
白色:=sma(h,21,2)*1.05;
黄色:=sma(l,21,2)*0.95;
粉色:=sma(l,5,1);
绿色:=sma(c,2,1);
explain(绿色>白色,'热点持续区域:辨别黑马'),colorffff;
hsl:=v/capital*100;
explain(hsl<1,'个股活跃分析:绝对地量'),color33ffcc;
explain(hsl>=1 and hsl<2,'个股活跃分析:成交低靡'),color33ffcc;
explain(hsl>=2 and hsl<3,'个股活跃分析:成交温和'),color33ffcc;
explain(hsl>=3 and hsl<5,'个股活跃分析:成交活跃'),color33ffcc;
explain(hsl>=5 and hsl<8,'个股活跃分析:成交带量'),color33ffcc;
explain(hsl>=8 and hsl<15,'个股活跃分析:成交放量'),color33ffcc;
explain(hsl>=15 and hsl<25,'个股活跃分析:成交巨量'),color33ffcc;
explain(hsl>25,'个股活跃分析:成交怪异');
zslife:=(ema(indexc,60)+ema(indexc,90))/2;
zsbl:=indexc/zslife;
gglife:=(ema(c,60)+ema(c,90))/2;
zstb:=zsbl*gglife;
explainex(zstb<c,'强于大盘系数%:',(c-zstb)/zstb*100,2,0),colorff;
explainex(zstb>=c,'弱于大盘系数%:',abs(c-zstb)/zstb*100,2,0),colorffff00;
explainex(c>0,'历史价位系数%:',(c-llv(l,0))/(hhv(h,0)-llv(l,0))*100,2,0),color33cc99;
rsv:=(c-llv(l,15))/(hhv(h,15)-llv(l,15))*100;
kk:=sma(rsv,10,1);
dd:=sma(kk,5,1);
zlcm:=intpart(sma(rsv,10,1));
shcm:=intpart(sma(kk,5,1));
explainex(zlcm+shcm>50 and zlcm+shcm<160,'精确风险系数%:',zlcm+shcm,2,0),color6699cc;
explainex(zlcm+shcm<=50 or zlcm+shcm>=160,'精确风险系数%:',-(zlcm+shcm),2,0),color6699cc;
aa13:=ema(winner(c)*70,3);
bb13:=ema((winner(c*1.1)-winner(c*0.9))*80,3);
explainex(aa13>bb13,'主力控盘系数%:',aa13/(aa13+bb13)*100,2,0),colorff;
explainex(aa13<bb13,'散户套牢系数%:',bb13/(aa13+bb13)*100,2,0),colorff00;
hot:=ma(c,13);
glv:=atan(hot-ref(hot,1))*3.142*100;
explainex(glv>0,'股价倾斜系数%:',glv,2,0),colorff6666;
bs:=ema(c,21)-1+ema(v,5)/ema(v,40);
hs:=(bs-life)/life*100;
explainex(c>0,'高潮乖离系数%:',hs,2,0),colorffffcc;
drawgbk(c=c,colorrgb(30,30,30),colorrgb(130,130,130),1);
fs:=sma(h,21,2)*1.05;
ls:=sma(l,21,2)*0.95;
bd:=sma(l,5,1);
rd:=sma(c,2,1);
eb:=if(cross(rd,bd),fs*1.05,bd);
ee:=if(cross(rd,fs),fs*1.1,ls);
drawicon(rd=rd,rd,11);
屏颈:fs,linedot,colorffffff;
fillrgn(eb>bd,bd,eb),colorcccc;
蓄势:bd,colorff00ff;
前兆:eb,linethick0,colorff;
fillrgn(ee>ls,ls,ee),colorff;
底线:ls,linedot,colorffff;
热点:ee,linethick0,colorffff00;

欣儿 2005-8-17 18:15

yngs版好久不见,多谢老大好东东:clap::clap::clap:

股市骑兵00 2005-8-17 22:17

yngs版主好久没见,原来在研究新式武器呢!!!
谢谢分享!!!

windvd 2005-8-18 15:52

非常感谢!!!!

touy 2005-8-18 22:34

yngs版主好久没见,
谢谢分享!!!

konghai 2005-8-21 15:01

楼主辛苦了,顶

hujun218 2005-8-23 22:55

向版主致敬!:cool:

彤彤爸 2005-8-27 16:54

谢谢,支持!!好东西

un8888un 2005-9-2 18:50

谢谢分享

清风斜阳 2005-9-2 21:10

第 2 楼:  

{指标名称:后知招财猫}


input: n(4,1,255),m(13,1,255);
drawgbk(c=c,colorrgb(90,90,90),colorrgb(0,0,0),1);
aa:=ref(h,n)=hhv(h,2*n+1);
aaa:=filter(aa,n);
bb:=backset(aaa,n+1);
cc1:=filter(bb,n);
cc:=cc1 or islastbar;
aa2:=ref(l,n)=llv(l,2*n+1);
aaa2:=filter(aa2,n);
bb2:=backset(aaa2,n+1);
cc22:=filter(bb2,n);
cc2:=cc22 and not(cc1);
ea:=backset(cc,ref(barslast(cc2),1)+1);
eb:=ea>ref(ea,1);
ee:=backset(eb,2);
ff1:=ee>ref(ee,1);
ee2:=backset(ff1 and count(cc,ref(barslast(cc2),1)+2)=0,ref(barslast(cc2),1)+2);
ff2:=ee2>ref(ee2,1);
ee3:=backset(ff2 and count(cc,ref(barslast(cc2),1)+2)=0,ref(barslast(cc2),1)+2);
ff3:=ee3>ref(ee3,1);
js:=if(cc,count(cc2,ref(barslast(cc),1)+1),0);
g1:=if(js=1 and cc,barslast(ff1),0);
ga:=if(cc and ref(l,barslast(ff1))>=ref(l,barslast(ff2)),barslast(ff2),barslast(ff1));
g2:=if(js=2 and cc,ga,0);
g3:=if(js>=3 and cc,if(cc and ref(l,ga)>=ref(l,barslast(ff3)),barslast(ff3),ga),0);
gg:=g1+g2+g3;
ja:=backset(cc,gg);
jb:=ja>ref(ja,1);
jj:=backset(jb,2);
ld:=jj>ref(jj,1);
ld1:=ld or islastbar;
hea:=backset(ld1,ref(barslast(cc),1)+1);
heb:=hea>ref(hea,1);
hee:=backset(heb,2);
hff1:=hee>ref(hee,1);
hee2:=backset(hff1 and count(ld1,ref(barslast(cc),1)+2)=0,ref(barslast(cc),1)+2);
hff2:=hee2>ref(hee2,1);
hee3:=backset(hff2 and count(ld1,ref(barslast(cc),1)+2)=0,ref(barslast(cc),1)+2);
hff3:=hee3>ref(hee3,1);
hjs:=if(ld1,count(cc1,ref(barslast(ld1),1)+1),0);
hg1:=if(hjs=1 and ld1,barslast(hff1),0);
hga:=if(ld1 and ref(h,barslast(hff1))<=ref(h,barslast(hff2)),barslast(hff2),barslast(hff1));
hg2:=if(hjs=2 and ld1,hga,0);
hg3:=if(hjs>=3 and ld1,if(ld1 and ref(h,hga)<=ref(h,barslast(hff3)),barslast(hff3),hga),0);
hgg:=hg1+hg2+hg3;
hja:=backset(ld1,hgg);
hjb:=hja>ref(hja,1);
hjj:=backset(hjb,2);
hd:=hjj>ref(hjj,1);
x1:=backset(islastbar,barslast(ld)+1);
x2:=x1>ref(x1,1);
y1:=backset(islastbar,barslast(hd)+1);
y2:=y1>ref(y1,1);
z1:=if(barslast(x2)<barslast(y2),x2,y2);
z2:=if(barslast(x2)<barslast(y2),l,h);
drawline(z1,z2,islastbar,c,0),pointdot,colorff9900;
uu:=backset(islastbar,barslast(ld)+1);
vv:=uu>ref(uu,1);
ww:=backset(vv,ref(barslast(ld),1)+2);
xx:=ww>ref(ww,1);
drawline(xx,l,vv,l,1),pointdot,colorffff;
uu2:=backset(islastbar,barslast(hd)+1);
vv2:=uu2>ref(uu2,1);
ww2:=backset(vv2,ref(barslast(hd),1)+2);
xx2:=ww2>ref(ww2,1);
drawline(xx2,h,vv2,h,1),pointdot,colorffff;
drawicon(hd and xx2,h*1.002,12);
drawicon(ld and xx,l*1.002,10);
高1:ref(h,barslast(vv2)),pointdot,color99ff66;
高2:ref(h,barslast(xx2)),pointdot,colorff66ff;
低1:ref(l,barslast(vv)),pointdot,color99ff66;
低2:ref(l,barslast(xx)),pointdot,colorff66ff;
ok:=ema(o,60);
cg:=ema(c,60);
pdu:=if(ok>ref(ok,1) and cg>ref(cg,1),1,0);
pdd:=if(ok<ref(ok,1) and cg<ref(cg,1),1,0);
pdm:=if(pdu=0 and pdu=0,1,0);
z1:=ma(c,m);
zx:=ref(z1,m/2+1);
life:=(ema(c,60)+ema(c,90))/2;
var1:=(2*c+h+l)/4;
snook:=ema(var1,99)*0.91;
a1:=(c-ref(c,1))/ref(c,1)*100;
ma5:=barslast(a1>3);
ma20:=if(ma5>0,1,0);
stickline(c>zx,h,l,1,0),colorffff;
stickline(c>zx and c>=life,o,c,8,0),colorff;
stickline(c>zx and c<=snook,o,c,8,0),colorff00;
stickline(c>zx and c>snook and c<life,o,c,8,0),colorff0000;
stickline(c>zx and ma20=0,o,c,8,0),colorffff;
stickline(c>zx,o,c,2,0),colorffffff;
drawicon(cross(c,zx),l*0.99,4);
drawicon(cross(zx,c),h*1.01,5);
by20:=ma(c,5);
by21:=ma(c,20);
by22:=if(by20>by21,by21,by20);
招财猫:by21,colorffff;
鼠变异:by22,color808080;
partline(鼠变异>ref(鼠变异,1) and 鼠变异=by21,鼠变异),Linethick2,colorff66ff;
partline(鼠变异>ref(鼠变异,1) and 鼠变异=by21 and pdu=1,鼠变异),Linethick2,colorff;
partline(鼠变异>ref(鼠变异,1) and 鼠变异<>by21,鼠变异),colorff00;
explain(c>zx and c>=life,'老鼠出洞了,逮住它!'),colorff;
explain(c>zx and c>snook and c<life,'老鼠玩猫猫,守着它!'),colorff0000;
explain(c>zx and c<=snook,'老鼠露尾巴,动作快!'),colorff00;
explain(c<=zx,'老鼠没有了,打个盹!'),color808080;
explain(鼠变异>ref(鼠变异,1) and 鼠变异<>by21,'发现鼠迹!'),colorff00;
explain(鼠变异>ref(鼠变异,1) and 鼠变异=by21 and pdu<>1,'瞬间鼠影!'),colorff66ff;
explain(鼠变异>ref(鼠变异,1) and 鼠变异=by21 and pdu=1,'恶鼠难遁!'),colorff;
explain(c>zx and ma20=0,'老鼠去哪里,思考哦!'),colorffff;
第 3 楼:  

{G系统盈利分析}

input: k(4,1,9);
drawgbk(c=c,colorrgb(30,30,30),colorrgb(130,130,130),1);
a1:=ma(c,13);
zx:=ref(a1,13/2+1);
b1:=cross(c,zx);
s1:=cross(zx,c);
drawicon(cross(c,zx),1,12);
drawicon(c>zx and ref(c,1)>ref(zx,1),1,10);
drawicon(c<zx and ref(c,1)>ref(zx,1),1,11);
sxf:=k/1000;
d1:=900101;
lb:=ref(barslast(b1),1)+1;
ls:=ref(barslast(s1),1)+1;
bj1:=ref(c,barslast(b1));
syl:=if(s1 and ls>lb,(c/(1+sxf)-bj1*(1+sxf))/bj1*(1+sxf)*100,0);
收益率:syl,linethick0;
rq1:=barscount(c);
rq2:=barssince(date>=d1)+1;
zsyl:=sum(syl,min(rq1,rq2));
总收益率:zsyl,linethick0;
jycs:=sum(if(syl=0,0,1),min(rq1,rq2));
交易次数:jycs,linethick0;
成功率:sum(if(syl>0,1,0),min(rq1,rq2))/jycs*100,linethick0;
第 4 楼:  

{D市场热点分析}

explain(c>0,'──【个股评估分析】───');
qs:=zig(3,19);
ss:=hhvbars(ref(qs,1)<ref(qs,2),0);
explain(ss=1 or cross(zig(3,19),ref(zig(3,19),1)),'操作时段分析:操作盲区'),colorffff;
explain(ss>=2 and ss<20 and ref(qs,1)<qs,'操作时段分析:短线投机'),colorff;
explain(ss>=20 and ss<88 and ref(qs,1)<qs,'操作时段分析:中线波段'),colorff33ff;
explain(ss>=88 and ref(qs,1)<qs,'操作时段分析:长线投资'),color66ff;
xd:=hhvbars(qs>ref(qs,1),0);
explain(xd=2 or xd=1,'操作时段分析:操作盲区'),colorffff;
explain(xd>=3 and xd<21 and ref(qs,1)>qs,'操作时段分析:短期回调'),colorffff;
explain(xd>=21 and xd<89 and ref(qs,1)>qs,'操作时段分析:中期杀跌'),colorffff00;
explain(xd>=89 and ref(qs,1)>qs,'操作时段分析:长期盘跌'),colorff00;
life:=(ema(c,60)+ema(c,90))/2;
var1:=(2*c+h+l)/4;
snook:=ema(var1,99)*0.91;
explain(c>life,'操作区域分析:多头区域'),color3300ff;
explain(c<=life and c>=snook,'操作区域分析:盘整区域'),colorff0066;
explain(c<snook,'操作区域分析:空头区域'),color99ff33;
tc:=if(cross(ref(zig(3,19),1),zig(3,19)),1,0);
explain(cross(zig(3,19),ref(zig(3,19),1)),'价格拐点分析:相对底部'),colorffff;
explainex(ss>0 and tc<>1 and ss<>2 and ss<>4 and ss<>7 and ss<>12 and ss<>20 and ss<>33 and ss<>54 and ss<>88 and ss<>143 and ss<>232,'时间拐点分析:上涨天数 ',ss+1,0,0),colorccffff;
explainex(ss=2,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=4,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=7,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=12,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=20,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=33,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=54,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=88,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explainex(ss=143,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff;
explainex(ss=232,'时间拐点分析:时间之窗 ',ss+1,0,0),colorff00;
explain(cross(ref(zig(3,19),1),zig(3,19)),'价格拐点分析:相对顶部'),colorffff;
explainex(xd>0 and tc<>1 and xd<>3 and xd<>5 and xd<>8 and xd<>13 and xd<>21 and xd<>34 and xd<>55 and xd<>89 and xd<>144 and xd<>233,'时间拐点分析:下跌天数 ',xd,0,0),colorccffff;
explainex(xd=3,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=5,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=8,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=13,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=21,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=34,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=55,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=89,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
explainex(xd=144,'时间拐点分析:时间之窗 ',xd,0,0),colorff;
explainex(xd=233,'时间拐点分析:时间之窗 ',xd,0,0),colorff00;
白色:=sma(h,21,2)*1.05;
黄色:=sma(l,21,2)*0.95;
粉色:=sma(l,5,1);
绿色:=sma(c,2,1);
explain(绿色>白色,'热点持续区域:辨别黑马'),colorffff;
hsl:=v/capital*100;
explain(hsl<1,'个股活跃分析:绝对地量'),color33ffcc;
explain(hsl>=1 and hsl<2,'个股活跃分析:成交低靡'),color33ffcc;
explain(hsl>=2 and hsl<3,'个股活跃分析:成交温和'),color33ffcc;
explain(hsl>=3 and hsl<5,'个股活跃分析:成交活跃'),color33ffcc;
explain(hsl>=5 and hsl<8,'个股活跃分析:成交带量'),color33ffcc;
explain(hsl>=8 and hsl<15,'个股活跃分析:成交放量'),color33ffcc;
explain(hsl>=15 and hsl<25,'个股活跃分析:成交巨量'),color33ffcc;
explain(hsl>25,'个股活跃分析:成交怪异');
zslife:=(ema(indexc,60)+ema(indexc,90))/2;
zsbl:=indexc/zslife;
gglife:=(ema(c,60)+ema(c,90))/2;
zstb:=zsbl*gglife;
explainex(zstb<c,'强于大盘系数%:',(c-zstb)/zstb*100,2,0),colorff;
explainex(zstb>=c,'弱于大盘系数%:',abs(c-zstb)/zstb*100,2,0),colorffff00;
explainex(c>0,'历史价位系数%:',(c-llv(l,0))/(hhv(h,0)-llv(l,0))*100,2,0),color33cc99;
rsv:=(c-llv(l,15))/(hhv(h,15)-llv(l,15))*100;
kk:=sma(rsv,10,1);
dd:=sma(kk,5,1);
zlcm:=intpart(sma(rsv,10,1));
shcm:=intpart(sma(kk,5,1));
explainex(zlcm+shcm>50 and zlcm+shcm<160,'精确风险系数%:',zlcm+shcm,2,0),color6699cc;
explainex(zlcm+shcm<=50 or zlcm+shcm>=160,'精确风险系数%:',-(zlcm+shcm),2,0),color6699cc;
aa13:=ema(winner(c)*70,3);
bb13:=ema((winner(c*1.1)-winner(c*0.9))*80,3);
explainex(aa13>bb13,'主力控盘系数%:',aa13/(aa13+bb13)*100,2,0),colorff;
explainex(aa13<bb13,'散户套牢系数%:',bb13/(aa13+bb13)*100,2,0),colorff00;
hot:=ma(c,13);
glv:=atan(hot-ref(hot,1))*3.142*100;
explainex(glv>0,'股价倾斜系数%:',glv,2,0),colorff6666;
bs:=ema(c,21)-1+ema(v,5)/ema(v,40);
hs:=(bs-life)/life*100;
explainex(c>0,'高潮乖离系数%:',hs,2,0),colorffffcc;
drawgbk(c=c,colorrgb(30,30,30),colorrgb(130,130,130),1);
fs:=sma(h,21,2)*1.05;
ls:=sma(l,21,2)*0.95;
bd:=sma(l,5,1);
rd:=sma(c,2,1);
eb:=if(cross(rd,bd),fs*1.05,bd);
ee:=if(cross(rd,fs),fs*1.1,ls);
drawicon(rd=rd,rd,11);
屏颈:fs,linedot,colorffffff;
fillrgn(eb>bd,bd,eb),colorcccc;
蓄势:bd,colorff00ff;
前兆:eb,linethick0,colorff;
fillrgn(ee>ls,ls,ee),colorff;
底线:ls,linedot,colorffff;
热点:ee,linethick0,colorffff00;

zxh5110 2005-9-3 23:56

非常感谢!!!!

zhd598 2005-9-25 10:38

谢谢,好用

股海浪子 2005-9-28 09:20

非常感谢!!!!

花差 2005-9-29 20:57

谢谢分享

大炼钢铁 2005-10-1 10:36

学习

hps28 2005-10-1 21:34

佩服!佩服!

阿强 2005-10-28 19:48

非常感谢!!!!

shuy 2005-10-29 21:24

谢谢分享!!!

wsmrzw 2005-12-18 20:38

多谢,不用也顶。

火龙真人 2006-1-5 20:25

挺好玩儿的,谢谢 !!

xujie 2006-1-6 16:34

ok!

长牛王 2006-1-8 17:40

多谢,不用也顶。

zbj66 2006-2-3 15:09

辛苦了,顶

tzwxlj1 2006-7-5 16:30

谢谢分享!!!

yzty 2006-9-7 08:18

谢谢提供,支持一下!!!!!!!!!!!

sunwp25 2006-9-7 10:57

谢谢 !!

oyb 2006-9-16 23:47

:clap::clap::clap::clap::clap::clap::clap:

372100 2006-9-20 22:40

OK!

sxsy 2006-10-15 16:35

谢谢!
页: [1]
查看完整版本: 泡哥交易系统之后知招财猫&D市场热点分析&G系统盈利分析源码