股民大家庭

标题: [飞狐] 某著名炒股大师的杰作 [打印本页]

作者: gpdjtbbwy 时间: 2007-12-11 14:29
标题: [飞狐] 某著名炒股大师的杰作
————————主图源码——————————————
{n=10,150 cx=1,1,2}

input:n(10,10,10),cx(2,1,2);

s1:=if(stktype=0 or stktype=7,0.999,0.98);
s2:=if(stktype=0 or stktype=7,1.001,1.02);

ma06:ma(c,6),precision2,color00ffff,linedot;
ma18:ma(c,18),precision2,coloreeeeee,linedot;
partline(ma06>=ref(ma06,1) and cx=1,ma06),color0000cc,linethick2;
partline(ma06<ref(ma06,1) and cx=1,ma06),color009900,linethick2;
partline(ma18>=ref(ma18,1) and cx=2,ma18),color0000cc,linethick2;

partline(ma18<ref(ma18,1) and cx=2,ma18),color009900,linethick2;
bza06:=barslast(c<ma06);
bzb06:=barslast(ma06<ref(ma06,1));
bza18:=barslast(c<ma18);
bzb18:=barslast(ma18<ref(ma18,1));
bda06:=barslast(c>ma06);
bdb06:=barslast(ma06>ref(ma06,1));
bda18:=barslast(c>ma18);
bdb18:=barslast(ma18>ref(ma18,1));

v06:ma(vol,6),linethick0,precision0,color6666cc;
v36:ma(vol,36),linethick0,precision0,colorffcc00;
vvol:v,linethick0,precision0,colorff00ff;
a1:=ref(c,n)=hhv(c,2*n+1); b1:=filter(a1,n); c1:=backset(b1,n+1); hd:=filter(c1,n);
a2:=ref(c,n)=llv(c,2*n+1); b2:=filter(a2,n); c2:=backset(b2,n+1); ld:=filter(c2,n);
a:=ref(c,barslast(hd)); b:=ref(c,barslast(ld));
t1:=barslast(hd)<barslast(ld) and not(hd) ;
t2:=barslast(hd)>barslast(ld) and not(ld);
partline(t1,a),colorcc6600,linethick2;
partline(t2,b),colordddddd,linethick2;
drawnumber(t1=0 and ref(t1,1)>0 or islastbar and t1>0,ref(a,1),ref(a,1),2),colorcc6600;
drawnumber(t2=0 and ref(t2,1)>0 or islastbar and t2>0,ref(b,1),ref(b,1),2),colordddddd;
partline(t1,a*0.9),colorcc6600,linethick1;
drawnumber(t1=0 and ref(t1,1)>0 or islastbar and t1>0,ref(a*0.9,1),ref(a*0.9,1),2),colorcc6600;
partline(t2,b*1.1),colordddddd,linethick1;
drawnumber(t2=0 and ref(t2,1)>0 or islastbar and t2>0,ref(b*1.1,1),ref(b*1.1,1),2),colorcdddddd;

drawtext(bza06>=2 and bzb06=1 and v06>v36 and cx=1,ma06*s1,'买入'),color0000cc;
drawtext(bda06>=2 and bdb06=1 and cx=1,ma06*s2,'卖出'),color009900;
drawtext(bza18>=2 and bzb18=1 and v06>v36 and cx=2,ma18*s1,'买入'),color0000cc;
drawtext(bda18>=2 and bdb18=1 and cx=2,ma18*s2,'卖出'),color009900;

tj:=close>open or close=open and close>ref(close,1);
stickline(tj and c>ma18,high,low,0.1,0),colorred;
stickline(tj and c>ma18,close,open,7,0),colorred;
stickline(not(tj) and c>ma18,high,low,0.1,0),colorcyan;
stickline(not(tj) and c>ma18,close,open,7,0),colorcyan;
stickline(tj and c<ma18,high,low,0.1,0),colorred;
stickline(tj and c<ma18,close,open,7,1),colorred;
stickline(not(tj) and c<ma18,high,low,0.1,0),colorcyan;
stickline(not(tj) and c<ma18,close,open,7,1),colorcyan;

——————————————附图源码————————————

{参数 long=26 short=12 m=9}

input:long(26,26,26),short(12,12,12),m(9,9,9);

obv:=ma(sum(if(close>ref(close,1),vol,if(close<ref(close,1),-vol,0)),0)/25000,1);
diff : ema(obv,short) - ema(obv,long);
bbdiff:=diff-ref(diff,1);
dea : ema(diff,m);
bbdea:=dea-ref(dea,1);
macd : 2*(diff-dea), colorstick;
柱: 2*(diff-dea),linedot;
bb柱:=柱-ref(柱,1);
partline(bbdiff>0,diff),colorcc00ff,linethick2;
partline(bbdiff<=0,diff),colorff9999,linethick2;
partline(bbdea>0,dea),color0066ff,linethick2;
partline(bbdea<=0,dea),color00ff33,linethick2;
partline(bb柱>0,柱),colorcc00ff,linethick1;
partline(bb柱<=0,柱),colorff9999,linethick1;
diff速率:bbdiff*100,linethick0;
dea速率:bbdea*100,linethick0;
柱速率:bb柱*100,linethick0;

作者: brendel 时间: 2008-8-19 02:00
楼猪哦，我的可爱小楼主，太爱你了。

作者: werry 时间: 2008-9-6 02:00
看完楼主的这个帖子之后，我竟产生出一种无以名之的悲痛感——啊，这么好的帖子，如果将来我再也看不到了，那我该怎么办？那我该怎么办？直到我毫不犹豫地把楼主的这个帖子收藏了，我内心的那种激动才逐渐平静下来。

欢迎光临股民大家庭 (https://gupiao168.com/)