阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:3 F' M: O+ r% M  H1 W
# t& D* f/ g0 ^! |' S$ c
1 l' g/ u' m( x( S% N' S! k

5 k& E0 |- y7 p# I7 @7 L0 Y6 q

8 [6 c& r; Q1 {4 I1 m4 R  l( a这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
$ R. G7 p2 {) L7 u
% J. r& A" F1 W
3 T6 y& r2 v, S6 V: p/ h$ E

$ K; \# B3 C, H. l1.根据给定的数值,画出这样的曲线
# L0 }. ^8 I+ e; s* W9 c6 D2.分别在曲线的每个拐点出画一竖线/ j1 P2 T" `6 f0 k1 C( T2 \# v, r' F
3.在零值画一竖线
& B/ J7 Z7 F9 s, u. a4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。8 Z- N0 a- s1 t0 X( N
+ \2 h7 Y8 `; p6 ~

& \; s6 ~/ b1 P1 z5 w4 |5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
4 M7 A9 S- w3 M
" |8 ~  z! j; B9 U: T2 x$ H数据样本:从星相软件导出的:
0 w: r7 p* k  H2 a) G- |
, R1 A3 n0 r6 W( T9 M- m; s1 q/ [01 一月 2013   -24°14' 58.7"  
4 K4 q$ {( x3 J6 ^$ a6 n0 Q02 一月 2013   -24°20' 05.2"  ( I  B8 ?; B  E2 t% r
03 一月 2013   -24°23' 54.3"  * I0 Q" _+ \% H9 ~& j7 {  g3 J2 H
04 一月 2013   -24°26' 24.8"  , ^: {4 y9 v/ @+ E! p2 @! i/ S
05 一月 2013   -24°27' 35.6"  
: q% Q, `9 j( w2 H. d0 q5 x. S06 一月 2013   -24°27' 25.5"  7 u  a% p- R1 J- E' a' t
07 一月 2013   -24°25' 53.3"  
* t5 ~& ]* p- M- J08 一月 2013   -24°22' 58.2"  ) N- Y1 W2 C+ c7 ?; N3 X
09 一月 2013   -24°18' 39.1"  % r$ S3 c5 X, ]& U3 V- e  R
10 一月 2013   -24°12' 55.1"  
  t1 l% {! g. Z. W11 一月 2013   -24°05' 45.2"  
2 ]5 A1 `: `; A. L12 一月 2013   -23°57' 08.7"  
$ L3 ~: `/ J" O, \13 一月 2013   -23°47' 04.8"  
9 W5 v7 Y# z" b/ m, ^14 一月 2013   -23°35' 32.6"  4 C% H/ |0 r# B5 I" y
15 一月 2013   -23°22' 31.5"  
7 C6 C3 C8 j; R2 n3 B$ y16 一月 2013   -23°08' 00.8"  
4 y; c- ]# ]5 {17 一月 2013   -22°51' 59.9"  
) s/ |- A+ }/ ~/ ~' e% S18 一月 2013   -22°34' 28.2"  
& |' J+ N) T7 E0 c* z8 s19 一月 2013   -22°15' 25.2"  & O5 T- v! w1 g6 O+ D4 S
20 一月 2013   -21°54' 50.7"  
$ D$ w: T9 X* N21 一月 2013   -21°32' 44.2"  
  R  v. s7 L  Y5 h, X. S22 一月 2013   -21°09' 05.7"  
7 B! W+ p' E' t' M/ A% e* w23 一月 2013   -20°43' 55.0"  , W# m& R; [: E1 w2 X8 q( O
24 一月 2013   -20°17' 12.3"  
- \- ]+ D2 I7 r8 u7 j  w; y' W2 d25 一月 2013   -19°48' 57.7"  ( @: U0 V" Z1 A- T$ W
26 一月 2013   -19°19' 11.9"  
9 q! X- ?/ M  f! j6 s# ?27 一月 2013   -18°47' 55.5"  / x' ]- g7 J% V$ d
28 一月 2013   -18°15' 09.5"  
1 n  w  ^! v% d3 x% P/ R29 一月 2013   -17°40' 55.3"  
) u7 T% j3 I, q; y( H: x. o, o30 一月 2013   -17°05' 14.7"  4 n5 f: L* W1 R3 \) A: e+ m% w
31 一月 2013   -16°28' 09.9"  7 U$ Z! L7 A& f, b7 ]$ }" }
01 二月 2013   -15°49' 43.8"  * M' f$ d. [  N( x
02 二月 2013   -15°09' 59.8"  5 G# ?5 [% Q1 |( _3 q
03 二月 2013   -14°29' 02.5"  
" h  W' |9 k3 U' q/ T04 二月 2013   -13°46' 56.8"  
4 l4 ~1 t" _6 R6 d) d& d) m05 二月 2013   -13°03' 49.3"  
: }1 s' h. P; W" r) d06 二月 2013   -12°19' 47.2"  
3 P: w( c0 M  ~/ ?* G% B8 B: J; h07 二月 2013   -11°34' 59.6"  4 w5 ~( _3 Y# X+ R# {$ B# ]$ Q/ q$ F
08 二月 2013   -10°49' 36.8"  8 V' E6 m. c3 ?) T5 \9 ^# i$ t
09 二月 2013   -10°03' 50.6"  
4 u0 U' L' G5 z+ l( C: M10 二月 2013   -09°17' 54.8"  
- Q' ?( b; t/ l; L0 y11 二月 2013   -08°32' 04.9"  ) F8 q6 ]/ j7 s+ h3 ~& \
12 二月 2013   -07°46' 38.1"  " R7 r. e0 F- ?* H8 O0 d
13 二月 2013   -07°01' 53.6"  . j) }; V  `; ?7 z) y2 i. N
14 二月 2013   -06°18' 12.3"  & {- v8 y7 Y! ?6 v3 t- d
15 二月 2013   -05°35' 56.2"  
% v! Q% Q) T  A& P5 R6 K: ?- z16 二月 2013   -04°55' 29.1"  
3 B( Y" B% G: `% \5 m17 二月 2013   -04°17' 15.1"  
6 _, H. h/ }7 E4 p) M9 o" R  A9 b18 二月 2013   -03°41' 39.2"  
  L) a) U5 F% _0 n/ a9 k, \19 二月 2013   -03°09' 06.0"  
$ A" F& F9 e( S! `& {! {20 二月 2013   -02°39' 59.5"  
$ h, _& y' N$ s$ b21 二月 2013   -02°14' 42.3"  
; {3 L, G+ }# _22 二月 2013   -01°53' 35.0"  
$ F4 W) C6 L- v, j6 r23 二月 2013   -01°36' 55.5"  
( y2 ^% a4 o7 {; i24 二月 2013   -01°24' 58.1"  
$ ?9 x" P* r  C2 b6 p$ z; R3 e9 _25 二月 2013   -01°17' 52.7"  . ]  v' {) j$ k
26 二月 2013   -01°15' 44.0"  
" [; P/ H1 |& P) E: Y27 二月 2013   -01°18' 30.8"  9 |& D9 B- I2 B8 `: P
28 二月 2013   -01°26' 05.5"  3 K/ @/ A2 e" y$ ~" m% l
01 三月 2013   -01°38' 13.7"  , t7 B3 d6 C( T$ f' E* e# x4 H( m8 l4 E
02 三月 2013   -01°54' 34.4"  - c0 R- \' }1 V# D
03 三月 2013   -02°14' 40.4"  
! D+ j$ v$ I9 O& h) F04 三月 2013   -02°37' 59.2"  " z+ j, v8 o8 v1 x& w
05 三月 2013   -03°03' 54.3"  2 G4 B4 W9 y, z% l
06 三月 2013   -03°31' 47.0"  6 v, J" n+ C+ a. E& G* K0 Q
07 三月 2013   -04°00' 57.8"  
  z3 n9 x1 t4 ]; p& d08 三月 2013   -04°30' 48.1"  
2 m# ?# M/ y/ W, Y  W09 三月 2013   -05°00' 41.8"  
/ ^9 u' ]3 O6 R# u4 H10 三月 2013   -05°30' 06.2"  
- P' R1 L2 A! }; a) l0 d11 三月 2013   -05°58' 32.9"  8 q( l) g- t4 J: N: z/ `0 g
12 三月 2013   -06°25' 37.8"  
. M1 ], P5 ]& r* \" M( R13 三月 2013   -06°51' 01.6"  7 E6 B+ p* D1 D, e: f: J$ a
14 三月 2013   -07°14' 29.1"    p' J- L1 D* I# I. ~0 V* `$ q7 Y
15 三月 2013   -07°35' 49.3"  5 l9 m2 h* U* i3 x) ]9 p
16 三月 2013   -07°54' 54.2"  . b# {8 q+ X  c! p0 S
17 三月 2013   -08°11' 39.1"  
3 g  I% _, a5 v0 z18 三月 2013   -08°26' 01.3"  / T% j. K5 I; Y2 g+ |+ }% P7 P/ _
19 三月 2013   -08°38' 00.1"  
! H: [6 D/ m# Q) A+ G20 三月 2013   -08°47' 36.2"  ! p0 ]9 h! v; X# V4 @' f9 i) J
21 三月 2013   -08°54' 51.5"  
: _8 `7 ?" P- t# b# W: X/ c22 三月 2013   -08°59' 48.5"  
- v# C6 }" L( c( l  r23 三月 2013   -09°02' 30.3"  
7 G7 P( w) y2 ~2 z" |# f5 m24 三月 2013   -09°03' 00.3"  : g: @; f4 k7 x6 ~& C
25 三月 2013   -09°01' 22.3"  
7 C* a" `$ o1 t9 H+ E6 Y& G26 三月 2013   -08°57' 39.8"  
% Z% d7 S" X6 ~1 i1 d27 三月 2013   -08°51' 56.7"  
3 d3 z( E0 M( V28 三月 2013   -08°44' 16.7"  1 m7 t! @8 _) G
29 三月 2013   -08°34' 43.3"  9 M3 k3 Z, Q$ n
30 三月 2013   -08°23' 20.1"8 t  Z9 Y3 L! M  _3 R

7 {; v) k0 p+ u/ L- y4 e3 Q9 }8 l: k! b这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。, U9 {( n/ f) k: }  l. e/ ]

" P2 r: D' V* Y5 c1 T5 g: n( ]- o8 L[ 本帖最后由 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 | 只看该作者
7 L# f4 N, m' w0 O- W( {1 n
水星
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 | 只看该作者
编写指标用 的数据,见附件( X& v6 \+ s, X& B& c8 j

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
: y" t( u( ?  O' `8 m5 n5 V  V, h1 e8 Q; k9 t" R2 x$ g) ^$ t6 D
cc:=數據;6 i' G& D. \3 [& M* O* v
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);# S- \! ?5 t$ Q8 }8 `5 m0 ^! s. W% k$ j
vertline(ccsh),colorred;  {high}4 F. ?0 M( s2 ^8 r7 P; ?: v
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
6 _; a2 G  q! o% n0 K2 `) Bvertline(ccsL),colorgreen; {low}6 C( q" C3 x1 S

7 I0 P& ]* w7 _[ 本帖最后由 静芸 于 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 发表 8 {7 c' K' x5 X6 U. R* \' i) h
请问静芸  能改成飞狐公式么?
9 J- }$ y7 E  W& r8 u. [

/ ~. r$ q5 \: W这是飞狐公式1 k; `$ |0 O4 s) u' [$ M/ x/ P
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 " T5 U) a% p, l  ?6 Q! M
再请问 怎么读写呢?俺不会

