阳光飞狐

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

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
# v9 D7 G7 U4 Q8 n% R2 j6 I+ G* a' d

4 z+ e9 a% W* G7 O% N# |. [
7 h- e, k! x* C+ @3 _" A) G3 Z# H& O
2 K  E( c) s/ H7 W4 E+ R
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
, A! C5 s* H' z  S# m
& g- C4 k/ O) E" P& ~
5 v8 [; y* `. S5 h- X) A7 D% Y
:
3 V! B1 {2 M/ \1.根据给定的数值,画出这样的曲线
+ _( J9 g# N" Z& j/ B8 s2 _2.分别在曲线的每个拐点出画一竖线& s3 V; A* ?: V. J: j2 y
3.在零值画一竖线/ g1 o: s* `# R0 b, u* }
4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。& Y& v! I6 E/ @" V
& N1 `, H) |" B% P) N
2 {8 {9 z' }' b) T' E- T
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。6 i! n2 B4 a3 t, Q
0 X+ ~! B: v* c
数据样本:从星相软件导出的:
6 u- U1 ?) a# \
8 j. b8 ~9 v" [. i" m; w4 f0 i) k0 F01 一月 2013   -24°14' 58.7"  
0 i, H5 h% C) T$ o' }' k# T02 一月 2013   -24°20' 05.2"  % t% m8 w7 o+ x! l2 ~3 X$ _
03 一月 2013   -24°23' 54.3"  5 ?: F5 R9 C3 X
04 一月 2013   -24°26' 24.8"  " \* S$ A  c2 p1 b9 o. d; a6 T
05 一月 2013   -24°27' 35.6"  9 l- r8 ^& F2 u& s& X/ f
06 一月 2013   -24°27' 25.5"  
( u8 V: e( l9 {07 一月 2013   -24°25' 53.3"  
6 B) b; r  P, U/ _6 }$ s08 一月 2013   -24°22' 58.2"  
2 H9 L( N: `- h3 v09 一月 2013   -24°18' 39.1"  3 `5 c1 s! m2 N
10 一月 2013   -24°12' 55.1"    E, D6 x% ~8 y; W; H
11 一月 2013   -24°05' 45.2"  
( H4 c3 f& ^8 T4 K12 一月 2013   -23°57' 08.7"  6 j8 o& N7 J) _7 [
13 一月 2013   -23°47' 04.8"  : _( L3 z( ]! `& R) ~9 R: V$ Y
14 一月 2013   -23°35' 32.6"  
" @0 V6 x( |/ O7 ^" H* H0 g% A15 一月 2013   -23°22' 31.5"  % u6 R' B' }, Z' `
16 一月 2013   -23°08' 00.8"  
1 a" y7 z1 Y0 s) ]' m, d17 一月 2013   -22°51' 59.9"  , w* y3 M/ J$ v; S  c/ c
18 一月 2013   -22°34' 28.2"  ( R3 s6 M# x& u5 H# |! {
19 一月 2013   -22°15' 25.2"  
0 s* _7 I( [/ ]: B9 T) Y' i% m- J20 一月 2013   -21°54' 50.7"  
: |. [# `8 y  `( P4 @, v, H21 一月 2013   -21°32' 44.2"  0 ^; C4 _7 o; z& p# U2 }! ~5 |
22 一月 2013   -21°09' 05.7"  
7 L; |; ]/ i  o; p. ^23 一月 2013   -20°43' 55.0"  
3 u6 q4 H/ B: U0 |/ [24 一月 2013   -20°17' 12.3"  
" x: o. |2 u" A0 B/ X1 R* E, K. Z; p* r25 一月 2013   -19°48' 57.7"  0 Z/ E, M8 }/ Z) p$ }9 E# @
26 一月 2013   -19°19' 11.9"  
4 c5 P0 y" U' u4 m27 一月 2013   -18°47' 55.5"  8 j/ u0 `. t0 u/ U3 [7 H6 _7 R' j% h
28 一月 2013   -18°15' 09.5"  2 b  g7 z5 ]1 w7 ]# _: P
29 一月 2013   -17°40' 55.3"  2 s1 V! w' E6 J) ?; a9 ^" G  T
30 一月 2013   -17°05' 14.7"  ' {' D, \1 ^- l) |. N2 e
31 一月 2013   -16°28' 09.9"  
7 C- v$ I# O3 B1 X, d" i01 二月 2013   -15°49' 43.8"  
( a( l! M- Z0 |  a02 二月 2013   -15°09' 59.8"  9 t  _: v) y% I- @! E
03 二月 2013   -14°29' 02.5"  + x7 _' n; m( J# I  b! Y
04 二月 2013   -13°46' 56.8"  ! \$ ~- ]3 D7 Y. u- c; K1 A/ L
05 二月 2013   -13°03' 49.3"  9 n0 g) ?! V7 q- H5 A- d6 O2 d
06 二月 2013   -12°19' 47.2"  
: Y$ d9 u; j! m* M5 e& F' y07 二月 2013   -11°34' 59.6"  
7 m# Y. `$ p/ ?% E4 c/ {! h08 二月 2013   -10°49' 36.8"  6 T0 D0 c# T0 Z( z$ e
09 二月 2013   -10°03' 50.6"  8 S/ W2 ?' R/ o
10 二月 2013   -09°17' 54.8"  . x9 g- C$ E( o
11 二月 2013   -08°32' 04.9"  . s( |. J+ z9 @) K: ]. V3 V* M3 L: O" B
12 二月 2013   -07°46' 38.1"  ; v( [2 A! V/ A/ O: F, ?7 X* G
13 二月 2013   -07°01' 53.6"  
) y3 W) Y' |: h3 u+ }* h3 T" C14 二月 2013   -06°18' 12.3"  + E. w- {" M8 O
15 二月 2013   -05°35' 56.2"  
* ~& D2 G8 Q* W4 B16 二月 2013   -04°55' 29.1"  
, I$ c/ d5 _! }& `2 d17 二月 2013   -04°17' 15.1"  * l+ D9 Z9 [  o0 `
18 二月 2013   -03°41' 39.2"  
; [- |' h( o* V) C8 I7 y" l6 b. r19 二月 2013   -03°09' 06.0"  ! Z& i+ g8 Y- k; B) A
20 二月 2013   -02°39' 59.5"  
1 N3 ~+ k1 i  E. {& F+ x21 二月 2013   -02°14' 42.3"  ; V$ X& T7 _' f% l7 _& u
22 二月 2013   -01°53' 35.0"  
( y" Y" d/ {: L# ]23 二月 2013   -01°36' 55.5"  ( Q, W5 i( z! Y- s
24 二月 2013   -01°24' 58.1"  
1 }" L* \6 Z1 ^; d/ v  _, t! _25 二月 2013   -01°17' 52.7"  % z  R2 x6 a% L( o' x' E2 Z& s
26 二月 2013   -01°15' 44.0"  
7 C0 o9 c% I; t! O6 n5 B1 d5 A9 L- m3 T27 二月 2013   -01°18' 30.8"  
6 ?  I* v% g8 ?# v$ m0 R28 二月 2013   -01°26' 05.5"  : R. r; z% `, L/ `3 Z
01 三月 2013   -01°38' 13.7"  4 j) P9 E) L" z8 c
02 三月 2013   -01°54' 34.4"  
5 [  s" M" f; [% h03 三月 2013   -02°14' 40.4"  2 I. n. b7 D6 t7 p. @  }3 e5 ^" `+ e
04 三月 2013   -02°37' 59.2"  * \' r" n# W& k2 Z# o6 c( A
05 三月 2013   -03°03' 54.3"  
8 a% u3 f7 h7 H3 R/ D" B, d06 三月 2013   -03°31' 47.0"  " ~$ Q: A) G. d- M
07 三月 2013   -04°00' 57.8"  ; y2 w( `/ u& k3 ]
08 三月 2013   -04°30' 48.1"  " K  x8 a, z) M8 u* @) \
09 三月 2013   -05°00' 41.8"  ! o9 U8 v6 d% Z; m) i7 U8 h. C
10 三月 2013   -05°30' 06.2"  
; y/ d! j& s) o0 ?/ }11 三月 2013   -05°58' 32.9"  
* S" D/ W7 f; }8 Q4 V. [12 三月 2013   -06°25' 37.8"  4 i; H  S2 L/ o# O& @# y7 S
13 三月 2013   -06°51' 01.6"  3 ^( r# J" b% @5 O' D: L
14 三月 2013   -07°14' 29.1"  
- j( ~+ n% @% K) O: q15 三月 2013   -07°35' 49.3"  
4 S; n4 b- W7 D5 {0 Z3 @. K2 T16 三月 2013   -07°54' 54.2"  ' d2 R' }% A/ W! B' @. Q
17 三月 2013   -08°11' 39.1"  
+ W9 F; v8 p; x18 三月 2013   -08°26' 01.3"  
" @# q1 a) `9 E$ v( C19 三月 2013   -08°38' 00.1"  ! O3 W8 Y# w  w1 p* G, I
20 三月 2013   -08°47' 36.2"  
& {" Y8 i) P& z5 O21 三月 2013   -08°54' 51.5"  
: W# J6 g! v1 Z0 o: c; C22 三月 2013   -08°59' 48.5"  
$ U* ?- Z% O1 h2 `$ A1 X6 g23 三月 2013   -09°02' 30.3"  
% Y, Y, t; [2 p4 m) T24 三月 2013   -09°03' 00.3"  ' Z& A6 Y, m* J( e* o. m4 i  o8 m
25 三月 2013   -09°01' 22.3"  # {/ K6 F" G: S
26 三月 2013   -08°57' 39.8"  
% l+ u; _1 I, c8 N  D8 S27 三月 2013   -08°51' 56.7"  
0 U; j: P  ~% ]% {) E+ ]28 三月 2013   -08°44' 16.7"  
" X* b4 T2 W8 j( I, v8 \29 三月 2013   -08°34' 43.3"  
" s0 u' J& C# [30 三月 2013   -08°23' 20.1"
- h- N2 J* z7 M9 Z, W' P
( \3 E  h# A. ?0 ]这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。: P* U- q1 l$ Y) X$ @
2 ]' @8 [/ z  t" t7 h5 e1 @
[ 本帖最后由 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 | 只看该作者
# u8 F2 U8 E  o' W8 [* ?
水星
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 V% m5 u3 Y; A/ 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 | 只看该作者
飛狐- q/ j- I# r& `& B: M
" ^# r. h3 f% y: V0 s8 F5 S- o
cc:=數據;
4 [' y& L& k1 Y% Dccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
6 e) d4 h% F& U. F$ Zvertline(ccsh),colorred;  {high}( B+ m% w8 f) n/ J& ~2 O, Q- ]
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);, a5 E+ |" n9 \3 N! z7 k$ t
vertline(ccsL),colorgreen; {low}
7 D! c+ }* V( x/ d0 s1 F) _# l6 _
[ 本帖最后由 静芸 于 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 发表 : |. z) e* A% J* X8 c0 q# @
请问静芸  能改成飞狐公式么?
. E# R: N. i9 E3 c' z6 j

8 B' \2 c6 b$ @4 j6 u3 y$ H, Z这是飞狐公式
2 j) }2 r6 o1 J2 l; P- t第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
3 W6 ]& v- k5 h7 C再请问 怎么读写呢?俺不会
/ l3 z: J+ o+ y% M6 A$ M, I, T

( \: K+ o0 \. p6 V6 n4 E哈,这有些麻烦啊!4 y1 t$ Q1 I$ z  t1 `  w, }+ z0 \8 `
你把星相数据存在目录C:\Da.txt2 n2 e* U6 b1 `) F* j% I
档名是Da.txt
& _+ A5 F6 o+ i0 Q- p; b如果存在别的目录,如D:\hhh\Da.txt
  ]# P, N% l  q1 f% r" W7 b5 c那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
4 M& ~6 i  S. {7 z; m1 u1 d! ~1 D下面是飞狐公式,我也未试过,你自行试试吧
7 j7 N, S* w! Q4 r4 M1 Q
) B2 u5 ]/ H% x3 G9 G% e; QFoxDE:=DATE; FoxTE:=TIME;
% B9 P% ~9 E5 {% [) k: V1 jMyData:=C*0;
- u% n8 R3 l1 ~8 |' ~& x<%
3 ?: L; `) ?; i9 rMyData =FFL.VarData("MyData")
6 A# K9 \- g( O, G, [FoxDE =FFL.VarData("FoxDE")
3 {2 b9 p+ z1 \9 n2 o& D  @8 |FoxTE =FFL.VarData("FoxTE")
; D6 O% b% L8 S; k4 KSet fs =CreateObject("Scripting.FileSystemObject")+ D; |0 a$ K; K0 k0 m- y7 e
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)7 o- @0 u/ D: k
MyTxt = wrkfs.ReadLine
1 d5 v2 D' ]+ Swrkfs.close
/ `3 Y) V* `, ?3 |) o4 ]. ETxtStr=MyTxt' _: v8 j% n1 o( p$ ~
TxtAry = Split(TxtStr, ",", -1, 1)
/ r' v8 {) o: T  p; }GetDE=CLNG(TxtAry(0))4 b- b1 G* J7 M% W: x# z7 R. ?" {! Q
GetTE=CLNG(TxtAry(1))
8 H: F+ V7 {* B1 [: h, ?8 NGetVV=CSNG(TxtAry(2)); s8 N, d8 S% U+ }. X8 X, {
for i=0 to ubound(MyData)
& }/ I( k, M4 s8 Y% U5 Jif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
* [; t2 c8 p8 f; zMyData(i)=GetVV9 D$ E) h3 p; ~
end if
3 r6 @3 A0 @# @7 e, D2 p: fnext
, u; b( D; ~% R6 d0 ]FFL.VarData("MyData")=MyData  r0 J. w9 N2 ]. q& S7 s- ?
%>- a( n0 A5 y# R& }% d. A  d) @
1 K7 ~# q. {% Y9 b4 f3 _- Z
cc:=MyData;1 N6 c* ?$ D$ G) T3 Q
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);+ l+ F7 p, Z! x; u; [6 H  m
vertline(ccsh),colorred;  {high}8 V4 t; I# a. j
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);% M8 B; d9 j% B  r5 l0 w5 G
vertline(ccsL),colorgreen; {low}" n# }0 E" F; Z" w7 \% I
* `+ W; n7 b( t
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢3 ^' R8 {1 S& i  J8 C

+ s/ m1 d7 ^8 z. Q我刚试一下。。。出现错误。。。静云帮忙看看。。。# y& b! G% ^7 K. t# c
等我发图
5 Z, M- L6 ~! k3 R6 q8 U$ N; l8 e) \0 {; q: D8 k) `$ W
% J& t& @7 O) }1 L# i0 v
[ 本帖最后由 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 发表 4 G, l4 W& N* [' \  B( @
太好了。我试试。。。万分感谢
' m1 m* a, ?5 F6 O5 W3 ?0 ?& j& r: j9 }& g* T( f  j
我刚试一下。。。出现错误。。。静云帮忙看看。。。% M5 K/ R  z9 ~0 e3 ~# Q) H
等我发图$ W3 Y% q- O( U3 H
110666
& \# g3 x+ I0 U; E. i3 H; f
9 _4 u* ^+ D+ t
再试, 这读数据公式不是我编的
$ j, K) B* x* N% y4 S  dif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then: K2 t5 ^# C4 Z# T# Z1 h" E9 M
# O# h1 Y7 q- f+ Y' x0 r8 J) @

7 `- O; U& G5 D: W6 R5 q
- U# `3 q8 d0 N4 R3 c% P% J[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
) v& J. b% {8 o# y

! E/ g6 J5 L3 I! L- n; ?还是不行。。。能通过测试,但一运行就出现这个错误:( S7 S+ _5 Q3 X. `7 {
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 : k: F/ J4 |/ d, i* N
110668
9 C0 q5 J, h6 V% Z# _" k4 V" s; E+ [. i" \# o
还是不行。。。能通过测试,但一运行就出现这个错误:
/ F9 O" X' S  J; z* d* O+ `见图。。。

. t* l8 w6 e# V! l$ M+ |( O' U3 g
可能是数据檔的问题
, Y6 d8 J* W+ o& ^9 _数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
; o& R" `7 @' [6 {# }  h原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。- f) T* G# Y% ^, B( k
直接程序计算declination值数据然后显示( I' o  ?* Y- H2 S2 h% K

7 ^; u+ `3 X6 O
6 E0 y9 S; q% J. T' z: J. h! ?) x' R4 _2 Y& q4 p! D4 f  W1 _* E4 W; [6 T
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者
9 h. @% {$ v& n/ ]4 ~% M! F
9 v: o# s1 ~  a8 P0 t
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
+ C6 X6 w, T7 P4 f# j我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
6 Q! m$ |/ Y5 P9 `0 o* j# P0 A请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
& p7 w* w- m( N9 t4 M2 v- H8 w我是不是用错了? 有其他办法吗?

0 D" r! ?4 W' e) f- V8 c; L+ b" u' J
你好, 向下
* x+ a. V+ Z3 l& Bvertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表
+ I- V1 Z" w7 F7 A& S! d6 O* q: \  f1 _9 m/ w
; H0 [( d- i$ E* u) D4 U( f
你好, 向下
' l& D/ V4 f4 vvertline(cross(0,cc)),coloryellow;
3 Z  O$ R+ X; |" q9 X
  C0 }) M+ e0 }+ V* [+ R" J3 G1 v1 I, o% ]
谢谢,可以了。$ i: U& \0 f( Y/ r0 _9 y+ o
4 F- |$ i7 Q* Z
原帖由 kaiser88 于 2013-12-18 19:34 发表 ! h, M6 w8 y9 N; H
he110 请问你公式怎么做的 我的也一样报错
8 U9 Z2 z6 Z# {

1 ?3 E3 D: {1 V, p! H8 L我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。0 `2 u% {' r) _

0 A; o* O) i( r0 [  Iprayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册

本版积分规则

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

GMT+8, 2026-10-19 19:45 , Processed in 0.183750 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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