阳光飞狐

【阳光飞狐__与财富同行】

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

查看: 5739|回复: 36
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
5 E) m% F  J9 C0 T, s- {0 @; N
3 i1 D  @/ }3 m5 C+ Q& z
4 i9 B9 ?4 O; A- V. N, f8 R; ^

$ ]: P+ y2 D2 x! S/ [

; i2 ~9 Q% k7 x1 t1 S: C这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
* s+ I' {2 U' E, O8 q  t1 z5 M- O1 k# s! P
# Y: ]8 t0 [" o  k

0 S3 Z+ U7 Q8 ~* a* I1.根据给定的数值,画出这样的曲线
5 j, Z8 c% r0 i! x+ a, ~2.分别在曲线的每个拐点出画一竖线) p& [, \" E- o5 G& ~, \
3.在零值画一竖线
+ K3 `$ G: t- X  ?( x& p4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。
1 I; b  M7 S7 \9 N3 O$ x. U7 ]
8 G) j6 l: H% t0 @* E
" x% E# T  Q5 a7 w+ K2 O
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。( {) l' ]3 z# d

* z- q/ v' d! e+ a# @数据样本:从星相软件导出的:
& A' x! [' N  L6 l1 a( B9 x! h; y. A5 I, y
01 一月 2013   -24°14' 58.7"  
8 h" l! t, D6 R, m9 ?, D02 一月 2013   -24°20' 05.2"  
2 ?, `3 H6 z/ n. L6 V03 一月 2013   -24°23' 54.3"  
0 ?9 A: R1 e& M& K4 t9 f04 一月 2013   -24°26' 24.8"  
, C3 b4 W' ~1 q- B# p% w05 一月 2013   -24°27' 35.6"  * N- f  s- t( h  |" a2 B  v
06 一月 2013   -24°27' 25.5"  $ k) B4 F0 G3 \0 a& S  g8 ^
07 一月 2013   -24°25' 53.3"  6 }/ d  S/ H% \" C- i* V
08 一月 2013   -24°22' 58.2"  
2 K4 z( n6 _+ `1 O1 u) d09 一月 2013   -24°18' 39.1"  6 w* o$ h. N$ B. O/ [
10 一月 2013   -24°12' 55.1"  
! w2 r9 I- K- D/ s. t11 一月 2013   -24°05' 45.2"  
( C! G. _- W" B0 k12 一月 2013   -23°57' 08.7"  
" w8 ~& A& M& m" D; _13 一月 2013   -23°47' 04.8"  
2 h2 x5 p9 _  C; I% {' Z3 d14 一月 2013   -23°35' 32.6"  ; y$ i$ G; K: ]4 G" K
15 一月 2013   -23°22' 31.5"  . n/ k) ?: I+ f, b
16 一月 2013   -23°08' 00.8"  
. j3 B8 ~; L- ?17 一月 2013   -22°51' 59.9"  
7 C1 c: u0 k, S/ }18 一月 2013   -22°34' 28.2"  8 M7 R8 N5 J( w- x5 l0 q
19 一月 2013   -22°15' 25.2"  ( L7 d9 O+ r" @. y2 }! `+ o" S0 }
20 一月 2013   -21°54' 50.7"  : B7 L( i* C. F; i* u# c% o  c
21 一月 2013   -21°32' 44.2"  
' m" ]6 y& p& C5 U0 D: G( J22 一月 2013   -21°09' 05.7"  ( z' a. q% d8 z
23 一月 2013   -20°43' 55.0"  
1 t9 c# T, D5 O: ]+ j24 一月 2013   -20°17' 12.3"  7 {: |2 O& o) @. n
25 一月 2013   -19°48' 57.7"  
6 Y2 \+ S  R9 w# a7 {26 一月 2013   -19°19' 11.9"  " T; y9 c1 Z0 x9 I5 e
27 一月 2013   -18°47' 55.5"  $ ~' F7 \2 S* i/ R2 U
28 一月 2013   -18°15' 09.5"  
2 u5 j: ], P, [. |29 一月 2013   -17°40' 55.3"  $ T* O* g- A* t, S7 O/ f& ]' i
30 一月 2013   -17°05' 14.7"  " Y; d0 B, K3 F4 x4 `0 M* n, g" K
31 一月 2013   -16°28' 09.9"  
4 }8 o% |& s# F; [: g01 二月 2013   -15°49' 43.8"  
8 W$ o& U2 N) s3 y: f) o02 二月 2013   -15°09' 59.8"  
' P- Q. @" ^/ D. X03 二月 2013   -14°29' 02.5"  
7 ~" Z. _% {# L8 E2 _04 二月 2013   -13°46' 56.8"  & C, f9 K4 X8 w; @5 d. L" L
05 二月 2013   -13°03' 49.3"  
8 M; S0 N% ]6 X. A06 二月 2013   -12°19' 47.2"  
$ t* i; h" P% h8 _% L$ o07 二月 2013   -11°34' 59.6"    }2 N$ h1 Q. u+ b
08 二月 2013   -10°49' 36.8"  
( {5 c$ p8 X4 y09 二月 2013   -10°03' 50.6"  + M3 d. v5 \3 b
10 二月 2013   -09°17' 54.8"  
! U9 m9 Z% t: j7 R$ f9 d7 I11 二月 2013   -08°32' 04.9"  
- u: A* i4 g4 e& H7 E12 二月 2013   -07°46' 38.1"  : S/ j# i1 O$ I
13 二月 2013   -07°01' 53.6"  2 s, `, @$ }6 K5 k# c; A# S
14 二月 2013   -06°18' 12.3"  
# L. ?# r: Y8 ]9 ?) r' J15 二月 2013   -05°35' 56.2"  5 Q( `/ I% q$ G4 ?/ X% ~5 Y8 {
16 二月 2013   -04°55' 29.1"  
; m! O- R; w- r$ Y17 二月 2013   -04°17' 15.1"  
$ b7 Y9 a4 H: Y/ k5 a9 E' Q18 二月 2013   -03°41' 39.2"  # P9 w0 O, G/ j  ^0 }6 H$ m" I
19 二月 2013   -03°09' 06.0"  
: N6 [- V- C3 i5 o20 二月 2013   -02°39' 59.5"  1 ^! V, L1 m. K  }6 J8 i
21 二月 2013   -02°14' 42.3"  
+ I7 Q4 o3 H$ G7 _6 l, r! C22 二月 2013   -01°53' 35.0"  $ I/ {3 i; d$ |- G. p8 K
23 二月 2013   -01°36' 55.5"  
0 |3 W; M  A& Y' V24 二月 2013   -01°24' 58.1"  $ M" ?: t* i; b$ `5 R
25 二月 2013   -01°17' 52.7"  
# i( C9 W* W, j7 Z: b26 二月 2013   -01°15' 44.0"  
1 t# w4 H; g# s* o' t7 p8 S27 二月 2013   -01°18' 30.8"  " {3 G9 |- b' b, D' P3 P
28 二月 2013   -01°26' 05.5"  " M" R( T3 V# t+ V+ M
01 三月 2013   -01°38' 13.7"  
* t' e8 c( ?% G7 O' A02 三月 2013   -01°54' 34.4"  ! J- A: P! T) \( M
03 三月 2013   -02°14' 40.4"  
+ ?, a8 U& F! q7 I04 三月 2013   -02°37' 59.2"  
. M1 ~3 c% z5 y- U) W1 a3 ?05 三月 2013   -03°03' 54.3"  2 v+ \$ }. j* D9 T3 F
06 三月 2013   -03°31' 47.0"  
1 X9 J. v( ^3 S) D% k$ r07 三月 2013   -04°00' 57.8"  % E6 p* j" n8 g0 x) D0 ]9 u
08 三月 2013   -04°30' 48.1"  " A" l0 L* l- b" ]* l
09 三月 2013   -05°00' 41.8"  
7 }$ t8 W5 |! R; D/ K10 三月 2013   -05°30' 06.2"  # o% h# V6 \9 u( A
11 三月 2013   -05°58' 32.9"  
4 X) t6 l% a3 Q$ u* I  I# W* N12 三月 2013   -06°25' 37.8"  
' K. W* E3 Y, S13 三月 2013   -06°51' 01.6"  
$ \, y! Y# @  c% |0 r/ i- u$ J14 三月 2013   -07°14' 29.1"  
  w0 B1 B9 ?4 Y. o  L* A  k( y15 三月 2013   -07°35' 49.3"  " l9 v- `, g1 ]. ?( W2 O, I7 ]- [
16 三月 2013   -07°54' 54.2"  ) L% `# r! v! ^+ h
17 三月 2013   -08°11' 39.1"  
2 K' w# y9 p. g) A  r0 v5 O# }18 三月 2013   -08°26' 01.3"  
' ]! M8 ^3 I4 q6 g% m) u19 三月 2013   -08°38' 00.1"  
1 k9 }/ h+ D2 `20 三月 2013   -08°47' 36.2"  
8 d# }8 d/ M6 C$ ]' _21 三月 2013   -08°54' 51.5"  
3 ^. N$ H4 `* R1 \: j" f7 z8 r22 三月 2013   -08°59' 48.5"  * D  w  Z6 c0 U2 |6 t; \  E7 J# U. d
23 三月 2013   -09°02' 30.3"  
% v  i- L* w5 c# K24 三月 2013   -09°03' 00.3"  ! \2 a9 X5 I" E6 s; X- v! V
25 三月 2013   -09°01' 22.3"  8 P$ A1 h6 o, L! o, K5 m
26 三月 2013   -08°57' 39.8"  
& U6 |% j0 m/ _27 三月 2013   -08°51' 56.7"  5 H) N3 @- j& c; M/ V& J' P
28 三月 2013   -08°44' 16.7"  
$ ~* Z" f+ k- m29 三月 2013   -08°34' 43.3"  7 v; `% ]+ {( Z
30 三月 2013   -08°23' 20.1"# C* i5 @# }# {. w  T$ B# Z. d
% ]6 T4 V% X4 A
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。6 J; m  F$ X! {

/ c" N) C- v4 v& |[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
37#
 楼主| 发表于 2018-12-10 23:11:26 | 只看该作者
哪位朋友帮忙看一下这个公式。。总是报错。。现在重新需要这个公式。多谢
36#
发表于 2013-12-19 19:07:21 | 只看该作者

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x

评分

1

查看全部评分

35#
发表于 2013-12-19 19:06:28 | 只看该作者
好的,谢谢He110
34#
发表于 2013-12-19 10:27:59 | 只看该作者
奇怪,改了下公式在主图上不能显示。。。
33#
 楼主| 发表于 2013-12-19 10:25:37 | 只看该作者
应用到股指上,才显示威力。。。各位发财
32#
 楼主| 发表于 2013-12-19 10:24:44 | 只看该作者
明确的指示作用。。很好的工具
31#
发表于 2013-12-19 10:21:52 | 只看该作者
没注意到tom的图是自然日
30#
发表于 2013-12-19 10:15:12 | 只看该作者
tom兄是叠加了其他几个星星吗? 我的数据就没有tom兄的这么平滑。。。! b2 Z( q7 y! O! C/ @1 L

5 e3 [' ^0 t/ A6 I' [prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
29#
发表于 2013-12-18 23:48:59 | 只看该作者
交流

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
28#
发表于 2013-12-18 20:42:05 | 只看该作者
你好He110,请问如何直接程序计算declination值数据,有直接的公式吗?
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 % h, P2 D# H: ]$ ~" M

4 @  P  \/ f8 t6 ^0 z* S
, G$ n, {* b! v# _. h" Z你好, 向下
- f* ^8 z  Z# W* w, Z; O  O& pvertline(cross(0,cc)),coloryellow;

  n( N: r/ J# b4 E. N
; z7 X* ]+ ]& T. b谢谢,可以了。
* Q6 [- b2 V2 B9 M
2 b0 s& R3 _: t; x2 J# ^7 I' h
原帖由 kaiser88 于 2013-12-18 19:34 发表
' L6 y4 a* ]8 W) D" D) w) ahe110 请问你公式怎么做的 我的也一样报错

' b8 K$ ]. w3 [# T2 L- r. B+ G0 @
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 ! i! ~: e  B) e
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
+ m* D% D* w0 w8 h我是不是用错了? 有其他办法吗?
" d! W6 q! \. J% `% o3 g
4 P/ K2 g+ q$ S
你好, 向下
2 i& l' c& n8 D2 ^! m7 d5 fvertline(cross(0,cc)),coloryellow;
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。. A- }) I# i: f  w
我是不是用错了? 有其他办法吗?
23#
发表于 2013-12-18 17:02:04 | 只看该作者

