谢谢原野朋友的热心帮助,向你问好。
今日有进展,用常规函数来定义六种类型的宝塔线,每天的信号都出来了,好象能编写了,但现在还心中无底,试试再说。只是一种类型因C的值不同就有三个结果,十八条画线语句多了一点。如能成功,再找规律精简。
今日发现,飞狐软件中自带的鬼变脸指标完全符合宝塔线的画线规则,附图中的就是飞狐自带的鬼变脸指标。

本贴由 cwy 于 2005-3-20 23:06 最后编辑

等待好消息：）

引用:

Originally posted by cwy at 2005-3-20 06:27 PM:
谢谢原野朋友的热心帮助,向你问好。
今日有进展,用常规函数来定义六种类型的宝塔线,每天的信号都出来了,好象能编写了,但现在还心中无底,试试再说。只是一种类型因C的值不同就有三个结果,十八条画线语句都了点。如 ...

是的，完全正确。可惜飞狐自带的鬼变脸指标原码无法看到，在进一步应用上难免打折扣了。

引用:

Originally posted by 股市骑兵00 at 2005-3-20 00:11:
CWY朋友你好。
我刚才想了下，还没搞明白宝塔怎么会事呢？
听你的解释：
1；宝塔只能从K线第3天起才能定义的对吗？那么前2天K线阴阳怎么定义呢？
2；c1=c2或c1=c3这种情况怎么处理呢？
3；N天新高也没搞明白 ...

股市骑兵朋友,你好：
你那么谦虚让我不安,相无交流,不必太客气,现回答你的提问,不知能否使你满意,请直言。
宝塔线如用手功画的话,按自己的需要,可以从任何一天开始,以节省时间和精力。(如用计算机的话当然可以从第一天开始,因为以它的速度是不需要考虑时间和精力的)。从开始画的第一天,以上一天的收盘价作为当天的开盘价,,再按当天的收盘价与开盘价比较大小,来决定是应该画真阴宝塔线还是画真阳宝塔线(此时是第一天,只能是真阴宝塔线或者是真阳宝塔线,除非是当天的收盘价等于上一天的收盘价)。
第二天以后,按上一天的宝塔线类型,以当天的收盘价比较上一天的收盘价,来决定是应该画何种类型的宝塔线。
假设第一天是真阳宝塔线。
1:当天的收盘价大于上一天的收盘价,继续画真阳宝塔线,从上一天的收盘价画至当天的收盘价(此处是向上画)红色。
2:当天的收盘价小于上一天的收盘价而大于上一天的开盘价,则画假阳宝塔,从上一天的收盘价画至当天的收盘价(此处是向下画),但仍为红色。
3:当天的收盘价小于上一天的开盘价则画阳转阴宝塔,从上一天的收盘价画至当天的收盘价(此处是向下画),应分为红绿二色,红色是从上一天的收盘价画至上一天的开盘价,绿色从上一天的开盘价画至第二天的收盘价。
4:如上一天是真阴宝塔线,则相反计算而已。
5:以后则参考12楼中的宝塔线六种类型的产生条件。

N天新高就是在产生一根真阳宝塔线以后,下一天下跌,但未跌破上一天的真阳宝塔线,在以后的N天内,每天都略微上涨,所以应该都是画假阳宝塔线,直至有一天突破N天内的最高收盘,创出新高,从上一根真阳宝塔线的收盘价画至突破那天的收盘价,画真阳宝塔线,N天内就是指在满足一定条件的时间段内的天数,即画中既未创新高,又未产生跌破上一天收盘价的阳转阴宝塔线的时间段内的天数,两个条件只要有一个条件发生,那么N天内的时间也就结束了。

sensitivy:=-c;
direction:=c;
towero:=o;
towerc:=c;
fc:=c;
i:=2;
while i<=datacount do begin
  if towerc[i]>towero[i] and not(between(sensitivy[i],towero[i],towerc[i])) then
    direction[i]:=1;
  else if towerc[i]<towero[i] and not(between(sensitivy[i],towero[i],towerc[i])) then
         direction[i]:=0;
       else direction[i]:=direction[i-1];
  if not(between(sensitivy[i-1],towero[i-1],towerc[i-1])) then begin
    towero[i]:=towerc[i-1];towerc[i]:=fc[i];
    sensitivy[i]:=towero[i-1];
  end else begin
    towero[i]:=towerc[i-1];towerc[i]:=fc[i];
    sensitivy[i]:=sensitivy[i-1];
  end;
  i:=i+1;
