飞狐绿色通道－福建飞狐论坛 » 指标公式区 » 公式下载区 » 公式编制难题，请南客.清扬朋友帮助指导

查看完整版本: 公式编制难题，请南客.清扬朋友帮助指导

cwy 2004-6-11 22:40

公式编制难题，请南客.清扬朋友帮助指导

利用飞狐软件公式编辑中的控制语句函数，能否编制成功三价线指标（即钱龙的TBL指标),请南客.清扬朋友帮助指导,谢谢！

[url]http://www.li20.net/bbs/viewthread.php?tid=111312&highlight=%2Bcwy&page=1[/url]

[color=Teal][align=right] 本贴由 cwy 于 2004-6-12 18:27 最后编辑 [/align][/color]

南客 2004-6-12 00:53

第一根三价线是怎么确定的？

南客 2004-6-12 16:32

网络上搜索了有关资料，感觉三价线的画法细则，并非那么简单，如果能够详细描述画法，应该有办法画出或者变通画出。

cwy 2004-6-12 17:58

三价线画法的详细描述,请看我在创幻论坛讨论内容（点击上面链接）。

如果用手工画线非常容易，而且并不是每天都需要画的，可从任意日开始，先确定上一日是阳线还是阴线，对照上一日开盘价和收盘价，如果c未创出新高或新低，不用画，等待c创出新高或新低后再画。
其后看图示，作图规则中的新高或新低则由前面是一根阳线，还是二根阳线，还是三根阳线来判定（或由前面是一根阴线，还是二根阴线，还是三根阴线来判定），如果c未创出新高或新低，不用画，等待c创出新高或新低后再画。
图示中假定上一日是阳线。（如果上一日是阴线，则图形由上升变为下跌，下跌变为上升，红色变黑色，黑色变红色）。
以上的画法，跟钱龙的TBL指标画法一样，但不对应k线，看上去不方便，所以我增加了在未创新高或新低的日子里，仍平行画前面的阳线或阴线。
麻烦您了，谢谢！

[color=Teal][align=right] 本贴由 cwy 于 2004-6-12 18:29 最后编辑 [/align][/color]

南客 2004-6-12 21:42

粗粗看了钱龙的画法，感觉不是那么简单。
比如某日不画，好象钱龙在后续判断中是忽略该日的数据。
以600985为例，你是否可以解释钱龙为何是从2004/05/25开始画三价线的？

cwy 2004-6-13 19:43

下载安装了钱龙网际赢家—旗舰版，仔细看了钱龙的画法，确实不是那么简单。主要是每个股票三价线的起始日的确定各不相同，日期有长有短，好象有点自动智能判断，在它认为将出现明显单边趋势时开始画。但第一根三价线出现后，后面的画法如4 楼所述。

用网际赢家—旗舰版，从第一根K线处，把K线放大到最大，按左右方向键，一天一天的移动，可看到三价线的变化。

既然钱龙的第一根三价线如何确定不能知道，那就以上市第一天的K线开收盘价为基数，从第二天开始计算，按作图规则画。（而且如果用手工画的话，不可能也不需要从上市第一天开始画，因为那样的话工作量将非常大）。

   附上网上介绍的三价线，供参考。

钱龙最新技术指标应用简介(6):新三价线TBL

新华网（ 2003-02-08 16:36:04 ）稿件来源：广州证券资讯部

一、基本概念

TBL指标（Three Break Line）,中文名为新三价线指标,属于图表型指标,其原理是若三根K线持续上涨(或下跌)创短期新高(或新低),则发出红色(或黑色)的柱状买入(或卖出)信号。与平时常用指标不同的是,该指标在平时盘整时并不轻易出现信号,是一类在大盘出现明显单边趋势时提议追涨杀跌的指标。它能有效地去除行情中无关紧要的盘整和波段上升中的震荡回调干扰,更适合于做较大波段、做大趋势的中长期投资中比较重势的那种投资者。

二、应用法则

1、新三价线由黑色变为红色时,视为买入信号。

2、新三价线由红色变为黑色时,视为卖出信号。

注意:新三价线如果持续上涨,则会由原新三价线向上延伸,下跌亦然。因此,新三价线不会与K线在时间横轴上相对称。

三、实例说明

