日周宝塔线

本贴由 cwy 于 2005-3-17 20:36 最后编辑

网上流传的几种宝塔线指标均不是很正确,可能还得重新改写,如能成功,再发源码,请福建飞狐的朋友共同探讨,请看图,谢谢！

宝塔线我外行，帮你顶。
我记的南客老师写过的，很不错的哦！
你找下看看呢。

谢谢股市骑兵朋友,你客气了,你的功力我清楚,过段时间有空请你帮助编写趋势线指标,因为你对控制类语句的运用已可称高手,谢谢！

不好意思,南客老师写过的也不十分符合,网上流传的几种宝塔线指标都仔细分析过,或多或少都存在不正确的画线,包括分析家和飞狐软件自带的宝塔线指标。我准备重新编写,不知能否成功,待我分析.理清思路后,再与各位朋友共同探讨

本贴由 cwy 于 2005-3-17 22:06 最后编辑

请看举例：
如果某一支股票产生如下走势,三连阳后,第四天下跌 ,但未跌破第二天的 收盘价,所以仍画阳宝塔线。以后N天内,每天都略微上涨,应该都是画阳宝塔线。
正确的画线应该是,从N天内的最高收盘价开始画至当天的收盘价。直至突破N天内的最高收盘价,或者跌破上一天的收盘价,否则将一直这样画下去。
现有的几种宝塔线指标能否正确画线表达(可能在实际中不太可能发生,但是理论上必须正确)？

本贴由 cwy 于 2005-3-17 19:27 最后编辑

我把宝塔线的形状分为六种类型,为便于理解,采用中文名字定义。
请各位朋友看看是否妥当,是否还有其他类型。

1:   阳    =真阳宝塔
2:  阳平  =假阳宝塔
3:阳平下 =阳转阴宝塔
4:   阴    =真阴宝塔
5:  阴平  =假阴宝塔
6:阴平上 =阴转阳宝塔

本贴由 cwy 于 2005-3-17 20:18 最后编辑

楼主分析的很好 有成熟的公式吗

引用:

Originally posted by cwy at 2005-3-17 06:36 PM:
谢谢股市骑兵朋友,你客气了,你的功力我清楚,过段时间有空要你帮助编写趋势线指标,因为你对控制类语句的运用已可称高手,谢谢！

不好意思,南客老师写过的也不十分符合,网上流传的几种宝塔线指标都仔细分析过,或多 ...

cwy朋友你夸奖了，我只是个刚用飞狐不久的新手，称不上高手。
你要帮忙写趋势线也尽管说，我尽力而为吧。宝塔线我有空也帮你想想了。

也想学,顶!

引用:

Originally posted by 股龙王 at 2005-3-17 20:59:
楼主分析的很好 有成熟的公式吗

没有,正在思考如何正确编写宝塔线的指标。

分析宝塔线六种类型产生的条件如下：
以昨天的宝塔线类型，按今天的收盘价来分析。

定义:N高=N天内的最高收盘价
     N低=N天内的最低收盘价
     C1=今天的收盘价
     C2=REF(C,1)
     C3=REF(C,2)

一:如昨天为阳
1:C1>C2           产生 阳
2:C1<C2和C1>C3    产生 阳平
3:C1<C3           产生 阳平下

二:如昨天为阴
1:C1<c2           产生 阴
2:C1>c2和C1<C3    产生 阴平
3:C1>C3           产生 阴平上

三:如昨天为阳平
1:c1>N高          产生 阳
2:c1<N高和c1>c2   产生 阳平
3:c1<c2           产生 阳平下

四:如昨天为阴平
1:c1<N低          产生 阴
2:c1>N低和c1<c2   产生 阴平
3:c1>c2           产生 阴平上

五:如昨天为阳平下
1:c1<c2           产生 阴
2:c1>c2和c1<c3    产生 阴平
3:c1>c3           产生 阴平上

六:如昨天为阴平上
1:c1>c2           产生 阳
2:c1<c2和c1>c3    产生 阳平
3:c1<c3           产生 阳平下

