阳光飞狐
设为首页收藏本站
开启辅助访问 切换到宽版

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

【阳光飞狐__与财富同行】»社区 › ≡≡≡百家争鸣__点亮财富人生≡≡≡ › 『江恩理论交流』 › 共享一个星相交易工具，求助会编写指标的朋友
12下一页
返回列表 发新帖
查看: 5937|回复: 36
打印 上一主题 下一主题

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：
% `  G7 J6 T8 z8 e; f/ t1 e- ~1 v- [/ c% U- P% o
; F3 Z$ l- I. ^# Y% M
% q. H3 {3 P: H( v, \  L% ~

3 i$ _( u* b+ D. [" ]这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的: c8 [/ }6 ?, Q$ Q. K

4 l) I3 @  c# r
( b# f0 l+ R1 [; x：
5 n9 q8 E( Z% ]: S1.根据给定的数值，画出这样的曲线, X' p( W: O$ W& W# `8 }8 C; Q9 Y
2.分别在曲线的每个拐点出画一竖线
) Z! W' `, m5 C! W7 ]: K3.在零值画一竖线' y/ Y) n0 R1 u) Y8 V
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。* l6 F5 n6 n/ s  t+ Z- n8 n  w

# ]0 P9 o( ^$ W  }6 z$ U' e) W
  _+ `7 |" o( M- E( U* G5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。
* y6 j: x- I9 s9 i# S
0 r) i" B/ M7 D数据样本：从星相软件导出的：; e7 V5 S4 t; q+ a
/ w5 G7 X) [. M/ X  b7 N# K6 w8 h
01 一月 2013   -24°14' 58.7"  5 b8 M+ H! t! Y. t. E& o; e! q' c$ G
02 一月 2013   -24°20' 05.2"  % o- ^) a$ V7 |! m) ^9 r9 Q# R
03 一月 2013   -24°23' 54.3"  
9 f, q9 G: [, @3 h5 `3 l' W* w04 一月 2013   -24°26' 24.8"  6 e: d9 m# k% b! {' f# A/ h
05 一月 2013   -24°27' 35.6"  
& G. q5 T4 l5 Z; {9 V, G) j' q06 一月 2013   -24°27' 25.5"  
- H0 ~' ?: w% I$ a07 一月 2013   -24°25' 53.3"  
% R& p8 j4 c( J/ ]- A3 x1 x08 一月 2013   -24°22' 58.2"  
8 I8 r1 |( T& V% _5 s9 N- [09 一月 2013   -24°18' 39.1"  
- V, a  u! [# H5 m5 ]7 H6 W10 一月 2013   -24°12' 55.1"  , Y3 J5 r3 _! R( T0 T5 `* P8 }( r6 Q
11 一月 2013   -24°05' 45.2"  
7 Z; Z6 _# g- X12 一月 2013   -23°57' 08.7"  
( a# w5 ?. g8 E3 R6 b13 一月 2013   -23°47' 04.8"  ; w7 h& s; Q( ~5 m) B
14 一月 2013   -23°35' 32.6"  
1 p! i% Y+ q6 [6 ~, p, ~15 一月 2013   -23°22' 31.5"  / {) j, ~6 v4 [
16 一月 2013   -23°08' 00.8"  ( V# _4 J" H6 @8 ^' b: O8 @
17 一月 2013   -22°51' 59.9"  
. R/ b3 H0 b& Z( H' c18 一月 2013   -22°34' 28.2"  
3 A" S- c& Y, A$ b3 R/ z) }19 一月 2013   -22°15' 25.2"  $ \& W* e' q" h. l
20 一月 2013   -21°54' 50.7"  % _7 S' e/ s# z+ D
21 一月 2013   -21°32' 44.2"  
- g: z' l, f, S22 一月 2013   -21°09' 05.7"  6 v0 z! u# }& r
23 一月 2013   -20°43' 55.0"  
' t# o5 n- E; Y+ E) X24 一月 2013   -20°17' 12.3"  
6 T, h6 ?" x; p3 i2 ?. Q3 D2 r25 一月 2013   -19°48' 57.7"  ) N$ l: w  `' K  m1 N6 _& ^3 B
26 一月 2013   -19°19' 11.9"  
* z% W- U* D3 W) o27 一月 2013   -18°47' 55.5"  ; K2 N* v% n! G$ K
28 一月 2013   -18°15' 09.5"  ; F. d1 L! {) K5 g, c/ ]0 O! o
29 一月 2013   -17°40' 55.3"  
( h& t: q3 v1 q/ T30 一月 2013   -17°05' 14.7"  , E. ^8 M/ Q1 J7 X7 `: H3 i4 N+ c
31 一月 2013   -16°28' 09.9"  ) E; `2 \; Z, B; r# a
01 二月 2013   -15°49' 43.8"  ) _3 S6 T* E/ m3 F. J- R  `
02 二月 2013   -15°09' 59.8"  
, W7 @* Y# u; ^# P2 B% X- i03 二月 2013   -14°29' 02.5"  1 j( I. l  T, Q) e. |% L
04 二月 2013   -13°46' 56.8"  ; H2 H  M0 K7 d$ [: w
05 二月 2013   -13°03' 49.3"  
! M$ Q  |/ N1 ^' Z+ b8 E06 二月 2013   -12°19' 47.2"  + Y# P) o4 \, u# x9 j. h
07 二月 2013   -11°34' 59.6"  
- J- x0 `  V  r3 ^% |08 二月 2013   -10°49' 36.8"  
9 ~, d) o0 P2 f2 v1 G09 二月 2013   -10°03' 50.6"  
" i: {! S6 ~5 m; Y7 c10 二月 2013   -09°17' 54.8"  
9 V9 {. b, d3 s/ ^! `  c( |11 二月 2013   -08°32' 04.9"  
3 O! \. U8 m1 k/ s: w% x# C! B12 二月 2013   -07°46' 38.1"  
; Z) q- M% D7 ]) U, f9 V/ q13 二月 2013   -07°01' 53.6"  
6 D+ r6 v% ^* _# h. h) m8 l14 二月 2013   -06°18' 12.3"  
- q& z) J; X4 `# d* ]& Z, T) a4 g15 二月 2013   -05°35' 56.2"  
0 P# `! }2 O4 ]16 二月 2013   -04°55' 29.1"  ! f. @) d: S7 O" M6 q
17 二月 2013   -04°17' 15.1"  . }3 b2 n+ |- Y8 g+ g" ?: b# t
18 二月 2013   -03°41' 39.2"  
7 t% R! D3 r, i/ o( V! V1 n19 二月 2013   -03°09' 06.0"  
  I# P9 i9 K: s: t: F& b20 二月 2013   -02°39' 59.5"  
" ~" m6 q& P# {8 D6 }* Z, f$ c21 二月 2013   -02°14' 42.3"  ; d- H$ d9 m4 I" k$ X* H
22 二月 2013   -01°53' 35.0"  # t/ Q5 R. ?1 u, z
23 二月 2013   -01°36' 55.5"  7 ?1 a; D. L+ a
24 二月 2013   -01°24' 58.1"  
! k1 D" V7 Z" L9 K6 ~/ J& ^25 二月 2013   -01°17' 52.7"  , V8 F+ l( g6 [# N
26 二月 2013   -01°15' 44.0"  
2 F- {& N0 t: M' V4 [8 j27 二月 2013   -01°18' 30.8"  / E8 u8 M; |6 @: c( T! E3 R' R
28 二月 2013   -01°26' 05.5"  2 o' e$ L6 m' D) S4 N- @4 a! [6 K
01 三月 2013   -01°38' 13.7"    h, |2 b6 W/ l/ O5 m: y( t
02 三月 2013   -01°54' 34.4"  ( ]+ I) z8 P- H5 n& t- e
03 三月 2013   -02°14' 40.4"  
2 g0 Z: f6 ?' s. e. W. O" ^04 三月 2013   -02°37' 59.2"  + ^# Z9 w0 x1 g! s0 x' g
05 三月 2013   -03°03' 54.3"  
  I$ S* I+ ~8 j. ]3 M# c06 三月 2013   -03°31' 47.0"  5 M" H& [0 Z: {8 c4 p& v- r5 v
07 三月 2013   -04°00' 57.8"  
8 M$ j+ r1 a8 X0 n! A& v, k08 三月 2013   -04°30' 48.1"  4 s! x  z+ p1 N8 h4 [
09 三月 2013   -05°00' 41.8"  
9 v% z  O/ T4 L9 O2 g$ V5 g2 a10 三月 2013   -05°30' 06.2"  
& g7 `$ R0 b% R6 u' R11 三月 2013   -05°58' 32.9"  
) ~: l" ~8 s0 T/ o$ P4 t+ g  k  g12 三月 2013   -06°25' 37.8"  
2 i% n5 [+ A. x9 n. Y/ t13 三月 2013   -06°51' 01.6"  # n# H6 O6 D+ f3 d: g: `
14 三月 2013   -07°14' 29.1"  
  l0 ^5 A. y9 p- o# W  a& ~/ g0 I15 三月 2013   -07°35' 49.3"  ' j8 `7 U( s5 v3 n
16 三月 2013   -07°54' 54.2"  / ?( M$ _, u2 P" f: {, n
17 三月 2013   -08°11' 39.1"  7 Z! N1 N! n5 B
18 三月 2013   -08°26' 01.3"  
9 o0 D. T$ L& H& ^- V* X19 三月 2013   -08°38' 00.1"    v: a" [7 V- T( {9 H5 T
20 三月 2013   -08°47' 36.2"  5 [* j7 v" T8 P( ]6 v
21 三月 2013   -08°54' 51.5"  
; O: w0 F7 z$ z/ }22 三月 2013   -08°59' 48.5"  
. F6 R% k8 J* X: Q- `5 h5 x: f; H1 u3 z23 三月 2013   -09°02' 30.3"  8 @# ^" |, C# a  R
24 三月 2013   -09°03' 00.3"  + ~- c) N6 V6 j1 h$ p6 v" C
25 三月 2013   -09°01' 22.3"  
! ?4 y2 c# a8 \6 a; K26 三月 2013   -08°57' 39.8"  " O5 {4 ^6 p8 z
27 三月 2013   -08°51' 56.7"  
  ?/ y& f; }2 {/ Q1 `, t28 三月 2013   -08°44' 16.7"  0 X0 y- }  j% V
