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

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 编辑 ]

子傻

.gif" smilieid="273" border="0" alt="" />

tom123

	水星
13-1-1	0.10625
13-1-2	0.08514
13-1-3	0.06365
13-1-4	0.04182
13-1-5	0.01966
13-1-6	-0.00282
13-1-7	-0.02558
13-1-8	-0.04865
13-1-9	-0.07197
13-1-10	-0.09556
13-1-11	-0.1194
13-1-12	-0.14346
13-1-13	-0.16776
13-1-14	-0.19226
13-1-15	-0.21697
13-1-16	-0.24187
13-1-17	-0.26692
13-1-18	-0.29213
13-1-19	-0.31748
13-1-20	-0.34293
13-1-21	-0.36846
13-1-22	-0.39403
13-1-23	-0.41963
13-1-24	-0.4452
13-1-25	-0.4707
13-1-26	-0.49606
13-1-27	-0.52122
13-1-28	-0.5461
13-1-29	-0.57061
13-1-30	-0.59462
13-1-31	-0.61799
13-2-1	-0.64059
13-2-2	-0.66219
13-2-3	-0.68261
13-2-4	-0.70156
13-2-5	-0.71877
13-2-6	-0.73389
13-2-7	-0.74655
13-2-8	-0.75635
13-2-9	-0.76282
13-2-10	-0.7655
13-2-11	-0.76387
13-2-12	-0.75744
13-2-13	-0.74569
13-2-14	-0.72817
13-2-15	-0.70445
13-2-16	-0.67422
13-2-17	-0.6372
13-2-18	-0.59332
13-2-19	-0.54256
13-2-20	-0.48517
13-2-21	-0.42146
13-2-22	-0.35203
13-2-23	-0.27765
13-2-24	-0.19929
13-2-25	-0.11818
13-2-26	-0.03577
13-2-27	0.04633
13-2-28	0.12629
13-3-1	0.20227
13-3-2	0.27242
13-3-3	0.33499
13-3-4	0.38854
13-3-5	0.43198
13-3-6	0.46463
13-3-7	0.48633
13-3-8	0.4973
13-3-9	0.49826
13-3-10	0.49012
13-3-11	0.47407
13-3-12	0.45137
13-3-13	0.42327
13-3-14	0.39099
13-3-15	0.3556
13-3-16	0.31805
13-3-17	0.27913
13-3-18	0.23951
13-3-19	0.19967
13-3-20	0.16005
13-3-21	0.12091
13-3-22	0.08251
13-3-23	0.04495
13-3-24	0.00835
13-3-25	-0.02724
13-3-26	-0.06178
13-3-27	-0.0953
13-3-28	-0.12778
13-3-29	-0.15927
13-3-30	-0.18978
13-3-31	-0.21935
13-4-1	-0.24802
13-4-2	-0.27582
13-4-3	-0.3028
13-4-4	-0.32898
13-4-5	-0.3544
13-4-6	-0.37912
13-4-7	-0.40314
13-4-8	-0.42651
13-4-9	-0.44925
13-4-10	-0.4714
13-4-11	-0.49295
13-4-12	-0.51396
13-4-13	-0.53442
13-4-14	-0.55434
13-4-15	-0.57375
13-4-16	-0.59262
13-4-17	-0.611
13-4-18	-0.62883
13-4-19	-0.64616
13-4-20	-0.66294
13-4-21	-0.67916
13-4-22	-0.6948
13-4-23	-0.70983
13-4-24	-0.72419
13-4-25	-0.73786
13-4-26	-0.75076
13-4-27	-0.76282
13-4-28	-0.77395
13-4-29	-0.78405
13-4-30	-0.79299
13-5-1	-0.80067
13-5-2	-0.80689
13-5-3	-0.81151
13-5-4	-0.81433
13-5-5	-0.81516
13-5-6	-0.81379
13-5-7	-0.80996
13-5-8	-0.80349
13-5-9	-0.79413
13-5-10	-0.78169
13-5-11	-0.76601
13-5-12	-0.7471
13-5-13	-0.72435
13-5-14	-0.69856
13-5-15	-0.66933
13-5-16	-0.63692
13-5-17	-0.60161
13-5-18	-0.56373
13-5-19	-0.52366
13-5-20	-0.48185
13-5-21	-0.43876
13-5-22	-0.39485
13-5-23	-0.35059
13-5-24	-0.30636
13-5-25	-0.2626
13-5-26	-0.2196
13-5-27	-0.17767
13-5-28	-0.13701
13-5-29	-0.09784
13-5-30	-0.06029
13-5-31	-0.02446
13-6-1	0.00956
13-6-2	0.04173
13-6-3	0.07201
13-6-4	0.10041
13-6-5	0.12691
13-6-6	0.15152
13-6-7	0.17427
13-6-8	0.19518
13-6-9	0.21425
13-6-10	0.23154
13-6-11	0.24705
13-6-12	0.26079
13-6-13	0.27282
13-6-14	0.28311
13-6-15	0.29171
13-6-16	0.29861
13-6-17	0.30384
13-6-18	0.30739
13-6-19	0.30927
13-6-20	0.30949
13-6-21	0.30805
13-6-22	0.30495
13-6-23	0.30022
13-6-24	0.29383
13-6-25	0.28585
13-6-26	0.27625
13-6-27	0.26512
13-6-28	0.25244
13-6-29	0.23828
13-6-30	0.22273
13-7-1	0.20581
13-7-2	0.18766
13-7-3	0.16837
13-7-4	0.14805
13-7-5	0.12689
13-7-6	0.105
13-7-7	0.0826
13-7-8	0.05985
13-7-9	0.03695
13-7-10	0.01412
13-7-11	-0.00843
13-7-12	-0.03051
13-7-13	-0.05189
13-7-14	-0.07237
13-7-15	-0.09177
13-7-16	-0.10988
13-7-17	-0.12654
13-7-18	-0.14158
13-7-19	-0.15485
13-7-20	-0.1662
13-7-21	-0.17549
13-7-22	-0.18259
13-7-23	-0.1874
13-7-24	-0.18977
13-7-25	-0.18963
13-7-26	-0.18684
13-7-27	-0.18132
13-7-28	-0.17299
13-7-29	-0.16174
13-7-30	-0.1475
13-7-31	-0.1302
2013-8-1	-0.10981
2013-8-2	-0.08628
2013-8-3	-0.05964
2013-8-4	-0.02995
2013-8-5	0.00269
2013-8-6	0.0381
2013-8-7	0.07607
2013-8-8	0.11625
2013-8-9	0.15829
2013-8-10	0.20173
2013-8-11	0.24609
2013-8-12	0.2908
2013-8-13	0.33534
2013-8-14	0.37914
2013-8-15	0.42172
2013-8-16	0.46259
2013-8-17	0.50139
2013-8-18	0.53778
2013-8-19	0.57157
2013-8-20	0.60259
2013-8-21	0.6308
2013-8-22	0.65617
2013-8-23	0.67879
2013-8-24	0.69871
2013-8-25	0.71609
2013-8-26	0.73108
2013-8-27	0.74381
2013-8-28	0.75444
2013-8-29	0.76317
2013-8-30	0.77012
2013-8-31	0.77546
2013-9-1	0.77933
2013-9-2	0.78187
2013-9-3	0.78318
2013-9-4	0.78337
2013-9-5	0.78256
2013-9-6	0.78082
2013-9-7	0.77824
2013-9-8	0.77487
2013-9-9	0.7708
2013-9-10	0.76607
2013-9-11	0.76071
2013-9-12	0.75479
2013-9-13	0.74833
2013-9-14	0.74135
2013-9-15	0.73389
2013-9-16	0.72597
2013-9-17	0.71759
2013-9-18	0.70878
2013-9-19	0.69955
2013-9-20	0.68988
2013-9-21	0.67982
2013-9-22	0.66931
2013-9-23	0.65838
2013-9-24	0.64701
2013/09/25	0.63519
2013/09/26	0.62288
2013/09/27	0.61008
2013-9-28	0.59677
2013-9-29	0.58291
2013/09/30	0.56846
2013-10-1	0.5534
2013-10-2	0.53767
2013-10-3	0.52123
2013-10-4	0.50402
2013-10-5	0.48598
2013-10-6	0.46703
2013-10-7	0.44709
2013/10/08	0.42606
2013/10/09	0.40384
2013/10/10	0.38028
2013/10/11	0.35527
2013-10-12	0.32864
2013-10-13	0.30019
2013-10-14	0.26972
2013-10-15	0.23702
2013-10-16	0.20182
2013-10-17	0.16383
2013-10-18	0.12276
2013-10-19	0.07832
2013-10-20	0.03015
2013-10-21	-0.02198
2013-10-22	-0.0783
2013-10-23	-0.13891
2013-10-24	-0.20366
2013-10-25	-0.27217
2013-10-26	-0.34357
2013-10-27	-0.41652
2013-10-28	-0.48904
2013-10-29	-0.55842
2013-10-30	-0.62143
2013-10-31	-0.67431
2013-11-1	-0.71331
2013-11-2	-0.73502
2013-11-3	-0.73694
2013-11-4	-0.7179
2013-11-5	-0.67829
2013-11-6	-0.62002
2013-11-7	-0.54625
2013-11-8	-0.46094
2013-11-9	-0.36831
2013-11-10	-0.27245
2013-11-11	-0.17696
2013-11-12	-0.0847
2013-11-13	0.00214
2013-11-14	0.0821
2013-11-15	0.15435
2013-11-16	0.21852
2013-11-17	0.27465
2013-11-18	0.32299
2013-11-19	0.36402
2013-11-20	0.39829
2013-11-21	0.42641
2013-11-22	0.44896
2013-11-23	0.46655
2013-11-24	0.47975
2013/11/25	0.48905
2013/11/26	0.4949
2013/11/27	0.49775
2013/11/28	0.49793
2013-11-29	0.4958
2013-11-30	0.49159
2013-12-1	0.48559
2013-12-2	0.478
2013-12-3	0.46898
2013-12-4	0.45871
2013-12-5	0.44732
2013-12-6	0.43491
2013-12-7	0.42159
2013-12-8	0.40746
2013-12-9	0.39257
2013-12-10	0.37698
2013-12-11	0.36078
2013-12-12	0.34397
2013-12-13	0.32662
2013-12-14	0.30875
2013-12-15	0.2904
2013-12-16	0.27158
2013-12-17	0.25232
2013-12-18	0.23262
2013-12-19	0.21252
2013-12-20	0.19202
2013-12-21	0.17114
2013-12-22	0.14987
2013-12-23	0.12825
2013-12-24	0.10627
2013-12-25	0.08395
2013-12-26	0.06128
2013-12-27	0.03829
2013-12-28	0.01499
2013-12-29	-0.00862
2013-12-30	-0.03253
2013-12-31	-0.05671

tom123

logoslogos

编写指标用 的数据，见附件

skywater

最好变成飞狐的好

logoslogos

最好变成飞狐的好..

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 编辑 ]

kaiser88

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

静芸

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

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

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

logoslogos

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

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


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

logoslogos

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

prayer

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

静芸

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

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

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



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

logoslogos

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

静芸

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

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

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

logoslogos

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

He110

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



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

He110

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

He110

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

静芸

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

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

kaiser88

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

He110

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


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

谢谢，可以了。

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

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

prayer

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

tom123

交流

He110

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

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