如次新股(600379)宝光股份的新三价线指标。其上市第三天股价小创新低,指标在9.87元处有一支小绿柱,投资者暂不买入,而第五个交易日股价在三天内见新高10.28元,三价线即翻红,中线投资者可介入,此后该股震荡上行,虽走势反复较多,但始终没有出现三天内见新低的K线组合。故新三价线或红柱延长、或再出现红柱,提示投资者可一直持股至最高点。3月29日该股大幅回跌至14.33元,出现头部信号,指标提示投资者卖出。此后,该股反弹不断,但新三价线始终保持绿盘,提示下降通道,直至该股回跌到10.42元低点,一直提示投资者不要买入。6月6日该股重新出现中阳,新三价线终于再次于11.02元处提示买入。总体看,该股上市半年多,股价上下变化复杂,现在股价较上市时也没有明显上升,按别的操作方法可能不会有明显的收益。但按新三价线做波段者买2次卖1次,就有50%的获利,可谓操作简单但收益不低。

由于新三价线是一个重势不重价、提示追涨杀跌做波段的指标,不可避免地具有明显的滞后性,对一段行情势必是弃两头、取中间。投资者不宜在行情中途加入,一定要在长时间绿柱后翻红再介入比较安全。对于爱好短线抢反弹、或习惯低吸高抛做法的投资者,该指标应慎用。

感谢您的热情帮助和指导，谢谢！

[color=Teal][align=right] 本贴由 cwy 于 2004-6-13 19:47 最后编辑 [/align][/color]

南客 2004-6-13 21:40

规则未明，徒然做无用功。
即使暂不考虑第1根TBL线，只考虑此后的画线，似乎仍有一些细则。

再次看了钱龙，以600771为例，第3根TBL线对应的是2001/3/27的K线，而第4根TBL线，却对应了2001/5/29的K线，为何？

szyy 2004-6-13 23:00

双

cwy 2004-6-13 23:36

钱龙的TBL线编写规则：

在600771的第1根TBL线对应的是2001/2/8的K线，O=18.10，C=17.28。
第2根TBL线对应的是2001/3/9的K线，C=18.94，>18.10，故接画阳线。
第3根TBL线对应的是2001/3/27的K线，C=19.10，接画阳线。

至此，已有3根TBL线，高为19.10，低为17.28。
从2001/3/28至2001/5/28期间，C一直波动于19.10-17.28二线之间，未创新高或新低，不用画线，故未出现新的TBL线，至2001/5/29，C=17.23，<17.28，故出现了第4根TBL线。

出现>3根TBL线后，取最近的3根TBL线。

1:如果阳TBL线>3根，取最近3根的阳TBL线组合，它的高为最大的C，低为最小的C。
如由阴转阳，最初出现的3根阳TBL线组合，它的高为最大的C，低为由阴转阳的前1根阴TBL线的C。

2:如果阴TBL线>3根，取最近3根的阴TBL线组合，它的高为最大的C，低为最小的C。
如由阳转阴，最初出现的3根阴TBL线组合，它的低为最小的C，高为由阳转阴的前1根阳TBL线的C。

3:如果由3根阴阳TBL线组合，它的高为最大的C，低为最小的C。

只要C波动于高低二线之间，不用画线，待出现新高或新低后，再画线。

以上是我的观察，不知是否正确，请再校验指正，谢谢！

[color=Teal][align=right] 本贴由 cwy 于 2004-6-22 20:17 最后编辑 [/align][/color]

南客 2004-6-13 23:48

要“创新低(高)”后，才能再画线，看此后的画线，似乎并未继续遵循这个规则。

lhl311 2004-6-14 10:44

cwy 2004-6-15 00:49

今日不知为什么原因，600771的第1根阴TBL线不见了，所以从20020529开始，一直到现在为止，如下：

020529的c=1071,
020530c=1053新低,从1071-1053阴TBL,
020603c=1038新低,从1053-1038阴TBL,
020605c=1030新低,从1038-1030阴TBL,
至此取前面3根阴TBL,高线=1071,低线=1030,
020606出现阳TBL,当日c=1084,C>高线1071,从1038-1084画阳TBL，

020606c=1084新高,C>1071,从1038-1084,阳TBL,高线=1084低线=1030,
020607c=1095新高,    从1084-1095,阳TBL,高线=1095低线=1030,

020617c=1029新低,C<1030,从1084-1029,阴TBL,高线=1095低线=1029,

020621c=1142新高,C>1095,从1084-1142,阳TBL,高线=1142低线=1029,
020624c=1256新高,    从1142-1256,阳TBL,高线=1256低线=1029,
020626c=1260新高,    从1256-1260,阳TBL,高线=1260低线=1084,
020916c=1270新高,    从1260-1270,阳TBL,高线=1270低线=1142,
020924c=1276新高,    从1270-1276,阳TBL,高线=1276低线=1256,