29 三月 2013   -08°34' 43.3"  0 Z6 f. Y5 H- x# |3 [8 u, a7 b3 K
30 三月 2013   -08°23' 20.1"& ]1 V& r6 x1 ]0 V' y! _2 t5 Y7 m

8 s( f) A/ W) E/ k- k( i这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。2 N$ `0 {; Y1 S6 T3 L
4 I; w3 h. y; E2 m. z
[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

本帖子中包含更多资源

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

x
回复

举报

子傻
2#
发表于 2013-12-12 18:16:02 | 只看该作者
.gif" smilieid="273" border="0" alt="" />
回复 支持 反对

举报

tom123
3#
发表于 2013-12-13 00:23:14 | 只看该作者
: G8 @8 ^# p; ~' {
水星
13-1-10.10625
13-1-20.08514
13-1-30.06365
13-1-40.04182
13-1-50.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-270.04633
13-2-280.12629
13-3-10.20227
13-3-20.27242
13-3-30.33499
13-3-40.38854
13-3-50.43198
13-3-60.46463
13-3-70.48633
13-3-80.4973
13-3-90.49826
13-3-100.49012
13-3-110.47407
13-3-120.45137
13-3-130.42327
13-3-140.39099
13-3-150.3556
13-3-160.31805
13-3-170.27913
13-3-180.23951
13-3-190.19967
13-3-200.16005
13-3-210.12091
13-3-220.08251
13-3-230.04495
13-3-240.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-10.00956
13-6-20.04173
13-6-30.07201
13-6-40.10041
13-6-50.12691
13-6-60.15152
13-6-70.17427
13-6-80.19518
13-6-90.21425
13-6-100.23154
13-6-110.24705
13-6-120.26079
13-6-130.27282
13-6-140.28311
13-6-150.29171
13-6-160.29861
13-6-170.30384
13-6-180.30739
13-6-190.30927
13-6-200.30949
13-6-210.30805
13-6-220.30495
13-6-230.30022
13-6-240.29383
13-6-250.28585
13-6-260.27625
13-6-270.26512
13-6-280.25244
13-6-290.23828
13-6-300.22273
13-7-10.20581
13-7-20.18766
13-7-30.16837
13-7-40.14805
13-7-50.12689
13-7-60.105
13-7-70.0826
13-7-80.05985
13-7-90.03695
13-7-100.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-50.00269
2013-8-60.0381
2013-8-70.07607
2013-8-80.11625
2013-8-90.15829
2013-8-100.20173
2013-8-110.24609
2013-8-120.2908
2013-8-130.33534
2013-8-140.37914
2013-8-150.42172
2013-8-160.46259
2013-8-170.50139
2013-8-180.53778
2013-8-190.57157
2013-8-200.60259
2013-8-210.6308
2013-8-220.65617
2013-8-230.67879
2013-8-240.69871
2013-8-250.71609
2013-8-260.73108
2013-8-270.74381
2013-8-280.75444
2013-8-290.76317
2013-8-300.77012
2013-8-310.77546
2013-9-10.77933
2013-9-20.78187
2013-9-30.78318
2013-9-40.78337
2013-9-50.78256
2013-9-60.78082
2013-9-70.77824
2013-9-80.77487
2013-9-90.7708
2013-9-100.76607
2013-9-110.76071
2013-9-120.75479
2013-9-130.74833
2013-9-140.74135
2013-9-150.73389
2013-9-160.72597
2013-9-170.71759
2013-9-180.70878
2013-9-190.69955
2013-9-200.68988
2013-9-210.67982
2013-9-220.66931
2013-9-230.65838
2013-9-240.64701
2013/09/250.63519
2013/09/260.62288
2013/09/270.61008
2013-9-280.59677
2013-9-290.58291
2013/09/300.56846
2013-10-10.5534
2013-10-20.53767
2013-10-30.52123
2013-10-40.50402
2013-10-50.48598
2013-10-60.46703
2013-10-70.44709
2013/10/080.42606
2013/10/090.40384
2013/10/100.38028
2013/10/110.35527
2013-10-120.32864
2013-10-130.30019
2013-10-140.26972
2013-10-150.23702
2013-10-160.20182
2013-10-170.16383
2013-10-180.12276
2013-10-190.07832
2013-10-200.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-130.00214
2013-11-140.0821
2013-11-150.15435
2013-11-160.21852
2013-11-170.27465
2013-11-180.32299
2013-11-190.36402
2013-11-200.39829
2013-11-210.42641
2013-11-220.44896
2013-11-230.46655
2013-11-240.47975
2013/11/250.48905
2013/11/260.4949
2013/11/270.49775
2013/11/280.49793
2013-11-290.4958
2013-11-300.49159
2013-12-10.48559
2013-12-20.478
2013-12-30.46898
2013-12-40.45871
2013-12-50.44732
2013-12-60.43491
2013-12-70.42159
2013-12-80.40746
2013-12-90.39257
2013-12-100.37698
2013-12-110.36078
2013-12-120.34397
2013-12-130.32662
2013-12-140.30875
2013-12-150.2904
2013-12-160.27158
2013-12-170.25232
2013-12-180.23262
2013-12-190.21252
2013-12-200.19202
2013-12-210.17114
2013-12-220.14987
2013-12-230.12825
2013-12-240.10627
2013-12-250.08395
2013-12-260.06128
2013-12-270.03829
2013-12-280.01499
2013-12-29-0.00862
2013-12-30-0.03253
2013-12-31-0.05671

本帖子中包含更多资源

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

x
回复 支持 反对

举报

tom123
4#
发表于 2013-12-13 02:12:54 | 只看该作者

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
5#
 楼主| 发表于 2013-12-13 21:34:08 | 只看该作者
编写指标用 的数据，见附件
3 V7 i7 z- [. [6 T. K  j' x9 F! P

本帖子中包含更多资源

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

x
回复 支持 反对

举报

skywater
6#
发表于 2013-12-14 19:50:30 | 只看该作者
最好变成飞狐的好
回复 支持 反对

举报

logoslogos
7#
 楼主| 发表于 2013-12-16 22:15:31 | 只看该作者
最好变成飞狐的好..
回复 支持 反对

举报

kaiser88
8#
发表于 2013-12-17 09:51:40 | 只看该作者
回复 支持 反对

举报

静芸
9#
发表于 2013-12-17 12:22:14 | 只看该作者
飛狐$ O" E  w/ z8 R' r* [% ]; @

6 `+ z5 z& v# ^# Pcc:=數據;$ t. _- s! g* Z' H: U
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);) C. v1 _) h5 A
vertline(ccsh),colorred;  {high}  |2 K" g3 K* H* p. m" d- u/ {
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
& d/ n7 w' O* }vertline(ccsL),colorgreen; {low}
9 L2 @) ~; y& A, u% h  W9 M  P+ Q: i0 }" n+ S1 r% D( W: |9 C
[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
回复 支持 反对

举报

kaiser88
10#
发表于 2013-12-17 12:28:27 | 只看该作者
请问静芸  能改成飞狐公式么？
回复 支持 反对

举报

静芸
11#
发表于 2013-12-17 12:32:36 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:28 发表 2 c+ r% {. J, c: v+ |8 ]
请问静芸  能改成飞狐公式么？
  \" h7 p4 M! O1 a( R/ w- a
9 r7 D! ?$ |8 ~- Z5 Z5 X
这是飞狐公式- o+ U2 v8 p9 K
第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

kaiser88
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢？俺不会
回复 支持 反对

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
4 W0 n/ M6 s/ I$ l7 [再请问 怎么读写呢？俺不会
9 ^: s2 q) m( B2 G. o$ R

" F: D/ M0 o: l8 \: B$ D' T; B2 u& x哈,这有些麻烦啊!
, g1 u! F2 r$ w' ]8 y$ X5 }7 o你把星相数据存在目录C:\Da.txt4 l3 o/ p* @) z
档名是Da.txt& B7 d2 Z, E- w, J
如果存在别的目录,如D:\hhh\Da.txt9 g8 |/ S  n" y0 u* i  f% u
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
7 B: H. ~( q6 }: Y0 o下面是飞狐公式,我也未试过,你自行试试吧
2 T9 h4 N' `- a! A: ]
9 a7 H# ^% M. h7 E5 AFoxDE:=DATE; FoxTE:=TIME;# i8 O/ i2 A5 u3 Z1 }
MyData:=C*0;' F7 p( p: E: o- b, R, j( D
<%9 Z1 G6 N0 f0 b( ]! y. |; Y* M& K
MyData =FFL.VarData("MyData")
' C5 r' h. b# K% J- f6 K/ h6 VFoxDE =FFL.VarData("FoxDE"), B% k0 t9 r! H* C( D
FoxTE =FFL.VarData("FoxTE")
! X  g& \2 u8 QSet fs =CreateObject("Scripting.FileSystemObject")  @' ?; ~1 k0 H4 {! h8 `; `
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
: ]+ S2 A0 `/ ~# MMyTxt = wrkfs.ReadLine
' x: i6 ?4 O; Xwrkfs.close
  v8 d* F* R2 O7 T+ y5 ]TxtStr=MyTxt( N$ K% j# Y( h+ [# }% X* P( g
TxtAry = Split(TxtStr, ",", -1, 1)
# F# ^  i7 ^8 t3 D  y& r- F4 pGetDE=CLNG(TxtAry(0))
& i7 @7 |$ W) }+ fGetTE=CLNG(TxtAry(1))
' }) l5 i8 k# q5 K9 w. T9 LGetVV=CSNG(TxtAry(2))
: ]6 Q2 Y4 C; e2 \1 c- Ofor i=0 to ubound(MyData)2 H  h& m2 c9 k; ^8 S6 G! w6 l
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
/ _! F# E. l7 w* Q) E. I) ^* ZMyData(i)=GetVV$ B$ @3 w3 [; f6 ]% R
end if
, }% G% B0 p7 ]/ y( snext! h/ Y; M! P. f6 r" z
FFL.VarData("MyData")=MyData) `, C8 t' x7 _! V. ?- S
%>
: ~8 a& x3 g4 r8 A! `, q- ]- ^' P' t
cc:=MyData;* w: o1 i1 }' L! W/ V
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);4 i; a" O' W8 M) M0 j( p1 [
vertline(ccsh),colorred;  {high}
- K' }1 f! }( W' EccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
1 V2 o, b/ P; `6 P0 i0 n  Overtline(ccsL),colorgreen; {low}
% v% ^/ F4 ^, b2 m  m, K" @! ^9 U2 L. g
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

kaiser88
14#
发表于 2013-12-17 13:07:10 | 只看该作者
回复 支持 反对

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
' T. Q( W6 M/ g% b  z  n9 L
* ?" G4 M! P+ t# T. k- B! N我刚试一下。。。出现错误。。。静云帮忙看看。。。
: T" N* m8 E+ n  \8 H- A1 @5 j等我发图% r/ ?8 }0 ?; Z7 I) l3 N7 W4 I
& U3 C6 W: v$ _7 ?$ F8 U- ?# o" c- q
8 t7 L6 H4 X3 Q4 q6 ?+ ?
[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
16#
 楼主| 发表于 2013-12-17 20:12:40 | 只看该作者
静云帮忙修改一下。。。多谢！
回复 支持 反对

举报

prayer
17#
发表于 2013-12-17 21:20:26 | 只看该作者
非常感谢静芸MM提供的实例
回复 支持 反对

举报

静芸
18#
发表于 2013-12-17 21:28:23 | 只看该作者
原帖由 logoslogos 于 2013-12-17 19:53 发表
  j) `8 _4 w; H' o) z% L0 W; k太好了。我试试。。。万分感谢" U. o+ h( o7 O- `$ V' C! ?
2 R; d2 R  H; l$ G
我刚试一下。。。出现错误。。。静云帮忙看看。。。" A) `0 C% B* L/ e
等我发图
/ g9 s, ?  q/ M4 h110666
7 z: ?" \# d" Y% b
8 [: H8 p& q# M+ w9 a4 a8 W
再试, 这读数据公式不是我编的8 c0 C' O  m6 a) E0 c1 S  M* ~
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
) o# z7 v0 s7 x7 v/ J& @- @) e; \3 F& S5 s% e+ `
' p4 x2 P# b; x3 \; Q5 j1 F

7 R2 Z! A3 y" [. s8 _- ~( ?[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
. R: E4 _$ s9 C! ~

6 y9 A+ H  Q1 g" c$ w还是不行。。。能通过测试，但一运行就出现这个错误：$ ]- v- m: H4 q" t$ j8 H
见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 9 ]& s& `$ V9 b
110668
" D" J$ f% ^$ M
$ O9 m9 q. Q1 s还是不行。。。能通过测试，但一运行就出现这个错误：
4 M5 Y* V3 {6 J3 n6 O# q见图。。。
' X) z. i0 _" C
2 {# J( a/ H4 x7 X
可能是数据檔的问题0 c& M' R( ~9 W1 T" M
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
% i% K) i& i# e# q- |原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

logoslogos
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的，理解了。一样感谢。。
回复 支持 反对

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。- w* e3 q, b. Z8 y( ?# C5 p
直接程序计算declination值数据然后显示
  p' F7 ^- q! a6 c: M* ^& l# t+ W* ^& l, I/ D$ X

8 L  l1 [' i+ f5 P3 w
) {% B% l/ @/ `- r' c[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

