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

logoslogos

求助会编写指标的朋友，共同实现一个星相的交易工具：
8 @" k) w3 t- r$ ]* h



# a( t+ @) a. o/ M2 o这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
6 a2 |  S- y& @% r: l! n' U6 F+ D+ }
+ r, \" D1 W* `  S1 U
：
9 m) m5 R3 z, _; }# q; N1.根据给定的数值，画出这样的曲线
2.分别在曲线的每个拐点出画一竖线
3.在零值画一竖线
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
% G) f- ~2 j: z9 i: T5 c

  Y/ }! N0 ^2 Z2 H5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。

0 `) L) c3 \, s9 Z( I数据样本：从星相软件导出的：

01 一月 2013   -24°14' 58.7"  
02 一月 2013   -24°20' 05.2"  
03 一月 2013   -24°23' 54.3"  
04 一月 2013   -24°26' 24.8"  
: l& q, b7 j- J9 o! [' j# N1 z05 一月 2013   -24°27' 35.6"  
$ c) C! P3 L+ ]" i% t06 一月 2013   -24°27' 25.5"  
07 一月 2013   -24°25' 53.3"  
08 一月 2013   -24°22' 58.2"  
7 {; T- V- E, ?9 j09 一月 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"  
- Z8 R9 ~  {7 W) T" R: l16 一月 2013   -23°08' 00.8"  
17 一月 2013   -22°51' 59.9"  
18 一月 2013   -22°34' 28.2"  
: L2 S0 G0 Y/ `19 一月 2013   -22°15' 25.2"  
" M& e2 m$ t4 K3 ?! T- d20 一月 2013   -21°54' 50.7"  
7 m' S2 }/ Z8 @' n+ J21 一月 2013   -21°32' 44.2"  
3 ]2 ~; q' p4 ^7 d* j1 e$ J22 一月 2013   -21°09' 05.7"  
23 一月 2013   -20°43' 55.0"  
, s. z" {& j- w4 ^; U" r' F24 一月 2013   -20°17' 12.3"  
; O' g8 c( y- u$ _+ W25 一月 2013   -19°48' 57.7"  
26 一月 2013   -19°19' 11.9"  
* L/ n5 e* c7 B8 Y& O  X( `# |27 一月 2013   -18°47' 55.5"  
28 一月 2013   -18°15' 09.5"  
29 一月 2013   -17°40' 55.3"  
  l' u- b& H$ `9 b; M7 u* n30 一月 2013   -17°05' 14.7"  
/ I- F( }  `5 a8 B; `* y% X. h! X31 一月 2013   -16°28' 09.9"  
01 二月 2013   -15°49' 43.8"  
02 二月 2013   -15°09' 59.8"  
03 二月 2013   -14°29' 02.5"  
; c4 {5 Q& `& ]- t! g2 q04 二月 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"  
0 u' S1 S* l+ y8 j09 二月 2013   -10°03' 50.6"  
10 二月 2013   -09°17' 54.8"  
11 二月 2013   -08°32' 04.9"  
0 ]4 u7 C2 q4 q12 二月 2013   -07°46' 38.1"  
13 二月 2013   -07°01' 53.6"  
# S9 C0 }+ a2 H- _: X5 _0 g6 j4 p14 二月 2013   -06°18' 12.3"  
15 二月 2013   -05°35' 56.2"  
16 二月 2013   -04°55' 29.1"  
17 二月 2013   -04°17' 15.1"  
& O# _+ E$ p: `3 G1 X9 {2 w4 n18 二月 2013   -03°41' 39.2"  
( y. i; C2 r  p+ W. n9 _19 二月 2013   -03°09' 06.0"  
( D9 l1 e" q$ Q- w* q/ C20 二月 2013   -02°39' 59.5"  
21 二月 2013   -02°14' 42.3"  
22 二月 2013   -01°53' 35.0"  
2 k! P: [- v! g' o; N23 二月 2013   -01°36' 55.5"  
0 B% S! u- g$ R/ y1 ^) Z24 二月 2013   -01°24' 58.1"  
25 二月 2013   -01°17' 52.7"  
$ x; e9 [( p8 L26 二月 2013   -01°15' 44.0"  
27 二月 2013   -01°18' 30.8"  
$ @3 r4 Y; l: W2 O& y28 二月 2013   -01°26' 05.5"  
- @. b0 Y8 U& n01 三月 2013   -01°38' 13.7"  
02 三月 2013   -01°54' 34.4"  
03 三月 2013   -02°14' 40.4"  
- q  w7 n2 p6 y) R' b04 三月 2013   -02°37' 59.2"  
$ I7 D1 V2 U: B; O3 f05 三月 2013   -03°03' 54.3"  
) v0 c/ G# ?% {( q% {) O4 q% D06 三月 2013   -03°31' 47.0"  
07 三月 2013   -04°00' 57.8"  
08 三月 2013   -04°30' 48.1"  
09 三月 2013   -05°00' 41.8"  
! \- z7 g" O. y" N2 E& O' e0 r1 U10 三月 2013   -05°30' 06.2"  
- K1 h' a5 A% X& G3 u" [9 F7 @: \11 三月 2013   -05°58' 32.9"  
12 三月 2013   -06°25' 37.8"  
13 三月 2013   -06°51' 01.6"  
$ V, |1 Z$ X. C1 `14 三月 2013   -07°14' 29.1"  
15 三月 2013   -07°35' 49.3"  
! e. W  |& L  o. v9 t( D16 三月 2013   -07°54' 54.2"  
: S( F; ^0 s4 E2 G17 三月 2013   -08°11' 39.1"  
' R) ]$ ~# \; ?! w18 三月 2013   -08°26' 01.3"  
% m: O3 o3 T9 c; _& Z19 三月 2013   -08°38' 00.1"  
20 三月 2013   -08°47' 36.2"  
21 三月 2013   -08°54' 51.5"  
, ~4 x5 o# X7 }4 x22 三月 2013   -08°59' 48.5"  
/ j8 W6 b( Y; t5 g1 W% a23 三月 2013   -09°02' 30.3"  
4 ?6 x; ], ?+ M3 P& I- E24 三月 2013   -09°03' 00.3"  
25 三月 2013   -09°01' 22.3"  
3 }. ^, e; o. W: l) ^" v( m26 三月 2013   -08°57' 39.8"  
27 三月 2013   -08°51' 56.7"  
/ q' F+ p6 a* Q, Y28 三月 2013   -08°44' 16.7"  
( }4 p4 X1 T, z( F/ J( }29 三月 2013   -08°34' 43.3"  
/ ?, B$ ~- D+ `30 三月 2013   -08°23' 20.1"

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

+ R! C1 g0 O0 F[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

logoslogos

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

prayer

prayer

好的，谢谢He110

He110

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

logoslogos

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

logoslogos

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

He110

没注意到tom的图是自然日

He110

tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。
8 I3 C; X: ~) `$ w3 l3 H
prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下

tom123

交流

prayer

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

He110

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


3 g+ Q9 b- t" Y) I9 a你好, 向下
vertline(cross(0,cc)),coloryellow;

* L) c, A! r" F( B0 x
: M' L2 r: i1 q. U$ B! k谢谢，可以了。

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

3 J+ p5 v$ E1 e4 n# e/ H我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。

kaiser88

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

静芸

原帖由 He110 于 2013-12-18 18:09 发表
7 m( T) e0 L! |8 _1 j" b$ A请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
/ S& p+ ]2 p2 C! G# K& ?8 Y) k我是不是用错了？ 有其他办法吗？

& v1 j2 F, J' l" [* x; T你好, 向下
8 g7 G  s8 w* Y+ T5 u7 F  Hvertline(cross(0,cc)),coloryellow;

He110

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

He110

3 o6 C  }& f# X& t& i5 Q: }" q
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]

He110

应该不用导入数据吧。。。
4 o. T8 P9 |: J0 {7 \5 a直接程序计算declination值数据然后显示

& ?: l' Q2 i3 O
* T4 ~6 m* E" q) i( W3 `* H
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]

logoslogos

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

静芸

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

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

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

logoslogos

" k) }/ Q. R" o5 |还是不行。。。能通过测试，但一运行就出现这个错误：
见图。。。

静芸

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

我刚试一下。。。出现错误。。。静云帮忙看看。。。
; S5 v2 L1 }& U等我发图
110666

再试, 这读数据公式不是我编的
5 e4 l; H, d6 b. W2 a: gif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then



$ I' P$ o9 Q& p5 }[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

prayer

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

logoslogos

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

logoslogos

太好了。我试试。。。万分感谢
7 p- {/ e7 L. \4 l/ \& a4 s
: H6 t9 a5 `* Z; }+ w6 Q4 P$ J3 h我刚试一下。。。出现错误。。。静云帮忙看看。。。
等我发图

/ H( A" V( i, i. s# a/ L
) e1 K3 Q/ ]7 O. U* S[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

kaiser88

静芸

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

哈,这有些麻烦啊!
你把星相数据存在目录C:\Da.txt
, ~: L) o: Q0 F/ k! @档名是Da.txt
如果存在别的目录,如D:\hhh\Da.txt
( b# t( E: P: h5 R) ?那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
# r7 L1 P+ z9 w0 i0 s' r" p下面是飞狐公式,我也未试过,你自行试试吧

* H- }/ w4 F, N( l9 `% D, d" x# }7 |FoxDE:=DATE; FoxTE:=TIME;
) F" _  q( h+ @% Q7 ?8 D, K. A9 O6 |MyData:=C*0;
8 c* c6 @/ K/ K) [! @<%
1 s8 G# @( U* k2 P& MMyData =FFL.VarData("MyData")
FoxDE =FFL.VarData("FoxDE")
6 ]1 i; ?1 m/ t* p" M) k- VFoxTE =FFL.VarData("FoxTE")
8 }2 m! d( c. W0 l9 h! NSet fs =CreateObject("Scripting.FileSystemObject")
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
MyTxt = wrkfs.ReadLine
. J& E* T6 c0 ywrkfs.close
6 |% E0 m5 e: n  _$ v  sTxtStr=MyTxt
# Y. M/ e5 C) V  Y% ?; ~) ~" QTxtAry = Split(TxtStr, ",", -1, 1)
# o- [8 p/ [+ O5 X3 r+ EGetDE=CLNG(TxtAry(0))
) n! Y/ s& `9 M9 vGetTE=CLNG(TxtAry(1))
GetVV=CSNG(TxtAry(2))
- t1 M4 e# ~6 R& B% p7 `for i=0 to ubound(MyData)
" w' g0 c' ]5 `' h- J8 Rif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
MyData(i)=GetVV
. ?' T. W0 a! ?$ O9 Q- @( tend if
next
FFL.VarData("MyData")=MyData
$ J7 r8 {: ^1 D% l%>

cc:=MyData;
( ~: h) {0 k( c4 _* a  ?ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
( ^' s% W' g8 G. zvertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
% k; I5 V- ]6 U7 e" c6 k4 nvertline(ccsL),colorgreen; {low}

* ]' ]6 A8 A; D" G: s9 i[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]

kaiser88

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

静芸

原帖由 kaiser88 于 2013-12-17 12:28 发表
' y8 d8 _9 @3 R: @8 I/ Y( t请问静芸  能改成飞狐公式么？

1 y4 {- h- _" w1 ~3 P% y6 S这是飞狐公式
* Q3 x% V" y% f第一列的"数据"要用读进来的星象数据取代

kaiser88

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

静芸

飛狐
. Z- S% K/ g: I; q9 x* @
, T+ o( V' A; H4 v2 T+ Ucc:=數據;
7 V4 g  U' x3 }) l' Wccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
1 q) I9 D4 p/ ^! n; Tvertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

. S3 D5 Z, P% ~5 T: t( K  H[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]