020925c=1243新低,C<1256,从1270-1243,阴TBL,高线=1276低线=1243,
020926c=1211新低,    从1243-1211,阴TBL,高线=1276低线=1211,
021008c=1201新低,    从1211-1201,阴TBL,高线=1270低线=1201,
021009c=1127新低,    从1201-1127,阴TBL,高线=1243低线=1127,
021011c=1105新低,    从1127-1105,阴TBL,高线=1211低线=1105,
021017c=1096新低,    从1105-1096,阴TBL,高线=1201低线=1096,
021101c=1090新低,    从1096-1090,阴TBL,高线=1127低线=1090,

021105c=1138新高,C>1127,从1096-1138,阳TBL,高线=1138低线=1090,

021111c=1074新低,C<1090,从1096-1074,阴TBL,高线=1138低线=1074,
021112c=1033新低,    从1074-1033,阴TBL,高线=1138低线=1033,
021114c=1005新低,    从1033-1005,阴TBL,高线=1096低线=1005,
021118c=992新低,       从1005-992,阴TBL,高线=1074低线=992,
021120c=977新低,       从992-977,阴TBL,高线=1033低线=977,
021121c=914新低,       从977-914,阴TBL,高线=1005低线=914,
021126c=888新低,       从914-888,阴TBL,高线=992低线=888,
021231c=880新低,       从888-880,阴TBL,高线=977低线=880,
030102c=867新低,       从880-867,阴TBL,高线=914低线=867,

030108c=920新高,C>914,  从880-920,阳TBL,高线=920低线=867,
030109c=939新高,       从920-939,阳TBL,高线=939低线=867,
030114c=970新高,       从939-970,阳TBL,高线=970低线=880,
030116c=998新高,       从970-998,阳TBL,高线=998低线=920,
030117c=1002新高,    从998-1002,阳TBL,高线=1002低线=939,
030122c=1026新高,    从1002-1026,阳TBL,高线=1026低线=970,
030214c=1049新高,    从1026-1049,阳TBL,高线=1049低线=998,

030221c=990新低,C<998,  从1026-990,阴TBL,高线=1049低线=990,
030224c=989新低,       从990-989,阴TBL,高线=1049低线=989,
030307c=980新低,       从989-980,阴TBL,高线=1026低线=980,
030310c=954新低,       从980-954,阴TBL,高线=990低线=954,
030311c=952新低,       从954-952,阴TBL,高线=989低线=952,
030312c=947新低,       从952-947,阴TBL,高线=980低线=947,
030313c=934新低,       从947-934,阴TBL,高线=954低线=934,
030314c=933新低,       从934-933,阴TBL,高线=952低线=933,
030317c=931新低,       从933-931,阴TBL,高线=947低线=931,
030318c=923新低,       从931-923,阴TBL,高线=934低线=923,

030321c=937新高,C>934,  从931-937,阳TBL,高线=937低线=923,

030325c=912新低,C<923,  从931-912,阴TBL,高线=937低线=912,
030326c=903新低,       从912-903,阴TBL,高线=937低线=903,

030401c=944新高,C>937,  从912-944,阳TBL,高线=944低线=903,
030403c=947新高,       从944-947,阳TBL,高线=947低线=903,
030404c=960新高,       从947-960,阳TBL,高线=960低线=912,
030414c=979新高,       从960-979,阳TBL,高线=979低线=944,
030417c=985新高,       从979-985,阳TBL,高线=985低线=947,
030418c=993新高,       从985-993,阳TBL,高线=993低线=960,
030421c=1012新高,    从993-1012,阳TBL,高线=1012低线=979,

030423c=970新低,C<979,  从993-970,阴TBL,高线=1012低线=970,
030424c=951新低,       从970-951,阴TBL,高线=1012低线=951,
030425c=935新低,       从951-935,阴TBL,高线=993低线=935,

030428c=1018新高,C>993, 从951-1018,阳TBL,高线=1018低线=935,

030513c=901新低,C<935,  从951-901,阴TBL,高线=1018低线=901,
030627c=900新低,       从901-900,阴TBL,高线=1018低线=900,
030630c=895新低,       从900-895,阴TBL,高线=951低线=895,
030701c=892新低,       从895-892,阴TBL,高线=901低线=892,

030703c=904新高,C>901,  从895-904,阳TBL,高线=904低线=892,
030704c=905新高,       从904-905,阳TBL,高线=905低线=892,
030707c=907新高,       从905-907,阳TBL,高线=907低线=895,
030708c=918新高,       从907-918,阳TBL,高线=918低线=904,
030710c=922新高,       从918-922,阳TBL,高线=922低线=905,

030714c=903新低,C<905,  从918-903,阴TBL,高线=922低线=903,
030716c=900新低,       从903-900,阴TBL,高线=922低线=900,
030717c=896新低,       从900-896,阴TBL,高线=918低线=896,
030718c=886新低,       从896-886,阴TBL,高线=903低线=886,
030721c=864新低,       从886-864,阴TBL,高线=900低线=864,
030728c=838新低,       从864-838,阴TBL,高线=896低线=838,
030731c=837新低,       从838-837,阴TBL,高线=886低线=837,
030801c=833新低,       从837-833,阴TBL,高线=864低线=833,
030808c=831新低,       从833-831,阴TBL,高线=838低线=831,

