这是根据楼主作的MACD和MAM指标，在日线和月线的的表现。
工式原码
MAMA2:=AMOUNT/VOL/100;
jj5 :EMA(a2,5);
jj10:EMA(a2,10);
jj20:EMA(a2,20);
jj40:EMA(a2,40);
jj125:EMA(a2,125);
jj250:EMA(a2,250);
a3:="macd.牛股#month"="macd.macd#month";
a4:=intpart((date-intpart(date*0.0001)*10000)*0.01);//本月月份;
a6:=IF(month=a4 and a3=1,COUNT(a3,day),0);
D:=BACKSET(ISLASTBAR,BARSLAST(a3)+1);
e:=d>ref(d,1);
F:=BACKSET(E,a6);
G:=F>REF(F,1);
a8:="AMOUNT#month"/"vol#month"/100;
STICKLINE(a3,o,c,2,0),COLORYELLOW;
if DATATYPE<8 then
begin
DRAWLINE(G,a8,E,a8,0),pointdot,linethick1,SHIFT1,COLORCYAN;
end;
DRAWNUMBER(e,a8,a8,2),SHIFT1,COLORYELLOW;
a9 :="macd.macd#month";
a10:="macd.macd#day";
a11:=ref("macd.macd#month",1);
a12:=c<=jj10 and c>=jj40 and a9>0 and a9>a11 and jj10>jj20 and jj20>jj40;
if DATATYPE=6 or DATATYPE=7 then DRAWICON(a12,0.95*jj10,1),SHIFT1,COLORYELLOW;
MACD：
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA: EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;
if DATATYPE=8 or DATATYPE=10 then
begin
macd1:=ref(macd,1);
macd2:=ref(macd,2);
diff1:=ref(diff,1);
牛股:if(macd2>macd1 and macd>macd1 and macd>0 and macd1>0 and macd>0 and diff>0 and diff1>0,macd,0),COLORSTICK;
DRAWICON(牛股=macd,0,1);
end;
MAM公式我作了一些改动。主要的想法是只要这是股票是上涨的，本月的MACD大于上月的MACD。并根据主楼所讲的日线的MACD不一定大于0，大胆推断，日线的收盘价不一定大于JJ3。
[ Last edited by lon1967 on 2004-2-24 at 21:32 ] 你好，glpjy老师！
我继续跟踪学习。 ？？？ 600768
大侠，我的选股为什么多一个呢？是你手工去掉的吗？
大侠，我的选股为什么多一个呢？是你手工去掉的吗？ 向glpjy大侠学习. 请继续，在学习，谢谢 先学习了再顶！， 把周期放在月线上，看MACD的值是不是“+”的，如果是“+”的，那说明这个股票是现在正在走上升通道的股票，你可以用分析家软件编一个指标，再用指标排序把所有的现在正在走上升通道的股票找出来然后你把周期放在日线上，看MACD的值是不是“+”的，如果是“+”的，那就把这个股票选出来，你可以用分析家软件编一个指标，再用指标排序在OK板块中再进行一次排序
在可以打开你的OK板块，再用分析家软件编一个指标，将股价在jj3以下的股票删除，这就是要关注的股票。注：（jj3是我前面的贴中第一个公式中的jj3，即20日评价价）
本人对公式很菜的，上面说的公式我不会，伤脑筋。那位大侠帮助一下教我了，我停留在启步阶段呢。
[ Last edited by 风大哥 on 2004-2-24 at 23:08 ]
我选的是这几个,不知错在哪了,请指教
1 '600104' 上海汽车2 '600307' 酒钢宏兴
3 '600499' 科达机电
4 '600717' 天 津 港
5 '600768' 宁波富邦
6 '600887' 伊利股份
7 '600898' 三联商社
8 '000625' 长安汽车
9 '000652' 泰达股份
10 '000927' *ST 夏利
11 '000951' *ST 重汽
12 '000956' 中原油气
lon1967老师,你公式中的:
beginDRAWLINE(G,a8,E,a8,0),pointdot,linethick1,SHIFT1,COLORCYAN;
end;
DRAWNUMBER(e,a8,a8,2),SHIFT1,COLORYELLOW;
这两句是什么含义,分析家不认SHIFT1,说末定义是什么问题?
D:=BACKSET(ISLASTBAR,BARSLAST(a3)+1);句中的"ISLASTBAR"是什么?分析家不认
请指教 请继续，在学习，谢谢 好，我同意该贴置顶。并列为精化贴。 继续跟踪，继续学习！！
终于找到了！！！
glpjy大侠：您好！几天前在其它网站上首次拜读到你的文章，直觉是：简捷、实用。为了能深入学习、研究，几天来我四处寻找，感谢菩萨，总算让我找到了，甚喜！
旧帖26页、新帖两页——一遍下来，几个小时过去了。当然，几个小时要想完全掌握你十年的心血付出，的确不现实。尽管如此，自觉收获还是不小。
你的“秘诀2”之形态（我称之为“弯弓射雕”），以前我只是用在日线，没有想到其在月线上的表现会是如此之好，感谢你的无私奉献！
我用的是指南针软件，今晚连夜将你的思想输入指南针，不过只选出了一只股票：三联商社！不知是软件的差异造成的还是自己理解有偏差？ 2 Originally posted by sindimissyou at 2004-2-24 11:56 PM:
begin
DRAWLINE(G,a8,E,a8,0),pointdot,linethick1,SHIFT1,COLORCYAN;
end;
DRAWNUMBER(e,a8,a8,2),SHIFT1,COLORYELLOW;
这两句是什么含义,分析家不认SHIFT1,说末定义是什么问题?
D:=BACKSET(ISLAS ...
这只是画线的语句。不要也行的。只是为了好看。我买了飞狐以后，分析家公式系统太久不用了，
MAM只是个初步，滤掉的信号太多。还要作进一步改进。希望大家指出其中的错 误。 lon1967大侠：
在你的密诀1公式中,iif,表示什么意思,请指点。谢谢！
密诀1：
M_macd :="MACD.macd#month";
macd :"MACD.macd", COLORSTICK;
DIFF:"MACD.DIFF";
DEA:"MACD.DEA";
a:=AMOUNT/v/100;
jj:=ema(a,10);
jj3:=ema(a,20);
A1:=iif(M_macd>0 and macd>0,1,0);
A2:=iiF(C>=jj3 and C<=JJ,1,0);
可以买:iif(a1=1 and A2=1,1,0), COLORSTICK;
DRAWICON(可以买=1,0,1); 这个语句，没能把楼主的真真的意思体现出来。请大家帮改改。
a12:=c<=jj10 and c>=jj40 and a9>0 and a9>a11 and jj10>jj20 and jj20>jj40;