共享一个星相交易工具，求助会编写指标的朋友

logoslogos

求助会编写指标的朋友，共同实现一个星相的交易工具：




这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的


：
1.根据给定的数值，画出这样的曲线
2.分别在曲线的每个拐点出画一竖线
3.在零值画一竖线
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。


5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。

数据样本：从星相软件导出的：

01 一月 2013   -24°14' 58.7"  
02 一月 2013   -24°20' 05.2"  
03 一月 2013   -24°23' 54.3"  
04 一月 2013   -24°26' 24.8"  
05 一月 2013   -24°27' 35.6"  
06 一月 2013   -24°27' 25.5"  
07 一月 2013   -24°25' 53.3"  
08 一月 2013   -24°22' 58.2"  
09 一月 2013   -24°18' 39.1"  
10 一月 2013   -24°12' 55.1"  
11 一月 2013   -24°05' 45.2"  
12 一月 2013   -23°57' 08.7"  
13 一月 2013   -23°47' 04.8"  
14 一月 2013   -23°35' 32.6"  
15 一月 2013   -23°22' 31.5"  
16 一月 2013   -23°08' 00.8"  
17 一月 2013   -22°51' 59.9"  
18 一月 2013   -22°34' 28.2"  
19 一月 2013   -22°15' 25.2"  
20 一月 2013   -21°54' 50.7"  
21 一月 2013   -21°32' 44.2"  
22 一月 2013   -21°09' 05.7"  
23 一月 2013   -20°43' 55.0"  
24 一月 2013   -20°17' 12.3"  
25 一月 2013   -19°48' 57.7"  
26 一月 2013   -19°19' 11.9"  
27 一月 2013   -18°47' 55.5"  
28 一月 2013   -18°15' 09.5"  
29 一月 2013   -17°40' 55.3"  
30 一月 2013   -17°05' 14.7"  
31 一月 2013   -16°28' 09.9"  
01 二月 2013   -15°49' 43.8"  
02 二月 2013   -15°09' 59.8"  
03 二月 2013   -14°29' 02.5"  
04 二月 2013   -13°46' 56.8"  
05 二月 2013   -13°03' 49.3"  
06 二月 2013   -12°19' 47.2"  
07 二月 2013   -11°34' 59.6"  
08 二月 2013   -10°49' 36.8"  
09 二月 2013   -10°03' 50.6"  
10 二月 2013   -09°17' 54.8"  
11 二月 2013   -08°32' 04.9"  
12 二月 2013   -07°46' 38.1"  
13 二月 2013   -07°01' 53.6"  
14 二月 2013   -06°18' 12.3"  
15 二月 2013   -05°35' 56.2"  
16 二月 2013   -04°55' 29.1"  
17 二月 2013   -04°17' 15.1"  
18 二月 2013   -03°41' 39.2"  
19 二月 2013   -03°09' 06.0"  
20 二月 2013   -02°39' 59.5"  
21 二月 2013   -02°14' 42.3"  
22 二月 2013   -01°53' 35.0"  
23 二月 2013   -01°36' 55.5"  
24 二月 2013   -01°24' 58.1"  
25 二月 2013   -01°17' 52.7"  
26 二月 2013   -01°15' 44.0"  
27 二月 2013   -01°18' 30.8"  
28 二月 2013   -01°26' 05.5"  
01 三月 2013   -01°38' 13.7"  
02 三月 2013   -01°54' 34.4"  
03 三月 2013   -02°14' 40.4"  
04 三月 2013   -02°37' 59.2"  
05 三月 2013   -03°03' 54.3"  
06 三月 2013   -03°31' 47.0"  
07 三月 2013   -04°00' 57.8"  
08 三月 2013   -04°30' 48.1"  
09 三月 2013   -05°00' 41.8"  
10 三月 2013   -05°30' 06.2"  
11 三月 2013   -05°58' 32.9"  
12 三月 2013   -06°25' 37.8"  
13 三月 2013   -06°51' 01.6"  
14 三月 2013   -07°14' 29.1"  
15 三月 2013   -07°35' 49.3"  
16 三月 2013   -07°54' 54.2"  
17 三月 2013   -08°11' 39.1"  
18 三月 2013   -08°26' 01.3"  
19 三月 2013   -08°38' 00.1"  
20 三月 2013   -08°47' 36.2"  
21 三月 2013   -08°54' 51.5"  
22 三月 2013   -08°59' 48.5"  
23 三月 2013   -09°02' 30.3"  
24 三月 2013   -09°03' 00.3"  
25 三月 2013   -09°01' 22.3"  
26 三月 2013   -08°57' 39.8"  
27 三月 2013   -08°51' 56.7"  
28 三月 2013   -08°44' 16.7"  
29 三月 2013   -08°34' 43.3"  
30 三月 2013   -08°23' 20.1"