030812c=866新高,C>838,  从833-866,阳TBL,高线=866低线=831,

030820c=828新低,C<831,  从833-828,阴TBL,高线=866低线=828,
030822c=826新低,       从828-826,阴TBL,高线=866低线=826,
030825c=813新低,       从826-813,阴TBL,高线=833低线=813,
030826c=812新低,       从813-812,阴TBL,高线=828低线=812,
030828c=810新低,       从812-810,阴TBL,高线=826低线=810,
030829c=805新低,       从810-805,阴TBL,高线=813低线=805,

030901c=821新高,C>813,  从810-821,阳TBL,高线=821低线=805,
030902c=827新高,       从821-827,阳TBL,高线=827低线=805,
030904c=829新高,       从827-829,阳TBL,高线=829低线=810,

030912c=798新低,C<810,  从827-798,阴TBL,高线=829低线=798,
030915c=785新低,       从798-785,阴TBL,高线=829低线=785,
030926c=770新低,       从785-770,阴TBL,高线=827低线=770,
030929c=748新低,       从770-748,阴TBL,高线=798低线=748,
031009c=742新低,       从748-742,阴TBL,高线=785低线=742,
031016c=734新低,       从742-734,阴TBL,高线=770低线=734,
031017c=733新低,       从734-733,阴TBL,高线=748低线=733,
031020c=713新低,       从733-713,阴TBL,高线=742低线=713,
031027c=708新低,       从713-708,阴TBL,高线=734低线=708,
031029c=688新低,       从708-688,阴TBL,高线=733低线=688,
031030c=675新低,       从688-675,阴TBL,高线=713低线=675,
031106c=634新低,       从675-634,阴TBL,高线=708低线=634,
031110c=627新低,       从634-627,阴TBL,高线=688低线=627,
031111c=626新低,       从627-626,阴TBL,高线=675低线=626,
031112c=609新低,       从626-609,阴TBL,高线=634低线=609,

031114c=680新高,C>634,  从626-680,阳TBL,高线=680低线=609,
031119c=710新高,       从680-710,阳TBL,高线=710低线=609,
031120c=759新高,       从710-759,阳TBL,高线=759低线=626,
031209c=781新高,       从759-781,阳TBL,高线=781低线=680,
031210c=814新高,       从781-814,阳TBL,高线=814低线=710,

031219c=688新低,C<710,  从781-688,阴TBL,高线=814低线=688,

040129c=840新高,C>814,  从781-840,阳TBL,高线=840低线=688,
040216c=870新高,       从840-870,阳TBL,高线=870低线=688,
040217c=886新高,       从870-886,阳TBL,高线=886低线=781,
040219c=894新高,       从886-894,阳TBL,高线=894低线=840,

040224c=826新低,C<840,  从886-826,阴TBL,高线=894低线=826,
040225c=798新低,       从826-798,阴TBL,高线=894低线=798,
040226c=794新低,       从798-794,阴TBL,高线=886低线=794,
040309c=793新低,       从794-793,阴TBL,高线=826低线=793,

040315c=829新高,C>826,  从794-829,阳TBL,高线=829低线=793,
040316c=830新高,       从829-830,阳TBL,高线=830低线=793,
040322c=838新高,       从830-838,阳TBL,高线=838低线=794,
040326c=844新高,       从838-844,阳TBL,高线=844低线=829,
040329c=851新高,       从844-851,阳TBL,高线=851低线=830,
040331c=871新高,       从851-871,阳TBL,高线=871低线=838,
040406c=878新高,       从871-878,阳TBL,高线=878低线=844,

040415c=837新低,C<844,  从871-837,阴TBL,高线=878低线=837,
040416c=820新低,       从837-820,阴TBL,高线=878低线=820,
040423c=817新低,       从820-817,阴TBL,高线=871低线=817,
040427c=796新低,       从817-796,阴TBL,高线=837低线=796,
040429c=780新低,       从796-780,阴TBL,高线=820低线=780,

040510c=826新高,C>820,  从796-826,阳TBL,高线=826低线=780,
040512c=844新高,       从826-844,阳TBL,高线=844低线=780,
040513c=845新高,       从844-845,阳TBL,高线=845低线=796,
040518c=862新高,       从845-862,阳TBL,高线=862低线=826,

040525c=806新低,C<826,  从845-806,阴TBL,高线=862低线=806,

