阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
) o& T. n8 C  h
$ T1 w7 L* k6 U+ x4 x9 p1 b
- u8 v! x4 p! C5 L% v

+ c9 M0 H* S, A% d$ f! d6 J
9 d0 C, D8 @7 x0 s( e9 h% _
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
' U' w$ B, p1 Z) h# R2 W' N: x
, I1 d; F1 H' V

( G' [9 L' s4 P3 b$ U
5 |! T$ t* s/ o% |  {* X) d) c1.根据给定的数值,画出这样的曲线
) i0 x+ E- U) Z- q( b* A' _6 d( }2.分别在曲线的每个拐点出画一竖线4 @5 n: V. e/ n1 Y) D. v, C
3.在零值画一竖线
) z: i( j- u3 \' O3 [; `4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。8 [4 x/ H9 k# W( t  r5 G! `

- X. L1 S8 j4 [1 _1 v5 |, b

& t5 t' V6 j4 P* ^7 L" }# p: |, @. ~5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
9 A* @5 R9 P+ L- s6 F! a' D
' p% \6 s. F1 b5 ~数据样本:从星相软件导出的:
+ ?& Q, \) [( p- d0 o2 q5 i
* r8 P4 ^- t9 h7 u% ]* x01 一月 2013   -24°14' 58.7"  , G; g7 t5 g; f3 C" W/ `
02 一月 2013   -24°20' 05.2"  
! M: X1 f: q# ]2 ]; h03 一月 2013   -24°23' 54.3"  
1 @. n- p0 B9 Z! f/ ~1 B04 一月 2013   -24°26' 24.8"  / G9 L* f7 ?' |! F. k
05 一月 2013   -24°27' 35.6"  
/ {" R: D/ w, O# q, A! y06 一月 2013   -24°27' 25.5"  
4 C2 \4 q2 W6 x# B07 一月 2013   -24°25' 53.3"  8 F' Y2 B( f0 O
08 一月 2013   -24°22' 58.2"  $ D. X  |! B) F- g! C+ E# X
09 一月 2013   -24°18' 39.1"  $ A+ ^4 b: e8 n
10 一月 2013   -24°12' 55.1"  $ a% x7 m. I1 l% D# h5 y& _7 {
11 一月 2013   -24°05' 45.2"  
+ S3 I' R: N* v# ?  i9 h12 一月 2013   -23°57' 08.7"  
& o) |* ~& ^! h  F) H- P$ {$ B13 一月 2013   -23°47' 04.8"  
) L1 Z; o4 n3 ?' f6 W14 一月 2013   -23°35' 32.6"  1 o6 @4 @/ O$ y) V8 d: f
15 一月 2013   -23°22' 31.5"  
# C) [) F2 c5 X- r' z8 F16 一月 2013   -23°08' 00.8"  & B0 h3 M; O- f# ^/ E- [
17 一月 2013   -22°51' 59.9"  
8 k* ~* ~5 O) s# c: V18 一月 2013   -22°34' 28.2"  
/ V8 L) q5 e+ n2 s. U) b19 一月 2013   -22°15' 25.2"  8 t: J: g" ^4 ^7 g0 f) @' ?7 L
20 一月 2013   -21°54' 50.7"  
5 a1 Q2 w! I1 G0 S0 e21 一月 2013   -21°32' 44.2"  
! Y' U5 r3 r9 h. l% a. U' c22 一月 2013   -21°09' 05.7"  
. z& H: o9 @4 o8 H+ j' D7 i23 一月 2013   -20°43' 55.0"  ; o) b; s; ]' L2 t  e+ o; |# {5 j, Z
24 一月 2013   -20°17' 12.3"  2 h, Y0 M& |7 f. o% O# T  t
25 一月 2013   -19°48' 57.7"  
" h. I: T4 E. E3 u/ t; U26 一月 2013   -19°19' 11.9"  1 j+ X; _& W% j0 l, c7 c" W
27 一月 2013   -18°47' 55.5"  
- c, A" G5 @: W/ I9 ?  U28 一月 2013   -18°15' 09.5"  
0 a' }6 h8 J- U# t, r29 一月 2013   -17°40' 55.3"  . s5 g1 v8 K) @' {
30 一月 2013   -17°05' 14.7"  ' V6 R1 V4 K  {- n  E
31 一月 2013   -16°28' 09.9"  
: |" p" }% O: O) \; o' d+ p/ G. S01 二月 2013   -15°49' 43.8"  4 [2 ]; n7 x! E' _% s& e
02 二月 2013   -15°09' 59.8"  
  X5 v/ d( d( R5 T7 i/ t/ J03 二月 2013   -14°29' 02.5"  ) y  O% R; o0 v$ M, M, E& M  b
04 二月 2013   -13°46' 56.8"  
) y  A% G! Q  J+ o, O05 二月 2013   -13°03' 49.3"  5 V5 O. O& C) E3 ^" D/ h: S! E. u
06 二月 2013   -12°19' 47.2"  
1 S1 J, j/ I% p5 o0 F& D; n( Z5 [07 二月 2013   -11°34' 59.6"  # M- k0 s$ H; @" `# f1 }
08 二月 2013   -10°49' 36.8"  
" w- b7 e) y: t) b5 i, f& B. q' T09 二月 2013   -10°03' 50.6"  
  V. d" l- m, y( M$ v10 二月 2013   -09°17' 54.8"  2 @" }3 a0 R0 s4 g% D9 ]
11 二月 2013   -08°32' 04.9"  5 _# _! ?: E# L6 g2 o; i
12 二月 2013   -07°46' 38.1"  
; e: I& q( ~3 U3 ^* \2 p13 二月 2013   -07°01' 53.6"  
! w; ?6 o5 r! D0 g% r; x14 二月 2013   -06°18' 12.3"  
, A9 H3 }9 K" Z15 二月 2013   -05°35' 56.2"  
: [( p8 U4 K& E& c" S) j8 E1 q16 二月 2013   -04°55' 29.1"  
3 p7 \7 G* z% \; m6 M- e; M! s17 二月 2013   -04°17' 15.1"  ' K* ^8 Q9 U1 D: ]6 }
18 二月 2013   -03°41' 39.2"  
5 M" z& Z, g9 {5 m' L19 二月 2013   -03°09' 06.0"  9 c% Y7 ~7 A0 R6 e! B- v
20 二月 2013   -02°39' 59.5"  " r7 e# M! h2 V$ a, h
21 二月 2013   -02°14' 42.3"  
  C" g- a, U; K/ e6 {22 二月 2013   -01°53' 35.0"  
) K  y# v; O. c3 I23 二月 2013   -01°36' 55.5"  
% ~& W; e* n0 I, [5 ?/ O4 X( e24 二月 2013   -01°24' 58.1"  
9 }7 k+ v" a  B( L25 二月 2013   -01°17' 52.7"  
" O; F4 [+ S0 u" d) _  ]26 二月 2013   -01°15' 44.0"  * A9 A% f, T( X# b2 E1 j: t
27 二月 2013   -01°18' 30.8"  
+ C& i5 \# N# ?7 j: a28 二月 2013   -01°26' 05.5"  - d5 Y- q( C) @
01 三月 2013   -01°38' 13.7"  - ?/ {( t1 a! @" `
02 三月 2013   -01°54' 34.4"  
  H/ n! e. x. B03 三月 2013   -02°14' 40.4"  
) t# D$ b9 u, [. ?  r04 三月 2013   -02°37' 59.2"  1 v) \2 b5 }. j4 p; ^. E8 t
05 三月 2013   -03°03' 54.3"  - M, M" C: B. o$ T( ]* o* `8 _
06 三月 2013   -03°31' 47.0"  
/ T" X9 j9 u( |0 w& A; R9 E07 三月 2013   -04°00' 57.8"  0 l0 \. z8 t5 c' w, q0 z. Q
08 三月 2013   -04°30' 48.1"  
, j2 W( `) {: W: }9 Y  h5 s5 z1 u09 三月 2013   -05°00' 41.8"  ( I) M: n& d3 b& `$ N/ ~; S' U
10 三月 2013   -05°30' 06.2"  
* r5 c+ b: d+ W6 U8 ~11 三月 2013   -05°58' 32.9"  9 N" K+ s) ^6 X( @
12 三月 2013   -06°25' 37.8"  
: Q& _# G' l7 k0 F; z# e' Q5 G8 M13 三月 2013   -06°51' 01.6"  
6 ?1 \* n% {: u7 s% l14 三月 2013   -07°14' 29.1"  5 Y& s% h0 K. {. I
15 三月 2013   -07°35' 49.3"  , ^- s( U0 L; L: U0 W3 A6 h' B
16 三月 2013   -07°54' 54.2"  7 j6 u0 Q  r4 }  Q) ]3 M
17 三月 2013   -08°11' 39.1"  3 Z3 [2 w  R, P% `
18 三月 2013   -08°26' 01.3"  
& {( s1 _8 e( G& v7 p* C19 三月 2013   -08°38' 00.1"  
. Q7 x3 e4 R  w20 三月 2013   -08°47' 36.2"  
) b9 U4 s6 p/ a21 三月 2013   -08°54' 51.5"  1 e4 }( V( p' ^" `- ^. S, s
22 三月 2013   -08°59' 48.5"  
9 L  G0 K2 V: i0 \$ ]/ {) d6 I23 三月 2013   -09°02' 30.3"  & c( a8 v! |) j  _  @5 V$ V
24 三月 2013   -09°03' 00.3"  
; n9 j  ^) [; q- d25 三月 2013   -09°01' 22.3"  , c1 H% |: D/ c( k
26 三月 2013   -08°57' 39.8"  ) D$ L$ _5 q* m  y+ Q# ^) W
27 三月 2013   -08°51' 56.7"  / {' |- N& A$ w: s" p( S
28 三月 2013   -08°44' 16.7"  
9 R- ?+ J) t+ m% D29 三月 2013   -08°34' 43.3"  3 G$ l5 K& n+ t$ \/ p7 w( E
30 三月 2013   -08°23' 20.1"" p5 _, B/ I8 N$ @
' B6 N4 x$ M9 B: K( l! a5 }) K/ e: k
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。5 \/ N  L5 V# H  F- T. V

8 }" r% ]8 e, |3 `" Y0 d% d6 U[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

本帖子中包含更多资源

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

x
2#
发表于 2013-12-12 18:16:02 | 只看该作者
.gif" smilieid="273" border="0" alt="" />
3#
发表于 2013-12-13 00:23:14 | 只看该作者

" i# ?: R: a' ~) T8 L
水星
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
4#
发表于 2013-12-13 02:12:54 | 只看该作者

本帖子中包含更多资源

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

x
5#
 楼主| 发表于 2013-12-13 21:34:08 | 只看该作者
编写指标用 的数据,见附件4 p" o' ]* u: ^' ?

本帖子中包含更多资源

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

x
6#
发表于 2013-12-14 19:50:30 | 只看该作者
最好变成飞狐的好
7#
 楼主| 发表于 2013-12-16 22:15:31 | 只看该作者
最好变成飞狐的好..
8#
发表于 2013-12-17 09:51:40 | 只看该作者
9#
发表于 2013-12-17 12:22:14 | 只看该作者
飛狐
! f  W6 x2 c& i4 c7 q; H" T. y
$ R! [- W5 j0 V; Q* T8 ]0 [/ Scc:=數據;0 e4 t6 T* m" C% J
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);5 h/ l- [* w+ W3 Z
vertline(ccsh),colorred;  {high}
) m- X) Y/ {. O3 F+ FccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
' T: b% D" e6 M' M6 J$ bvertline(ccsL),colorgreen; {low}, K4 ^2 T7 e  W6 B/ A8 M
! Q/ t; L2 B& g; F* H- f9 d
[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
10#
发表于 2013-12-17 12:28:27 | 只看该作者
请问静芸  能改成飞狐公式么?
11#
发表于 2013-12-17 12:32:36 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:28 发表
  T) p8 I; T7 e1 x+ R0 T请问静芸  能改成飞狐公式么?
/ a# L3 {: i3 R) D7 Q  F

2 q2 Q$ a. k4 b* O+ I" m这是飞狐公式- O* ^9 n3 r- n$ l8 A5 i
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 " i# R  ~1 ^7 X, v
再请问 怎么读写呢?俺不会
, V. g, k; B8 p( G8 y' L

/ c7 J4 `& l" Y1 F5 L- ?" Q' s,这有些麻烦啊!
! a" B3 n& h8 n4 `你把星相数据存在目录C:\Da.txt. o4 }, ?/ ?) {  ]! S
档名是Da.txt
  Y0 l4 I' u; e' W- z! b, b* h如果存在别的目录,D:\hhh\Da.txt
0 l% a5 u/ C7 h! ?; ~. K那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
4 ^, U9 o5 S( y- e- [下面是飞狐公式,我也未试过,你自行试试吧
7 l( ]- a! a& m+ l4 y$ c, D/ ]
5 n2 A2 T4 b* J- x) B9 w- h* MFoxDE:=DATE; FoxTE:=TIME;0 t, g0 e" Q4 n! B) S  Q
MyData:=C*0;
9 C( k0 ]# L  t<%
! i, Z2 d% r' W! ?  d/ s, U) DMyData =FFL.VarData("MyData")% i& h$ U4 @0 H" h
FoxDE =FFL.VarData("FoxDE")
, q0 K6 e3 v# ?' tFoxTE =FFL.VarData("FoxTE")3 Z# m4 y3 w( R' v- ^* }& r$ C2 w
Set fs =CreateObject("Scripting.FileSystemObject")" p+ m5 ?! Z) K5 p" K
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
: d5 Q# @, K# i1 Y8 w1 hMyTxt = wrkfs.ReadLine9 }+ r) Z, ~3 |; X1 p4 C+ ~$ R
wrkfs.close
0 h, u5 O7 A2 S6 P' jTxtStr=MyTxt
# M5 X4 W, ~6 xTxtAry = Split(TxtStr, ",", -1, 1)
2 }" O9 r2 a0 k) J3 p( VGetDE=CLNG(TxtAry(0))% ?1 `: O, W0 b3 O/ l8 t& _
GetTE=CLNG(TxtAry(1))/ t! ^3 t9 i0 m9 ]) H
GetVV=CSNG(TxtAry(2))  w7 p6 S7 X4 |7 m# ^/ T- z+ o
for i=0 to ubound(MyData)+ J! q5 A1 E8 {) ^/ ~
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then5 n0 Z* C6 \: p& g5 Q% f4 C9 G
MyData(i)=GetVV. o, w0 {& u( t
end if
" S3 E8 S2 b4 T/ F0 j: r! I' {next3 \( I8 A( B$ X& B
FFL.VarData("MyData")=MyData- t: v1 y1 c$ j% N. \
%>
$ _9 }$ b: x6 l( g7 \; ^
% G% z/ t1 @& T" _1 D
cc:=MyData;
' y" j1 ]; U/ \- V: X: S4 K* a# r! bccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
5 t# D2 c, q6 f7 D- W2 Fvertline(ccsh),colorred;  {high}
0 j* N: \  _- \ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
/ j# n6 B, E$ o* u  N, Wvertline(ccsL),colorgreen; {low}: Y% [" u0 y" {" H. ^* X
) f2 u* g$ j* L8 \6 B: Z5 b9 ~
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
" H1 ?# ]/ d+ W1 k7 u4 }5 a- r
* Y0 a  q: H6 Z0 {( ?! R我刚试一下。。。出现错误。。。静云帮忙看看。。。0 X  B" P7 F9 G* b+ ^& n7 H
等我发图! Z( B( o) }# Y3 |& M! y1 h
3 a: N0 j2 ~9 ]3 \3 _& p
3 h: n! H" H" |2 P' G. f3 }
[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

本帖子中包含更多资源

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

x
16#
 楼主| 发表于 2013-12-17 20:12:40 | 只看该作者
静云帮忙修改一下。。。多谢!
17#
发表于 2013-12-17 21:20:26 | 只看该作者
非常感谢静芸MM提供的实例
18#
发表于 2013-12-17 21:28:23 | 只看该作者
原帖由 logoslogos 于 2013-12-17 19:53 发表 ' ^) E3 Q1 M9 |  v; r8 G! `
太好了。我试试。。。万分感谢
# Y' u- i3 q% y/ M: S- a& O; @; D9 U: X; v* K- h* j1 @
我刚试一下。。。出现错误。。。静云帮忙看看。。。
' X8 F9 {% p  ?8 I# u等我发图  i! y) t6 ?# W. y8 [7 T7 U
110666
5 [$ r3 F* A: `, r4 @8 k
6 C( v7 E' ], ?9 k: Y
再试, 这读数据公式不是我编的
* h& b+ Y/ \+ jif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then6 o$ Q9 a! }- W5 y" L+ {

+ o9 {  Z1 G/ D$ p9 I: F! O* ^8 B$ E" u9 H9 T% M6 Y) o3 j: ]2 g
8 x; f9 r" {7 l& z9 p! Q5 J7 y" Y
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者

1 ?: T% k' q+ r) L* N+ t- s
5 u+ d' q5 O: g6 L7 f7 h( y还是不行。。。能通过测试,但一运行就出现这个错误:
9 s$ }2 V( T  ?7 ~见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
" |: [' f# Q5 f110668& T8 m1 }# t* _4 ]/ {

! A4 ^; n( V5 F还是不行。。。能通过测试,但一运行就出现这个错误:3 ~, u7 Y/ @  e; A2 z
见图。。。

4 H, w( I7 n' n, t
) b7 P" }1 S7 P1 |5 Z$ f4 G可能是数据檔的问题1 f0 a% E- ?+ J% R
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行5 @3 H( r$ _$ I8 |
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。/ O, p# U$ ^/ V  c$ z. W
直接程序计算declination值数据然后显示4 k- F; K3 _  O

; Q: J, a9 P& m( W% f$ v
# h  H5 J/ G. k. Y% P; E
: |( Y' B: U2 ^" l" c  m0 K[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

& r$ [" v; A( ?$ O/ n
1 P3 n5 c  ]4 W  v2 |5 S[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
, q; {- N3 q4 u" b9 z: r7 z6 F我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 7 b/ L+ B/ s( |/ D% i
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
- t$ d- _( v+ v; n! T我是不是用错了? 有其他办法吗?
) J. A- f0 i4 T8 L& n

; Q# o7 P8 \4 X5 l/ @& [! a你好, 向下
1 }# y+ ^( Y* gvertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表
, f2 N5 o  Y2 q
- p" t+ t( j9 S: u! z( l  \" O
1 v% |* q7 X2 _! o9 V$ a7 A你好, 向下
- k3 r$ y  z# A0 Q5 d2 M) }$ ]+ Zvertline(cross(0,cc)),coloryellow;

- h" w* X8 `$ b: Y) R. Y) L6 I! r8 w- n
谢谢,可以了。
6 u+ U- b0 V" j! ^* F
" `, B! i% M9 p( X  S% J! T
原帖由 kaiser88 于 2013-12-18 19:34 发表
, ?. Y# y( j8 L: ]/ Fhe110 请问你公式怎么做的 我的也一样报错

) {- n$ z! h5 f% a1 l% \$ G( B2 {5 F+ t1 c! \, T
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
28#
发表于 2013-12-18 20:42:05 | 只看该作者
你好He110,请问如何直接程序计算declination值数据,有直接的公式吗?
29#
发表于 2013-12-18 23:48:59 | 只看该作者
交流

本帖子中包含更多资源

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

x
30#
发表于 2013-12-19 10:15:12 | 只看该作者
tom兄是叠加了其他几个星星吗? 我的数据就没有tom兄的这么平滑。。。
" H; t$ H1 M5 o- o) ]) R6 y( [) f" L8 s2 Z% k1 B
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-9-4 01:09 , Processed in 0.261815 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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