阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
! u6 Z* F. {7 c- _
; [3 L$ {. {5 c) ?

# G; V( l; p: K: I4 F7 s3 P1 y! b* L  D: G$ p2 m
* {& p# [; T( k9 A2 L8 Q
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
, v7 u; F8 D* n/ P- J! l# R6 V1 w, l: U" X" @5 X( l% x
* n9 \+ l7 \: }
7 I  l# r0 m% s' U  S' y7 |- D
1.根据给定的数值,画出这样的曲线
  F( b6 v" h' {' W: O5 X5 e2.分别在曲线的每个拐点出画一竖线% @9 Y% T: C9 B& N& n5 H
3.在零值画一竖线& M6 v5 k. ^2 M0 ?- W2 h
4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。
, [  z. n) O0 p4 d
# ^0 @; O# Y5 c4 v# T9 U: i4 H8 o

; b; G, G3 D3 S" |5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。% n# u  m! _4 F: o2 P7 E3 G
- Y8 `+ C3 @# K( m" c$ L. u' c
数据样本:从星相软件导出的:
: r7 I' C* A/ U% ?1 h4 A$ m) D/ {1 b( l0 U6 [
01 一月 2013   -24°14' 58.7"  
/ Q2 C& V1 y" K02 一月 2013   -24°20' 05.2"  6 q) b; Y7 R7 i. d1 C- p
03 一月 2013   -24°23' 54.3"  0 o, }' b$ z' t, q! D9 [
04 一月 2013   -24°26' 24.8"  
; [7 [5 c! D3 g7 b" N05 一月 2013   -24°27' 35.6"  4 z! L3 q& B* p* W4 T% p
06 一月 2013   -24°27' 25.5"  , J9 \5 [9 R' M2 B' C+ ?
07 一月 2013   -24°25' 53.3"  ( [1 T6 l! T) }. C
08 一月 2013   -24°22' 58.2"  
: O- U; ^+ Q. D. \09 一月 2013   -24°18' 39.1"  1 z% F9 E5 g0 q0 u# I- z: c6 T
10 一月 2013   -24°12' 55.1"  3 l& Z. A" P6 M+ s
11 一月 2013   -24°05' 45.2"  : F2 s1 W2 ]4 m  @0 _$ q, n9 w2 V4 K
12 一月 2013   -23°57' 08.7"  1 u6 \/ G# a5 F8 g
13 一月 2013   -23°47' 04.8"    ^8 _* Z2 U  c" o) z
14 一月 2013   -23°35' 32.6"  
. k/ _) U& w9 [! @+ d5 a5 j15 一月 2013   -23°22' 31.5"  
6 y/ N1 k$ `. k. U" A; Z4 c; l16 一月 2013   -23°08' 00.8"  
5 F5 E  l. G) v9 |17 一月 2013   -22°51' 59.9"  ' w& S1 g7 O* |
18 一月 2013   -22°34' 28.2"  
" q5 {) C, g) I+ R* y- E/ w19 一月 2013   -22°15' 25.2"  6 w) c+ f1 W2 v% D6 z
20 一月 2013   -21°54' 50.7"  
2 q0 R# V4 k3 c4 ^$ A% M" }0 J( a21 一月 2013   -21°32' 44.2"  & q" E) t! z! \5 A1 [& H8 K% y
22 一月 2013   -21°09' 05.7"  1 j# M0 `  |" C
23 一月 2013   -20°43' 55.0"  / W6 ]2 K9 J2 g. M
24 一月 2013   -20°17' 12.3"  : ~" h  h: S% x+ @# |! E5 f; Z
25 一月 2013   -19°48' 57.7"  
; ~5 f5 c* P/ u9 W26 一月 2013   -19°19' 11.9"  
- b3 m& E8 Z* s! R# d  o27 一月 2013   -18°47' 55.5"  
4 x2 i. [( P9 m* i& [3 c. }- t28 一月 2013   -18°15' 09.5"  
9 S- u3 i; q& U: N29 一月 2013   -17°40' 55.3"  
' y" _3 f7 m; p% n( {# z; t1 C0 ]$ K30 一月 2013   -17°05' 14.7"  
' e: C0 A  R% E0 o31 一月 2013   -16°28' 09.9"  * e8 H  j  P& K& P
01 二月 2013   -15°49' 43.8"  9 E8 j- F3 k4 ]1 ?8 `7 Y  \" o5 q3 A
02 二月 2013   -15°09' 59.8"  " @* f5 Q% X3 H
03 二月 2013   -14°29' 02.5"  . x1 [5 t7 }0 Y6 t) K, H
04 二月 2013   -13°46' 56.8"  
  m. i) y3 z) D2 ^05 二月 2013   -13°03' 49.3"  4 P( A+ T- H1 T
06 二月 2013   -12°19' 47.2"  
. Y, Y! i) k7 ]; r! R& c07 二月 2013   -11°34' 59.6"  . g2 |5 D% O& u' U$ y3 {
08 二月 2013   -10°49' 36.8"  1 T5 `9 J& U+ E6 h* }+ ^$ x8 P! a
09 二月 2013   -10°03' 50.6"  . G! N! v+ n# j0 Y5 ]. g
10 二月 2013   -09°17' 54.8"  
1 G5 H. Y* C- N; W& Q6 ^* q5 g7 Y) j, n11 二月 2013   -08°32' 04.9"  
5 M- r1 `. _0 c" V  C) a# G9 [12 二月 2013   -07°46' 38.1"  0 ?: _7 M1 G8 V- W/ b7 i' l
13 二月 2013   -07°01' 53.6"  0 E8 H. @5 r3 @* i" x$ }! `
14 二月 2013   -06°18' 12.3"  
* ~' s  M8 X" V' W. L0 I15 二月 2013   -05°35' 56.2"  
. L) i. g9 k# r; Z16 二月 2013   -04°55' 29.1"  $ u0 K: I! u: H8 e
17 二月 2013   -04°17' 15.1"  
/ |1 s& }$ V8 Y18 二月 2013   -03°41' 39.2"  
& ~9 I2 y7 h. p, w  O19 二月 2013   -03°09' 06.0"  
9 R$ o. Q* f2 E4 V20 二月 2013   -02°39' 59.5"  5 J% M2 d8 A' a( }, I
21 二月 2013   -02°14' 42.3"    C: m0 j& l" v4 j, D# O+ I
22 二月 2013   -01°53' 35.0"  
0 ~1 h% _! r6 {, [) J+ m# `. g$ C23 二月 2013   -01°36' 55.5"  + k. o8 v; f0 V& J* R6 A" ?
24 二月 2013   -01°24' 58.1"    k5 M3 K/ i9 O' @% i1 T) F
25 二月 2013   -01°17' 52.7"  
/ A1 h, u* h% B& V26 二月 2013   -01°15' 44.0"  $ l+ `6 b: Z% ]" X+ S* f7 u
27 二月 2013   -01°18' 30.8"  
  K: f  t. x7 g, }2 s# R+ u28 二月 2013   -01°26' 05.5"  ! `# M. w4 A2 y+ A+ @* [; X. K