040531c=876新高,C>862,  从845-876,阳TBL,高线=876低线=806,
040601c=895新高,       从876-895,阳TBL,高线=895低线=806,
040604c=911新高,       从895-911,阳TBL,高线=911低线=845,
040607c=912新高,       从911-912,阳TBL,高线=912低线=876,

040609c=849新低,C<876,  从911-849,阴TBL,高线=912低线=849,

[color=Teal][align=right] 本贴由 cwy 于 2004-6-15 00:50 最后编辑 [/align][/color]

cwy 2004-6-15 00:55

lhl311大哥，你好,在此又见到你了，谢谢！

南客 2004-6-15 12:56

谢谢

感觉用新高、或新低来描述，似乎不妥。这样理解可能稍好些，当之前的TBL线不足3根时，突破或跌破的最近一个TBL线收盘的拐点，作为画新的TBL线的依据。

事实上，可以理解为钱龙软件修改了TBL线的画线规则，当之前的TBL线不足3根时，对高低点的确定进行了修改。

接下来，就是要弄清楚，第1根TBL柱线是怎么确定的？

cwy 2004-6-15 21:12

第1根TBL柱线的确定,我看还是以上市第一天的K线开收盘价为基数，从第二天开始计算。刚开始时，由于波动范围较小，可能会频繁翻红翻绿，但过一段时间后，会趋于相同。没有必要弄清钱龙的第1根TBL柱线是怎么确定的，而且规则如有不足还可修改，使之成为飞狐特有的TBL指标。
如钱龙TBL指标的画法：
1.不对应k线，看上去不方便，可增加在未创新值（新高或新低）的日子里，仍平行画前面的阳TBL线或阴TBL线。
2.在以前没有涨跌幅限制时，容易产生连续的大阳TBL线或大阴TBL线，使得在相当长的一段时间内不可能出现新的TBL线，使TBL指标失去了记录与分析的功能。（如95年5月18日到5月22日涨了三百多点的三根大阳TBL线，一直到95年12月28日才转阴，时间长达7 个多月,又形成了一根近三百点的大阴TBL线,）可对连续产生的大阳TBL线或大阴TBL线的突破，加予修整（比如连续的三个涨停或跌停，只要C超过前面的一根阳TBL线或阴TBL线，就可画线）。这是我粗略的想法，谢谢你的热情帮助和指导。

以下是摘自邱一平先生编著的“k线大法”和郭小洲先生编著的“k线图投资技巧”两书中的关于编写三价线的内容，供参考。
三价线的画法是与其前三根三价线做比较，当前面的阳线或阴线不足三根时，出现与前面趋势相反的新值（新高或新低）时，也应发生转向。

三价线的画法有很多种，有的以高低价为基准，有的以收盘价为基准，本书采用收盘价为基准的画法。
以任何一天为画线的起始日皆可，选定某个交易日为基准日，记录该日的收盘价，如果第二个交易日的收盘价高于基准日的收盘价，则第一条TBL为阳线，阳线的最低值为基准日的收盘价，最高值为第二个交易日的收盘价，当第二个交易日的收盘价低于基准日的收盘价，则第一条TBL为阴线，阴线的最高值为基准日的收盘价，最低值为第二个交易日的收盘价。
三价线的作图原则是，每当某一个交易日的收盘价更新了当前所记录的新值（新高或新低）时，则在右侧邻列记入，这就是我们在三价线中常常说到的创新高和创新低概念。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-15 21:29 最后编辑 [/align][/color]

南客 2004-6-15 23:23

试试：

[code]
input:m(2,2,9999);  //参数M定位，第1根TBL柱线对应K线的序号
if m<2 then exit;

up:=c>ref(c,1);
down:=c<ref(c,1);

fc:=close;
fo:=open;

a:=setlbound(up,1);
up[1]:=fc[1]>fo[1];
n:=m-1;
if up[n] then begin
  B4:=fc[n];
  B1:=fo[n];
  B2:=B1;
  tbl:=1;
end else begin
  B4:=fo[n];
  B1:=fc[n];
  B2:=B4;
  B3:=B4;
  tbl:=0;
end;
tblcount:=1;

////////////////////////////////////
for i=n+1 to datacount do begin
  if tbl=1 then begin
if up[i] then begin
   if fc[i]>B4 then begin
      tblcount:=tblcount+1;
      tblc[i]:=fc[i];
      tblo[i]:=B4;
      if tblcount>3 then begin
      tblcount:=3;
      B1:=B2;
      end;
      if tblcount>2 then B2:=B3;
      B3:=B4;
      B4:=fc[i];
   end;
