阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:9 g$ V  D9 v4 W: x5 W3 Y
  i: ~% X$ T2 T% v! G4 q

1 o" W' N( T0 ]/ h8 Y2 u( S/ w) [2 a- q0 t

1 l- l/ n) j5 Z这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的3 R$ B5 Y0 L% |2 J4 ^

2 I- w! m) |, a! L

, H9 Y, W8 q2 J: \4 I0 d8 ]4 U  j- o: w! b1 j$ h" G
1.根据给定的数值,画出这样的曲线- p) c  \- [$ V+ K, v
2.分别在曲线的每个拐点出画一竖线
3 V. g- Z. g5 b0 o. a- Y2 i( g3.在零值画一竖线
; T! p* o, B4 `! N% _- C4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。8 O5 N  ~$ n- h7 `$ U
8 x( F; E2 U# |1 T. D  f9 e7 g
& {' c+ D2 @# k4 S  {" [! Q
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。$ u8 x+ B* H' q

& Z% d0 w% T  T' n5 [% z( _8 l2 f数据样本:从星相软件导出的:) J  \' L: R) _8 ~

. z- E( w5 Q3 d, _01 一月 2013   -24°14' 58.7"  1 j- R, W0 i8 i$ x' U% `
02 一月 2013   -24°20' 05.2"  / K! e9 A/ j' Q) h
03 一月 2013   -24°23' 54.3"  
1 ?+ G! E( L+ r& M2 X+ X' m04 一月 2013   -24°26' 24.8"  ! s/ p) l1 d5 c8 J: s# g
05 一月 2013   -24°27' 35.6"  % I- p! Y) r4 M( s9 ]9 A
06 一月 2013   -24°27' 25.5"  9 j. K9 [, V6 ^0 h4 [3 z( A" m/ F
07 一月 2013   -24°25' 53.3"  
8 `1 h1 {  _. T$ e* ?9 Y. L3 h08 一月 2013   -24°22' 58.2"  0 W; a! d! D+ @3 B  f7 V" u- \
09 一月 2013   -24°18' 39.1"  : x! @- U( p  o$ t
10 一月 2013   -24°12' 55.1"  * H" F" X; a+ X
11 一月 2013   -24°05' 45.2"  5 b. h* e2 J2 [3 T" A
12 一月 2013   -23°57' 08.7"  . A4 w6 I) c9 S/ i* |* F
13 一月 2013   -23°47' 04.8"  : _$ A* |% F, B% K8 j  }
14 一月 2013   -23°35' 32.6"  $ K9 U7 s3 _6 s- e& S3 p
15 一月 2013   -23°22' 31.5"  7 T& a- }7 F) ]6 A1 \) ^
16 一月 2013   -23°08' 00.8"  : H* }; b: I$ M/ F
17 一月 2013   -22°51' 59.9"  & P  P6 m" ?* M
18 一月 2013   -22°34' 28.2"  9 e" y6 S5 d9 N- g- t) |
19 一月 2013   -22°15' 25.2"  % \6 [0 Z2 Y# u% H
20 一月 2013   -21°54' 50.7"  , Z0 A! s" e+ w" U9 f, _
21 一月 2013   -21°32' 44.2"  " N; C7 U8 t- U* u$ B: o
22 一月 2013   -21°09' 05.7"  3 ^# o$ o* I* a8 O
23 一月 2013   -20°43' 55.0"  
9 |; o8 E( X% m( H/ ^24 一月 2013   -20°17' 12.3"  2 i6 {& n5 y( D2 [: o- Z: T4 D
25 一月 2013   -19°48' 57.7"  
8 a* e2 [3 ]$ d9 F4 H26 一月 2013   -19°19' 11.9"  8 L; Z7 N4 |3 h, {% f2 V2 G
27 一月 2013   -18°47' 55.5"  9 u$ {2 i: O' o8 E- u8 {' ]* E
28 一月 2013   -18°15' 09.5"  
+ X. I8 J4 k6 N2 I4 c29 一月 2013   -17°40' 55.3"  
% c7 q3 \( M; g6 z& Z30 一月 2013   -17°05' 14.7"  
6 ^) }, d  e1 _) p6 L( E, l31 一月 2013   -16°28' 09.9"  
: B% u0 V# q* p+ F5 V% J01 二月 2013   -15°49' 43.8"  % n/ `% N; H$ U" |. l& I( e
02 二月 2013   -15°09' 59.8"  
9 m, _. ?* ~2 E6 u03 二月 2013   -14°29' 02.5"  4 W% _7 v7 u# P7 i; R! O  x: ~: e
04 二月 2013   -13°46' 56.8"  ( F/ A7 H* a7 I8 G  z1 m
05 二月 2013   -13°03' 49.3"  ) f% e$ b/ k! W+ C, e
06 二月 2013   -12°19' 47.2"  6 I& y) i; O; c4 C3 E/ ]# V! _
07 二月 2013   -11°34' 59.6"  5 r" K- s' U/ Z# Q# U7 [- X
08 二月 2013   -10°49' 36.8"  
3 V: P2 O7 A& @6 A09 二月 2013   -10°03' 50.6"  
4 y; E6 ]& _1 @' G10 二月 2013   -09°17' 54.8"  / L6 d7 q9 R5 k7 |! W
11 二月 2013   -08°32' 04.9"  
8 B& n  o. Q: F" h: ?$ x- M12 二月 2013   -07°46' 38.1"  
$ L$ R" ~! j" E13 二月 2013   -07°01' 53.6"  
" Z: g" u2 Q& B14 二月 2013   -06°18' 12.3"  
2 Z# C# P) H8 @7 W( E' s5 n15 二月 2013   -05°35' 56.2"  
) p/ b3 Y9 ^# k, Z16 二月 2013   -04°55' 29.1"  ! Z5 C- B. e9 s( a
17 二月 2013   -04°17' 15.1"  
( G, {" p. R- s4 g9 A18 二月 2013   -03°41' 39.2"  
* M: `! f/ r4 B1 w2 U19 二月 2013   -03°09' 06.0"  
4 h  n; |8 p+ d: [20 二月 2013   -02°39' 59.5"  
0 w$ Z; k: B" o: \9 ]21 二月 2013   -02°14' 42.3"  
- n0 \5 O) D3 b8 ~6 _; G1 |; x22 二月 2013   -01°53' 35.0"  - ~- T' Z/ N: W5 F  J: P/ t
23 二月 2013   -01°36' 55.5"  - f& r- z* Z  ^
24 二月 2013   -01°24' 58.1"  : J$ i" y. S6 G' F5 _
25 二月 2013   -01°17' 52.7"  
" M* O2 l" \4 a7 G  g26 二月 2013   -01°15' 44.0"  
8 t8 g8 _% U0 ~  }% J! y5 w* G27 二月 2013   -01°18' 30.8"  ' p  c/ B& `. F7 W/ p
28 二月 2013   -01°26' 05.5"  
4 L( D# I8 S+ P) G, x' I01 三月 2013   -01°38' 13.7"  3 U) M" w$ a# M. y" U
02 三月 2013   -01°54' 34.4"  
1 c& O+ m! y$ O- x03 三月 2013   -02°14' 40.4"  " ^4 O6 A! S9 ~) H5 e/ g
04 三月 2013   -02°37' 59.2"  # K- V! C  d1 v, W) O! y7 q% F
05 三月 2013   -03°03' 54.3"  
* }) b) n+ R5 S) o9 I" \1 T06 三月 2013   -03°31' 47.0"  
: T; W, X* U; v9 F; s$ f07 三月 2013   -04°00' 57.8"  
2 m$ w2 K! ]! |; y) i9 N# s, W) Q9 k08 三月 2013   -04°30' 48.1"  
+ l9 X; o) \. K6 [' e09 三月 2013   -05°00' 41.8"  
) @2 _( I/ p/ G7 ]0 S5 }10 三月 2013   -05°30' 06.2"  
" g2 ~8 t4 ]2 Z$ p# ]11 三月 2013   -05°58' 32.9"  
8 W4 m+ H+ L" L7 f12 三月 2013   -06°25' 37.8"  
. U, |- H% V* f8 H7 O+ K9 ~/ J13 三月 2013   -06°51' 01.6"  4 [; j) d' x: O2 q- s
14 三月 2013   -07°14' 29.1"  
4 ^1 L6 ~1 V  B" b, {( Y15 三月 2013   -07°35' 49.3"  
: `' p# S& y2 C8 _" t1 s16 三月 2013   -07°54' 54.2"  
0 X4 D& J- H2 J! G6 H+ V7 [17 三月 2013   -08°11' 39.1"  8 @& S% d1 b4 e/ P6 X6 H- @& T6 @
18 三月 2013   -08°26' 01.3"  ( E! l1 ?! a9 V' O% G7 c
19 三月 2013   -08°38' 00.1"  8 |8 y' V0 G) F7 [8 c
20 三月 2013   -08°47' 36.2"  " ~, V- \/ h( j- d
21 三月 2013   -08°54' 51.5"  
6 C- Z, {+ q. ?+ O22 三月 2013   -08°59' 48.5"  ! Y( d0 @; V% ^7 M. J
23 三月 2013   -09°02' 30.3"  / Y4 y* v. {# T0 G, L+ {
24 三月 2013   -09°03' 00.3"  
( C6 U. K, J2 J- f2 }  L25 三月 2013   -09°01' 22.3"  
  W& ]9 u1 b& }$ k4 G- T5 Q  O26 三月 2013   -08°57' 39.8"  7 e) y8 {  L& T) W% U& Z1 o
27 三月 2013   -08°51' 56.7"  
& W* t0 v& L) n' ^1 o7 b+ r28 三月 2013   -08°44' 16.7"  
% a0 @# i2 j$ K1 C$ Y0 F6 E2 A29 三月 2013   -08°34' 43.3"  8 A7 _3 L: @' D! b% J8 d
30 三月 2013   -08°23' 20.1". c/ G3 v) d7 ]  q5 j
* u) T+ j0 j  \% _1 T
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
( Z! p: e* U6 A9 \& ?6 {) O9 n" Q) N8 q7 |7 x; |+ T1 N
[ 本帖最后由 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 | 只看该作者

) w$ ]: g9 f  ?# L5 X
水星
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 | 只看该作者
编写指标用 的数据,见附件
1 `+ x5 {3 p3 `5 q; j1 h8 h; s

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
0 {4 U9 l% k3 w0 f8 Q7 n$ ^. @7 J% T( _5 \# x2 K
cc:=數據;, T6 A0 N+ ?) t  w4 c' v5 c& p' }
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
2 D, H1 s8 h5 j8 I3 Z( ?7 [vertline(ccsh),colorred;  {high}( L1 R  }# o8 i0 f0 G6 R8 Y
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);0 o  }2 P0 g& g3 p
vertline(ccsL),colorgreen; {low}' b+ b2 ^7 y, _  J/ v

1 Z! P* V- L2 k" U8 F$ _8 Z7 E[ 本帖最后由 静芸 于 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. h( J7 D4 u! e+ M请问静芸  能改成飞狐公式么?

+ P  o' u% R6 }; H+ i; B- T) {7 K6 {# W! J1 v
这是飞狐公式
9 K3 }/ V8 a5 W* |第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 2 S- w3 ?4 e4 ~. G
再请问 怎么读写呢?俺不会
1 Z, _" M0 [0 e. E4 J% ]
( `/ G2 X' J' R/ ]+ I$ c
,这有些麻烦啊!
1 H3 C3 s. w0 w5 ~你把星相数据存在目录C:\Da.txt  k& N6 I1 X7 `4 G$ ?
档名是Da.txt
' M, P  k3 I  P* U5 n如果存在别的目录,D:\hhh\Da.txt
" c! r$ ^$ D1 i" @- P' w1 m) G; Z那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt8 R& R! g/ y8 @5 m1 Q* ]/ D
下面是飞狐公式,我也未试过,你自行试试吧& V: C  b! z% U- N! F0 `% O- v$ u

8 [; p* q3 n/ C" OFoxDE:=DATE; FoxTE:=TIME;
& E/ B. x) g, {1 s! C3 x. pMyData:=C*0;
+ B/ H* k3 v3 Z<%
; ]. L0 N  F) y: c' tMyData =FFL.VarData("MyData")
. k( @, G3 t! u$ ^4 s9 @FoxDE =FFL.VarData("FoxDE")
  H$ g1 S5 A1 tFoxTE =FFL.VarData("FoxTE")8 G7 s4 r; g6 T' k, ?
Set fs =CreateObject("Scripting.FileSystemObject"). H1 Y* u0 m% O: M9 Z. F
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)/ W0 g* t: J6 N8 k# V( x$ f2 d
MyTxt = wrkfs.ReadLine  ^2 k: n& K3 g4 _0 U
wrkfs.close
. g0 l, v7 H' N9 g. }TxtStr=MyTxt
( @  A% X6 n0 v# `# R' LTxtAry = Split(TxtStr, ",", -1, 1)2 S- Q+ @* F0 }. _
GetDE=CLNG(TxtAry(0))
( n3 r$ E7 D! E1 S! aGetTE=CLNG(TxtAry(1)). g/ S5 X5 H' f4 V
GetVV=CSNG(TxtAry(2))1 U% x+ w) A6 J$ o; L, L- x/ L
for i=0 to ubound(MyData)* m* ~2 [+ C, _! _
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then- z# a9 ~& L' E% A0 A( G
MyData(i)=GetVV5 c# N! H! b: A& u1 V( N" }- F
end if
* K# g' S6 c# P; m( T6 ]next8 e8 K9 F6 Q/ d8 x6 O& q5 y
FFL.VarData("MyData")=MyData
2 ^: r3 O- r$ G4 p1 e3 ?6 |%>
. ^% x* ]5 z- A! \& Q# v$ f) P# B8 y5 N. N; V4 v
cc:=MyData;* P* E, n% a' z- H
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);' Y) ?6 }2 N2 k, H8 I
vertline(ccsh),colorred;  {high}( O& V& C! i9 z
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
+ T( L9 I" N) |, v5 ~- z, ?# cvertline(ccsL),colorgreen; {low}5 J2 I3 s5 H6 u2 p% U
/ v) K6 I; F. m- j. V% |
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢: T6 X5 n% Z" X
) `# y" F" E2 B5 c4 C9 J. c
我刚试一下。。。出现错误。。。静云帮忙看看。。。8 l# P: D6 ^6 K9 t+ v' `$ k
等我发图3 [1 W+ s+ u: B5 t
$ i+ c& X& u. @% Q3 Q
2 ]9 Z: {( d5 u; ]. t7 w2 L/ `
[ 本帖最后由 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 发表 # R) K: O/ ]2 `8 f# I$ N4 H
太好了。我试试。。。万分感谢0 ]5 g( v$ F6 R9 S

6 D0 b: ^# f9 H1 ~! u! R. u我刚试一下。。。出现错误。。。静云帮忙看看。。。: k9 g* T) T5 `
等我发图- ~7 a7 [% F' p# t! ~
110666
7 B# R' R. ?4 j8 m4 P

6 h% t9 j" T8 r1 Z, @2 \9 z再试, 这读数据公式不是我编的! k5 Y2 v  m/ v. S
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
7 u6 y% j1 s- V
$ U' O, r) ~# G* I  I2 ?
( r1 R& K4 t8 C% z2 S  }( Q# b6 v! C5 G2 o" s' X# O$ }
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
' S: R: y/ A. N  v. p; t( a
6 n; ~0 ?/ S( q% z8 {: v
还是不行。。。能通过测试,但一运行就出现这个错误:3 R2 H" S% R# z) F" T6 @
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
* ~: O: }" o8 Q$ v8 G& V5 F' s6 L110668
; q& z6 T2 z& d' C/ z
" \3 ^3 B: c5 H; i( M8 @还是不行。。。能通过测试,但一运行就出现这个错误:
' g4 S( c; {/ c: R" D见图。。。
8 C! C5 N9 Q7 [  j( L
$ `7 \+ H" I: S5 {( D1 A- U, h
可能是数据檔的问题- [+ R6 n6 U7 h: L9 ?
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行2 g7 b3 l) d; S0 j2 e
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
! z0 a' A! ]# K0 O  G6 X直接程序计算declination值数据然后显示
& a" |3 ~, |  [8 k8 z$ o
0 v' Z6 m& O+ b/ {: r5 |
& E1 }- H2 m+ m) f: F7 v5 U
* V* L' @+ e+ J9 n4 N, D6 P0 D" ]+ G; E0 E[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

: T( n$ p9 R! U: F1 v0 }2 P# t* J5 b( u& i
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。0 t4 _' c; v" |5 G6 ~0 @% r
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 0 i% w0 ?/ g2 b& S" L: u
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。6 E* x- l) O. V; f
我是不是用错了? 有其他办法吗?

# B0 \# q4 ~  u% s
. P- i/ G+ z/ E7 G+ h; y, M& c: F你好, 向下9 M5 c+ {/ [4 \
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 发表
) H# g4 I" b4 y% A1 u+ u8 t% {' V; _) G- E6 ]
, u2 c9 E5 r+ F$ Y  F$ H
你好, 向下+ u- \* @' P( J. @" C4 ?
vertline(cross(0,cc)),coloryellow;

! w" i5 H8 z; a; Z% {0 `
. V5 A( H) `) w8 X, e  V) c谢谢,可以了。9 V8 \9 O2 ^2 j7 U1 ?1 l
: ^+ d/ b( H0 W. N
原帖由 kaiser88 于 2013-12-18 19:34 发表 8 v* J* M5 T, ^2 ]" A3 ^- R
he110 请问你公式怎么做的 我的也一样报错

( E' |3 \* ^1 A' X; m& v" M$ `. s! P2 o% i% H: I) e, F
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。2 X8 P! `8 ?; V! H- p

8 w/ C% k+ i4 o( Dprayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-19 05:18 , Processed in 0.423822 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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