阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
* I8 b9 r2 T  p7 g* u6 ^1 T. [; L! `+ _. J& t  Z+ i
- L: o+ }+ ^  A8 S* h

8 S' E+ X: x$ @2 Z+ N
# G1 u2 J$ I& b6 p6 W
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的! C2 j: w) w- h3 W9 ?% k
. N( P1 w: w: f8 v4 D2 ~% f4 d+ D
$ t$ F; Y3 y# B4 Y3 h: Y
+ Z  s6 _/ v1 h# l2 ^: h  T$ n
1.根据给定的数值,画出这样的曲线' v# X5 X. B! |
2.分别在曲线的每个拐点出画一竖线
  ?6 T8 ?  U+ S" m$ E3.在零值画一竖线
% v/ A$ t7 d+ O6 z5 z. B4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。0 E, S: I) [% a2 v. p+ r- G4 W5 P

, c0 J. a* G% ]& n" g+ o
/ d7 `. V6 \+ _' o3 |6 e) i# e
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。& h7 G$ }9 a  i+ {3 v
% I" I9 E3 x( D( k  |
数据样本:从星相软件导出的:& I8 x3 b& b" i9 r* `
1 a4 I* X' [& @
01 一月 2013   -24°14' 58.7"  
9 X% S' A4 S4 ]7 ]* P/ \02 一月 2013   -24°20' 05.2"  
  ]4 f+ @6 }* Z2 T+ m! `03 一月 2013   -24°23' 54.3"  ; ?% ?0 A  J; d
04 一月 2013   -24°26' 24.8"  , [9 m- H- ?' g. a( H: e
05 一月 2013   -24°27' 35.6"  
. J6 _) m( S  ^% r1 K% I4 i06 一月 2013   -24°27' 25.5"  * R! h% X2 l  A0 k
07 一月 2013   -24°25' 53.3"  7 k; M+ f8 W$ d: _' v
08 一月 2013   -24°22' 58.2"  
+ I9 k- b5 F, S* o+ v09 一月 2013   -24°18' 39.1"  ! G, W6 U7 p  [/ @$ X) I6 l# O) H
10 一月 2013   -24°12' 55.1"  : ^8 x! N1 i1 V$ J% B, S
11 一月 2013   -24°05' 45.2"  + f4 @9 H4 W' E: F$ F0 H! \( z
12 一月 2013   -23°57' 08.7"  
% P& x3 P% s2 i13 一月 2013   -23°47' 04.8"  
: _) D/ s8 v! [14 一月 2013   -23°35' 32.6"  
6 t3 E5 l# m* H/ D/ B7 t$ y15 一月 2013   -23°22' 31.5"  
, {* k+ v9 o  v0 c16 一月 2013   -23°08' 00.8"  7 s4 B" t6 P9 n% P' a4 T0 C7 w
17 一月 2013   -22°51' 59.9"  0 F. L" n8 y* E0 Y
18 一月 2013   -22°34' 28.2"  ' y) I* |: f( j$ a+ ^% n7 j2 m) B
19 一月 2013   -22°15' 25.2"  
# l9 x6 m& [& ]8 ]) d  j20 一月 2013   -21°54' 50.7"  
4 C1 ~. M# b; F4 t* E& @21 一月 2013   -21°32' 44.2"  
) n$ l& [9 v4 j# v22 一月 2013   -21°09' 05.7"    G# Q7 y: U" h  ^. I9 c( f
23 一月 2013   -20°43' 55.0"  : A: N# S0 a/ s# }" ?! ?4 ]% q
24 一月 2013   -20°17' 12.3"  
: O; n  P) c- v7 D& z' j8 D; ^25 一月 2013   -19°48' 57.7"  5 y, z5 T. ]  }3 T2 k
26 一月 2013   -19°19' 11.9"  $ V9 z: n' a6 o. [/ y
27 一月 2013   -18°47' 55.5"  
' T- o1 |( x: c8 F4 h7 [& Z28 一月 2013   -18°15' 09.5"  $ f& Y: E) [% x* y6 p
29 一月 2013   -17°40' 55.3"  ; M) F7 o4 k3 {0 k0 o  B0 l' X$ k
30 一月 2013   -17°05' 14.7"  
  N. B: @0 W7 f6 O; u3 b+ v1 P31 一月 2013   -16°28' 09.9"  
$ s* ~7 u& p% v01 二月 2013   -15°49' 43.8"  " \2 u2 @4 r+ N/ A4 P  o
02 二月 2013   -15°09' 59.8"  
8 q* ^% ]! O  \4 a03 二月 2013   -14°29' 02.5"  
2 }% b( I6 ^" t& {9 T( H04 二月 2013   -13°46' 56.8"  - K  b& X- l* b  c  |8 A" C6 Q, g
05 二月 2013   -13°03' 49.3"  5 C( [0 o- A1 }3 @) n6 m6 h9 M
06 二月 2013   -12°19' 47.2"  
  l5 U) T- `5 o7 ]2 ]$ ]! N07 二月 2013   -11°34' 59.6"  
