又有活干了，先做买的选股：
买:=EMA(CLOSE,5;
A:=(REF(买,1));
卖:=EMA(SLOPE(CLOSE,21;
CROSS(买,卖);
信号不是很准----------
加我为老友啦!

xsgs_22045.gif (12.07 KB)

2008-1-4 20:27

再来一个加仓选股：

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
G:=95;
CROSS(J,D);
搞惦收工了!

xsgs_22045.gif (12.07 KB)

2008-1-4 20:30

引用:

原帖由 估界文 于 2008-1-4 20:27 发表
又有活干了，先做买的选股：
买:=EMA(CLOSE,5;
A:=(REF(买,1));
卖:=EMA(SLOPE(CLOSE,21;
CROSS(买,卖);
信号不是很准----------
加我为老友啦!
1346642

不错功力果然到家. 买点确实有点不好.

引用:

原帖由 股民—甲乙 于 2008-1-4 20:32 发表

不错功力果然到家. 买点确实有点不好.

加我为老友啦!加我为老友啦!

引用:

原帖由 估界文 于 2008-1-4 20:35 发表

加我为老友啦!加我为老友啦!

不好意思我没有QQ.我在论坛加你为老友.

为人民服务，支持楼主。

引用:

原帖由 刘一搜 于 2008-1-4 21:08 发表
为人民服务，支持楼主。

偶水平不成，献丑了!

请楼主改一下这个公式的选股公式，最好能在出现“全仓买”，“追涨”，“加仓”等信号时分别选股，谢谢！
生命线:ema(c,24),color00ff00,linethick2
A:=ref(生命线,24);
mtm:=close-ref(close,1);
dx:=100*ema(ema(mtm,6),6)/ema(ema(abs(mtm),6),6);
dy:=hhv(dx,2)=hhv(dx,7) and count(dx>50,2) and cross(ma(dx,2),dx);
lc:=ref(close,1);
rsi:=sma(max(close-lc,0),6,1)/sma(abs(close-lc),6,1)*100;
多头线:EMA(C,1),COLORYELLOW;
空头线:EMA(C,5),COLOR00FF00;
均衡线:EMA(空头线,5),COLORWHITE,;
varF1:=COUNT(CROSS(多头线,均衡线),2)=1;
varF2:=COUNT(CROSS(空头线,均衡线),2)=1;
ZAI:=FILTER(varF1 AND varF2,2);
DRAWTEXT(ZAI,均衡线*0.98,' 主升行情'),color00ff00;
stickline(生命线>=A,high,low,0,0),colorff00ff;
stickline(生命线>=A,open,close,4,0),colorff00ff;
stickline(cross(生命线,A),high,low,0,0),colorred;
stickline(cross(生命线,A),open,close,4,0),colorred;
drawtext(cross(生命线,A),low*0.98,'▲'),colorred;
drawtext(cross(生命线,A),low*0.975,'∣'),colorred;
drawtext(cross(生命线,A),low*0.975,'‖'),colorred;
drawtext(cross(生命线,A),low*0.97,'∣'),colorred;
drawtext(cross(生命线,A),low*0.97,'‖'),colorred;
drawtext(cross(生命线,A),low*0.965,'∣'),colorred;
drawtext(cross(生命线,A),low*0.965,'‖'),colorred;
stickline(生命线<A,high,low,0,0),colorcccccc;
stickline(生命线<A,open,close,4,0),colorcccccc;
stickline(cross(A,生命线),high,low,0,0),color00ff00;
stickline(cross(A,生命线),open,close,4,0),color00ff00;
drawtext(cross(A,生命线),high*1.02,'▼'),color00ff00;
drawtext(cross(A,生命线),high*1.025,'∣'),color00ff00;
drawtext(cross(A,生命线),high*1.025,'‖'),color00ff00;
drawtext(cross(A,生命线),high*1.03,'∣'),color00ff00;
drawtext(cross(A,生命线),high*1.03,'‖'),color00ff00;
drawtext(cross(A,生命线),high*1.035,'∣'),color00ff00;
drawtext(cross(A,生命线),high*1.035,'‖'),color00ff00;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8);DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),9);
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.984),'B '),color4440FF;DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.035),'S '),colorFFFF34;
年:MA(CLOSE,26),COLORRED,LINETHICK2;STICKLINE(C>=年 AND C>=O,C,O,7,0),COLORRED;STICKLINE(C>=年 AND C>=O,H,L,0,0),COLORRED;
dp:=if(c=INDEXC,0,1);gj:=AMOUNT/v/100;
上线:=sma(c,6.5,1);
下线:=sma(c,13.5,1);
上线1:=sma(c,3,1);
下线1:=sma(c,8,1);
STICKLINE(上线>下线 , 上线,下线 ,2.5, 0),colorred,linethick2;
stickline(下线>上线,上线,下线,2.5,0),coloryellow,linethick2;
DRAWTEXT( cross(上线,下线),low *0.98,'▲全仓买' ),color00ff00;
drawtext(cross(下线1,上线1),h*1.02,'▼清仓'),coloryellow;
减仓:=filter(cross(80,rsi) or dy,5),colorblue;
drawtext(减仓 and 生命线>A,high*1.03,'○'),colorblue;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(if(CLOSE<D and VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW*0.98,'▲抄底'),coloryellow;
VA1:=EMA(c,8);
VA2:=EMA(c,28);
DRAWTEXT(CROSS(VA2,VA1),VA1*1.10,'●全仓卖'),COLORYELLOW;
x1:=(3*C+H+L+O)/6;
x2:=EMA(x1,10);
x3:=REF(x2,1);
XL4:=SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1);
DRAWTEXT(IF(CROSS(3*XL4-2*SMA(XL4,3,1),8),87,0) and x2>x3,l-0.1,'●反弹'),COLORGREEN;
DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26)-EMA(EMA((CLOSE*2+HIGH+LOW)/
4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26),2))*5.8,0.47),LOW,0) and x2>x3,l-0.4,'●加仓'),ColorFF5ED8;{80}
DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26)-EMA(EMA((CLOSE*2+HIGH+LOW)/
4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26),2))*5.8,0.47),LOW,0) and x2>x3,l-0.4,'●加仓'),ColorFF5ED8;{80}
V1:=EMA(CLOSE,5),COLORYELLOW;
V2:=EMA(EMA(CLOSE,29)*1.01,10),COLORFFCC66;
DRAWICON(CROSS(V1,V2),V2,1);
V3:=EMA(CLOSE,10),COLORFF00FF;
V4:=EMA(EMA(CLOSE,60)*0.99,10),COLOR0099FF;
DRAWICON(CROSS(V3,V4),V4,1);
Var34:=(INDEXC-REF(INDEXC, 1))/REF(INDEXC, 1);
Var35:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1);
Var36:=IF(Var34>0.010, 0.900, 1) AND IF(Var34>(-0.025), 1, 1.200);
Var37:=Var36*(Var35-Var34)*100;
Var38:=SUM(Var37, 10);
Var310:=Var38>20;
Var326:=IF(CLOSE and MA(VOL, 5)/240 AND CLOSE>REF(CLOSE, 1)*1.0 AND CLOSE,88,0);
Var327:=IF(CLOSE/REF(CLOSE, 1)>1.050 AND VOL/CAPITAL*100<10 AND CLOSE<17 AND HIGH/CLOSE<1.010 AND Var326>0, 91, 0);
DRAWICON(Var310>0 AND Var327=0,HIGH*1.01,5);
STICKLINE(Var327>90,LOW*0.99,LOW*0.95,2,0),COLORYELLOW;
STICKLINE(C<=O,C,O,3,0),COLORFF2020;
DRAWTEXT(VAR327>90,LOW*0.95,'追涨'),COLORYELLOW;