9 Q  @% [3 v- K. c  l' {2 @9 o2 n* o/ C( f' [+ V
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。. N% ]" O/ b( {: T" l% P
直接程序计算declination值数据然后显示/ S% h9 D! U* Z8 [

8 F: ^  u% j3 P
$ @1 _! Q0 L5 v4 L  T
: D3 C/ z+ y6 S3 W[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
( L4 Z( c) ^- C6 A; o1106683 U& V5 [4 K" _1 |7 \! A; T

% D0 S( }" T* ]6 N还是不行。。。能通过测试,但一运行就出现这个错误:1 R$ e1 V. o# ]3 T+ h6 c
见图。。。

; L8 b! y5 v6 s7 K& _2 d6 X" Q# m( p
2 W! q% n2 W9 C! m, F! b可能是数据檔的问题2 G. l6 a6 N$ u, H- {% v% e
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行9 }: ^$ z: Y% @
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
9 l* X0 R6 p) x+ N/ h* K

$ ?% r2 I- s( M! N  \# W  Y还是不行。。。能通过测试,但一运行就出现这个错误:! Z% X! [2 b* x2 c* k$ o
见图。。。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
18#
发表于 2013-12-17 21:28:23 | 只看该作者
原帖由 logoslogos 于 2013-12-17 19:53 发表
/ V4 i7 |3 s& q  Q) o5 w太好了。我试试。。。万分感谢. g& n" V6 _* m
2 Y, W4 T- O! k. Y7 Y
我刚试一下。。。出现错误。。。静云帮忙看看。。。+ a) x. `* g0 e* Z  D% ?
等我发图* o, r- _" i9 N2 b0 k4 l
110666

5 m7 G1 M# i, P; g) |1 r
, S% K* Q7 Z, V0 q7 [再试, 这读数据公式不是我编的
8 e7 X1 G5 l, pif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then% Z$ B5 W8 U2 [

- }: w+ D% T9 n( J6 Y4 d' v/ Z' p/ `, T8 x
5 P+ c4 L# c) S! a3 a4 l
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
17#
发表于 2013-12-17 21:20:26 | 只看该作者
非常感谢静芸MM提供的实例
16#
 楼主| 发表于 2013-12-17 20:12:40 | 只看该作者
静云帮忙修改一下。。。多谢!
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
. |4 p9 b* v+ V5 X7 i0 D
! D, h0 q. H. B, x6 L( Q8 I& M- e我刚试一下。。。出现错误。。。静云帮忙看看。。。$ q* [6 Y( I7 H3 s' N% `
等我发图8 d1 m3 X7 ~( h

  Z0 ]6 L9 `! T. K6 F: U. b3 m/ N$ P% v
[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?手机注册 手机动态码快速登录

x
14#
发表于 2013-12-17 13:07:10 | 只看该作者
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
! h$ l5 W  W8 E* P, ]( T再请问 怎么读写呢?俺不会

! X+ u/ Y# ]. Y3 E+ N7 F3 M# _4 m3 f* ?8 v  o
,这有些麻烦啊!4 h; k1 p. F1 M5 `
你把星相数据存在目录C:\Da.txt4 X3 n/ L9 M" }1 ~' y; P
档名是Da.txt
) R$ Z, r1 t+ G2 R! a如果存在别的目录,D:\hhh\Da.txt$ f# ?" k3 o3 e, p$ T& Z) e. G
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
0 [+ U  e. F8 M下面是飞狐公式,我也未试过,你自行试试吧
2 C0 ^7 q6 X- P, T0 d 7 h  t+ L& N. ]+ I
FoxDE:=DATE; FoxTE:=TIME;
; X7 b# \  N1 z) v9 [MyData:=C*0;
1 y3 h! j7 d6 Y1 p- J6 C3 Z) z<%2 b5 h: [7 Z+ N% |- H0 |
MyData =FFL.VarData("MyData")* o8 Z9 s6 w3 P& a$ C7 T
FoxDE =FFL.VarData("FoxDE"): B6 O: w* z" [" k- r
FoxTE =FFL.VarData("FoxTE")
0 ~- n! A7 q3 ]  lSet fs =CreateObject("Scripting.FileSystemObject")7 D& `& E% f" i* q
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
. `* H, {  B1 d& `4 ~$ ZMyTxt = wrkfs.ReadLine
) g7 p( k+ b: ywrkfs.close' [3 I1 F7 z' u5 c) p
TxtStr=MyTxt
$ y; W3 O+ |$ p, tTxtAry = Split(TxtStr, ",", -1, 1)
, T' v6 R3 R2 s  ]- l4 C3 TGetDE=CLNG(TxtAry(0))6 \2 ~9 r* ^  x7 S5 ^
GetTE=CLNG(TxtAry(1))
6 k  i8 K# K: xGetVV=CSNG(TxtAry(2))
8 G; K3 }2 E5 L! P% d+ e* @for i=0 to ubound(MyData)
. A8 B% e8 m3 g, n7 dif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
/ w1 e1 ~' v7 JMyData(i)=GetVV5 `1 T( x; ?# ~
end if
' a7 [# L: b( S- c: g( Lnext7 `: o% J  {' }  Y" D2 Y
FFL.VarData("MyData")=MyData
+ h, N0 H- W4 R% m. j% v3 v%>
" ~2 J' V& d! F8 q
5 H% f$ h& x% i8 d. H
cc:=MyData;, }) ^& d' f3 w9 A7 h
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);0 S" j* k4 r; N  p* @2 i, ?
vertline(ccsh),colorred;  {high}) s. }8 ]+ w% s9 h- O  s; W+ w: r
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
0 ?8 M2 ]3 t$ vvertline(ccsL),colorgreen; {low}2 p# x) t- R/ T& W' Y' F: \$ U/ t