end;
tj:=between(sensitivy,towero,towerc);
stickline(tj,max(towero,towerc),sensitivy,7,0), colorred;
stickline(tj,min(towero,towerc),sensitivy,7,0), colorgreen;
stickline(sensitivy<towerc and not(tj),towero,towerc,7,0), colorred;
stickline(sensitivy>towerc and not(tj),towero,towerc,7,0), colorgreen;
stickline((towerc=towero or sensitivy=towerc) and direction=1,towero,towerc,7,0),colorred;
stickline((towerc=towero or sensitivy=towerc) and direction=0,towero,towerc,7,0),colorgreen;

引用:

Originally posted by 股市骑兵00 at 2005-3-20 03:08 PM:


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

谁说的？每天都会来，有时是潜水而已。
继续学习！

南客老师编的“南客鬼变脸”与系统带的完全一样。。

谢谢乐哥！

看来可以编写成功了,还得仔细校对,飞狐软件中自带的鬼变脸指标还是有不正确的画线,见画中白线处,只要再添加条件可以把它纠正,衷心的感谢各位朋友的热心帮助,祝各位朋友晚安,谢谢！

本贴由 cwy 于 2005-3-20 23:51 最后编辑

[quote]Originally posted by cwy at 2005-3-20 11:34 PM:
看来可以编写成功了,还得仔细校对,飞狐软件中自带的鬼变脸指标还是有不正确的画线,见画中白线处,只要再添加条件可以把它纠正,衷心的感谢各位朋友的热心帮助,祝各位朋友晚安,谢谢！
祝贺你的成功!我的飞狐软件中自带的鬼变脸指标没有不正确的啊.

引用:

Originally posted by cwy at 2005-3-20 09:01 PM:

股市骑兵朋友,你好：
你那么谦虚让我不安,相无交流,不必太客气,现回答你的提问,不知能否使你满意,请直言。
宝塔线如用手功画的话,按自己的需要,可以从任何一天开始,以节省时间和精力。(如用计算机的话当然可以 ...

cwy朋友你好。
你的话见外了，我也很想和大家交流学习，只是以前没研究过宝塔线，没搞懂定义。没法动手帮你试试。你上面讲的很详细，谢谢指点。
早上试着理解你所解释的，做了个给你参考。因没看懂南客老师的公式写法。
对定义理解也不是很透彻。只能按部就班的用笨方法写了。代码也较长。好象公式不是难度大了，而是很麻烦的一个公式。

复制内容到剪贴板

代码:

c1:=c;o1:=o;
for i=1 to DATACOUNT do begin
if i=1 then begin
if c1[i]>o1[i] then begin
x[i]:=1;cc1[i]:=c1[i];oo1[i]:=o1[i];
end;else
if c1[i]<o1[i] then begin
x[i]:=4;cc4[i]:=c1[i];oo4[i]:=o1[i];
end;else begin
x[i]:=0;
cc1[i]:=c1[i];oo1[i]:=o1[i];
cc4[i]:=c1[i];oo4[i]:=o1[i];
end;end;
if i=2 then begin
if x[i-1]=1 or x[i-1]=0 then begin  
if c1[i]>cc1[i-1] then begin
x[i]:=1;//阳
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]<oo1[i-1] then begin
x[i]:=3;//阳平下
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else begin
x[i]:=2;//阳平
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
if x[i-1]=4 or x[i-1]=0 then begin
if c1[i]<cc4[i-1] then begin
x[i]:=4;//阴
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
if c1[i]>oo4[i-1] then begin
x[i]:=6;//阴平上
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else begin
x[i]:=5;//阴平
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;end;
if i>2 then begin
if x[i-1]=1 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]<oo1[i-1] then begin
x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else begin
x[i]:=2;
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
if x[i-1]=2 then begin
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else
if c1[i]<oo1[i-1] then begin
x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else begin
x[i]:=2;
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
if x[i-1]=3 then begin
if c1[i]>oo1[i-1] then begin
x[i]:=6;
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else
if c1[i]<cc4[i-1] then begin
x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else begin
x[i]:=5;
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;
if x[i-1]=4 then begin
if c1[i]<cc4[i-1] then begin
x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else
if c1[i]>oo4[i-1] then begin
x[i]:=6;
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else begin
x[i]:=5;
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;
if x[i-1]=5 then begin
if c1[i]>oo4[i-1] then begin
x[i]:=6;
cc4[i]:=oo4[i-1];oo4[i]:=cc4[i-1];
cc1[i]:=c1[i];oo1[i]:=oo4[i-1];
end;else
if c1[i]<cc4[i-1] then begin
x[i]:=4;
cc4[i]:=c1[i];oo4[i]:=cc4[i-1];
end;else begin
x[i]:=5;
cc4[i]:=cc4[i-1];oo4[i]:=c1[i];
end;end;
if x[i-1]=6 then begin
if c1[i]<oo1[i-1] then begin
x[i]:=3;
cc1[i]:=cc1[i-1];oo1[i]:=oo1[i-1];
cc4[i]:=c1[i];oo4[i]:=oo1[i-1];
end;else
if c1[i]>cc1[i-1] then begin
x[i]:=1;
cc1[i]:=c1[i];oo1[i]:=cc1[i-1];
end;else begin
x[i]:=2;
cc1[i]:=cc1[i-1];oo1[i]:=c1[i];
end;end;
end;end;
STICKLINE(x and cc1>0 and oo1>0,cc1,oo1,7,1);
STICKLINE(x and cc4>0 and oo4>0,cc4,oo4,7,0);
x,LINETHICK0;