( n' ^# I2 J1 f  E# N$ v& d08 二月 2013   -10°49' 36.8"  ( C; ^( `( A% d( ]& r
09 二月 2013   -10°03' 50.6"  , |- {! n  H* p, q; q% U3 g3 @
10 二月 2013   -09°17' 54.8"  
" K6 C. Z  ^+ ]1 x* K6 J11 二月 2013   -08°32' 04.9"  
! j3 O8 E" ~, T' E12 二月 2013   -07°46' 38.1"  
6 Y2 _* y# S" d. P3 b8 S! m& @& \% q13 二月 2013   -07°01' 53.6"  
+ O% F' H6 v" @  Z14 二月 2013   -06°18' 12.3"  
; g# h; M2 x) h+ c15 二月 2013   -05°35' 56.2"  
7 M4 {' g2 X+ o) Y% R; x16 二月 2013   -04°55' 29.1"  
. ?( T% i, h. t" q) H+ V" U17 二月 2013   -04°17' 15.1"  , i7 F4 C8 v! \6 a$ V; F* K
18 二月 2013   -03°41' 39.2"  
' `% k- g5 G1 o7 r0 W* N3 N1 F19 二月 2013   -03°09' 06.0"  ) S) d3 q/ `- W! T: }
20 二月 2013   -02°39' 59.5"  
$ Z1 N0 \! E% g% w8 x7 }, P3 F21 二月 2013   -02°14' 42.3"  
  j0 k: w8 P5 a) l/ w; c0 w22 二月 2013   -01°53' 35.0"  
  Q7 ^1 W0 u+ r* y23 二月 2013   -01°36' 55.5"  & v0 L! w- R# Y7 K
24 二月 2013   -01°24' 58.1"  
& k, m5 d  u1 M& g( @: W3 z25 二月 2013   -01°17' 52.7"  
" A3 B  v% N( ?4 E26 二月 2013   -01°15' 44.0"  
$ S( i* M3 t9 U+ W, ^0 g1 |27 二月 2013   -01°18' 30.8"  
5 J' y  `: g1 Z$ x$ y4 u( E5 A28 二月 2013   -01°26' 05.5"  
, f4 |/ S* x: N/ A, c: V01 三月 2013   -01°38' 13.7"  2 E# V, z' J' K) }6 z# M! i6 @' v- p
02 三月 2013   -01°54' 34.4"  
+ {& T% z" X$ P5 w5 R03 三月 2013   -02°14' 40.4"  1 ^5 @& K, `' F4 J  Y6 _
04 三月 2013   -02°37' 59.2"  & ~: s/ v% U% ~* z
05 三月 2013   -03°03' 54.3"  # m( w5 R/ |! A- n) j  O* w  b* W
06 三月 2013   -03°31' 47.0"  2 t# G: x4 `7 g' \- B7 Q
07 三月 2013   -04°00' 57.8"  
* o: V% _7 k/ G* a08 三月 2013   -04°30' 48.1"  
, w/ U' ~7 l+ ]09 三月 2013   -05°00' 41.8"  ) A: r& ^. ~8 O( A& F% ^
10 三月 2013   -05°30' 06.2"  7 d7 w( W% W3 z/ B
11 三月 2013   -05°58' 32.9"  
! E5 ]$ f) b. I& F' T12 三月 2013   -06°25' 37.8"  
% _, M2 d) `! Y13 三月 2013   -06°51' 01.6"  + ]/ R! @" v# ^
14 三月 2013   -07°14' 29.1"  
6 \1 t! T; h3 c9 h# \+ l15 三月 2013   -07°35' 49.3"  8 y* S3 O; l' s
16 三月 2013   -07°54' 54.2"  
* B5 D0 i5 t  S9 C+ u+ g17 三月 2013   -08°11' 39.1"  / X% Y# P2 g3 Y6 S+ y
18 三月 2013   -08°26' 01.3"  
3 v9 Z7 U' w; {4 x- A( c! j19 三月 2013   -08°38' 00.1"  4 N  t9 a* J( Q; P7 E( o9 E
20 三月 2013   -08°47' 36.2"  " J) k! r7 Z  M2 W4 \' a, K
21 三月 2013   -08°54' 51.5"  
% Q; t* a; S6 {+ c) G, Y8 v# N; P' q& M& e22 三月 2013   -08°59' 48.5"  2 Q$ `; u3 L0 U3 ]: Z
23 三月 2013   -09°02' 30.3"  
& Y% K$ y5 ?3 v5 M% F24 三月 2013   -09°03' 00.3"  " p: L# b3 {& }. \/ R
25 三月 2013   -09°01' 22.3"  ! Q8 E8 d/ b6 M! a% O
26 三月 2013   -08°57' 39.8"  / i1 H' @! d) C7 N$ d0 ~2 _) ^
27 三月 2013   -08°51' 56.7"  
6 Y/ j" Y& ]0 B! I$ S28 三月 2013   -08°44' 16.7"  # W! C$ A  Y4 t
29 三月 2013   -08°34' 43.3"  
, p  v4 O6 m) u: K4 ]+ `4 ~30 三月 2013   -08°23' 20.1"
' s9 |( S+ c9 h8 p$ x" z- @# f# z/ M' ~
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。* c, Y. d2 K0 C7 X, x
! u3 U0 r! `! a/ N
[ 本帖最后由 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 | 只看该作者
0 h& c- u$ P  P+ l: w- |
水星
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 | 只看该作者
编写指标用 的数据,见附件+ d5 r1 L  T5 f

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
- l) A  j( c# b. _" w8 P0 N* e' R+ [1 p' w; h9 q
cc:=數據;
8 n' g4 a) u, C$ D8 q3 ]1 occsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
! T5 V$ U: t, |2 ^! zvertline(ccsh),colorred;  {high}
  T3 N1 T% F+ d/ O+ ], Q& ZccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);3 w& H( X; l% g3 p3 K2 [
vertline(ccsL),colorgreen; {low}+ O( Q7 y1 z' E) w

* _- L% X& D5 S" w1 j[ 本帖最后由 静芸 于 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 发表
/ _! u" r7 p) S* e, w& n8 H( f请问静芸  能改成飞狐公式么?
+ @; L* \6 i5 n. ^) E

3 J- b3 X, S% r+ L这是飞狐公式, E# E, t9 X  |3 i, [& q4 e
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 + y& d* [# W! {9 [
再请问 怎么读写呢?俺不会
* a( W/ S) V0 q' r
8 ]* o( l5 A  A0 S0 {
,这有些麻烦啊!
, g6 Y6 q7 w0 W- l7 M* N+ I你把星相数据存在目录C:\Da.txt5 w# J/ Y- p' `8 W& z
档名是Da.txt$ H5 X% M$ J9 m5 H- _
如果存在别的目录,D:\hhh\Da.txt) B' E# ^6 u* q+ @; f: p* u
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
* e; h' i+ N' j# @; X) p, D- G下面是飞狐公式,我也未试过,你自行试试吧9 K0 W* B' E& q4 C; o5 l

( ]- c6 P( N: @7 m- O6 vFoxDE:=DATE; FoxTE:=TIME;
1 |, i6 H6 v/ v5 h/ [5 b) `9 NMyData:=C*0;
- D9 ?- n6 \. Z5 T7 \<%$ W# |* n, W( y; y
MyData =FFL.VarData("MyData")! a: u" I0 w2 Q" H$ e/ k
FoxDE =FFL.VarData("FoxDE")
" ]6 T0 {, ^' @# w3 P) WFoxTE =FFL.VarData("FoxTE")
- X2 q# }$ Z, q- q+ R% SSet fs =CreateObject("Scripting.FileSystemObject")) Z& a) p% E0 ~4 s$ A5 e
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)- \7 `' ], y# k# Z
MyTxt = wrkfs.ReadLine/ s" K% p! ^- K; D9 o1 ^8 w" S
wrkfs.close8 P1 ^4 u  V; Q" L$ h
TxtStr=MyTxt
7 e5 z& t+ g% OTxtAry = Split(TxtStr, ",", -1, 1)
$ I; m/ r! O6 t* V, z" y  CGetDE=CLNG(TxtAry(0))9 B: w( a5 t5 [$ a' E. k
GetTE=CLNG(TxtAry(1))9 V& V. C- S: I+ y0 v8 {$ M: r7 n
GetVV=CSNG(TxtAry(2))6 M" e! x( k7 |" \! C7 N7 g
for i=0 to ubound(MyData)1 M9 g. Q2 T4 @! t
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then* z# p4 \. A& g- k) L- Z
MyData(i)=GetVV
, L2 k7 o, B9 H. W# d9 Y. @! pend if
9 `2 ?$ r7 ~  E5 A6 c" W7 n9 d: e- i% @. Snext0 H, c& T% I5 u0 C
FFL.VarData("MyData")=MyData: Y. Z0 l+ g/ [
%>
) D* h" N9 x9 P3 k# S" A9 j3 R8 `2 _1 A8 N
cc:=MyData;% m6 \( Z4 V) U1 V
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);2 B6 I( B: T+ i# w* U6 a  j. A
vertline(ccsh),colorred;  {high}% s* J% d: N2 ?: r: r! L
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
' K) x. o+ j3 y; u0 \' ivertline(ccsL),colorgreen; {low}
4 G/ i5 S- R, B3 t! S0 M  |
& v8 W) }; j. L* f8 m[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
) l. r, C; w  G4 m+ z: H
8 u/ e( X+ w( }7 Y+ B0 U% i3 u6 {我刚试一下。。。出现错误。。。静云帮忙看看。。。
- X4 i0 `  O8 {+ O等我发图
* g( P1 C# ]6 g. w2 K
; z9 o8 w% ?6 t: F+ d2 H
5 C- p; T/ D( K; f[ 本帖最后由 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 发表 , _; L% }$ }4 @2 T2 x3 C0 D; A
太好了。我试试。。。万分感谢
! h! Y6 h/ S) J9 J0 x7 m4 X
% P' {9 x7 F* O  q我刚试一下。。。出现错误。。。静云帮忙看看。。。! G, c0 m! L7 `& a: ?# m* V
等我发图$ P# F" v: j" I# V! k3 Z. x
110666

% G7 p- Z2 M/ e: s2 ?8 Y% S8 W! C0 A* H& B8 B8 U$ y/ o6 f1 Q
再试, 这读数据公式不是我编的6 ~6 X8 `4 `# @" Q$ R; P
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
( d* h  p7 y& b3 k" M3 g3 y) K
) p: `; w! q4 H8 K* l1 s' ?; t! K" d1 J4 i, M
/ P; R- j& y# x7 J  h. k, M
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
& P) G- l& }. O0 U' X1 l
9 f4 Z0 Q( A0 _( c8 Q; a  F
还是不行。。。能通过测试,但一运行就出现这个错误:0 J9 d" j7 D, V7 S/ D( _
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 2 V% ^  C$ x3 _
110668
; [+ x1 H+ N' I% Z
) N3 I* _4 F4 {! H还是不行。。。能通过测试,但一运行就出现这个错误:. c3 n4 \. B/ D8 S/ d  X
见图。。。
* Z$ X* @3 a+ [0 J. _' V' ~+ g

1 n/ L4 ]8 E2 ^/ W7 _6 O* E& G6 m可能是数据檔的问题
0 f; ?; ?! v7 j( `1 m+ e* z数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
. X7 J2 L6 l9 p: S3 {原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
1 B0 `5 \* D2 s9 _3 w直接程序计算declination值数据然后显示6 _" ?8 \3 F& m) [

4 @4 s$ u+ A4 J: v/ _# C* K* e! L9 L; @! j6 o

* ], \) V3 P6 @[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

8 G; ~% x" [! p" \, ]. f( D6 _* a) K" I! ~, D( [
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
$ ]+ g* d7 g1 n5 L! t: K1 `我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
6 B! m) S+ F) B4 W1 T请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
* L# i8 R) g6 {$ H我是不是用错了? 有其他办法吗?

; O# ]& ?1 C( J7 t. b( s
/ A! @  A8 Z1 K你好, 向下
' [" K4 N# N7 S& b& A$ l6 R7 }2 M- {2 Ivertline(cross(0,cc)),coloryellow;
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表 5 o, o7 c) W$ Y. O1 U
! f# W" ^4 y1 x( Q5 h

  b" ?# }* y0 C8 I你好, 向下' l/ P5 U" c3 h+ M9 J6 m- m
vertline(cross(0,cc)),coloryellow;

7 k( j4 A- b/ p5 M
4 @3 o5 K" T2 x% Y7 s谢谢,可以了。
/ b5 W0 T! n% }) R7 y
9 k8 ?: @+ [3 g
原帖由 kaiser88 于 2013-12-18 19:34 发表
3 |' O7 R$ B- H7 F! E# ehe110 请问你公式怎么做的 我的也一样报错

" N/ x# ~+ B$ J3 X' f
  h6 m& F2 U5 S我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。* K7 Z- }0 g' F7 h
. q8 c& \+ }" ?7 S( B3 S
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-20 21:08 , Processed in 0.229145 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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