MA5:MA(C,7),COLORWHITE;
MA20:MA(C,20),COLORFF00FF;
MA90:MA(C,90),COLORFFCC66;
Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20;
Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90));
Y3:=Y2 AND CROSS(MA20,MA90);
DRAWICON(Y3,L-0.10,1),ALIGN1;{双跨越信号显示1号图标红脸，居中}
DRAWTEXT(Y3,L-0.40,'双跨越'),COLORWHITE,ALIGN1;{显示双跨越文字，居中}
F0:=BARSLAST(CROSS(MA(C,5),MA(C,90)));
F1:=F0 AND BARSLAST(CROSS(MA(C,20),MA(C,90)));
F2:=F1 AND CROSS(MA(C,5),MA(C,20)) AND MA(C,20)>MA(C,90);
DRAWICON(F2,L-0.10,1),ALIGN1;{双跨越信号显示1号图标红脸，居中}
DRAWTEXT(F2,L-0.40,'双蹄奋起'),COLORFF00FF,ALIGN1;{显示双蹄奋起文字，
居中}

麻烦楼主改为选股公式,谢谢!

MA5:=MA(CLOSE,5),COLORYELLOW;
MA10:=MA(CLOSE,10),COLORBROWN;
VOL5:=MA(VOL,5),COLORLIBLUE;
VOL10:=MA(VOL,10),COLORLIRED;
条件1:=CROSS(MA5,MA10);
条件2:=CROSS(VOL5,VOL10);
条件3:=CROSS(MACD.DIF,MACD.DEA);
TIAOJIAN1:=COUNT(条件1,10)>0,COLORRED;
TIAOJIAN2:=COUNT(条件2,10)>0,COLORRED;
TIAOJIAN3:=COUNT(条件3,10)>0,COLORRED;
买入:TIAOJIAN1 AND TIAOJIAN2 AND TIAOJIAN3;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*1.04,1) ;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK4;
DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK4;

引用:

原帖由 许三观 于 2008-1-4 21:25 发表
请楼主改一下这个公式的选股公式，最好能在出现“全仓买”，“追涨”，“加仓”等信号时分别选股，谢谢！
生命线:ema(c,24),color00ff00,linethick2
A:=ref(生命线,24);
mtm:=close-ref(close,1);
dx:=100*ema(e ...

偶发现有几个地方有错误，又是大智慧的!!请源码再传一次!!

最好在发公式让搂主改的同时，将公式的图顺便也发上附载公式后面，最好了

引用:

原帖由 精品混混 于 2008-1-4 21:27 发表
MA5:MA(C,7),COLORWHITE;
MA20:MA(C,20),COLORFF00FF;
MA90:MA(C,90),COLORFFCC66;
Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20;
Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90));
Y3:=Y2 AND CROSS(MA20,MA90);
...

又不是通达信的，选股还可以!
双跨越选股：
MA5:=MA(C,7);
MA20:=MA(C,20);
MA90:=MA(C,90);
Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20;
Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90));
Y2 AND CROSS(MA20,MA90);
信号还可以!

yg.jpg (36.64 KB)

2008-1-4 22:49

[ 本帖最后由 估界文 于 2008-1-6 23:13 编辑 ]

引用:

原帖由 汤姆999 于 2008-1-4 22:41 发表
最好在发公式让搂主改的同时，将公式的图顺便也发上附载公式后面，最好了

很好!同意申报!!

老师能给写一个选股公式吗？
要求：当天收盘价位于60日均线之上，且MACD上穿0轴。
先谢谢了！  飞狐或通达信能用就成。