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

logoslogos · 发表于 2013-12-12 16:41:47

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

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

：
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 · 发表于 2018-12-10 23:11:26

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

prayer · 发表于 2013-12-19 19:07:21

prayer · 发表于 2013-12-19 19:06:28

好的，谢谢He110

He110 · 发表于 2013-12-19 10:27:59

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

logoslogos · 发表于 2013-12-19 10:25:37

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

logoslogos · 发表于 2013-12-19 10:24:44

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

He110 · 发表于 2013-12-19 10:21:52

没注意到tom的图是自然日

He110 · 发表于 2013-12-19 10:15:12

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

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

tom123 · 发表于 2013-12-18 23:48:59

交流

prayer · 发表于 2013-12-18 20:42:05

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

He110 · 发表于 2013-12-18 20:20:50

原帖由静芸于 2013-12-18 19:03 发表
. g2 [5 X0 I1 G1 A' t( K$ J$ l1 F
; N5 j4 ]+ p# f9 ^5 V7 S
9 P1 d R' g3 _0 ^2 C你好, 向下- b2 Z. O; P3 O& \8 d" u
vertline(cross(0,cc)),coloryellow;

谢谢，可以了。

原帖由 kaiser88 于 2013-12-18 19:34 发表 _! _3 K$ Y4 }4 N
he110 请问你公式怎么做的我的也一样报错

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

kaiser88 · 发表于 2013-12-18 19:34:58

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

静芸 · 发表于 2013-12-18 19:03:25

原帖由 He110 于 2013-12-18 18:09 发表
% r- A7 @; Q1 K; ]( \8 |. ?请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue; 结果是向上穿越可以显示，但向下穿越不显示。. E0 s e9 j. K9 n# Z( p+ e d, B/ U
我是不是用错了？有其他办法吗？

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

He110 · 发表于 2013-12-18 18:09:35

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

He110 · 发表于 2013-12-18 17:02:04

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

He110 · 发表于 2013-12-18 15:59:29

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

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

logoslogos · 发表于 2013-12-18 10:08:57

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

静芸 · 发表于 2013-12-17 23:30:18

原帖由 logoslogos 于 2013-12-17 21:55 发表
1 n; R! D5 C9 i" w7 c9 g% U' o1106684 @+ [2 @0 g5 v) w& V, w9 }: Q

0 J3 s l4 [8 @0 x+ n6 H; {5 N3 M7 j还是不行。。。能通过测试，但一运行就出现这个错误：2 o) W3 {( r5 z' m
见图。。。

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

logoslogos · 发表于 2013-12-17 21:55:06

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

静芸 · 发表于 2013-12-17 21:28:23

原帖由 logoslogos 于 2013-12-17 19:53 发表 . L3 O4 L  t& S7 w7 l6 C( `
太好了。我试试。。。万分感谢
2 r* [* p& Q) N- E) o9 H; u* |& D" _  K
我刚试一下。。。出现错误。。。静云帮忙看看。。。  `2 Z6 g' A8 ]' Q9 z, W0 w0 A
等我发图
. n6 c9 U$ m% c' `) D110666

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

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

prayer · 发表于 2013-12-17 21:20:26

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

logoslogos · 发表于 2013-12-17 20:12:40

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

logoslogos · 发表于 2013-12-17 19:53:41

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

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

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

kaiser88 · 发表于 2013-12-17 13:07:10

静芸 · 发表于 2013-12-17 12:58:08

原帖由 kaiser88 于 2013-12-17 12:35 发表 $ m& h2 d( ]+ h- u2 W8 t& F+ s
再请问怎么读写呢？俺不会

哈,这有些麻烦啊!
你把星相数据存在目录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 · 发表于 2013-12-17 12:35:21

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

静芸 · 发表于 2013-12-17 12:32:36

原帖由 kaiser88 于 2013-12-17 12:28 发表
|) s- c' J8 Q9 B' f& Y1 `* `请问静芸能改成飞狐公式么？

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

kaiser88 · 发表于 2013-12-17 12:28:27

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

静芸 · 发表于 2013-12-17 12:22:14

飛狐

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

		自动登录	找回密码
密码			手机注册

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

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源