01 三月 2013   -01°38' 13.7"    Q6 G2 q4 s6 l" H( q7 U4 S+ r
02 三月 2013   -01°54' 34.4"  
7 f$ R% G# Y- V03 三月 2013   -02°14' 40.4"  ( O! v" U' C& B7 F( j3 f* j. c! m
04 三月 2013   -02°37' 59.2"  6 |0 M9 j9 n' \& u
05 三月 2013   -03°03' 54.3"  
6 q9 i1 c. c$ d$ I4 D+ K( V06 三月 2013   -03°31' 47.0"  
  K: y9 @% N; h' u  D8 v- p, l07 三月 2013   -04°00' 57.8"  6 D0 j. z  v0 z" M! K
08 三月 2013   -04°30' 48.1"  
' }5 C7 \" `! P09 三月 2013   -05°00' 41.8"  9 o) I3 z: a+ |$ K3 _& p
10 三月 2013   -05°30' 06.2"  
. \- f! f8 w, _+ w11 三月 2013   -05°58' 32.9"  
, h- I5 S% P4 t# L  p' q12 三月 2013   -06°25' 37.8"  
) _0 k6 v+ r' E/ U+ N" m13 三月 2013   -06°51' 01.6"  
3 k" |$ ^4 Y2 _! U14 三月 2013   -07°14' 29.1"  " x4 I- G9 Q4 }/ L
15 三月 2013   -07°35' 49.3"  / U9 E% {( R9 K) M. ~
16 三月 2013   -07°54' 54.2"  
6 A1 u/ ^( G, I$ F5 |% w: A# G% E17 三月 2013   -08°11' 39.1"  
, `4 Y) e! ~& N: G/ M, E  h4 u18 三月 2013   -08°26' 01.3"  
6 D* k4 o! a3 a& |# I19 三月 2013   -08°38' 00.1"  
( i; @8 C" p7 l9 f  t+ V, \. d20 三月 2013   -08°47' 36.2"  ! m$ t+ u9 \0 s  d* H
21 三月 2013   -08°54' 51.5"  
$ U+ y) B+ [$ V$ a* Q* A! b22 三月 2013   -08°59' 48.5"  
0 K0 P* _4 k; d: Q0 P. Y: u23 三月 2013   -09°02' 30.3"  & G- w1 Y6 a' n
24 三月 2013   -09°03' 00.3"  
: E( d. }" @" s- e: b5 k/ m4 N25 三月 2013   -09°01' 22.3"  
/ a+ P1 P* H, N) L6 A5 d26 三月 2013   -08°57' 39.8"  ( Z4 _: }+ s) M, F! }) b
27 三月 2013   -08°51' 56.7"  
3 O2 j6 ]/ m3 Q, ]1 [/ o28 三月 2013   -08°44' 16.7"  , B7 F) w4 L7 V7 y
29 三月 2013   -08°34' 43.3"  
$ Y7 Y: ?- ^6 u- K9 @30 三月 2013   -08°23' 20.1"! o) e. h2 ?# Z2 `

0 t  L# t; ]& D9 f% }这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
4 E3 q) B- G5 e4 s6 P4 h) O1 D1 W! G1 R  L; A0 z6 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 | 只看该作者