! x: L- n1 z& [6 _# r( S% B: v[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
11#
发表于 2013-12-17 12:32:36 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:28 发表
( G. s% `+ p7 t3 B( v2 f请问静芸  能改成飞狐公式么?

5 G5 [- U) m" t1 U! b0 ], b( O$ K8 ]( W
( T3 }; s0 [; C  _4 Q6 Q这是飞狐公式' o- C/ g/ ]* S; T: {- r2 |
第一列的"数据"要用读进来的星象数据取代
10#
发表于 2013-12-17 12:28:27 | 只看该作者
请问静芸  能改成飞狐公式么?
9#
发表于 2013-12-17 12:22:14 | 只看该作者
飛狐$ _5 Z+ _8 I  ?$ q& r
' X% j3 E4 t8 b4 g+ I' Y& P
cc:=數據;3 d) G4 x5 {* h7 w
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
0 g6 r1 i3 O5 U' Evertline(ccsh),colorred;  {high}
/ S. w7 A% v. accsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
4 o8 P; K% G+ s  \2 cvertline(ccsL),colorgreen; {low}/ z2 T! d  B! e1 U' [* V
: u9 ?  t, k0 {  u; x+ ~' G2 r
[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

QQ|小黑屋|手机版|Archiver|【阳光飞狐】 ( 网站ICP编号:京ICP备06013475号-7 )

GMT+8, 2026-6-3 01:21 , Processed in 0.184740 second(s), 21 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表