这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。

[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

logoslogos

哪位朋友帮忙看一下这个公式。。总是报错。。现在重新需要这个公式。多谢

prayer

prayer

好的，谢谢He110

He110

奇怪，改了下公式在主图上不能显示。。。

logoslogos

应用到股指上，才显示威力。。。各位发财

logoslogos

明确的指示作用。。很好的工具

He110

没注意到tom的图是自然日

He110

tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。

prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下

tom123

交流

prayer

你好He110，请问如何直接程序计算declination值数据，有直接的公式吗？

He110

原帖由 静芸 于 2013-12-18 19:03 发表


你好, 向下
vertline(cross(0,cc)),coloryellow;

谢谢，可以了。

原帖由 kaiser88 于 2013-12-18 19:34 发表
he110 请问你公式怎么做的 我的也一样报错

我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。

kaiser88

he110 请问你公式怎么做的 我的也一样报错

静芸

原帖由 He110 于 2013-12-18 18:09 发表
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
我是不是用错了？ 有其他办法吗？

你好, 向下
vertline(cross(0,cc)),coloryellow;

He110

请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
我是不是用错了？ 有其他办法吗？

He110

[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]

He110

应该不用导入数据吧。。。
直接程序计算declination值数据然后显示



[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]

logoslogos

好的，理解了。一样感谢。。

静芸

原帖由 logoslogos 于 2013-12-17 21:55 发表
110668

还是不行。。。能通过测试，但一运行就出现这个错误：
见图。。。

可能是数据檔的问题
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法

logoslogos

还是不行。。。能通过测试，但一运行就出现这个错误：
见图。。。

静芸

原帖由 logoslogos 于 2013-12-17 19:53 发表
太好了。我试试。。。万分感谢

我刚试一下。。。出现错误。。。静云帮忙看看。。。
等我发图
110666

再试, 这读数据公式不是我编的
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then



[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

prayer

非常感谢静芸MM提供的实例

logoslogos

静云帮忙修改一下。。。多谢！

logoslogos

太好了。我试试。。。万分感谢

我刚试一下。。。出现错误。。。静云帮忙看看。。。
等我发图


[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

kaiser88

静芸

原帖由 kaiser88 于 2013-12-17 12:35 发表
再请问 怎么读写呢？俺不会

哈,这有些麻烦啊!
你把星相数据存在目录C:\Da.txt
档名是Da.txt
如果存在别的目录,如D:\hhh\Da.txt
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
下面是飞狐公式,我也未试过,你自行试试吧

FoxDE:=DATE; FoxTE:=TIME;
MyData:=C*0;
<%
MyData =FFL.VarData("MyData")
FoxDE =FFL.VarData("FoxDE")
FoxTE =FFL.VarData("FoxTE")
Set fs =CreateObject("Scripting.FileSystemObject")
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
MyTxt = wrkfs.ReadLine
wrkfs.close
TxtStr=MyTxt
TxtAry = Split(TxtStr, ",", -1, 1)
GetDE=CLNG(TxtAry(0))
GetTE=CLNG(TxtAry(1))
GetVV=CSNG(TxtAry(2))
for i=0 to ubound(MyData)
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
MyData(i)=GetVV
end if
next
FFL.VarData("MyData")=MyData
%>

cc:=MyData;
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
vertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]

kaiser88

再请问 怎么读写呢？俺不会

静芸

原帖由 kaiser88 于 2013-12-17 12:28 发表
请问静芸  能改成飞狐公式么？

这是飞狐公式
第一列的"数据"要用读进来的星象数据取代

kaiser88

请问静芸  能改成飞狐公式么？

静芸

飛狐

cc:=數據;
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
vertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]