阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
: }. y4 i0 K& P! y
, P( A1 a$ @$ n4 d% I
: U: b" I/ O/ Q, f$ z! Q. S

9 Q! L3 N. s# u' w2 J/ x
3 f: D. w0 y% P- D6 G/ [
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的) a8 z7 M" E, ^- ^9 g

  [. I( W' i- W$ {3 f
3 o! U: _6 x% m! s$ R
' P- {2 q# s8 r- {# h# w, x
1.根据给定的数值,画出这样的曲线/ j+ g) k0 G6 R, @, l
2.分别在曲线的每个拐点出画一竖线: B  Z: p! P* D- w8 X& F, L6 P9 m
3.在零值画一竖线
4 a  @% A( U8 v8 X/ w1 u4 w4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。3 T  _/ {3 Y4 J

) X$ r2 I6 ?( I
6 r- X0 Q2 L4 y0 v% P! X
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
6 p- [% n* j( b. p! A3 F* T( C+ ^
0 G% ~8 u8 }  h' M0 _数据样本:从星相软件导出的:
$ r0 n. M. B7 s2 |9 b# n
4 T& d& Q5 |4 s( R1 u& ^& k01 一月 2013   -24°14' 58.7"  
" Z: |7 a. ~9 G- y1 ~& k02 一月 2013   -24°20' 05.2"  
; n: Y4 y, d# P- c9 z3 W03 一月 2013   -24°23' 54.3"  1 K9 `" x1 O6 e3 O
04 一月 2013   -24°26' 24.8"  & h  I" i, J5 X- \! K. u* S
05 一月 2013   -24°27' 35.6"    @6 m3 u# \, z# r0 k; b
06 一月 2013   -24°27' 25.5"  * N  E7 z4 b+ f. b! t1 z3 U% M
07 一月 2013   -24°25' 53.3"  
) @: o( |! |/ i' R/ s( m08 一月 2013   -24°22' 58.2"  
/ w- `& T# w/ \% {; B09 一月 2013   -24°18' 39.1"  ; C5 m" @- Q  O( s: ~0 d; M
10 一月 2013   -24°12' 55.1"  
8 J( z: {0 q9 N7 x# X9 K3 n11 一月 2013   -24°05' 45.2"  
5 ?! m0 L: |) _12 一月 2013   -23°57' 08.7"    s- _) j4 B2 m4 K/ N# c! s9 x  H
13 一月 2013   -23°47' 04.8"  
/ [( m5 y8 {# H; r4 ~. m$ l14 一月 2013   -23°35' 32.6"  + I# H5 Y( ?0 {4 @: o
15 一月 2013   -23°22' 31.5"  
: a8 D9 I' [; S16 一月 2013   -23°08' 00.8"  
! j; S8 V, h, Q3 g9 v( O. V17 一月 2013   -22°51' 59.9"  & |3 b  T) L& D1 s9 x4 U8 _
18 一月 2013   -22°34' 28.2"  
9 S7 o: n. m" f' \$ f19 一月 2013   -22°15' 25.2"  
# M, L% @+ w8 }; Z! Z3 f20 一月 2013   -21°54' 50.7"  ' n0 D* ^4 O" w# `: p# G
21 一月 2013   -21°32' 44.2"  ! d- w% C; M( g
22 一月 2013   -21°09' 05.7"  1 H* F" q/ O8 _
23 一月 2013   -20°43' 55.0"  
! n( [: _2 W1 e; Z2 p+ V24 一月 2013   -20°17' 12.3"  ' m* A6 {! v( J) [/ l6 K* E
25 一月 2013   -19°48' 57.7"  4 t% i. e, \$ R! b
26 一月 2013   -19°19' 11.9"  + ?7 {2 I# l: s" M+ N2 @0 D
27 一月 2013   -18°47' 55.5"  % l( h2 C1 T* z& d/ x
28 一月 2013   -18°15' 09.5"  3 Y; s% S# J3 N1 f
29 一月 2013   -17°40' 55.3"  
! F) I. X1 b9 J. ~8 R30 一月 2013   -17°05' 14.7"  6 |2 y" `; ^8 X( ~( o3 \
31 一月 2013   -16°28' 09.9"  
$ e" I. L2 F2 _2 G/ ]01 二月 2013   -15°49' 43.8"  
% D* Q* \% }# q02 二月 2013   -15°09' 59.8"  
+ i9 o5 ~- }9 @  H& P03 二月 2013   -14°29' 02.5"  7 i# W& u  B' E  @0 Q
04 二月 2013   -13°46' 56.8"  9 T' T: N/ p& }- m) x
05 二月 2013   -13°03' 49.3"  
! p/ P: T( u) f, z# b  z06 二月 2013   -12°19' 47.2"  
" C' ^( Q, j5 e( F- F4 _! i07 二月 2013   -11°34' 59.6"  
4 N9 u0 w% C, A1 s4 w& Z( @08 二月 2013   -10°49' 36.8"  
) Y- g  ^' N6 f& q1 ]7 s/ Z2 B5 b  n09 二月 2013   -10°03' 50.6"  / _6 b$ J; o/ `8 J
10 二月 2013   -09°17' 54.8"  / a# Y, O; B1 Y& ~8 V# H: S
11 二月 2013   -08°32' 04.9"  
. G* U9 Q: ]) Z7 v4 J12 二月 2013   -07°46' 38.1"  
1 L  b( _8 i: N5 F13 二月 2013   -07°01' 53.6"  
' ?9 p$ w  m( [; h5 U- A14 二月 2013   -06°18' 12.3"  
+ t% d: [* k4 I7 m  }0 h15 二月 2013   -05°35' 56.2"  2 j, t3 j1 K- a) ?8 ?# e- ]' g
16 二月 2013   -04°55' 29.1"  
" `9 H, J$ K3 Y1 y* b" h17 二月 2013   -04°17' 15.1"  
5 `; Q; w" U. u18 二月 2013   -03°41' 39.2"  
6 B+ O3 D0 C5 ^2 a7 s1 R7 Q; H19 二月 2013   -03°09' 06.0"  
2 G( C- i7 V$ Y  |: @. l20 二月 2013   -02°39' 59.5"  
& b* s2 L& a6 i, g1 Z21 二月 2013   -02°14' 42.3"  3 h2 R2 g; S3 X6 z3 N
22 二月 2013   -01°53' 35.0"  $ I# i+ `: t5 |# t+ O
23 二月 2013   -01°36' 55.5"  $ q# g9 ^$ P% y) ?
24 二月 2013   -01°24' 58.1"  
& B+ t6 s& d$ J7 D2 r25 二月 2013   -01°17' 52.7"  4 Y: l# m# p! p: M$ k8 X
26 二月 2013   -01°15' 44.0"  
/ _: v, M/ W, A0 M27 二月 2013   -01°18' 30.8"  
) [/ h: M' x$ A* c7 j, d- y28 二月 2013   -01°26' 05.5"  
9 W3 J( z3 A8 m& P" `3 d1 S01 三月 2013   -01°38' 13.7"  
5 z9 U2 p9 x" ?+ e7 B( N9 M: ~+ N! m02 三月 2013   -01°54' 34.4"  # X0 r, {* r+ e& Q& Q7 y
03 三月 2013   -02°14' 40.4"  
: G6 [2 t! ?3 C% |04 三月 2013   -02°37' 59.2"  
5 C9 ]" s- A" A2 f. a. N% N% v05 三月 2013   -03°03' 54.3"  , c/ m$ }) ]! U) O
06 三月 2013   -03°31' 47.0"  
1 n  L0 e. j6 Z) E  d- k' H2 g07 三月 2013   -04°00' 57.8"  - a: v' w! S3 z0 @1 u7 `* @
08 三月 2013   -04°30' 48.1"  " u4 b3 P1 B' Y, X: R: [  B( V
09 三月 2013   -05°00' 41.8"  
& O6 g7 |8 {$ H& ]5 g! R% {10 三月 2013   -05°30' 06.2"  4 M* W) |6 c+ U' t, w; N5 A
11 三月 2013   -05°58' 32.9"  4 S: [! Q4 ?' F& q
12 三月 2013   -06°25' 37.8"  ; j5 X) }1 D* q
13 三月 2013   -06°51' 01.6"  5 v/ N# U) J3 e  {7 Y' K+ ?
14 三月 2013   -07°14' 29.1"    x# E& E8 d. Z' X$ u
15 三月 2013   -07°35' 49.3"  " N- |3 n$ F4 W" V, ~- }  w
16 三月 2013   -07°54' 54.2"  " k8 F+ ^0 o) _  U
17 三月 2013   -08°11' 39.1"  
% k6 p# L. ^" ?: w! n0 F18 三月 2013   -08°26' 01.3"  
+ s" N; ^. x* ?: U19 三月 2013   -08°38' 00.1"  
+ J1 J8 J  t3 f: g20 三月 2013   -08°47' 36.2"  / w. ?' K4 H5 I! V
21 三月 2013   -08°54' 51.5"  7 R9 s2 @) @9 o* v+ b. _# R7 \
22 三月 2013   -08°59' 48.5"  3 C; `5 s. o8 @2 L# i* \
23 三月 2013   -09°02' 30.3"  
; |+ r+ n& K  n# o5 M24 三月 2013   -09°03' 00.3"  & k8 k" j6 N0 V& U  N
25 三月 2013   -09°01' 22.3"  
; m4 t( z( D; n2 }8 ]2 V26 三月 2013   -08°57' 39.8"  
( c/ B% H' l& l27 三月 2013   -08°51' 56.7"  5 ~+ @1 R. f$ l+ }1 E
28 三月 2013   -08°44' 16.7"  # u' P: F& D# t3 b7 g
29 三月 2013   -08°34' 43.3"  
8 ^6 d& ~! H+ [4 B30 三月 2013   -08°23' 20.1"
* S" l8 p& W; L) _- W: P3 L! o) V7 x7 E, k! @% x* B
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。5 M2 K! d4 s3 |) i
5 H% e, @. e. i1 i' B( f/ T+ s& w
[ 本帖最后由 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 | 只看该作者
9 O7 {5 o$ f! r7 z
水星
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 | 只看该作者
编写指标用 的数据,见附件% e) G0 q% {4 c7 Y5 B+ r; B) T4 U) l: R

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
4 w* G% `* s5 [9 M# ?, q" ~& L; M9 o: d9 Q, V2 i
cc:=數據;5 v) b' z; [0 L! C( t" x
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
# r! N" C. H& Overtline(ccsh),colorred;  {high}
# p( b1 j" x! pccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
+ ]* I" s% i0 i# A( a) ?& X/ bvertline(ccsL),colorgreen; {low}3 b# x) J! p/ B6 \1 q) N) q! s1 \7 e

4 _( R! p1 v: F( G4 o  M[ 本帖最后由 静芸 于 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 发表 # G$ x7 R* m4 p/ |% H: h  f
请问静芸  能改成飞狐公式么?
' Q* r1 h! W# Y( v" G! Q8 J6 \/ U! L
, ^" @  i8 l! Y* M2 Q: K
这是飞狐公式/ k# u- a# H: L. o
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 ' S8 J2 \& f9 H# ~! P- x& E: u- n
再请问 怎么读写呢?俺不会
( u4 j- o+ H( \& K
, \! Y2 m. U& l9 p1 f1 U2 v8 X
,这有些麻烦啊!
4 p! [( w- B' ^1 [* u9 m你把星相数据存在目录C:\Da.txt
. }4 J- L; \- {; F4 \档名是Da.txt7 f# p3 R; h% u  K5 P
如果存在别的目录,D:\hhh\Da.txt
5 k% i- X, A2 e, |9 Q! o那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt. g+ g) O( x) p" N1 ?9 N5 J  u
下面是飞狐公式,我也未试过,你自行试试吧7 {9 d! C$ e9 }0 E# J6 t

6 r  a, ], @2 hFoxDE:=DATE; FoxTE:=TIME;7 P7 ~) \7 I( d# `+ r: P
MyData:=C*0;) \6 R2 ~- e# _  L
<%: {2 K: l! g, Y8 H% H7 Y" g
MyData =FFL.VarData("MyData"), Q2 G6 V: d$ a, N9 F& o/ Z
FoxDE =FFL.VarData("FoxDE")$ H8 E2 P2 T5 S( f5 \
FoxTE =FFL.VarData("FoxTE")
; U$ e/ x! N9 L* [3 ^) ^Set fs =CreateObject("Scripting.FileSystemObject")5 F7 p% A' t4 ^6 c) w3 G9 b  i
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
! |0 P: {% [4 I$ I" v1 J8 LMyTxt = wrkfs.ReadLine: Q3 q" _8 s( O6 ^7 X
wrkfs.close0 ~- T  H& v5 {; P: f4 C+ b+ w
TxtStr=MyTxt3 T5 ?* G0 `! _$ {  h
TxtAry = Split(TxtStr, ",", -1, 1)  G) d* s% J4 i+ L9 x. f: T$ @
GetDE=CLNG(TxtAry(0))' B6 J6 I+ I0 k& l
GetTE=CLNG(TxtAry(1))
8 V! h& d& S( H; ]GetVV=CSNG(TxtAry(2))6 A( y4 Y, S7 ^8 `
for i=0 to ubound(MyData). T8 `, Y) d& S3 p: E1 m
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then6 I! o; N% j9 O  q! o" l  X) c
MyData(i)=GetVV* q& B/ D2 p, u; j4 }' w
end if- Z/ H3 R& J3 N! Y' d
next
. i( q) h  d+ K# I1 l2 o- QFFL.VarData("MyData")=MyData
  ^" @# q0 y/ S$ E: @1 w0 L%>
/ T( m( P  U7 n# M; j: a7 S( E$ N, x, Z& _$ j# w. U0 h! |4 U
cc:=MyData;6 }' m) U3 _, V
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
( f) I& i; k" lvertline(ccsh),colorred;  {high}9 p2 f$ E1 m0 [0 A) ?; c0 G
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);/ ]; y# x# X$ m4 z5 G6 ^
vertline(ccsL),colorgreen; {low}! l- p: M  L) J( l! }& I
4 E' P" F) Q  }# c, f' t, m
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢- x+ x* M. {' l

# i# i9 h, |( O# T我刚试一下。。。出现错误。。。静云帮忙看看。。。' ]2 H5 ]0 M0 R5 b- V
等我发图
  F& j; M+ K4 I5 ^" K0 |2 O% i* J- L

4 U- X  n  N, b4 b1 W[ 本帖最后由 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 发表
$ w9 C/ i  Z- u7 J* ?1 G太好了。我试试。。。万分感谢
# I# ~' A; |! W( N% Z7 V+ r/ [1 l! B( V4 B" D
我刚试一下。。。出现错误。。。静云帮忙看看。。。# O' b6 s) s! O* O& Q; a: H# V# y8 T
等我发图
8 b; N3 h' b' D# ?7 [: b110666
: D; q' [3 e, R+ a: O
2 }( Q: N/ p6 ^7 u$ x2 ~) g
再试, 这读数据公式不是我编的
. B& l) t8 O, A# P, \3 |8 xif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
) l7 @& i! Y2 _8 D9 S( w% {* [! _# Z- o) ^

  f5 T  N& [* d1 o/ h% [9 x, L3 P+ w% o2 Z; }5 ]' H
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
# ^7 g- ~6 z9 C$ f7 L& ]

! f. v2 X9 H; Y还是不行。。。能通过测试,但一运行就出现这个错误:& n' q* L3 e" J7 A
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
  H" i( p! `, C110668
4 j% {  U) F+ m, p& T& L, W: T- \- Q: ~2 G. @
还是不行。。。能通过测试,但一运行就出现这个错误:
( P7 c6 V' j! e( |, q见图。。。

! Z1 ]! V' f) j% v$ g0 S% M1 h" A
- O; A% w( }/ i2 \8 S7 N可能是数据檔的问题! X9 f" q* U/ C5 y5 Q0 Z, V* X
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行. d( l9 _5 w% A8 x6 }
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
2 ~- T7 n$ C$ \) h0 B0 o直接程序计算declination值数据然后显示
# {/ Z- r* E$ R# E# e4 _
- e' R' l; e5 k% C" U6 t
/ w. g0 h+ [1 U3 k+ ^. q: }8 D" i! s! a2 H
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

6 a( K  t$ U; {& F* i2 Y5 o9 Q" b- O& w( G' K' X/ h2 B! }6 E
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。6 i5 U8 Q. B: a( d; j
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 - U$ w* J8 x2 O! R: m
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。* o! ?2 e6 g% C1 q6 a
我是不是用错了? 有其他办法吗?

! Z! D$ ?; w% V3 v0 _5 v( D. t; G; E% q4 R5 q6 f* w6 ?
你好, 向下
% P: u- d' g& Z$ i7 ^( Uvertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 1 x  O4 r/ z, o4 N7 w

% e( q* G2 C' _4 P- ^2 b* Z
: o$ ?1 g6 Y, T# z' H你好, 向下7 k. s9 ~9 @  H7 C5 P
vertline(cross(0,cc)),coloryellow;
$ v% C* r7 [$ l5 G1 h& C/ n4 m7 |

; h# C4 e0 F5 m! K9 Z+ B; a谢谢,可以了。, s1 Q, r: @) U* {
; G+ a+ [( }# l( L( a( h6 g
原帖由 kaiser88 于 2013-12-18 19:34 发表 0 _. C9 c8 y. W2 g- h0 e4 D
he110 请问你公式怎么做的 我的也一样报错
' ?& O6 j9 {$ L

1 T" {1 z- ^% |. d) v& ]0 _3 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兄的这么平滑。。。
& l; F. s" A4 a9 m8 U) d! ]
+ m( u2 Y/ q% S, a% K+ ]$ H. ]prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-19 19:12 , Processed in 0.197857 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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