. g  w) m' o3 i1 ^/ e5 s
水星
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 | 只看该作者
编写指标用 的数据,见附件) H0 R( m2 m7 p8 }7 m8 @( {# p

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
3 K* i0 Z: k- G: p: a4 ]( _1 R2 @: g- h! j
cc:=數據;
: u9 `, Q( |1 s& ~* i* p6 H4 T: yccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
! z( v0 V% K2 g! V# R+ Bvertline(ccsh),colorred;  {high}* H: X, L1 V; p9 B2 {* i6 w
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);7 {7 E: w, {  K8 P
vertline(ccsL),colorgreen; {low}
- {. g; B* G! Z% U( V+ @( j. Z8 _7 }5 D: X
[ 本帖最后由 静芸 于 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 发表   U0 R0 i, j( ?# c+ z; P5 p
请问静芸  能改成飞狐公式么?

( }% @5 q  g- N; U% p1 B$ G% q/ r9 c; F
这是飞狐公式% s- [8 }& u& Y2 w& e4 n# n6 W
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
6 }; g- K) N$ z& A# Y1 n  o再请问 怎么读写呢?俺不会

1 H% ?0 p" K- a/ p6 r% r7 m0 T  Q) c7 o
,这有些麻烦啊!
5 F  J9 G' S7 F6 Z# G你把星相数据存在目录C:\Da.txt
# ^! y: ]) @/ f- D( h$ a/ }- d档名是Da.txt
: \6 `3 E9 H' m如果存在别的目录,D:\hhh\Da.txt$ N7 }8 W& F+ x. S$ R
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt: u$ I  a, n% s
下面是飞狐公式,我也未试过,你自行试试吧8 G$ z5 D2 ]& g3 J7 x, i

: w9 y$ ]. U& z1 TFoxDE:=DATE; FoxTE:=TIME;% @) t% P6 d2 c6 X' e7 X
MyData:=C*0;; V" k. b( V" }: C6 E: M
<%
6 `# A- q( i; hMyData =FFL.VarData("MyData")
& O, V& k+ _5 ^FoxDE =FFL.VarData("FoxDE")
9 D1 f* T' L6 M4 V2 V8 `9 I: wFoxTE =FFL.VarData("FoxTE")6 A' q+ }$ ], p7 f7 p) G- [
Set fs =CreateObject("Scripting.FileSystemObject")2 v6 p$ p2 x- w$ r, V+ f
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
6 \% f* q: H8 B" o) o, lMyTxt = wrkfs.ReadLine
; G, U+ v- Y  \2 ]( v! Nwrkfs.close
3 \8 ~3 g% N) R6 RTxtStr=MyTxt/ c0 A+ u! H4 C4 h* w. n/ I
TxtAry = Split(TxtStr, ",", -1, 1)
- w- I) S; M: q7 Z) c, Q" uGetDE=CLNG(TxtAry(0))# A4 ^8 h3 _* s# a& _
GetTE=CLNG(TxtAry(1)). X) C: H8 J5 n' C% L2 X
GetVV=CSNG(TxtAry(2))
& a! V4 W0 q4 N8 ]8 cfor i=0 to ubound(MyData); w: ]9 I, \) `% g/ i( J
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then+ F# Z1 k! D! ^1 b/ _
MyData(i)=GetVV
3 e3 I, |; c* Rend if
' G3 Y0 T9 j; Z4 \next
, Z4 y: w1 c7 K7 a/ lFFL.VarData("MyData")=MyData
: x+ U* a: n, E%>( g8 p6 J3 f7 ]9 E* L2 Q9 b, i

* l2 o2 Z# }5 A8 S. f4 f& I& t
cc:=MyData;0 J) R' u5 Y0 X6 k' B  I
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);8 S9 m7 e1 }, ~& u( @- N3 f* s2 S
vertline(ccsh),colorred;  {high}/ P3 J& p# g. B
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
  m* q' E( ^# V2 e" yvertline(ccsL),colorgreen; {low}
2 y; U. n! [8 w( i5 T7 d
: k4 O1 |1 F- T; a  I! G3 x8 |0 A$ n[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢& S+ m. L* }, {+ W1 R' X/ Q6 _

' R1 l" z5 N( G+ D. e" o我刚试一下。。。出现错误。。。静云帮忙看看。。。7 V1 N0 T; u8 B3 x4 t
等我发图* C# U6 T8 I5 F6 n# B

9 ]" E9 i4 R+ k  S- G2 ?; R: b# Z2 t4 m
[ 本帖最后由 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 发表
: @- i% B) a/ R. K太好了。我试试。。。万分感谢6 [4 m: v' A$ {7 x& _
- ^! n" f9 S0 |* ~4 v& e# e# K7 u. L
我刚试一下。。。出现错误。。。静云帮忙看看。。。1 K) x% P3 n) X3 b1 e
等我发图
6 N! g) H2 C) b; H+ {. q% T0 `110666
* r, j! i9 K! C( O9 o* E

3 b3 m: ?( [- H0 j再试, 这读数据公式不是我编的
8 [& t7 g0 {2 e7 k' ~if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
; f- g3 m  o' f7 n( p% z  D/ u' D6 Z3 d( f- h, x
2 [- P5 V7 j6 d! r) G- x
& y+ b* u& w* ^$ O+ ~% D3 ^6 F
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
+ J/ E5 r) N3 V9 g
6 M/ u6 v6 j3 L6 v+ I
还是不行。。。能通过测试,但一运行就出现这个错误:7 Y9 m+ Z+ b4 ?' e+ P# l
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 1 a- K! P% N  w8 t7 s
110668" x+ Y& ?  c3 c+ i9 x
  x! h1 {) e7 l
还是不行。。。能通过测试,但一运行就出现这个错误:
8 H! E2 f' w, Z6 S" Z! u' [见图。。。
# _! L- y/ X$ T* b4 g) ?1 ^

+ Y4 s' O9 |3 s0 }2 d0 `' F可能是数据檔的问题7 ]9 L* @, ^0 O$ W
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行3 j1 I/ I: j$ D" J% x0 `0 `
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。& q$ K$ v/ Z2 l; r
直接程序计算declination值数据然后显示- I# D( E/ T: ]$ @
, I, T: n1 E9 Y6 B- ~" O8 E
! p% v, f2 r: u2 o: X

  r) f- g$ l7 X: c[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

: f2 L( d. r( y/ B% d5 v6 |9 T
0 u) D! G% G" u' C[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。: k8 w( ~) s# @& m# F' k$ p
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
" V2 |( Z" y8 I% p" x, \请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。- z3 M4 X' N, f
我是不是用错了? 有其他办法吗?

! Z3 [$ q( K! Y: Q5 L+ P7 l3 v4 G3 e8 ~
你好, 向下* \: {( e! x, B/ g% [* ^: q& G5 M
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 发表
0 W, g% \% q0 e- ?# l$ c! D' w+ h1 i0 K
4 i4 d8 ]& w/ \
你好, 向下
+ [5 o1 }$ q7 E7 \" Overtline(cross(0,cc)),coloryellow;
. _/ n+ e. [8 b. H. W
+ m0 @3 v) V6 x* w& s
谢谢,可以了。* O+ M" D0 A9 d- E

/ @+ U/ v9 K( F5 M; }' `
原帖由 kaiser88 于 2013-12-18 19:34 发表 - k0 U  U7 x( d2 R0 A
he110 请问你公式怎么做的 我的也一样报错
! m3 o: D8 T3 u1 e5 C' p9 C
3 ?2 \, T3 d5 L3 J
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。4 f; Y8 J, s/ N5 \3 {

- G: _6 g! n$ h: cprayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-19 07:33 , Processed in 0.195162 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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