六种类型的宝塔线产生条件已分析，看分析结果，同一个条件因上一天不同类型的宝塔线而产生不同结果。如何判断上一天是何种类型的宝塔线，是正确编写宝塔线指标的关键。
我思考了多种方法，如用一般的常规函数来编写，均感到有点难度。好象从解决问题的开始，一步一步的下去，最终仍回到问题的开始。因感觉好象行不通，所以也未进行编写。只怕是要用控制类语句来编写了，而我对控制类语句是最头疼和最难理解了。请福建飞狐的各位朋友共同探讨，发表高见。谢谢！

楼上这位朋友辛苦了！
宝塔线与鬼变脸指标我想应该是一回事吧。要较好的解决这个指标的公式编写，我想可能要用到一些中间变量，比如说：昨天红盘（红脸）条件下，今天又收红盘（红脸），其中就有两种情形，一种是今天收盘价创新高收红盘（也就是你所说的真阳宝塔），一种是今天收盘价不能创新高但没跌破昨天的下巴而收红盘（也就是你所说的假阳宝塔）。如果今天收盘价不能创新高而且又跌破昨天的下巴的话，那就是收绿盘了。正如你所说“同一个条件因上一天不同类型的宝塔线而产生不同结果”。所以每天都要将当天收盘价与昨天的价位进行比较，以确定红盘的最高价和次高价（若昨天是绿盘即确定绿盘的最低价和次低价），这就要用到控制类语句和中间变量了。但本人觉得飞狐的控制类公式编程语句恰恰不够强大，比如下面这条语句：
if b=0 .and. (c>=d .or. (c<d .and.c>=x))
      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<d .and. h>=x))
   &&如果昨红盘 和 (今收盘价>=昨大数 或 (今收盘价<昨大数 和 今收盘价>=昨小数))
      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<x &&如果昨红盘 和 今收盘价<=昨小数
         a=a+1
         b=b+1
         ......
         pd=max(d,h)  &&求两数较大者
         px=min(d,h)  &&求两数较小者
         d=pd
         x=px
         a=0
      endif
   endif

本贴由 原野 于 2005-3-20 11:52 最后编辑

谢谢原野朋友的帮助,能否贴图观赏。

CWY朋友你好。
我刚才想了下，还没搞明白宝塔怎么会事呢？
听你的解释：
1；宝塔只能从K线第3天起才能定义的对吗？那么前2天K线阴阳怎么定义呢？
2；c1=c2或c1=c3这种情况怎么处理呢？
3；N天新高也没搞明白？
我外行，乱说一通的，见笑了。

引用:

Originally posted by cwy at 2005-3-19 11:38 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:53 最后编辑

我也曾试图在飞狐上编出这项指标，但是中间变量无法处理。以下就是我所编写的原码，但结果不成功。

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<d and hh>=x))) THEN
     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<x) THEN
        a1=0
        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 原野 at 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(C ...

原野朋友高手！
可惜我飞狐学的时间太短，VBS还没来的及学。
只有动动其他脑筋了。谢谢你的公式。向你学习！

学习！

为了看股市骑兵K线叠加公式，只能灌水求积分，顶顶所有好心人。

引用:

Originally posted by 刀鬼 at 2005-3-20 03:05 PM:
为了看股市骑兵K线叠加公式，只能灌水求积分，顶顶所有好心人。

那你早说呀，我给你加分啊。

引用:

Originally posted by 欣儿 at 2005-3-20 03:02 PM:
学习！

来玩啦，:p你好几天没来了。

引用:

Originally posted by 股市骑兵00 at 2005-3-20 02:27 PM:


原野朋友高手！
可惜我飞狐学的时间太短，VBS还没来的及学。
只有动动其他脑筋了。谢谢你的公式。向你学习！

股市骑兵朋友过谦了！我看了你在论坛上贴出的公式觉得很不错啊，心里佩服得紧呢。