阳光飞狐

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

 找回密码
 手机注册
查看: 6274|回复: 36
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
) f* e6 R: R2 M( k- `
. @. R/ ?& y% \, `
+ i) h$ b. F$ ?9 M* U' @
& H% I* W( T2 `; e3 V

0 ^0 e3 Q6 x# e  J2 }6 r: s$ ~这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的2 |. j% |" W8 T

, r  z* I/ K6 M; C, ^, g# E

  ?' m6 ]$ M  z( G; H, {:
4 {. a' o, g5 b* e7 i& T8 d1.根据给定的数值,画出这样的曲线, n0 k* w3 D- E6 G, F# y, S( Y
2.分别在曲线的每个拐点出画一竖线; Z9 y! m  C8 S' ]7 Y1 m
3.在零值画一竖线8 G- Y2 g; Y% `9 Z, M
4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。/ W4 Q& N7 g2 t+ x) e. P5 f
$ K; p: B9 x  ?1 {1 ~
7 A( U! g5 @  S/ j0 O& b
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。$ u. T, K, |6 {8 \  d! b

3 I* o1 _. R' c' `/ v5 P数据样本:从星相软件导出的:
4 _" ^' q2 O; {
/ e3 G1 i5 n) Y' H01 一月 2013   -24°14' 58.7"  
6 V" O7 E8 K" p4 L+ {02 一月 2013   -24°20' 05.2"  " m7 x! p  ^+ H8 V% v) ]* Y9 o3 N
03 一月 2013   -24°23' 54.3"  
( ^5 A9 A2 }( J; o) B04 一月 2013   -24°26' 24.8"  
) b1 V* W" r; ^. S05 一月 2013   -24°27' 35.6"  : G& }' k+ j5 v& w/ H0 W' N
06 一月 2013   -24°27' 25.5"  5 W1 O# q4 ]8 j
07 一月 2013   -24°25' 53.3"  
7 V" {1 q5 X7 c3 w  x8 }8 {08 一月 2013   -24°22' 58.2"    p. e5 g2 Q$ p: d$ @. A4 R' R
09 一月 2013   -24°18' 39.1"  
7 J& Y8 [7 o0 n7 U& w10 一月 2013   -24°12' 55.1"  ) y% T$ c, \0 [  @4 X8 L1 ?
11 一月 2013   -24°05' 45.2"  : ~6 Y8 \6 M' L9 T+ X  c2 E* I1 ?
12 一月 2013   -23°57' 08.7"  
) X& L8 E( R6 Q7 e13 一月 2013   -23°47' 04.8"  7 G) `. u  Q  r8 r' H
14 一月 2013   -23°35' 32.6"  6 E+ N4 _1 F* r
15 一月 2013   -23°22' 31.5"  ; [- R" u* k, d9 G) m8 D- x
16 一月 2013   -23°08' 00.8"  / K8 u* b7 b2 ~8 S7 d$ Y
17 一月 2013   -22°51' 59.9"  % X2 ^4 U+ e: T, \
18 一月 2013   -22°34' 28.2"  
  q* o) n0 B6 H6 |4 e  z) R0 ?19 一月 2013   -22°15' 25.2"  
9 E8 }" M/ m- n! P5 u20 一月 2013   -21°54' 50.7"  
' A" N/ X+ m" k1 E/ M2 o$ D( W- B21 一月 2013   -21°32' 44.2"  % B3 r. d$ A1 c# B6 I
22 一月 2013   -21°09' 05.7"  " @9 y  B5 c  o* u  F  L7 H
23 一月 2013   -20°43' 55.0"  
# b- T4 I* [1 W$ U, c( w! }  @24 一月 2013   -20°17' 12.3"  
. e8 `, f+ [7 t, W+ ~" I7 @: o25 一月 2013   -19°48' 57.7"  
8 u6 u1 g! e8 v; O26 一月 2013   -19°19' 11.9"  - k0 h$ a, S$ _$ N3 ?
27 一月 2013   -18°47' 55.5"  
) `0 N$ B5 A, B( T) K* U# a28 一月 2013   -18°15' 09.5"  
. x& [+ u: |8 r( W- x1 U29 一月 2013   -17°40' 55.3"  2 a! Z- q. D9 E$ z- ]4 d" d4 v
30 一月 2013   -17°05' 14.7"  
$ c) l& ?2 k$ W7 [- f/ ?31 一月 2013   -16°28' 09.9"  
- P4 @1 {7 n# `. o01 二月 2013   -15°49' 43.8"  
' Q5 g" I5 e1 {& g6 r: T02 二月 2013   -15°09' 59.8"  
& K5 n7 U; y9 x+ ^03 二月 2013   -14°29' 02.5"  ( N9 L3 `5 N9 Z& C% ^, C: b+ i
04 二月 2013   -13°46' 56.8"  
3 i/ h3 E% P! j2 K' f4 u3 M05 二月 2013   -13°03' 49.3"  
  I* O9 A. j$ }6 |" w& j06 二月 2013   -12°19' 47.2"  . C: T- B2 G9 V/ L3 \- y6 ~! F
07 二月 2013   -11°34' 59.6"  8 B# i3 l9 ~' @( w
08 二月 2013   -10°49' 36.8"  
* d( U  N5 \( L. O; ]09 二月 2013   -10°03' 50.6"  
8 c. a/ f' J6 M5 r! V10 二月 2013   -09°17' 54.8"  
4 ]; O1 W6 A* Z) p- ?9 M11 二月 2013   -08°32' 04.9"  $ w- \# E- a; n7 C
12 二月 2013   -07°46' 38.1"  ; u% Z  f. {( O
13 二月 2013   -07°01' 53.6"  
) H/ x/ w" p$ K; |) L14 二月 2013   -06°18' 12.3"  ( h& i, b+ Q6 L: o4 Y. t! N
15 二月 2013   -05°35' 56.2"  
; s8 p$ y% c: g3 y  S6 c  K8 }16 二月 2013   -04°55' 29.1"  
4 p0 i4 t! r/ p  J% [$ u8 c17 二月 2013   -04°17' 15.1"  + X! i% o) g4 L  g5 K# R8 l
18 二月 2013   -03°41' 39.2"  , f2 G5 Z% a* f$ r  W; x) A
19 二月 2013   -03°09' 06.0"  7 E: O0 ^  Q4 J+ v' D3 n7 B
20 二月 2013   -02°39' 59.5"  % g( N( ?# K9 Z7 f  ^( H
21 二月 2013   -02°14' 42.3"  
8 }. |# A' f- h7 ~! X$ b6 O. h22 二月 2013   -01°53' 35.0"  " L5 t1 w5 z! X$ p  U3 W5 n
23 二月 2013   -01°36' 55.5"  & a+ V" K: s6 Z5 V" m( y$ `( |  T
24 二月 2013   -01°24' 58.1"  
. l! D1 B6 A# Q25 二月 2013   -01°17' 52.7"  + O; m  _" T. ?
26 二月 2013   -01°15' 44.0"  ( S$ O& o( T# n+ Y$ J* B
27 二月 2013   -01°18' 30.8"  
, I  h1 k( N: n& A" h% w* d% R28 二月 2013   -01°26' 05.5"  
" c1 [; {) R& M- c01 三月 2013   -01°38' 13.7"  ' S  Y% Z# }* t# v6 P4 G
02 三月 2013   -01°54' 34.4"  " B0 q0 i( F" a  ^, X
03 三月 2013   -02°14' 40.4"  
, J" p9 d+ \" P2 {: ^3 W0 {; b04 三月 2013   -02°37' 59.2"  : c8 e: v) d$ Q; F
05 三月 2013   -03°03' 54.3"  3 L" s+ c& K2 H* q& w0 p: N9 Z
06 三月 2013   -03°31' 47.0"  
' ~! l/ R; T6 @4 m07 三月 2013   -04°00' 57.8"  
8 a  t) G. i; ^/ U08 三月 2013   -04°30' 48.1"  
9 m' x( b. z; `9 N0 I1 S5 C6 ~+ @09 三月 2013   -05°00' 41.8"  # F4 y, k8 b8 K. D
10 三月 2013   -05°30' 06.2"  
9 T- S* e& H2 e6 \' v# B' k! v11 三月 2013   -05°58' 32.9"  
  o  E* W% N3 m. Q1 `" D12 三月 2013   -06°25' 37.8"  & W  h, y" F8 T) q' u6 B, V
13 三月 2013   -06°51' 01.6"  
8 r1 O6 Y7 z( d; V' l) l14 三月 2013   -07°14' 29.1"  
; F0 {' _  m# O15 三月 2013   -07°35' 49.3"  
+ s, n* `5 v; j: X' y, ?9 Z16 三月 2013   -07°54' 54.2"  
8 R. Q" Z& T& q, M) l6 p5 O& w+ @17 三月 2013   -08°11' 39.1"  
8 K4 p* }( B/ K  C* F& d" i18 三月 2013   -08°26' 01.3"  
8 f! w$ U8 Q; j% L; M% L19 三月 2013   -08°38' 00.1"  - S; d( e6 P' y4 u. q
20 三月 2013   -08°47' 36.2"  * q! Q! I7 S- J; m) G9 D
21 三月 2013   -08°54' 51.5"  7 ^  G: p' Z! }
22 三月 2013   -08°59' 48.5"  
8 a6 X0 S  A) X23 三月 2013   -09°02' 30.3"  ' X* ?4 ~9 d# `" c* o: {
24 三月 2013   -09°03' 00.3"  
0 W) p) ?0 n6 i' S6 M6 S" g- J2 }25 三月 2013   -09°01' 22.3"  " j2 K" O! u3 D/ R: U0 i, e5 B+ F9 S
26 三月 2013   -08°57' 39.8"  
- h2 v/ U3 g: Y27 三月 2013   -08°51' 56.7"  
* S; i. j$ F! J; R28 三月 2013   -08°44' 16.7"    p) Z8 O  `* _
29 三月 2013   -08°34' 43.3"  
. L$ D/ {5 G/ G8 b30 三月 2013   -08°23' 20.1"4 T" ?# a; ]+ u8 z8 D
5 P& {5 G0 v' Q4 N; [
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。0 ]% \6 V. H2 `  S, |1 ?
( I+ [% d  H. [6 m# E9 I$ G
[ 本帖最后由 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 | 只看该作者

; ^, C% w4 F4 D2 _
水星
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 | 只看该作者
编写指标用 的数据,见附件
. P+ ^1 D0 M5 a3 X% N# X

本帖子中包含更多资源

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

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 | 只看该作者
飛狐' `8 |# B! f) p% `# k! R$ p% `6 r6 K

6 X0 M1 _* y! Ncc:=數據;
0 f# b, \3 r" F( g9 P( Cccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
2 F+ Y( k/ I: z& Hvertline(ccsh),colorred;  {high}+ y) r9 F* O9 M2 `; S! O
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
- A( p5 _) w' Z/ }vertline(ccsL),colorgreen; {low}
# B0 y" R1 o4 C$ p2 I  B$ l
/ X; P3 s* ^$ O9 L9 V- Q' g& \5 V[ 本帖最后由 静芸 于 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 发表
" V6 X- s" E4 q: z, d# y2 b请问静芸  能改成飞狐公式么?

% X1 p+ M2 ]. Q  R2 A! V3 m4 c
. p5 i% u. {% _, \' K( ~这是飞狐公式
7 C) w, ]  m; Q9 I( p! x  _$ h第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 ! P# \, |3 D8 F
再请问 怎么读写呢?俺不会

3 N6 h  N' G$ E3 i
. V9 H/ N! L# S  h: m% r7 Y! B哈,这有些麻烦啊!" P% X7 J) j- q, v4 R0 Z1 M5 D
你把星相数据存在目录C:\Da.txt, ^4 J7 p! m- O1 I, t9 j- E$ J
档名是Da.txt
9 ^2 H5 H  h- r如果存在别的目录,如D:\hhh\Da.txt3 s1 U1 y4 G, ^/ h
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
, [# q2 Z/ {) c! Q: @8 R下面是飞狐公式,我也未试过,你自行试试吧$ W, t! M% l' V3 q7 b
; B4 A! a$ u1 F
FoxDE:=DATE; FoxTE:=TIME;0 I4 H! C+ J3 `
MyData:=C*0;
6 c! V" v2 K( C; |<%$ F# y( t2 i5 N0 d/ u4 ^
MyData =FFL.VarData("MyData")
0 i! t9 y( E+ H) a" E# r) sFoxDE =FFL.VarData("FoxDE")3 V; |. [7 b2 h; c0 v
FoxTE =FFL.VarData("FoxTE"); _4 f1 t9 C$ r  R) @0 j' |5 f5 C
Set fs =CreateObject("Scripting.FileSystemObject")
6 @, N6 s' F- j, QSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)% w1 a" s8 {6 g  r3 i
MyTxt = wrkfs.ReadLine% h. W3 M8 \+ [+ C! f% b
wrkfs.close
6 I# p) B  _- ~# D, D1 O, lTxtStr=MyTxt' |/ Y" q$ ?$ t$ a5 a3 [- g# e% ^. j
TxtAry = Split(TxtStr, ",", -1, 1)
7 F2 P% {' {* T3 U' vGetDE=CLNG(TxtAry(0))8 _0 N0 f' g! g. g
GetTE=CLNG(TxtAry(1))/ p' j) V  H3 [
GetVV=CSNG(TxtAry(2))
. w1 I  B7 A4 A# a) j0 d$ m1 c9 E4 rfor i=0 to ubound(MyData)* J) z3 E' Q% ^: t7 t% \+ T
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
& b. F1 I6 M+ lMyData(i)=GetVV
, ^& B- e7 a' Tend if5 h6 {* @, s# k- I5 f6 `8 Y
next
% v8 v& v- B( f5 s1 tFFL.VarData("MyData")=MyData9 F- i9 W. J0 j
%>: I2 Q6 v# B9 @( W
7 a, O8 S5 X; i: Y
cc:=MyData;
- Y& o" p& `+ p" x: mccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
% V# D# d  K/ z: E: `$ xvertline(ccsh),colorred;  {high}* ?) B% h$ t  F+ @1 o
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);! Y6 v2 u( i6 B! c9 Y. n
vertline(ccsL),colorgreen; {low}0 W: e/ }1 G, e  x  s% f  O' j1 K
5 K* }, T. I0 I, A# Z. ]+ c
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢" b+ g! I/ |5 h4 B9 `7 h0 L

% x' d1 l; i/ y1 M6 a) L  }6 T我刚试一下。。。出现错误。。。静云帮忙看看。。。
2 W( M. @4 f+ k' l: F等我发图# Z- [- b: x8 u2 V
' K* U9 a+ u- p9 f- L3 `! F: B/ q
7 k4 t: q! \+ q; l/ W! Z4 Q" F; G
[ 本帖最后由 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 发表 - v1 O' U& v6 L5 V: \8 L
太好了。我试试。。。万分感谢
2 N5 o% E9 W1 E+ K# L2 e$ E8 b* p9 Z
5 ?) ]% H( ]; K4 L7 Q我刚试一下。。。出现错误。。。静云帮忙看看。。。
8 F: C+ V! r" F5 t+ f2 O等我发图9 ]9 X0 o& ^' ~+ ?
110666

8 a. t, E! q! w# v& U6 N* s
, u* H* L$ [  |2 d& C再试, 这读数据公式不是我编的
  s: \& F' |# @5 Uif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
  I1 j& P# |5 g% k. c, N. g0 W1 y8 Q; f/ u! o

3 f0 I4 F! Y* h0 `$ ~; n' ~% s5 N/ V) X3 ^( X
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

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

0 [! J( G4 ~7 {) f* G
0 v1 i" S+ t  G5 O; b, I还是不行。。。能通过测试,但一运行就出现这个错误:
, T5 Q6 m8 k) G2 P% T见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
. o3 z1 Y$ r% K' e, n110668. m* x* n( _% W, u
/ q) z. j6 r4 s& B; P
还是不行。。。能通过测试,但一运行就出现这个错误:
$ n- D) }( h! z! H. _! z见图。。。

# D; k  u3 A$ ?, e) [  i" t3 h; m* W
可能是数据檔的问题
) a& U% Q. k( M  N+ h1 k; L数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行! n" C2 y/ z! z8 d( s% B( Z
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
6 G* l( x7 @+ N, Z& ?, R直接程序计算declination值数据然后显示  Z) G4 Q; }3 y* k6 t8 M- L
0 X1 B5 H- f- p# U  H/ n9 \
5 ^# N. |4 g; U  s2 V; l" `
9 Q9 u1 e- ~4 m# I$ ]% m0 m2 l
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

8 ]3 \5 P4 l( l% P* y  o) Z; ^4 L% _" ~. X$ s7 v8 S& D' ]
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。7 ^. H( V$ u5 M
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
  p; @. m% a  B! F+ X8 s; w3 D# M请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
* e0 d6 w3 P8 d. z( M- ?" j我是不是用错了? 有其他办法吗?

/ o- ^5 y5 P, G- u7 T
) e1 j  q- r% U6 @8 K! G你好, 向下
1 Q' N. X* ?* {1 ?2 @1 nvertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表
2 T) r% U/ K/ ]8 J
9 d2 o+ B% n4 A1 \! \1 G. `6 T0 d, L% n1 Q7 A: J
你好, 向下* ]( p/ K; ^5 w9 ]9 \+ l
vertline(cross(0,cc)),coloryellow;
. W3 R9 C5 F! c+ D; m) j
, I" T4 E" _8 n9 g
谢谢,可以了。) z3 f2 P8 H- R! h4 z. ^

2 m7 N1 s0 M0 E& w9 T
原帖由 kaiser88 于 2013-12-18 19:34 发表 ' ?: \: ]$ M: x. g9 Y6 |
he110 请问你公式怎么做的 我的也一样报错

) _9 e8 K. }* G) v2 r# t. h3 W& j9 G/ e1 R7 C1 h
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
+ N, c$ V6 j4 V& G* B4 e' W% T* w, x
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册

本版积分规则

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

GMT+8, 2026-10-19 20:27 , Processed in 0.166887 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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