阳光飞狐

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

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
) e4 T# O/ O& V2 T
. l" E* h8 m" p" z2 X) D

- ~* K" _5 c* N( ^! n( Q9 o' z* _
: p* }5 ]) Z* ]$ g/ U; D/ y% m3 H5 z
$ b* @6 x4 G* _
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的* n) [$ Y5 w  d6 S" s
4 O/ \# ?/ t; U5 _+ R$ y  _

7 S5 V& R' Z- ?: S0 \! n$ _' T:/ S% c" g2 }9 y- m
1.根据给定的数值,画出这样的曲线
6 o! C2 V/ z. U% b2.分别在曲线的每个拐点出画一竖线
6 N2 M7 e0 P4 G, |3.在零值画一竖线
7 s9 O& c6 u# k! ]  _' s& q4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。
& Z3 i( y  s6 P; P  e, K0 T7 d0 T2 y$ s# J9 H) u7 L
' S9 |& S. K5 ?* K" e
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。, e1 M) c; [! j' K, ^) Z  ^

9 |7 v( k* f  Z数据样本:从星相软件导出的:
' o; F- z) g% f9 N( P: Z" t( a
* ?# d! j. l( Z, x1 n01 一月 2013   -24°14' 58.7"  : @! t  p9 \; H% }* \5 \
02 一月 2013   -24°20' 05.2"  ) n% O$ p8 Z9 N
03 一月 2013   -24°23' 54.3"  " A6 v0 ^. l- g( K4 H4 x* ]
04 一月 2013   -24°26' 24.8"  
" j9 A& d1 ?; N; j/ K05 一月 2013   -24°27' 35.6"  
, A* f! b- m- [/ \7 U3 a* |06 一月 2013   -24°27' 25.5"  3 f5 Q# O- \5 i4 b% Z% M! L
07 一月 2013   -24°25' 53.3"  
" E. i# m1 M% R4 f08 一月 2013   -24°22' 58.2"  
5 M. Q& @% M7 w( m+ F09 一月 2013   -24°18' 39.1"  
4 d% P. D" T9 N1 B; E9 J0 v+ @1 H10 一月 2013   -24°12' 55.1"  . |6 u: G7 f, g6 |' ]" w) [
11 一月 2013   -24°05' 45.2"  
2 E. Y1 ~0 b1 j$ @! T' e  s12 一月 2013   -23°57' 08.7"  # u2 |# W- w* W$ {; M: L+ R
13 一月 2013   -23°47' 04.8"  - t0 p+ [+ E# Q2 g$ I1 R8 q! x
14 一月 2013   -23°35' 32.6"  
& ]' D6 h6 w. J% U! G) U# }5 Q6 ~% t15 一月 2013   -23°22' 31.5"  
9 o6 B, Z3 P) x0 P' z16 一月 2013   -23°08' 00.8"  9 `3 @3 f8 q% `5 V8 u
17 一月 2013   -22°51' 59.9"  ' j6 J! X) z) I" C) ]7 Z
18 一月 2013   -22°34' 28.2"  
3 Z: R7 A( R7 C7 U% X19 一月 2013   -22°15' 25.2"  8 y4 e# W* ?+ W8 ]1 E5 r2 q
20 一月 2013   -21°54' 50.7"  , D$ ~4 I  i( e% u" |
21 一月 2013   -21°32' 44.2"  # `2 q0 C7 n! B* i8 y
22 一月 2013   -21°09' 05.7"  . R) J; c7 H5 _7 l8 `. }' P+ l# d, G
23 一月 2013   -20°43' 55.0"  $ A2 D; C- u" S* w+ B4 Z* }6 Q
24 一月 2013   -20°17' 12.3"  
. N- e& {/ m* l( S& k25 一月 2013   -19°48' 57.7"  6 _  P6 r) d! [! ?
26 一月 2013   -19°19' 11.9"  
. _. m: h6 l# X27 一月 2013   -18°47' 55.5"  & z( z; G/ j3 `0 C$ C+ G
28 一月 2013   -18°15' 09.5"  6 ^6 q2 D9 ], H
29 一月 2013   -17°40' 55.3"    L" y- X4 T2 w2 t2 U  R8 ~
30 一月 2013   -17°05' 14.7"  + ?' w7 Q0 }- D2 }
31 一月 2013   -16°28' 09.9"  
& ^' L8 f6 g7 T: l. [# z* N. M01 二月 2013   -15°49' 43.8"  
( x2 q3 N# F0 z7 r+ z. E02 二月 2013   -15°09' 59.8"  , w' \) P) e7 l: x3 N. p
03 二月 2013   -14°29' 02.5"  
, s6 H$ {! g( K6 @04 二月 2013   -13°46' 56.8"  " h& ?! e3 K4 U) ~
05 二月 2013   -13°03' 49.3"  
: |$ I& A: Z- E06 二月 2013   -12°19' 47.2"  
: w! m7 d, V0 M; B7 Z' {6 {- t0 e07 二月 2013   -11°34' 59.6"  
) X, W$ {' X" ]) `; e% ?. z08 二月 2013   -10°49' 36.8"  
! C2 |8 l- T0 e2 X- V( d, q6 T* u# ^09 二月 2013   -10°03' 50.6"  0 ]+ e1 Y& k. u  U, t
10 二月 2013   -09°17' 54.8"  
' d8 i; d3 P2 `; }- _* s11 二月 2013   -08°32' 04.9"  
+ Y1 `7 P1 }0 e: ~6 D7 D12 二月 2013   -07°46' 38.1"  ; E% ~1 f; u8 f4 m3 w
13 二月 2013   -07°01' 53.6"  $ B! e2 h; v3 X: ]% H; o+ a
14 二月 2013   -06°18' 12.3"  3 ^4 v0 Q8 w3 M. Y  L8 F! D  Y
15 二月 2013   -05°35' 56.2"  + N) ~6 d* S/ J4 ?
16 二月 2013   -04°55' 29.1"  
+ g- u! R( l$ B17 二月 2013   -04°17' 15.1"  
. W# ?! D+ A2 j2 u, t0 q# X9 x# a3 W/ \18 二月 2013   -03°41' 39.2"  
1 e- y. m0 B7 d! z19 二月 2013   -03°09' 06.0"  $ z. \% U7 V% c& k* U1 r6 K$ z) r+ `5 w
20 二月 2013   -02°39' 59.5"  
5 |: A4 o, j6 R& \8 L21 二月 2013   -02°14' 42.3"  
9 n; O3 ?$ J: @( C5 y; u# K8 E( _- {4 B) g/ v22 二月 2013   -01°53' 35.0"  7 ?% V: d8 m5 w1 Y5 p+ E
23 二月 2013   -01°36' 55.5"  / F: F* g) A7 E$ P7 l
24 二月 2013   -01°24' 58.1"  
, P% I0 D+ _  G% E3 ]/ w6 c) M25 二月 2013   -01°17' 52.7"  5 t; ~+ w4 [' a" Y# i
26 二月 2013   -01°15' 44.0"  2 Z3 m4 S% M! Z
27 二月 2013   -01°18' 30.8"  * D7 E8 c; @1 ~6 c* j9 O
28 二月 2013   -01°26' 05.5"  
2 t7 |  x5 O' ^0 c+ u. d01 三月 2013   -01°38' 13.7"  
/ z" [$ ?% s1 x" m  H2 y02 三月 2013   -01°54' 34.4"  2 U  n* q. {: L, T: z, R- e
03 三月 2013   -02°14' 40.4"  
0 b& K' O( {# `+ t04 三月 2013   -02°37' 59.2"  - }9 ?9 S* j* V7 _3 a; d" ^' ~
05 三月 2013   -03°03' 54.3"  3 r8 {0 b1 {- X
06 三月 2013   -03°31' 47.0"  
) A& C/ V6 a4 a4 k+ p, y% T4 Q07 三月 2013   -04°00' 57.8"  
. B  f5 z0 w% }1 _3 P08 三月 2013   -04°30' 48.1"  1 X" A& [. h8 n% G  x& O. T
09 三月 2013   -05°00' 41.8"  ! X. O! p9 z% I0 U) F
10 三月 2013   -05°30' 06.2"  $ K( m/ v% D* K3 Y1 B
11 三月 2013   -05°58' 32.9"  5 g2 T7 x3 L8 G6 k) x. [
12 三月 2013   -06°25' 37.8"  
& u. `! |% o5 M  P13 三月 2013   -06°51' 01.6"  3 E/ I  ^+ F' c$ V! X/ Q
14 三月 2013   -07°14' 29.1"    ]% |/ o' E3 H
15 三月 2013   -07°35' 49.3"  
0 c( X8 [6 ]. g2 T16 三月 2013   -07°54' 54.2"  , M1 s! x0 A9 Y' t# x" c
17 三月 2013   -08°11' 39.1"  
3 S  |0 [" u6 Q& v18 三月 2013   -08°26' 01.3"  
: v+ o2 y+ ^8 m19 三月 2013   -08°38' 00.1"  & Z0 `1 x% ?6 L& L6 L$ J+ e
20 三月 2013   -08°47' 36.2"  1 E5 n! w+ f0 S; L; M; V) B# x9 M
21 三月 2013   -08°54' 51.5"  
( w" C" R; p1 C% C- u2 S22 三月 2013   -08°59' 48.5"  6 @$ Z& \  s* k; W. ]) d1 Z8 B
23 三月 2013   -09°02' 30.3"  ) v5 p- C! j- w3 Y- b& F% a# i
24 三月 2013   -09°03' 00.3"  
2 q  |% W& N* @25 三月 2013   -09°01' 22.3"  
/ `+ g' ^% F# H, u. @* @2 L& Q; {/ `' z& Y26 三月 2013   -08°57' 39.8"  * ^0 z) z2 \, I3 c% u
27 三月 2013   -08°51' 56.7"  
& s: V) v: @" i% b28 三月 2013   -08°44' 16.7"  " B5 G7 q* p  T) K( U2 {, D) h
29 三月 2013   -08°34' 43.3"  ; ?; A& _$ _1 C
30 三月 2013   -08°23' 20.1") K, m# K2 a7 h  K% f8 ^
2 y/ p& I3 `  p+ h$ H
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。+ @- K( R. C( @3 M% A
% u; A/ A: B8 U& X" r4 s
[ 本帖最后由 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 | 只看该作者

/ j* {1 A& o0 z/ Q0 ~% r  m
水星
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 | 只看该作者
编写指标用 的数据,见附件
' J. v  s) M  V

本帖子中包含更多资源

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

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 | 只看该作者
飛狐9 l% L/ R$ E( X  f1 r

6 q8 G9 p+ e$ \4 B/ E& s/ Kcc:=數據;
! U; G$ b" j( [8 rccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);" Z9 }! n1 K! C0 L9 u: V
vertline(ccsh),colorred;  {high}
7 Q3 A% L! E6 d" H9 [; J' K7 OccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
) J8 ^/ D" P$ o% U0 M5 M+ R& ~vertline(ccsL),colorgreen; {low}
% U1 Z- O- Y$ v) k/ L. M. N6 J: y8 x& T8 C! w7 R
[ 本帖最后由 静芸 于 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 发表
( |& ^2 C1 f6 D) u8 B* m/ r请问静芸  能改成飞狐公式么?

3 [0 o9 B0 ~8 J7 F# g1 e7 z# |( V8 _- s2 ]$ A1 I1 o; m0 X; F
这是飞狐公式  y$ w& H' f; F/ P/ [( w% o6 e
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 8 X7 [% T+ C/ e  ^
再请问 怎么读写呢?俺不会
, h) L# u) M% y$ s" _
1 P1 V8 d, [+ g" w9 h- {1 p1 l
哈,这有些麻烦啊!5 o' P3 \, \0 V% J. O
你把星相数据存在目录C:\Da.txt; x. k, P' I4 Z1 x8 u
档名是Da.txt0 \0 l- C) u( F; @8 x1 Q5 `( s
如果存在别的目录,如D:\hhh\Da.txt" o% H9 X& [. X% n
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt% Z; J' x1 t5 v+ H& O3 Z" d* C4 t4 \
下面是飞狐公式,我也未试过,你自行试试吧
5 |/ L# T% C+ [) U5 I / H/ J, N9 m5 b- e8 n0 v  i
FoxDE:=DATE; FoxTE:=TIME;
! j2 _5 e& U: LMyData:=C*0;; W/ e5 Y+ ~* U6 [$ j: L! I" s
<%
0 I% @8 {, h  |- J+ T/ D6 A2 [MyData =FFL.VarData("MyData")
3 l; y: ?' Z  o2 Y- J/ \FoxDE =FFL.VarData("FoxDE")
7 I: h3 H" Q$ k. O+ o8 x1 K9 iFoxTE =FFL.VarData("FoxTE")
5 X: l! f3 T1 r0 D, n" xSet fs =CreateObject("Scripting.FileSystemObject")& |8 K) ^9 v7 U- `
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)2 }8 w  K( X! b  _
MyTxt = wrkfs.ReadLine" C$ O4 ^0 X5 x# o1 w/ F
wrkfs.close
9 [! W0 D' d& ^$ }( S. Z4 vTxtStr=MyTxt
/ y7 s6 s; b* V4 L9 S" x/ xTxtAry = Split(TxtStr, ",", -1, 1)1 ?4 f0 {; Y# n: T/ C6 o5 w
GetDE=CLNG(TxtAry(0))
6 q" C0 e6 c: o2 GGetTE=CLNG(TxtAry(1))$ Q! t% _# h3 w3 W5 Z* f2 h6 E8 f
GetVV=CSNG(TxtAry(2))( D# ^, I% _" z
for i=0 to ubound(MyData)4 C2 n* \0 u  v5 w5 x/ \% W
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
- r" e- n( p5 D2 v9 w$ R, QMyData(i)=GetVV
) z& r  d9 ^2 |end if' n5 ^1 b/ S3 Y6 y3 _) B
next) W$ c( a% d7 ~8 K, h5 `
FFL.VarData("MyData")=MyData
$ e( _* T- d& @5 A- N. f%>
5 w5 w/ \! k/ m! r, {4 k0 i6 M6 q/ z% _5 _9 F/ ^* n  a
cc:=MyData;/ f5 o" r2 C# G% ^1 f# ^9 {
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
$ x; `! @/ l9 d' n% Nvertline(ccsh),colorred;  {high}9 A! D7 e8 `' M1 n8 i$ ~
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
# z3 g5 d* V0 |# P; a# }# vvertline(ccsL),colorgreen; {low}" @) C! r* h6 t

% U5 n, C7 C9 ?7 z0 Y7 j+ o[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
3 W" c( B( O  x4 N, f9 A. e
+ n$ Q7 t5 s% \5 Y1 L. ~我刚试一下。。。出现错误。。。静云帮忙看看。。。4 h' L' c! w& ~/ k5 J' M
等我发图
" [: }7 U: l4 @3 c7 ]. n0 s& W1 X; B/ o1 K. S- j
% h! X: T) A4 [" q5 ]
[ 本帖最后由 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 发表 * ~9 N" h; k! t' L
太好了。我试试。。。万分感谢
* }  P( [5 ^& G# y: s9 w- ?, R8 i, H4 z% x
我刚试一下。。。出现错误。。。静云帮忙看看。。。
; [  H6 @5 Q; _等我发图
( {& M6 L0 e% L110666
. W. N% c  _4 O9 ~3 E

. R. y* [9 O& f( A; U$ r再试, 这读数据公式不是我编的. \7 T$ X* G# }  K
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
$ Q: e' E5 g4 z3 Z! D" Z. |- g: l; }! L) w& q4 O' x$ Q4 ?7 n
. O) _4 d# Y) @6 m1 Z

% W7 M: |) j& B) |, b[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
9 P+ j; l  J% C. p$ e# H6 \; C+ o

9 T+ E( B/ n+ q) B还是不行。。。能通过测试,但一运行就出现这个错误:: i6 U; q1 V; F, W( x8 U9 d( S
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
& R7 x; q4 \. z8 Q  C110668
& X. e1 B! n9 p" @. t
5 ?  U# Y) h. [6 W4 O还是不行。。。能通过测试,但一运行就出现这个错误:
. `$ @$ G- c* S, A6 I  S. [见图。。。
$ t5 i, Z+ `& H  ^

& N% `* t0 z! B! ~7 P, o/ s0 j' w可能是数据檔的问题
9 X9 A# U9 i1 `- B数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
6 x7 |. S% y/ o9 `; t原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
( X, ^( L$ x. Y' q* d3 z: Z- k直接程序计算declination值数据然后显示' [" {2 P0 {8 f6 F. X

) L( C2 \4 \5 ~2 s6 Y
6 E1 k/ C: h; N, E: w
& G2 F& Q. G; N; {' e: J4 R* A- |[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

7 q7 a& @1 ^" L. U/ |! b0 A
& R/ t. B1 u) s9 u7 P# L* R[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
. k3 K" O0 ~1 Z* [1 t我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
3 G+ t" o* d6 F3 o/ U) v1 \8 Y请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
! ^$ Y$ ~' N8 G: Y# m我是不是用错了? 有其他办法吗?

. f! r; H$ t, n$ f7 N- g. J2 Z$ ]) H( l: E, b& n+ g6 R
你好, 向下5 q7 r/ v9 k; j7 ]9 ~3 G
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 发表 2 n3 k" B9 D! B+ X. _6 q

2 X/ @' x+ G8 j) ]: J
, m/ v% F! F0 [8 G/ b' g1 y你好, 向下" J9 l% ^6 `" P# I6 f) \
vertline(cross(0,cc)),coloryellow;
1 V% P* |+ }$ E1 w! n
+ R; t( ?& L9 s  p: X4 }$ ]
谢谢,可以了。& i/ q9 Z1 v/ V- q7 \) N

# u0 G5 W4 v4 q0 o& i( u' A/ l6 x& h
原帖由 kaiser88 于 2013-12-18 19:34 发表 " Y, G" x2 v0 e. g1 {8 M7 f
he110 请问你公式怎么做的 我的也一样报错
% U+ U9 Q+ Y/ u

. h& C: h0 P, x$ J! O6 V6 O; D- 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兄的这么平滑。。。: w+ P5 r! u3 t/ i8 q9 e! [- _# T. O

$ f* c5 c' Y' _& [7 s4 |9 cprayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册

本版积分规则

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

GMT+8, 2026-10-19 18:39 , Processed in 0.184010 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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