end
else if down[i] then begin
   if fc[i]<B1 then begin
      tblcount:=1;
      tblc[i]:=fc[i];
      tblo[i]:=B3;
      B1:=fc[i];
      B2:=B4;
      B3:=B4;
      tbl:=0;
   end;
end;
  end  else begin
if down[i] then begin
   if fc[i]<B1 then begin
      tblcount:=tblcount+1;
      tblc[i]:=fc[i];
      tblo[i]:=B1;
      if tblcount>3 then begin
      tblcount:=3;
      B4:=B3;
      end;
      if tblcount>2 then B3:=B2;
      B2:=B1;
      B1:=fc[i];
   end;
end
else if up[i] then begin
   if fc[i]>B4 then begin
      tblcount:=1;
      tblc[i]:=fc[i];
      tblo[i]:=B2;
      B4:=fc[i];
      B2:=B1;
      tbl:=1;
   end;
end;
  end;
end;
stickline(tblc and up,tblc,tblo,7,1)colorred;
stickline(tblc and down,tblc,tblo,7,0),colorcyan;
ts:=barslast(tblc);
stickline(tblc=0 and ref(up,ts),ref(tblc,ts),ref(tblc,ts),3,1),colormagenta;
stickline(tblc=0 and ref(down,ts),ref(tblc,ts),ref(tblc,ts),3,1),colorblue;
cc:tblc,linethick0;
oo:tblo,linethick0;
[/code]

cwy 2004-6-16 22:51

OK,南客朋友功力非凡，德才俱佳，令人仰慕，其网上佳作，常细心拜读，无奈水平所限，不能消化吸收，深感遗憾，从老易股.老巫山.到福建飞狐论坛，得南客朋友的热情帮助和指导，终于了却了我多年的宿愿，谢谢！

另清扬朋友在此任版主，未见，不知现在何处，如知，请代为问好，其佳作“结构波浪”亦是公式编写，函数运用的精品，亦常细细品味。

这是我收藏的资料，南客朋友可记否？

>>欢迎您，cwy：重登陆 | 更改信息 | 短消息 | 收藏 | 发贴排行 | 搜索 | 帮助 | 退出

   易股论坛
〖公式解剖台〗　[返回]
   浏览：Chaos：混沌分形（易股DLL升级）

   您是本帖的第 3303 个阅读者　　　  　

  * 贴子主题： Chaos：混沌分形（易股DLL升级）

清扬


  等级：新手上路
　财产：
　经验：
　魅力：
  门派：无门无派
  注册：2002-9-14
  文章：38
  鉴定：保密

--------------------------------------------------------------------------------


此主题相关图片如下：



这个前天刚编好，远不成熟，看起来还挺舒服的？。先把求峰点的源码告诉你：（在飞狐中OK，在FXJ中就不知道了）
AA:=REF(H,N)=HHV(H,2*N+1);
AAA:=FILTER(AA,N);
BB:=BACKSET(AAA,N+1);
CC:=FILTER(BB,N);
DRAWICON(CC,H*1.02,10);
AA2:=REF(L,N)=LLV(L,2*N+1);
AAA2:=FILTER(AA2,N);
BB2:=BACKSET(AAA2,N+1);
CC2:=FILTER(BB2,N);
DRAWICON(CC2,L*0.99,11);
N:(2,1,999)

--------------------------------------------------------------------------------
发贴时间： 2002-9-17 14:37:00 218.0.*.*

易筋经
　头衔：总站长


  等级：总版主
　财产：
　经验：
　魅力：
  门派：无门无派
  注册：2001-7-13
  文章：3265
  鉴定：保密


      OICQ

兄用 BACKSET 描写趋势真是炉火纯青
谢谢!

----------------------------------------------

汝不知夫螳螂乎？怒其臂以当车辙，不知其不胜任也，是其才之美
者也。戒之，慎之，积伐而美者以犯之，几矣！

--------------------------------------------------------------------------------
发贴时间： 2002-9-17 14:45:00 211.94.*.*

南客

  等级：新手上路
　财产：
　经验：
　魅力：
  门派：无
  注册：2001-11-12
  文章：15
  鉴定：保密

--------------------------------------------------------------------------------

呵呵，清扬兄难得的高手，在飞狐社区有一系列的大作：）

--------------------------------------------------------------------------------
发贴时间： 2002-9-20 0:49:00 218.5.*.*

页次：7/8页每页10 本主题贴数75 分页： [1] ... [4] [5] [6] [7] [8]

*快速回复：Chaos：混沌分形（易股DLL升级）顶端
  内容

HTML标签：不可用
UBB标签：允许
贴图标签：允许
Flash标签：允许
表情字符转换：允许
上传图片：允许
最多64KB

邮件回复显示签名 [Ctrl+Enter直接提交贴子]

