阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
4 @) p* w, \# B0 j, ~+ y* ^0 b
- k3 M% \- D! P2 J! X. L! d
: e$ y9 E9 }3 h8 _
( h& R6 Q0 `, ?( m& J0 p2 h

3 b1 o7 L- E: y% U" h/ x" P7 j2 t这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
/ [6 B7 f4 Y% \" y" F
* e% L0 ]9 a# z1 Q8 n  m

8 \) x: P; a$ Q8 H3 Q5 ]9 Y7 R' |4 a/ P+ ~! {+ `
1.根据给定的数值,画出这样的曲线! W* f. p9 Z- ?0 e' b% q: [" Y
2.分别在曲线的每个拐点出画一竖线  m8 \4 b8 _# M& H0 W" N& a0 d7 O
3.在零值画一竖线
$ [0 ~! b# ]+ x4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。
$ p* l& U2 v! w1 y1 Q- k
. Q, \$ _: k6 d2 S
/ |, I/ ?0 J5 }) Z' n4 k
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。3 R0 M7 c2 y0 X$ K. L! q1 I
/ P5 f& I% W1 C9 \- b
数据样本:从星相软件导出的:- Y6 y3 q3 ~0 E$ j7 O( \" x/ x. w

; S! G1 v* r9 C. o! G01 一月 2013   -24°14' 58.7"  " w3 l9 ~7 c2 @% w
02 一月 2013   -24°20' 05.2"  " v5 f& P9 ^7 t7 O- n
03 一月 2013   -24°23' 54.3"  ' Z" y0 a9 n0 x0 q1 E: n
04 一月 2013   -24°26' 24.8"  ' W  e; n0 @2 X  a$ e+ @
05 一月 2013   -24°27' 35.6"  
. M' [3 h4 Q" [, _, D7 {5 l06 一月 2013   -24°27' 25.5"  0 v/ t6 j3 y% K8 F2 V
07 一月 2013   -24°25' 53.3"  . ~; B% }; n. m/ I+ Z; }; _
08 一月 2013   -24°22' 58.2"  
1 t, U. ]( c. b$ {09 一月 2013   -24°18' 39.1"  7 L4 T6 i& [: E: {; t! ^
10 一月 2013   -24°12' 55.1"  
0 {+ _2 y2 P3 T: Z' j" H11 一月 2013   -24°05' 45.2"  % _9 j7 k# j2 x3 z8 y2 a; d4 _
12 一月 2013   -23°57' 08.7"  7 c1 X0 _2 h, ]/ R& u+ U7 J& ~
13 一月 2013   -23°47' 04.8"  
3 w; i% x. [, [+ e  e, Y14 一月 2013   -23°35' 32.6"  
* U/ D/ K& z' M$ b15 一月 2013   -23°22' 31.5"  
0 h& B. A$ k' ?& s16 一月 2013   -23°08' 00.8"  % N8 t; E( C. T, [( v1 H* V
17 一月 2013   -22°51' 59.9"  - R( |/ R& t% }/ Q* K
18 一月 2013   -22°34' 28.2"  9 U8 M6 o& J' S& ]
19 一月 2013   -22°15' 25.2"  / [  x) {" [$ S( M$ R* s  D4 J
20 一月 2013   -21°54' 50.7"  
1 c$ ?7 g5 _8 G$ b! m8 [% f21 一月 2013   -21°32' 44.2"  : e- X" o" \1 q3 t' o/ c: k
22 一月 2013   -21°09' 05.7"    }0 i: A9 D5 R* Z/ ^% ~% }% `
23 一月 2013   -20°43' 55.0"  
3 R7 O5 l( G# P: G24 一月 2013   -20°17' 12.3"  9 j  d5 U& v9 J& Z  p" d
25 一月 2013   -19°48' 57.7"  ' l3 u5 ]6 k0 p5 c. M' `/ o3 c9 E
26 一月 2013   -19°19' 11.9"  
$ `" b2 n2 s. w3 `# T27 一月 2013   -18°47' 55.5"  
& a4 G3 b+ @8 @28 一月 2013   -18°15' 09.5"  
* f1 p7 Z3 c" o, T( j% N- D9 ^29 一月 2013   -17°40' 55.3"  ) B0 }2 O" D' T- O+ q2 {% c5 S
30 一月 2013   -17°05' 14.7"  
! c! j0 m  P3 D31 一月 2013   -16°28' 09.9"  
5 O$ R6 I, y$ k1 s9 R  m01 二月 2013   -15°49' 43.8"  
4 ?! e; y( ?" o  f$ l3 W02 二月 2013   -15°09' 59.8"  # D' a% m  z8 ~0 q" z% V
03 二月 2013   -14°29' 02.5"  & a! @" F# L) E3 M' Y: @
04 二月 2013   -13°46' 56.8"  
3 |4 `: X1 h/ I0 q. D05 二月 2013   -13°03' 49.3"  * Q4 h' ^/ D. H) ?3 E1 E. z/ n+ D" g
06 二月 2013   -12°19' 47.2"  9 d7 v8 t6 }& o6 l2 u
07 二月 2013   -11°34' 59.6"  " d3 k7 q! n& H
08 二月 2013   -10°49' 36.8"  ! j: I1 A% {5 S+ S6 u2 t0 w. r
09 二月 2013   -10°03' 50.6"  
" f, N0 ~. R# {, h5 _10 二月 2013   -09°17' 54.8"  
' Z$ u* x0 Q+ A0 H5 H5 w+ t- C11 二月 2013   -08°32' 04.9"  
9 W+ G/ k! F9 U' j12 二月 2013   -07°46' 38.1"    A' ?* \' K5 D
13 二月 2013   -07°01' 53.6"  ; Z0 ]* g5 P4 d/ q6 D
14 二月 2013   -06°18' 12.3"    I* q, _0 O$ [8 ^; Y+ c9 v+ P1 j
15 二月 2013   -05°35' 56.2"  9 i6 e3 \# z1 n9 t" X1 |1 N2 a) Q
16 二月 2013   -04°55' 29.1"  
, q# y& D3 \& g/ Q" m( H+ C17 二月 2013   -04°17' 15.1"  / v! K8 y+ _" f& t
18 二月 2013   -03°41' 39.2"  
- B% Y! I4 z/ L, h: f  B4 P2 C19 二月 2013   -03°09' 06.0"  0 N0 J% S( T. ?/ M
20 二月 2013   -02°39' 59.5"  8 j) o9 z+ _+ [
21 二月 2013   -02°14' 42.3"  9 R/ ?2 N1 V8 s& \7 h
22 二月 2013   -01°53' 35.0"  & p! ^+ J0 k' G
23 二月 2013   -01°36' 55.5"  
8 p1 ~) I1 }# f. L24 二月 2013   -01°24' 58.1"  , n% @5 ]1 w+ S/ g: F( c3 E
25 二月 2013   -01°17' 52.7"  
3 x8 u+ j$ {# h4 X  ^26 二月 2013   -01°15' 44.0"  
6 r# M2 K2 P7 R  x4 J1 p0 _9 E' n27 二月 2013   -01°18' 30.8"  * S- s8 O" t7 z
28 二月 2013   -01°26' 05.5"  
2 O; Q0 v4 a5 F! A& {" n. T01 三月 2013   -01°38' 13.7"  
- v4 K$ [" H! e( W$ `02 三月 2013   -01°54' 34.4"  
" @. {3 P1 a! J  W03 三月 2013   -02°14' 40.4"  
8 U. ~. n; t; j/ E7 U4 u7 s  U, \04 三月 2013   -02°37' 59.2"  
; I0 u; S5 H; h! B0 }, m- g- W7 Y05 三月 2013   -03°03' 54.3"  
( {0 a2 h1 i) Q% {1 A; V06 三月 2013   -03°31' 47.0"  7 }4 J' N; ]5 i1 S! [, {
07 三月 2013   -04°00' 57.8"  
, H6 z& u+ S% y* q08 三月 2013   -04°30' 48.1"  ! Z1 P( g% A( Q. T% h  i
09 三月 2013   -05°00' 41.8"  ' w, P  W. |0 u9 s8 k7 Z
10 三月 2013   -05°30' 06.2"    @* w+ |5 B. I! U# O
11 三月 2013   -05°58' 32.9"  7 E. g; g9 S, l1 T
12 三月 2013   -06°25' 37.8"  5 q1 x, A. |* w: [
13 三月 2013   -06°51' 01.6"  
( g9 `. Y9 t" c/ n. ~8 U14 三月 2013   -07°14' 29.1"  
, C' ^( @1 A) ]/ e+ ~15 三月 2013   -07°35' 49.3"  
* P9 w# |: ]% z2 e8 [# `! U16 三月 2013   -07°54' 54.2"  ( B& y7 X, i% c: n& F
17 三月 2013   -08°11' 39.1"  
2 ?7 Y$ i7 Y0 N, @9 I18 三月 2013   -08°26' 01.3"  : n6 Z6 ?* J$ g9 h5 i) [
19 三月 2013   -08°38' 00.1"  0 y! V7 Z- j. L+ O1 @. T0 ], R
20 三月 2013   -08°47' 36.2"  
  D) r" f* N1 s; V* K* A! [- F8 W21 三月 2013   -08°54' 51.5"  - b6 Y$ W% E8 P/ A+ g
22 三月 2013   -08°59' 48.5"  6 n! f/ J2 n* H$ R& H2 t5 v
23 三月 2013   -09°02' 30.3"  
9 P* S# V" r3 }, n! Q24 三月 2013   -09°03' 00.3"  
# H# G, \2 C9 T25 三月 2013   -09°01' 22.3"  
9 I* N0 @5 s- h6 f. F  W% t! W26 三月 2013   -08°57' 39.8"  
' s( {9 o/ O' J6 F$ D- T0 ^) A27 三月 2013   -08°51' 56.7"  
2 Y9 Z, y" x+ ?* ~28 三月 2013   -08°44' 16.7"  ( x6 T8 W; v8 E' D: Z
29 三月 2013   -08°34' 43.3"  
6 |, S2 X9 Z% b# b30 三月 2013   -08°23' 20.1"5 b) z+ D' z0 C% r
" Y6 `/ {% o$ r2 g
这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
8 E  u- d$ \2 @1 l1 w5 Q3 l
9 [, ]: _& U. S: g( N/ a' {! O1 N, r[ 本帖最后由 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 U# N; ?: |% ]$ V6 g) G
水星
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 | 只看该作者
编写指标用 的数据,见附件
4 {# K6 _2 W+ }: 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 | 只看该作者
飛狐9 j- a+ u  y+ k. i! M- R
, w. ?! Q  u; \5 ^# c
cc:=數據;
3 I/ d: i$ X- _  h0 U# tccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);6 |& {6 t8 O: d- [2 y2 Z# ^! p
vertline(ccsh),colorred;  {high}
! n  z$ P+ h6 D, i* Y# |  {) XccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);" ^! k) S1 J. v5 C
vertline(ccsL),colorgreen; {low}
$ O0 H" e* l! ~5 c5 Z$ Z
, O7 z" b9 Y! ]6 k7 Y[ 本帖最后由 静芸 于 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 发表 ' M6 Z# `# E& G3 R  J2 c0 ~8 S
请问静芸  能改成飞狐公式么?

  B- k. y* N! A. T- f8 B, P* f  T( d6 S- X' R4 }
这是飞狐公式
2 \9 X3 l6 C& ]- `2 \- [第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 5 q" _$ |1 X0 ^
再请问 怎么读写呢?俺不会

! E/ K* D6 v; ]9 j; u7 ~) s, A& W8 G
* a5 V6 R% @1 x,这有些麻烦啊!
' W5 ^, d6 \. b! [* h+ z你把星相数据存在目录C:\Da.txt% V/ m9 l) R0 m7 {) C$ N& |9 X) n
档名是Da.txt
/ h2 j7 I5 l0 E如果存在别的目录,D:\hhh\Da.txt* J  C# {8 Z; y3 x; b
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
1 P. U; F/ m# B- l/ q- U- R下面是飞狐公式,我也未试过,你自行试试吧
# k  I, x- ^4 g) Z9 F  F8 Q
- S: I9 M& j+ o* o5 A5 IFoxDE:=DATE; FoxTE:=TIME;2 C9 H9 K9 w$ T) l* Q. \1 {6 l
MyData:=C*0;; K& K7 D% V/ P  t
<%
9 h, U% P. K1 J; _$ [MyData =FFL.VarData("MyData")
( j5 ~0 K) C- c) k4 \FoxDE =FFL.VarData("FoxDE")
- \2 d# d) b: p/ z# }; N; uFoxTE =FFL.VarData("FoxTE")
" w; }; P) V# `% ?6 Q1 k& aSet fs =CreateObject("Scripting.FileSystemObject")9 U  L% p- h( M" }5 F% h5 ~
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)# C& D- Q. m& J4 @
MyTxt = wrkfs.ReadLine
% m7 I' p$ C! b: J" @* gwrkfs.close$ g  s" `7 H' U' ?4 \$ F
TxtStr=MyTxt
, U' o# U& ?3 h" P, oTxtAry = Split(TxtStr, ",", -1, 1)
# F! x. I7 H: l% z4 bGetDE=CLNG(TxtAry(0))
( X& m' F9 V% t% h4 i2 wGetTE=CLNG(TxtAry(1)). Y5 ?) p  x; W8 ?
GetVV=CSNG(TxtAry(2))& m% X  u+ n' c, x, L$ ~" Z8 ~
for i=0 to ubound(MyData)
0 \9 _$ Z8 _( z: b4 b" K% z3 wif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
/ z  j% c6 r3 l2 d' b7 BMyData(i)=GetVV
  L# G( r3 |7 Y0 H& \, ^2 Oend if% W* O( f  T! m8 h% l0 e8 g
next
% F# I5 K5 M# B" n3 d- r4 U0 V! oFFL.VarData("MyData")=MyData- g! G* I4 c# t5 A+ E7 w! \6 A$ G
%>
/ k! P& ~/ v- k8 ]. x; N1 T0 ^: Q& O
* E4 ?: k. w) [
cc:=MyData;
1 A0 Z. a5 I3 o( I3 K- ~# kccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);. |: f8 ~( q+ o/ O& ~" S
vertline(ccsh),colorred;  {high}
$ C) O' `; G9 KccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
7 L$ D, l; q6 z. g8 L' I! evertline(ccsL),colorgreen; {low}
3 V! A4 n- \$ @  `" L. J9 H3 q
6 @6 b/ N  _* Q6 u0 U# U$ t[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
( y' l! Z& j- x/ a9 `6 l/ R3 }5 U# a4 W- _
我刚试一下。。。出现错误。。。静云帮忙看看。。。
5 F: w9 [% R* t; L( u等我发图
, X  V: J2 J$ A8 b; g' s% i
1 [; z( f0 E* @1 t, L1 U  H! z) N/ o% k  [2 f) S) d0 [
[ 本帖最后由 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 发表
+ Z' m3 G" ~! Y) S太好了。我试试。。。万分感谢, f- Y- |3 Y/ k7 A" C+ D4 S

$ M2 o% c) X8 r1 r* e) L: ~我刚试一下。。。出现错误。。。静云帮忙看看。。。7 G: P6 o& j* {! C0 e9 m
等我发图
+ Q# h3 q4 {( r110666
7 G6 `8 ?. R8 n

4 Q+ j$ Z+ _' X5 ?: Y6 [再试, 这读数据公式不是我编的+ O( G" B+ Y) x; ]& x
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
! B' R. G2 a8 L" R
: l: C" H3 s' D( ^& W3 J0 o) @1 u2 x0 B$ |* S( x
! c' V5 T1 s3 T* @% n& M7 l! T, E
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
6 `* ~2 P8 x' W; o
! E  P3 H: q/ B' z$ V0 h
还是不行。。。能通过测试,但一运行就出现这个错误:
/ G' ]3 h4 g. U见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 # U4 [/ A+ x$ v- Z
110668! [3 k: Z8 M8 m4 [. b+ e
+ ?) `6 S$ o' j3 U
还是不行。。。能通过测试,但一运行就出现这个错误:+ V1 R1 _& B; g; I  m
见图。。。

3 D( B+ f* ^" e, o$ S4 b5 s: ~9 G; x4 y
可能是数据檔的问题, T9 u" `2 V( J7 ]) \2 O+ h* o) P
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
) I5 }% s' g) n1 z" ^0 U/ y; e原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。6 I1 k  n. |1 L3 F) e% a, l
直接程序计算declination值数据然后显示
1 V+ C% |* {9 @: A9 u1 x6 ^7 b7 \+ C; ^& p# Q- I' N1 P* ]$ N" j
7 a3 J( j- m# S$ Q: F6 v

+ T  n1 A" j; m' T! {+ S[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者
1 B1 o3 C( A  {+ U- V
7 l* R4 J9 X% ?
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
5 f( c8 t7 P5 f& N/ F我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 + I" Z; f. s( P9 f+ l
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。8 [4 T0 {/ O1 V% x3 g2 ?
我是不是用错了? 有其他办法吗?
1 j; h2 ]  j; y. j+ ^- X

5 g1 u% |& |% S1 \$ _1 T你好, 向下5 s& d! D0 ~, F+ [5 M; X
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 发表
; `5 Q+ H- @# t. X8 A0 ]7 ^1 w, z9 q1 h0 V% n7 N
% E' B- t$ K& w  y: ^# V& U4 N
你好, 向下# e6 D6 ], Z: \
vertline(cross(0,cc)),coloryellow;
# P, u5 Y% _) _9 n5 ]& p

* A7 a8 ~# m6 c2 z7 c) t  E4 i& g谢谢,可以了。
, X# }3 Z& `9 ]3 [- L9 R" k3 o, @7 I& p8 t4 _
原帖由 kaiser88 于 2013-12-18 19:34 发表
2 ~6 ^" m' ~7 K% }0 p5 zhe110 请问你公式怎么做的 我的也一样报错
  A5 ?& P; y/ U8 _+ U4 Y" n% S; m
- C+ o% ?( m4 Z2 ~; u. R3 }
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
5 B# K" c* L& x& k% p7 x' W1 ]$ E4 J2 `; O. |1 m; Y) d
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-19 02:41 , Processed in 0.326044 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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