阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
& ^3 l( f, o9 C( `* u: D( W/ S+ K6 x

8 {* f  ^% N/ y3 l: F6 D
3 F, V6 [; s8 _9 p1 N* [- ~

8 M" p9 e, F9 N- X4 e. r这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的. l. m, W. J7 E0 |/ {

+ j0 m$ a) p7 k* l; k4 S

2 y. M+ C. J2 a7 _% e1 q# d1 N, O
7 W9 o( B8 A% w; K# ~' C7 x# y1.根据给定的数值,画出这样的曲线
* I$ c, g6 u+ y9 V, ?$ u5 s2.分别在曲线的每个拐点出画一竖线
6 b6 m' w% J& B! z3.在零值画一竖线9 u* p' f1 i- l" ]; x; e
4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。
( }9 D( y" u, F& \
" L' M9 [# v  s; s3 w' ^0 O

9 P7 J) C0 L; n0 @5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
# K: W2 U. [( a/ w7 f/ R; d5 M+ r' O# e/ M! H' P" a% w
数据样本:从星相软件导出的:, m$ N3 F! q; v! H: P2 E

1 I4 N0 E, ?$ H8 ~) H% [) d8 B; T: ?01 一月 2013   -24°14' 58.7"  
* X* C9 Q+ P* [# J02 一月 2013   -24°20' 05.2"  ' ?- I  G6 u- r* t
03 一月 2013   -24°23' 54.3"  . i9 u$ Z0 o' R. o
04 一月 2013   -24°26' 24.8"  
8 p/ _# f+ L$ }/ A% r: t05 一月 2013   -24°27' 35.6"  5 Q* j' v/ H1 R; s  k- _- j2 k
06 一月 2013   -24°27' 25.5"  
3 A. E: L# H/ a! `! T) v  `2 E! S3 {07 一月 2013   -24°25' 53.3"  
% }# t* s4 B2 \0 l" Z08 一月 2013   -24°22' 58.2"  
% t3 Y) Q" C9 L8 M( k09 一月 2013   -24°18' 39.1"  
1 a# V6 N, ~, O1 E- v& F10 一月 2013   -24°12' 55.1"  # G# F2 E5 F2 c5 v1 }: m! @2 V6 A& F
11 一月 2013   -24°05' 45.2"  . S, I) h3 }+ v8 Q; y+ D
12 一月 2013   -23°57' 08.7"  
% w/ ^' S0 I. V+ x1 t13 一月 2013   -23°47' 04.8"  ! c: o. ^8 x9 [) Y; c
14 一月 2013   -23°35' 32.6"  
( E! R. T. _8 u, y0 _$ w2 D15 一月 2013   -23°22' 31.5"  6 I5 ^4 q7 R# ^; z
16 一月 2013   -23°08' 00.8"  % P4 o$ ?9 z1 p
17 一月 2013   -22°51' 59.9"  & I6 \! Q3 _: M( w
18 一月 2013   -22°34' 28.2"  
2 ~6 M! t, [' x3 o19 一月 2013   -22°15' 25.2"  2 P1 e( e: x3 F  ?! _
20 一月 2013   -21°54' 50.7"  3 D8 {9 R$ |( a0 r' r) \
21 一月 2013   -21°32' 44.2"  , T, V; S, H/ X6 e# @
22 一月 2013   -21°09' 05.7"  ) j& ]2 d7 W# y0 p( {- a
23 一月 2013   -20°43' 55.0"  5 `0 |! ?0 Q) n% [% ~2 X
24 一月 2013   -20°17' 12.3"  
8 z( L  _# ?* {+ ]25 一月 2013   -19°48' 57.7"  
& R; J- o( P4 M  X* V) B- k26 一月 2013   -19°19' 11.9"  + g$ S; U1 Q: T- F
27 一月 2013   -18°47' 55.5"  
2 K5 R6 T* T9 J# d/ r1 @; }, M- e" X9 }28 一月 2013   -18°15' 09.5"  
$ C) i+ N8 T; a: m% P  N29 一月 2013   -17°40' 55.3"  
/ T9 d5 M5 X% A30 一月 2013   -17°05' 14.7"  
7 [0 y9 k9 `1 V( T2 c31 一月 2013   -16°28' 09.9"  3 D4 v" r- D- z# R
01 二月 2013   -15°49' 43.8"  
  k- G7 a/ q7 j7 c* A' ~# Y02 二月 2013   -15°09' 59.8"  
! D" u- |. n" j: d4 y" m03 二月 2013   -14°29' 02.5"  
6 Z% j2 ]: Z' R- x04 二月 2013   -13°46' 56.8"  
' ?% h7 a; J6 y4 i( o# j05 二月 2013   -13°03' 49.3"  
7 h! W# q3 V! s2 _, q  m4 @06 二月 2013   -12°19' 47.2"  
9 R  {- u+ O6 ^0 l9 p0 k3 A' `07 二月 2013   -11°34' 59.6"  1 m* S: K/ T6 C) w! Z4 _0 p
08 二月 2013   -10°49' 36.8"  
6 x* C4 ^, u# H. q3 i6 i7 G# y09 二月 2013   -10°03' 50.6"  $ c$ H& R" n$ `! w" N
10 二月 2013   -09°17' 54.8"  # v4 p, R, F% L! @7 Y% ?% t5 f
11 二月 2013   -08°32' 04.9"  " E" @  U& }' d6 a: A5 ]
12 二月 2013   -07°46' 38.1"  % S# O+ C$ i! @
13 二月 2013   -07°01' 53.6"  
8 D* G* V. R$ Z+ U3 L14 二月 2013   -06°18' 12.3"  
4 z  a: p' ?  N4 V* ]/ |15 二月 2013   -05°35' 56.2"  
% F* N+ p/ U6 I1 q' f16 二月 2013   -04°55' 29.1"  - b2 p: V  _( g! b' R+ v1 Y' s
17 二月 2013   -04°17' 15.1"  
* F0 G6 ]  a" z18 二月 2013   -03°41' 39.2"  , f5 ~6 M$ E& r/ {2 h) E$ G
19 二月 2013   -03°09' 06.0"  ) v) ]3 B3 E( N4 [" |# L! h( h7 g7 C
20 二月 2013   -02°39' 59.5"  
2 K$ X/ s2 K* d21 二月 2013   -02°14' 42.3"  ! @  O6 G0 H3 |! E$ u. W
22 二月 2013   -01°53' 35.0"  
) x) F  Q. A+ }3 }" Q' A23 二月 2013   -01°36' 55.5"  ! W& K& _3 H/ `( t9 _3 c& I) ?: A
24 二月 2013   -01°24' 58.1"  
$ e# \  O# s5 @3 j  |3 c25 二月 2013   -01°17' 52.7"  * o( N, d: N- E  {1 l; p
26 二月 2013   -01°15' 44.0"  - i* h' ~' |0 F' c, }9 _6 R' e
27 二月 2013   -01°18' 30.8"  , q! x- j) Z& {2 ^6 ~: S$ s7 w
28 二月 2013   -01°26' 05.5"  
9 Q& t$ t9 S/ n1 x! Y# k01 三月 2013   -01°38' 13.7"  
- d6 w! s: z! s- V/ F4 \! l8 g2 V02 三月 2013   -01°54' 34.4"  / C- F7 R& Q; p, t2 V4 u
03 三月 2013   -02°14' 40.4"  
  a( T3 C) h/ R! _04 三月 2013   -02°37' 59.2"  
# v, U0 ?$ a: O) c9 C. D. @  H05 三月 2013   -03°03' 54.3"  5 m) j# G! H9 D' X; Z
06 三月 2013   -03°31' 47.0"  
3 t! l  Q2 v/ ^  Z07 三月 2013   -04°00' 57.8"  + J) E; K$ R* q8 C3 ~. e# ?" H
08 三月 2013   -04°30' 48.1"  
& Q( ?1 W. j" P" y& l09 三月 2013   -05°00' 41.8"  1 y* F0 x# O8 E3 s3 `: \( }; b
10 三月 2013   -05°30' 06.2"  3 q/ r; A3 \0 k
11 三月 2013   -05°58' 32.9"  " f; m: [. J( }* P6 g! ^3 L
12 三月 2013   -06°25' 37.8"  
7 F0 M1 z8 i; ]4 e& [. b& P13 三月 2013   -06°51' 01.6"  
2 J- Y: r' b; @& D! @& z14 三月 2013   -07°14' 29.1"  ) E- S+ O2 X% P& R: h
15 三月 2013   -07°35' 49.3"  + h) h0 ^! s4 M5 v  Z
16 三月 2013   -07°54' 54.2"  
, w% C  x; t/ H8 s$ F  R9 f( |17 三月 2013   -08°11' 39.1"  
  u5 E( D7 W6 s/ O+ X" {; n& P18 三月 2013   -08°26' 01.3"  
4 G% X  |6 b6 z& u2 B( g+ n6 x5 v19 三月 2013   -08°38' 00.1"  ) n; ?" l) y! B8 t- D3 w
20 三月 2013   -08°47' 36.2"  
4 G* z0 L" K! C' j' a21 三月 2013   -08°54' 51.5"  
% @! w3 [4 ?7 R' D22 三月 2013   -08°59' 48.5"  ( t0 C9 z1 k; M# }& P
23 三月 2013   -09°02' 30.3"  ' F8 M6 `  u- r$ W) A5 B8 b
24 三月 2013   -09°03' 00.3"  
& s$ N6 U+ g9 I7 q+ J25 三月 2013   -09°01' 22.3"  
2 b5 V3 Y1 W4 q9 v# Q26 三月 2013   -08°57' 39.8"  
9 O/ G3 q) w) x1 g; A27 三月 2013   -08°51' 56.7"  
* P5 j6 h! C. G* A9 w+ ~6 b28 三月 2013   -08°44' 16.7"  . L. k+ G* p5 s  U) y& a
29 三月 2013   -08°34' 43.3"  
, ~) }. g' }8 q& x30 三月 2013   -08°23' 20.1"
6 `$ B; ^% q) r/ Q- q/ x! m/ E$ H' U1 p0 X; `% N5 u$ H! M- L: d5 U
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
  a" \7 g( T) S9 V/ l/ u
& e9 f' s6 ?4 R& }/ ]( A% U" }. U9 a7 i[ 本帖最后由 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 | 只看该作者

5 r% f# T0 E: m3 b+ O
水星
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 | 只看该作者
编写指标用 的数据,见附件8 s6 U' t1 V& H1 p2 a) ~2 `

本帖子中包含更多资源

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

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 | 只看该作者
飛狐7 j% y2 b# y6 f, R0 }$ C; _
9 G# Q% H! A7 T+ \. \$ ^
cc:=數據;! b/ T/ m% \$ p' D
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
, l8 m; J- {5 R" Jvertline(ccsh),colorred;  {high}
/ u& q( g8 V# E4 ~  J0 \ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
& \* A% S& r, N1 z* D2 qvertline(ccsL),colorgreen; {low}* E3 P% _, h2 E7 V

& X9 u4 K% R8 {, b% {2 S[ 本帖最后由 静芸 于 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 发表
; I; Z1 h" E% y, y  _请问静芸  能改成飞狐公式么?

( j2 c9 J7 }2 n8 H% d
  l, _# u# H9 k+ F1 r这是飞狐公式4 E4 P8 P4 A$ p6 X2 E/ O
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
/ w" Z. Z  \- \1 G; J, ]& D再请问 怎么读写呢?俺不会
. O) F1 }: U, `" ~8 c0 c7 c
* M8 p% y) j1 U+ |
,这有些麻烦啊!
' O" m% b" Z2 U你把星相数据存在目录C:\Da.txt0 h5 _1 {; ^7 V( H. F- Y
档名是Da.txt) _8 h# f8 U; f! l0 M2 {  b
如果存在别的目录,D:\hhh\Da.txt1 ]: }1 L( v  X* m. w4 r
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt5 b+ F/ R% v' S6 ]) R: N
下面是飞狐公式,我也未试过,你自行试试吧. j% B- n- i8 o

- r, n  W6 I0 W! p3 f: c1 m, m# WFoxDE:=DATE; FoxTE:=TIME;
/ U) g1 g+ v+ I4 V4 K- @) p' v6 kMyData:=C*0;
$ r# W6 ~$ u8 p<%( W, H5 K1 }* k# l2 ^9 A
MyData =FFL.VarData("MyData")* t; R; Z9 u& i; H( w- g
FoxDE =FFL.VarData("FoxDE")
" I" g+ e4 r9 C4 B( XFoxTE =FFL.VarData("FoxTE")
6 U7 d& N/ A; |. g5 S! g0 R$ mSet fs =CreateObject("Scripting.FileSystemObject")4 C7 F0 a0 ^; c2 _" `3 M( w
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)% W3 o& s5 e* ^  U; i& c
MyTxt = wrkfs.ReadLine
0 s) _2 L. V' T# r2 _0 }wrkfs.close1 h1 h! t" v3 G
TxtStr=MyTxt
0 ~2 b8 ~7 W3 ?; E# FTxtAry = Split(TxtStr, ",", -1, 1)
) Z! F( b; {# l: [, M/ W* nGetDE=CLNG(TxtAry(0))
4 P& E. n9 i/ r$ B: |GetTE=CLNG(TxtAry(1))- z$ K* q1 e  ?* [
GetVV=CSNG(TxtAry(2))/ T* O" m8 f, B; T
for i=0 to ubound(MyData)
% H* U$ u% d2 F- Dif FoxDE(i)=GetDE andFoxTE(i)=GetTE then; Q( _( Z1 W' j3 Q/ q4 k  u  D% I. l
MyData(i)=GetVV
* m) k$ K8 V4 Y1 u$ R/ v; O1 }" rend if! K: }8 k; ^' S+ Y: ?: L
next6 B1 N3 g6 I0 {( n. _( I1 Y3 `
FFL.VarData("MyData")=MyData$ Q8 G. j! ~) P% @+ |& Q/ e
%>* ?* m/ Y- L' T" r6 n$ ^$ a

' }3 w2 r& H) E
cc:=MyData;. ]" j+ G1 v: f" _4 C
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);: I" ]/ i# h% ?4 W9 ?$ l
vertline(ccsh),colorred;  {high}& @* K  }. A6 `( i
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
" f& u* ?3 k8 |' I" q; z% D% {vertline(ccsL),colorgreen; {low}
& C# k% T0 F: J, z
) E* o( H3 s* s% c[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢, T3 Y9 W# R' k. I8 A- B/ C) L7 o9 u* W

" u, ]* I3 D: E; ~* o7 O我刚试一下。。。出现错误。。。静云帮忙看看。。。
# F) D' v( V; X7 R' L& l# J等我发图4 j2 g3 W( g# V# U3 G
" V$ H, Y: n; S  _

: T5 Y9 t+ a9 A9 j[ 本帖最后由 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 发表 - e# Z# f/ n4 C' U7 f
太好了。我试试。。。万分感谢4 b! V' o1 t8 V9 ~" m8 _, v, E; a+ ?* q

# z. z, S3 K! J, X9 c0 k! M我刚试一下。。。出现错误。。。静云帮忙看看。。。9 P/ I. G. n& a( a, J
等我发图
1 }* v) }; a* N8 E' P7 `, W% o& n110666

. m$ ?$ X. Q& Y& h- t" O8 O4 C3 n' E
再试, 这读数据公式不是我编的) r( `8 C1 p( s) X7 Z3 ]
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then5 `" D9 l, C3 a- f
* h% E3 }' K( q* e1 m  I
/ I$ C8 k7 Z6 N- a1 e
1 K) f8 {) X# T0 K& U% s$ i
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

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

- J% a+ Z3 v3 q- z! P# u) Y* v1 W; R% T2 J+ K# p( U; ?: L
还是不行。。。能通过测试,但一运行就出现这个错误:. `6 O9 }+ m+ y3 i  y
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 # w8 E! C3 x! c4 y4 z( U
110668
5 ^* c$ W' X+ @
9 o; k6 a4 k. w  A  L还是不行。。。能通过测试,但一运行就出现这个错误:
( p: c) M3 g- A: {' i见图。。。

' ?) I- j5 @- N0 m: d/ [8 h- k; I
* j& L1 S+ z1 b+ s, |) R, R可能是数据檔的问题( |5 K) m6 m  q5 v' S
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行8 Y- K0 }% u, B/ X" ^0 o) m! |- s, n
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。: v+ Y9 S7 b% y5 a) j
直接程序计算declination值数据然后显示
7 e& m: L* v# _  v/ k0 S% m. o/ z, L/ y1 z4 ]! L& P
. _+ Z9 F0 W& S, s/ V8 }& ?

& r  I  f/ K5 p[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者
0 M) g) t6 ^. A7 X

: r3 q1 Z) A* |7 j) D) `& K/ O[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。, o3 r. ^5 l+ e1 o; u
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
$ y" p* T4 W4 W0 @9 i0 d- h: i- L5 Y请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
( D, S% E4 _: h3 b& z# w' Z9 j3 b' i4 R我是不是用错了? 有其他办法吗?
8 m3 K. Z' J  T* c2 }4 \
% T! Y/ S/ X: G3 o
你好, 向下  H% H3 M- e4 [) u8 Z
vertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 / S; j# V9 ?! ?. ~0 f' D# ?) ?6 m
, k3 }+ Y$ C! T( A' y- L

3 U+ P: G: s( n7 _! q6 r你好, 向下: K( g; p! G# ^% H3 d' u* D
vertline(cross(0,cc)),coloryellow;

. |. M6 _! ]1 U' g5 @2 o" z& ]5 h( ^! s# b/ }
谢谢,可以了。$ O7 ]) d6 H1 o, z8 ~

. I- _& ]; e+ }1 R: D: O# v* `
原帖由 kaiser88 于 2013-12-18 19:34 发表 ; S; z3 r# t! l' j  e
he110 请问你公式怎么做的 我的也一样报错

0 V0 s9 ^0 i  D# y' G$ [/ G- o
0 \, F8 d* _5 y# K) k. |% ]/ w. Q& o我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
6 W. M+ R6 S: ?
; _6 a0 y6 P) E7 W8 Q( zprayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-6-3 00:03 , Processed in 0.197263 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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