时价
Originally posted by cwy at 2005-3-17 13:03
网上流传的几种宝塔线指标均不是很正确,可能还得重新改写,如能成功,再发源码,请MACD的朋友共同探讨,请看图, 谢谢！
http://bbs.macd.cn/attachments/month_0503/cwya_y1xAdVhO7l1H.jpg
Originally posted by cwy at 2005-3-17 19:32
请看举例：
如果某一支股票产生如下走势,三连阳后,第四天下跌 ,但未跌破第二天的 收盘价,所以仍画阳宝塔线。以后N天内,每天都略微上涨,应该都是画阳宝塔线。
正确的画线应该是,从N天内的最高收盘价开始画至当天 ...
http://bbs.macd.cn/attachments/month_0503/CWYB_dGX74rVlrwm8.jpg
Originally posted by cwy at 2005-3-17 20:19
我把宝塔线的形状分为六种类型,为便于理解,采用中文名字定义。
请各位朋友看看是否妥当,是否还有其他类型。
1: 阳 =真阳宝塔
2: 阳平 =假阳宝塔
3:阳平下 =阳转阴宝塔
4: 阴 =真阴宝塔
5: 阴平 =假阴宝塔
6:阴平上 =阴转阳宝塔
http://bbs.macd.cn/attachments/month_0503/bt_R4dRzUT3Pz0z.jpg
Originally posted by cwy at 2005-3-19 13:29
分析宝塔线六种类型产生的条件如下：
以昨天的宝塔线类型，按今天的收盘价来分析。
定义:N高=N天内的最高收盘价
N低=N天内的最低收盘价
C1=今天的收盘价
C2=REF(C,1)
C3=REF(C,2)
一:如昨天为阳
1:C1>C2 产生 阳
2:C1
3:C1
二:如昨天为阴
1:C1
三:如昨天为阳平
1:c1>N高 产生 阳
2:c1
3:c1
四:如昨天为阴平
1:c1
五:如昨天为阳平下
1:c1
六:如昨天为阴平上
1:c1>c2 产生 阳
2:c1
3:c1
Originally posted by cwy at 2005-3-21 21:30
今天又发现问题：
在上班时思索发现在分析宝塔线六种类型产生的条件中,分析的还不够完整,
如:
五:如昨天为阳平下,
2:c1>c2和c1
2:c1
有时c1
http://bbs.macd.cn/attachments/month_0503/4_RymOvR0n79xQ.jpg
Originally posted by cwy at 2005-3-19 19:26
六种类型的宝塔线产生条件已分析，看分析结果，同一个条件因上一天不同类型的宝塔线而产生不同结果。如何判断上一天是何种类型的宝塔线，是正确编写宝塔线指标的关键。
我思考了多种方法，如用一般的常规函数来编写，均感到有点难度。好象从解决问题的开始，一步一步的下去，最终仍回到问题的开始。因感觉好象行不通，所以也未进行编写。只怕是要用控制类语句来编写了，而我对控制类语句是最头疼和最难理解了。请MACD的各位版主和各位朋友共同探讨，发表高见。谢谢！
Originally posted by cwy at 2005-3-20 18:32
今日有进展,用常规函数来定义六种类型的宝塔线,每天的信号都出来了,好象能编写了,但现在还心中无底,试试再说。只是一种类型因C的值不同就有三个结果,十八条画线语句都了点。如能成功,再找规律精简。
今日发现,飞狐软件中自带的鬼变脸指标完全符合宝塔线的画线规则,附图中的就是飞狐自带的鬼变脸指标。
http://bbs.macd.cn/attachments/month_0503/btx_geAaLJbgRsNX.jpg
时价
转kjyhao朋友的回帖，在此表示感谢．
2005-3-21 16:40
CWY朋友你好;
首先;向你表示祝贺,并予祝你编写成功!!!你在MACD及福建飞狐所发的帖子和骑兵,原野等的回复,我都看了,受益非浅,谢谢你们!我一直在关注"鬼变脸指标",今借创幻论坛,谈一下我的看法:
1/;我把你对宝塔线的形状分为六种类型,产生的十八种条件：按牧野先生对鬼变脸的论述，试着归纳了一下，如：
分析宝塔线六种类型产生的条件如下：
以昨天的宝塔线类型，按今天的收盘价来分析。
定义:N高=N天内的最高收盘价
N低=N天内的最低收盘价
C1=今天的收盘价
C2=REF(C,1)
C3=REF(C,2)
一:如昨天为阳
1:C1>C2 产生 阳
2:C1
3:C1
二:如昨天为阴
1:C1
三:如昨天为阳平
1:c1>N高 产生 阳
2:c1
3:c1
四:如昨天为阴平
1:c1
五:如昨天为阳平下
1:c1
六:如昨天为阴平上
1:c1>c2 产生 阳
2:c1
3:c1
我认为：<一:如昨天为阳和六:如昨天为阴平上><二:如昨天为阴和五:如昨天为阳平下>可归为一起，再细点1,3,6和2,4,5等都可归在一起，当然还可再细点，这样对公式的编写和判断语句的使用非常有用；既：如何判断上一天是何种类型的宝塔线，是正确编写宝塔线指标的关键。
2/;原野朋友提到了中间语句的使用，如：
宝塔线与鬼变脸指标我想应该是一回事吧。要较好的解决这个指标的公式编写，我想可能要用到一些中间变量，比如说：昨天红盘（红脸）条件下，今天又收红盘（红脸），其中就有两种情形，一种是今天收盘价创新高收红盘（也就是你所说的真阳宝塔），一种是今天收盘价不能创新高但没跌破昨天的下巴而收红盘（也就是你所说的假阳宝塔）。如果今天收盘价不能创新高而且又跌破昨天的下巴的话，那就是收绿盘了。正如你所说“同一个条件因上一天不同类型的宝塔线而产生不同结果”。所以每天都要将当天收盘价与昨天的价位进行比较，以确定红盘的最高价和次高价（若昨天是绿盘即确定绿盘的最低价和次低价），这就要用到控制类语句和中间变量了。但本人觉得飞狐的控制类公式编程语句恰恰不够强大
我认为，飞狐的控制类公式编程语句是非常强大的，上述问题，在飞狐中也都可解决的！比如：乐哥朋友转发南客老师写的鬼变脸公式：
while i<=datacount do begin
if towerc>towero and not(between(sensitivy,towero,towerc)) then
direction:=1;
else if towerc
else direction:=direction;
if not(between(sensitivy,towero,towerc)) then begin
towero:=towerc;towerc:=fc;
sensitivy:=towero;
end else begin
towero:=towerc;towerc:=fc;
sensitivy:=sensitivy;
end;
i:=i+1;
end;
上述的语句，就是对"一些中间变量"语句的判断和运用的典范；
3/；我认为，宝塔线或叫鬼变脸指标,是用常规函数还是用循环语句编写，这是一个方法，关建是如何把牧野先生对鬼变脸的表述;转换为如何利用现代化的工具---电脑来帮助完成！如：需要根据昨天宝塔线的状态来画今天的宝塔线;等等!!!也就是说:如何理解是关键问题!
宝塔线（鬼变脸）:的计算方法;
如果昨天宝塔线是红的，以“昨顶端”为“今开端”，以“昨底端”为“今敏感”；
如果昨天宝塔线是绿的，以“昨底端”为“今开端”，以“昨顶端”为“今敏感”；
如果昨天宝塔线是变色的，则以“昨敏感”为“今敏感”，以强化宝塔线的“隔日纠错功能”。
要实现上面的功能，需要根据昨天宝塔线的状态来画今天的宝塔线;////////////
可以这样说：今天收盘低于昨天收盘与前天收盘之较低者，宝塔线翻绿；
今天收盘高于昨天收盘与前天收盘之较高者，宝塔线翻红；
今天收盘介于昨天收盘与前天收盘之间，宝塔线维持昨天的颜色。
4/;根据对牧野先生表述的不同理解，现有许多不同的版本流行，因此，你现做的工作，是非常有意义的！
我个人认为，乐哥朋友转发南客老师用循环语句写的鬼变脸公式，是比较符合上述表述的；但也可能有不尽人意之处，在统一了牧野先生对鬼变脸表述的理解基础上，
略加改动就是一个非常好的鬼变脸公式!!!
以上仅供参考,望斧正!!!
时价
转原野朋友的回帖，在此表示感谢．
2005-3-19 10:55 PM
宝塔线与鬼变脸指标我想应该是一回事吧。要较好的解决这个指标的公式编写，我想可能要用到一些中间变量，比如说：昨天红盘（红脸）条件下，今天又收红盘（红脸），其中就有两种情形，一种是今天收盘价创新高收红盘（也就是你所说的真阳宝塔），一种是今天收盘价不能创新高但没跌破昨天的下巴而收红盘（也就是你所说的假阳宝塔）。如果今天收盘价不能创新高而且又跌破昨天的下巴的话，那就是收绿盘了。正如你所说“同一个条件因上一天不同类型的宝塔线而产生不同结果”。所以每天都要将当天收盘价与昨天的价位进行比较，以确定红盘的最高价和次高价（若昨天是绿盘即确定绿盘的最低价和次低价），这就要用到控制类语句和中间变量了。但本人觉得飞狐的控制类公式编程语句恰恰不够强大，比如下面这条语句：
if b=0 .and. (c>=d .or. (c
a=a+1
......
endif
第一条语句条件在飞狐中好象无法运用。嵌入VBScript中是否能够解决我不得而知，因为我对VBScript脚本语言不熟悉。
我以前在DOS系统用FOXBASE语言编过童牧野的鬼变脸指标，觉得还较为成功。现将主要部分附录于后，愿您能在飞狐中给编出公式。
a=0 &&a代表昨红盘（红脸）
b=0 &&b代表昨绿盘（绿脸）
h=0 &&h代表今收盘价
d=h &&d代表较大数
x=0 &&x代表较小数
if b=0 .and. (h>=d .or. (h
&&如果昨红盘 和 (今收盘价>=昨大数 或 (今收盘价<昨大数 和 今收盘价>=昨小数))
a=a+1
......
pd=max(d,h) &&求两数较大者
px=min(d,h) &&求两数较小者
d=pd
x=px
else
if b>0 .and. h>d &&如果昨绿盘 和 今收盘价>=昨大数
a=a+1
b=b+1
......
pd=max(d,h) &&求两数较大者
px=min(d,h) &&求两数较小者
d=pd
x=px
b=0
endif
endif
if a=0 .and. (h<=x .or. (h>x .and. h<=d))
&&如果昨绿盘 和 (今收盘价<=昨小数 或 (今收盘价>昨小数 和 今收盘价<=昨大数))
b=b+1
......
pd=max(d,h) &&求两数较大者
px=min(d,h) &&求两数较小者
d=pd
x=px
else
if a>0 .and. h
b=b+1
......
pd=max(d,h) &&求两数较大者
px=min(d,h) &&求两数较小者
d=pd
x=px
a=0
endif
endif
2005-3-20 12:11 PM
我以前用的是很低档的386电脑,用DOS系统上的FOXBASE语言所编写的程序没有K线图,而是采用语言描述.如:
上海汽车
2002.11.21 星期四 7.01绿五6.84
2002.11.22 星期五 6.84绿六6.85
2002.11.25 星期一 6.84绿七6.85
2002.11.26 星期二 6.84绿八6.74
2002.11.27 星期三 6.74绿九6.84红一7.04
......
2005-3-20 12:44 PM
我也曾试图在飞狐上编出这项指标，但是中间变量无法处理。以下就是我所编写的原码，但结果不成功。
INPUT:N(10,1,300); //参数申明
VARIABLE:a=0,b=0,x=0,hh=0,a1=0,a2=0,a3=0,a4=0; //变量申明
d:=REF(CLOSE,n+1);
for i=n downto 1 do BEGIN
hh:=ref(close,i);
<%
vd=ffl.vardata("d")
vb=ffl.vardata("b")
vx=ffl.vardata("x")
vhh=ffl.vardata("hh")
va1=ffl.vardata("a1")
va2=ffl.vardata("a2")
va3=ffl.vardata("a3")
va4=ffl.vardata("a4")
IF (b=0 and (hh>=d or (hh
a1=1
a2=0
a3=0
a4=0
else
IF (b>0 and hh>d) THEN
a1=0
a2=1
a3=0
a4=0
end if
end if
IF (a=0 and (hh<=x or (hh>x and hh<=d))) THEN
a1=0
a2=0
a3=1
a4=0
else
IF (a>0 and hh
a2=0
a3=0
a4=1
end if
end if
ffl.vardata("a1")=va1
ffl.vardata("a2")=va2
ffl.vardata("a3")=va3
ffl.vardata("a4")=va4
%>
if a1=1 then begin
a:=a+1;
pd:=MAX(d,hh);
px:=MIN(d,hh);
d:=pd;
x:=px;
end;
else begin
if a2=1 then begin
a:=a+1;
b:=b+1;
pd:=MAX(d,hh);
px:=MIN(d,hh);
d:=pd;
x:=px;
b:=0;
end;
end;
if a3=1 then begin
b:=b+1;
pd:=MAX(d,hh);
px:=MIN(d,hh);
d:=pd;
x:=px;
end;
else begin
if a4=1 then begin
a:=a+1;
b:=b+1;
pd:=MAX(d,hh);
px:=MIN(d,hh);
d:=pd;
x:=px;
a:=0;
end;
end;
end
a;
b;
d;
x;
时价
Originally posted by cwy at 2005-3-20 09:01 PM:
股市骑兵朋友,你好：
你那么谦虚让我不安,相无交流,不必太客气,现回答你的提问,不知能否使你满意,请直言。
宝塔线如用手功画的话,按自己的需要,可以从任何一天开始,以节省时间和精力。(如用计算机的话当然可以从第一天开始,因为以它的速度是不需要考虑时间和精力的)。从开始画的第一天,以上一天的收盘价作为当天的开盘价,,再按当天的收盘价与开盘价比较大小,来决定是应该画真阴宝塔线还是画真阳宝塔线(此时是第一天,只能是真阴宝塔线或者是真阳宝塔线,除非是当天的收盘价等于上一天的收盘价)。
第二天以后,按上一天的宝塔线类型,以当天的收盘价比较上一天的收盘价,来决定是应该画何种类型的宝塔线。
假设第一天是真阳宝塔线。
1:当天的收盘价大于上一天的收盘价,继续画真阳宝塔线,从上一天的收盘价画至当天的收盘价(此处是向上画)红色。
2:当天的收盘价小于上一天的收盘价而大于上一天的开盘价,则画假阳宝塔,从上一天的收盘价画至当天的收盘价(此处是向下画),但仍为红色。
3:当天的收盘价小于上一天的开盘价则画阳转阴宝塔,从上一天的收盘价画至当天的收盘价(此处是向下画),应分为红绿二色,红色是从上一天的收盘价画至上一天的开盘价,绿色从上一天的开盘价画至第二天的收盘价。
4:如上一天是真阴宝塔线,则相反计算而已。
5:以后则参考12楼中的宝塔线六种类型的产生条件。
N天新高就是在产生一根真阳宝塔线以后,下一天下跌,但未跌破上一天的真阳宝塔线,在以后的N天内,每天都略微上涨,所以应该都是画假阳宝塔线,直至有一天突破N天内的最高收盘,创出新高,从上一根真阳宝塔线的收盘价画至突破那天的收盘价,画真阳宝塔线,N天内就是指在满足一定条件的时间段内的天数,即画中既未创新高,又未产生跌破上一天收盘价的阳转阴宝塔线的时间段内的天数,两个条件只要有一个条件发生,那么N天内的时间也就结束了。
时价
年后山兄提出 最新的正确宝塔线写法也有误，是有错还要找原因改进：
http://bbs.macd.cn/attachments/month_0503/2_CEy5uOPOepwV.bmp
http://bbs.macd.cn/attachments/month_0503/22_294qCKuGtixt.bmp
Last edited by 时价 on 2005-3-22 at 12:43 ]
欣儿
多谢骑兵兄！好样的。
dcom
多谢骑兵兄！
wxz_56
晚上下班再看看
昱靜思
等我有空的時候再欣賞