版权所有：易股论坛版本：Ver5.0 Build 0320 SP2
页面执行时间：343.750毫秒

cwy 2004-6-16 23:16

南客朋友请看，上证指数950518图。

在以前没有涨跌幅限制时，容易产生连续的大阳TBL线或大阴TBL线，使得在相当长的一段时间内不可能出现新的TBL线，使TBL指标失去了记录与分析的功能。（如95年5月18日到5月22日涨了三百多点的三根大阳TBL线，一直到95年12月28日才转阴，时间长达7 个多月,又形成了一根近三百点的大阴TBL线,）可对连续产生的大阳TBL线或大阴TBL线的突破，加予修整（比如连续的三个涨停或跌停，只要C超过前面的一根阳TBL线或阴TBL线，就可画线？）。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-16 23:17 最后编辑 [/align][/color]

南客 2004-6-17 11:47

上面的代码有点小问题，修正如下：
[code]
input:m(2,2,9999);  //参数M定位，第1根TBL柱线对应K线的序号
if m<2 then exit;

up:=c>ref(c,1);
down:=c<ref(c,1);

fc:=close;
fo:=open;

a:=setlbound(up,1);
up[1]:=fc[1]>fo[1];
n:=m-1;
if up[n] then begin
  B4:=fc[n];
  B1:=fo[n];
  b3:=B1;
  B2:=B1;
  tbl:=1;
end else begin
  B4:=fo[n];
  B1:=fc[n];
  B2:=B4;
  B3:=B4;
  tbl:=0;
end;
tblcount:=1;

////////////////////////////////////
for i=n+1 to datacount do begin
  if tbl=1 then begin
if up[i] then begin
   if fc[i]>B4 then begin
      tblcount:=tblcount+1;
      tblc[i]:=fc[i];
      tblo[i]:=B4;
      if tblcount>2 then begin
      tblcount:=3;
      B1:=B2;
      B2:=B3;
      end;
      B3:=B4;
      B4:=fc[i];
   end;
end
else if down[i] then begin
   if fc[i]<B1 then begin
      tblcount:=1;
      tblc[i]:=fc[i];
      tblo[i]:=B3;
      B1:=fc[i];
      B2:=B3;
      tbl:=0;
   end;
end;
  end  else begin
if down[i] then begin
   if fc[i]<B1 then begin
      tblcount:=tblcount+1;
      tblc[i]:=fc[i];
      tblo[i]:=B1;
      if tblcount>2 then begin
      tblcount:=3;
      B4:=B3;
      b3:=B2;
      end;
      B2:=B1;
      B1:=fc[i];
   end;
end
else if up[i] then begin
   if fc[i]>B4 then begin
      tblcount:=1;
      tblc[i]:=fc[i];
      tblo[i]:=B2;
      B4:=fc[i];
      B3:=B2;
      tbl:=1;
   end;
end;
  end;
end;

stickline(tblc<>0 and up,tblc,tblo,7,1)colorred;
stickline(tblc<>0 and down,tblc,tblo,7,0),colorcyan;
ts:=barslast(tblc);
stickline(tblc=0 and ref(up,ts),ref(tblc,ts),ref(tblc,ts),3,1),colormagenta;
stickline(tblc=0 and ref(down,ts),ref(tblc,ts),ref(tblc,ts),3,1),colorblue;
cc:tblc,linethick0;
oo:tblo,linethick0;
[/code]

先测试代码是否还有问题，因为不太好调试，也许还有BUG。
测试通过后，再讨论如何修改规则。

南客 2004-6-17 12:11

经典的事例，可看000548、600101

cwy 2004-6-17 12:56

南客朋友，我共看到三个源码，TBL源码的BUG依次为：

源码1：
（1）第1根TBL线出现的位置不符，TBL画线长度不对。
（2）在阴阳阴或阳阴阳三根TBL线组合而发生转向时，TBL画线长度不对。

源码2：
（1）第1根TBL线出现的位置不符，TBL画线长度不对。
（2）在阴阳阴或阳阴阳三根TBL线组合而发生转向时，TBL画线长度不对。
源码3：
（1）第1根TBL线出现的位置相符，TBL画线长度正确。
（2）在阴阳阴或阳阴阳三根TBL线组合而发生转向时，TBL画线长度正确。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-17 13:47 最后编辑 [/align][/color]

cwy 2004-6-17 13:25

对，未曾仔细校验，只举例：
源码1和源码2在：
000548--03/06/25应该出现阴TBL线时未出现，
600101--02/11/11应该出现阴TBL线时未出现，
源码3在：
000548--03/06/25应该出现阴TBL线时出现，
600101--02/11/11应该出现阴TBL线时出现，

cwy 2004-6-17 13:38

