我的炒股心法

lon1967

lon1967

MAM

A2  :=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 ]

lze

你好，glpjy老师！
       我继续跟踪学习。

东家

？？？

glpjy

600768

xen

大侠，我的选股为什么多一个呢？是你手工去掉的吗？

dxg13579

向glpjy大侠学习.

kkkddd

请继续，在学习，谢谢

hardstone

先学习了再顶！，

风大哥

把周期放在月线上，看MACD的值是不是“+”的，如果是“+”的，那说明这个股票是现在正在走上升通道的股票，你可以用分析家软件编一个指标，再用指标排序把所有的现在正在走上升通道的股票找出来


然后你把周期放在日线上，看MACD的值是不是“+”的，如果是“+”的，那就把这个股票选出来，你可以用分析家软件编一个指标，再用指标排序在OK板块中再进行一次排序


在可以打开你的OK板块，再用分析家软件编一个指标，将股价在jj3以下的股票删除，这就是要关注的股票。注：（jj3是我前面的贴中第一个公式中的jj3，即20日评价价）

本人对公式很菜的，上面说的公式我不会，伤脑筋。那位大侠帮助一下教我了，我停留在启步阶段呢。

[ Last edited by 风大哥 on 2004-2-24 at 23:08 ]

sindimissyou

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'        中原油气

sindimissyou

begin
  DRAWLINE(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"是什么?分析家不认
请指教

cck600308

请继续，在学习，谢谢

乐悠悠

好，我同意该贴置顶。并列为精化贴。

charles_501

继续跟踪，继续学习！！

晋阳春

glpjy大侠：您好！

几天前在其它网站上首次拜读到你的文章，直觉是：简捷、实用。为了能深入学习、研究，几天来我四处寻找，感谢菩萨，总算让我找到了，甚喜！
旧帖26页、新帖两页——一遍下来，几个小时过去了。当然，几个小时要想完全掌握你十年的心血付出，的确不现实。尽管如此，自觉收获还是不小。
你的“秘诀2”之形态（我称之为“弯弓射雕”），以前我只是用在日线，没有想到其在月线上的表现会是如此之好，感谢你的无私奉献！
我用的是指南针软件，今晚连夜将你的思想输入指南针，不过只选出了一只股票：三联商社！不知是软件的差异造成的还是自己理解有偏差？

晋阳春

2

lon1967

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只是个初步，滤掉的信号太多。还要作进一步改进。希望大家指出其中的错　误。

wxcv108

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);

lon1967

这个语句，没能把楼主的真真的意思体现出来。请大家帮改改。
a12:=c<=jj10 and c>=jj40 and a9>0 and a9>a11 and jj10>jj20 and jj20>jj40;