He110
23#
发表于 2013-12-18 17:02:04 | 只看该作者
  P+ c; q6 w. y
1 `0 e+ v0 K+ [- b; J( q7 a2 X1 u# B
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

He110
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
' s" V; R; K* {0 H+ m0 c我是不是用错了？ 有其他办法吗？
回复 支持 反对

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 - H' o7 ]+ D' x
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
$ Y+ n( B) a" y我是不是用错了？ 有其他办法吗？
1 E2 m: g/ l1 W

8 n4 \  _2 R( D" D8 V+ C$ M你好, 向下# A0 G- {$ S% B6 W4 H. ~
vertline(cross(0,cc)),coloryellow;
回复 支持 反对

举报

kaiser88
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
回复 支持 反对

举报

He110
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 # p  m  I! F8 ~4 O+ j1 o$ }

: r. ~8 X! P; O0 v* M* C0 C+ P% k7 B% _
你好, 向下" J+ m1 }+ U: A) N! e3 V
vertline(cross(0,cc)),coloryellow;

2 E, {3 ?1 ~: l6 ^  |7 K2 I1 S2 S, W% j
谢谢，可以了。
7 |4 t, ~1 F/ d! p2 I' @: L
4 a4 `' D6 S% Y5 D% c7 O- @
原帖由 kaiser88 于 2013-12-18 19:34 发表 9 r& T) l  ^- `% U/ @8 ~
he110 请问你公式怎么做的 我的也一样报错
6 w6 R4 \7 ]! l6 b/ g; }: `7 C
, U0 F  f$ y8 J
我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

prayer
28#
发表于 2013-12-18 20:42:05 | 只看该作者
你好He110，请问如何直接程序计算declination值数据，有直接的公式吗？
回复 支持 反对

举报

tom123
29#
发表于 2013-12-18 23:48:59 | 只看该作者
交流

本帖子中包含更多资源

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

x
回复 支持 反对

举报

He110
30#
发表于 2013-12-19 10:15:12 | 只看该作者
tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。( m7 F( c( P4 g/ O9 B. ?
2 ?4 V9 Z& N9 ?
prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-18 22:12 , Processed in 0.284329 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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