源码1
第1根TBL线出现的位置不符，TBL画线长度不对。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-17 14:04 最后编辑 [/align][/color]

cwy 2004-6-17 13:39

源码2
第1根TBL线出现的位置不符，TBL画线长度不对。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-17 14:05 最后编辑 [/align][/color]

cwy 2004-6-17 13:40

源码3
第1根TBL线出现的位置相符，TBL画线长度正确。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-17 14:06 最后编辑 [/align][/color]

cwy 2004-6-17 14:12

源码1
在阴阳阴或阳阴阳三根TBL线组合而发生转向时，TBL画线长度不对。

cwy 2004-6-17 14:13

源码2
在阴阳阴或阳阴阳三根TBL线组合而发生转向时，TBL画线长度不对。

cwy 2004-6-17 14:15

源码3
在阴阳阴或阳阴阳三根TBL线组合而发生转向时，TBL画线长度正确。

南客 2004-6-17 15:36

之前的源码不用看了，找找最后的源代码，是否还有画线不对的地方。

ttlltt 2004-6-17 17:23

谢谢

cwy 2004-6-17 19:11

标准1：
（确定上一日是阳线还是阴线，对照上一日开盘价和收盘价，如果c未创出新高或新低，不用画，等待c创出新高或新低后再画）
全部正确。

标准2：
（以上市第一天的开收盘价为基数，如C>REF（C，上市第一天），则第一条TBL为阳线，如C<REF（C，上市第一天），则第一条TBL为阴线）

则上市第一天如果高开低走，收阴，如C>REF（C，上市第一天）和C<REF（O，上市第一天），不能正确画线。代表的事例如600015、600410。

未知采用哪个标准？

[color=Teal][align=right] 本贴由 cwy 于 2004-6-17 19:40 最后编辑 [/align][/color]

南客 2004-6-18 00:14

如果从首日开始判断，根据close、open的大小关系确定阳阴
否则由close、ref(close,1)的大小关系确定阴阳。如此来确定第1根K线的阴阳。
此后，第1根TBL线的判断，由后续相同规则判断。

从许多事例看，首日开始判断似乎不太好，首日往往是一根大阳或大阴线，容易使此后很多周期内，无法产生TBL线。

另外，所谓新高、新低，实际上可以表达为，当TBL线不足三根时，取之前的一根相反颜色的TBL的高点或低点做为新TBL线的高点或低点。

600015，首日的K线实体较长，要到2003/10/20的阴线才跌突首日阴K线实体。

南客 2004-6-18 00:16

当TBL线不足三根时，取之前的一根相反颜色的TBL的高点或低点做为新TBL线的高点或低点

这条规则，是造成很多TBL线相隔周期很远的原因之一。

cwy 2004-6-18 21:14

如何确定第1根TBL线的产生，主要是根据TBL指标的特点，因为TBL指标本身就是要尽量去除价格趋势中的回调，反弹和盘整，在未出现明显的单边趋势时，不轻易出现信号，避免骗线干扰。
所以我比较倾向采用标准1，以上市第一天的K线开收盘价为基数，来确定第1根TBL线。

所谓新高、新低，书中的意思是：必须等待C大于或小于最近三根TBL线组合（或只有一根TBL线组合和二根TBL线组合时）中的最大值和最小值，(C如大于TBL线组合中的最大值，即为创新高，C如小于TBL线组合中的最小值，即为创新低)才能产生新的TBL线。

TBL线相隔周期很远的原因，主要由三根TBL线中的高低点之间的幅度所决定，幅度大，突破高低点的难度就大，所需时间就长。

[color=Teal][align=right] 本贴由 cwy 于 2004-6-18 21:17 最后编辑 [/align][/color]

cwy 2004-6-18 21:56

飞狐软件的的指标编写功能实在强大，为什么同是一个REF(X,A)的函数，就与其他软件的REF(X,A)函数功能完全不同（其他软件就不能达到此目的，如图中的D1,D2,D3,D4线)，令人叹服,感谢飞狐软件的作者，为我们提供了一款高性能的证券分析工具。

xfl 2004-6-28 17:59

好啊,要源码啊!!!

xfl 2004-7-2 14:57

看来不会公布了,还是自己编吧~

lhl311 2004-10-18 22:08

xiexie!

ldmns 2005-6-28 15:15

高手在过招,精彩!!!!

cwy 2005-6-28 19:29

[quote]Originally posted by [i]taikangxm[/i] at 2005-6-28 10:29:
另外，如果能画出最后的一根线，同时算出反转价位就更明了了： [/quote]
自己动动手，都可以做到的。

页: [1] 2

查看完整版本: 公式编制难题，请南客.清扬朋友帮助指导