本贴由 股市骑兵00 于 2005-3-21 18:46 最后编辑

引用:

Originally posted by 乐哥 at 2005-3-20 09:41 PM:
南客老师编的“南客鬼变脸”与系统带的完全一样。。

谢谢！

上面的代码有错，刚改了下。

引用:

Originally posted by 原野 at 2005-3-21 09:09:
[quote]Originally posted by cwy at 2005-3-20 11:34 PM:
我的飞狐软件中自带的鬼变脸指标没有不正确的啊.

真是怪事,为什么会不相同,就算缺少数据也不过是宝塔线长短而已,而且数据并没有少啊,我的飞狐软件是V4.0.50126版,不知原野朋友的飞狐软件是几版

今天又发现问题：
在上班时思索发现在分析宝塔线六种类型产生的条件中,分析的还不够完整,
如:
五:如昨天为阳平下,
2:c1>c2和c1<c3    产生 阴平
有时c1>c2和c1<c3  会产生 阴平上
六:如昨天为阴平上  
2:c1<c2和c1>c3    产生 阳平
有时c1<c2和c1>c3 会产生 阳平下

谢谢股市骑兵朋友,你编写的宝塔线指标,我以600000浦发银行从今天开始,到上市第一天为止,仔细校对,无一错误,完全正确,这是一个最标准的宝塔线指标,衷心的祝贺你！
(我说过的,你的功力我清楚,你对控制类语句的运用已可称高手)
请教:
你在X=1-6的6个条件是如何定义的,因为我今天发现我原来的还不够完整,谢谢！
(烦请原野朋友再仔细校对)

引用:

Originally posted by 股市骑兵00 at 2005-3-21 03:38 PM:

cwy朋友你好。
你的话见外了，我也很想和大家交流学习，只是以前没研究过宝塔线，没搞懂定义。没法动手帮你试试。你上面讲的很详细，谢谢指点。
早上试着理解你所解释的，做了个给你参考。因没看懂南客老师的 ...

严重祝贺！

麻烦股市骑兵朋友,把日周宝塔线也解决了,谢谢！

引用:

Originally posted by cwy at 2005-3-21 10:22 PM:
谢谢股市骑兵朋友,你编写的宝塔线指标,我以600000浦发银行从今天开始,到上市第一天为止,仔细校对,无一错误,完全正确,这是一个最标准的宝塔线指标,衷心的祝贺你！
(我说过的,你的功力我清楚,你对控制类语句的运用 ...

完全正确!佩服.

谢谢 原野朋友校对，辛苦了！
谢谢 楼上几位朋友夸奖！
公式写的很粗糙，也许还有不尽人意的地方，供大家参考吧。

引用:

Originally posted by cwy at 2005-3-21 10:22 PM:
谢谢股市骑兵朋友,你编写的宝塔线指标,我以600000浦发银行从今天开始,到上市第一天为止,仔细校对,无一错误,完全正确,这是一个最标准的宝塔线指标,衷心的祝贺你！
(我说过的,你的功力我清楚,你对控制类语句的运用 ...

cwy朋友你好。
你夸奖了，也只是尽自己能力帮你试试的，你无须客气。
X的定义公式中，有解释，我再把定义说一遍吧。公式是通过前一天的X定义和现在C变化，来确定现在这次X的定义的。这样一直循环到最后。
x=1;//阳
x=2;//阳平
x=3;//阳平下
x=4;//阴
x=5;//阴平
x=6;//阴平上
例如你选三平底翻红：
ref(all(x=5,3),1) and x=6;

引用:

Originally posted by cwy at 2005-3-21 10:45 PM:
麻烦股市骑兵朋友,把日周宝塔线也解决了,谢谢！

我这几天其他有些事，等空余的时候再帮你试试好吗。

一个好汉三个帮：） 谢谢股市骑兵00，cwy等热心朋友：）