: B7 v/ R6 h$ X! r9 j9 v; z) m) B6 T! F: V
,这有些麻烦啊!6 C$ {( L8 H" `6 ]) x
你把星相数据存在目录C:\Da.txt9 L; ?  v% ^7 }, q: h8 }! G3 P
档名是Da.txt
' W1 [7 V* T, k/ R5 h: |& G如果存在别的目录,D:\hhh\Da.txt& N: ]( Y" y5 K% X- t0 I& p8 k
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
. ~8 Y2 J8 W4 d7 Y& }4 X下面是飞狐公式,我也未试过,你自行试试吧* Q3 E$ O5 g# y$ T; I: u/ @' [

; F, M9 c  d* k6 B3 [8 \; wFoxDE:=DATE; FoxTE:=TIME;9 w- x( a) j; l5 t; i* Q6 V
MyData:=C*0;
) s* Q( ]9 k: \/ N0 o<%# `/ h' ?: v% }) O1 Z# r
MyData =FFL.VarData("MyData")
! N, t* K8 E+ g8 d& oFoxDE =FFL.VarData("FoxDE")1 W7 L8 o5 l% [% \" u* ]4 G
FoxTE =FFL.VarData("FoxTE")
% ]* T3 @! i! I; s  ^% X6 L1 D: sSet fs =CreateObject("Scripting.FileSystemObject")5 N; w! P0 A' J( S
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
& a4 p, T) M! D  QMyTxt = wrkfs.ReadLine
7 E8 z, l+ @" Awrkfs.close7 m6 ]5 p( {0 z& E- i' F3 r
TxtStr=MyTxt
( f0 x( S" H& b. ?4 STxtAry = Split(TxtStr, ",", -1, 1)
, e8 o: n) c4 u6 UGetDE=CLNG(TxtAry(0)), V, v! ]* I" u' U( a& V
GetTE=CLNG(TxtAry(1))
* L" U8 V# b3 y+ e& e4 @) GGetVV=CSNG(TxtAry(2))
- q4 q" }7 f; x# Zfor i=0 to ubound(MyData)( y+ I7 D  A5 k6 c7 O6 r4 P7 P
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then* S3 g) T4 z. ~. b( Q% a, X% G6 t# U3 `# I
MyData(i)=GetVV! V7 C' ^* m. h5 a6 I  D1 E# F
end if
: r, E" h! L0 Y0 j+ dnext5 K$ Y$ }  q% n
FFL.VarData("MyData")=MyData
3 c  o6 L$ U  b' a7 Y* @6 f%>
/ E6 S# G, Y7 z/ a; h( w
' C8 }# G# A3 ?# A
cc:=MyData;
" ?2 V8 ^4 C2 c* t7 lccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
, t; C" Z. j6 Z' e: K( \: I: mvertline(ccsh),colorred;  {high}9 t1 Q- K5 v4 Q) N7 Z
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
5 C, D# I! N; O, ]3 }" r. @vertline(ccsL),colorgreen; {low}, K) E" w9 u1 H9 \
0 K9 I) D! L8 m4 M! `5 E: T
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢0 U4 E+ V# c3 F
: |! @: ~& t2 a+ t7 F0 ^0 ^
我刚试一下。。。出现错误。。。静云帮忙看看。。。
* T0 @+ ?0 F! B( K; Q等我发图
- `2 @3 ^/ H" C0 E3 q: a4 X8 M8 J; f1 D9 o5 [! z! j# w4 S3 Y
9 M" ], B3 U6 d/ C
[ 本帖最后由 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 发表 / ]5 d9 K3 J6 F- W. [8 t
太好了。我试试。。。万分感谢3 i1 d( }! @, c1 B

" y2 u3 `$ [9 }7 I我刚试一下。。。出现错误。。。静云帮忙看看。。。" ]2 O, |' z, T& V; Z! p0 O; M" c
等我发图- g1 u3 C5 M9 N( h# ~9 m1 |  c& P
110666
  Y; G! Q% l2 U! H
9 X. H2 j9 P+ U; W; E7 t
再试, 这读数据公式不是我编的
' [- O8 b. J2 A. G  a2 \  Uif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
: p4 q* W0 J. S# g! `
: W! y( X4 J9 u0 Q! U/ ]
0 B) `1 ?' W! ?9 D1 b
- G( n+ W4 n  H' N2 I[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

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

& U/ J9 j1 r& A) L) d
6 X. H' n/ E& U2 Q' a4 T; U" G还是不行。。。能通过测试,但一运行就出现这个错误:
7 t% K+ S! p6 p) m见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 $ k' X5 j) n, N' N# @
1106688 L' ~6 `( ^- n1 A$ f+ B

- ?$ Q2 ^) \" d! h5 d还是不行。。。能通过测试,但一运行就出现这个错误:
3 h% K1 c% t/ {3 F3 ^1 O见图。。。
& [; [5 X* n$ W+ L: T" B* f

. `$ J* U; Z" l" Z& p+ f. X* K可能是数据檔的问题* X8 f% D2 h( c2 |1 n8 j% q
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
. G& G3 q5 S0 i/ k1 g. P原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
4 N* g# S; ?& @" t" M直接程序计算declination值数据然后显示
( ?1 F  X* [2 {0 O$ f6 l& l
* y/ r  @# ^/ x5 s7 ]1 {% f* S" w9 D( J" m, J: U

6 w8 ?; }" ?( L3 I4 K[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者
* O* N% ^% {' k6 Y$ z: }( e8 @* T
8 I0 @: W" `, Z9 v5 s
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
; @% [3 @. R. p我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
/ \6 L9 A) p" N* A" E* j请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。5 u0 P! [( }& J# j5 M
我是不是用错了? 有其他办法吗?

1 Z6 r% n7 d+ N. z; g
" {. q4 Q1 c6 V: B8 o; R" J你好, 向下
) o, ]% P5 l" p. E) n5 Yvertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表   u+ Q) l7 O/ y, `& [3 b; s

0 n# J& O, ?4 _4 X$ H
4 R- y& k; S& }) e, c8 M你好, 向下
4 E! H' x" I  E$ w7 f% R: m4 @: }vertline(cross(0,cc)),coloryellow;
# X2 _, {, s5 v6 i: e- A

6 E  @  c. b7 s4 U2 A9 E谢谢,可以了。
. B, @% d- I# [- r) B2 N7 z& x, O! s8 \  ]
原帖由 kaiser88 于 2013-12-18 19:34 发表
4 [8 {" H, W7 ~. V# g+ _! |& Xhe110 请问你公式怎么做的 我的也一样报错

! W: n* s5 |6 Z! Z) C4 d$ g* m9 ]/ k# U$ w4 W7 t. 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兄的这么平滑。。。6 m( _9 O  w. p0 N" I7 R0 s
3 z$ \; |! x3 _5 G( K# n+ g
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-6-3 00:47 , Processed in 0.285644 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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