阳光飞狐

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

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:+ \/ M% \' K( K/ P6 u6 c' k& K
8 u8 F; q! l5 T4 q4 |* S+ I1 V

. F" x1 `; }$ R. s) N6 n3 I+ B2 T: o# I2 `

6 G  A( G8 s7 N, E$ G这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
; h; R1 V# _7 [3 b
) M# f8 r* M/ V" ?7 x
" G( ]; @' s5 o$ ]0 n2 T6 n- L7 {
:  H; n  r9 k/ h( i4 l- f
1.根据给定的数值,画出这样的曲线+ ^2 g* H& f3 P- q0 U2 D
2.分别在曲线的每个拐点出画一竖线
( |2 x+ ~. a8 j3.在零值画一竖线
  ?+ H. Q- E' I4 V# o5 n; `" _4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。% i! n9 g" \$ s! i; C$ i

, {# @2 r' s$ t) H; f% \6 W; m

4 v$ J  z  E2 u4 P% O3 }5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。9 p# R5 `- j3 J3 z% {6 h
0 q: O/ G( A, M/ L1 e: H$ i
数据样本:从星相软件导出的:) I% o: `$ L+ p( Q: \2 C" j* c

2 T4 \4 J6 \" T+ d& p0 M; s. Y$ o01 一月 2013   -24°14' 58.7"  
9 V1 N6 a2 W, i0 A  E02 一月 2013   -24°20' 05.2"  % \  K( r& [. l' B7 y' @  x3 B7 a0 c
03 一月 2013   -24°23' 54.3"  ' c; R1 W+ p: ?
04 一月 2013   -24°26' 24.8"  
. M+ l; Q, E3 V+ o( ~05 一月 2013   -24°27' 35.6"  
6 ?! A! ?$ F1 V6 I! g06 一月 2013   -24°27' 25.5"  
# @6 N9 x( H+ M! h" @4 p07 一月 2013   -24°25' 53.3"  
# w6 U' K1 v) y, N- I8 Q1 M) g08 一月 2013   -24°22' 58.2"  ! z; T! y) f; w, h: W# P
09 一月 2013   -24°18' 39.1"  
. c2 j( |, {5 U6 J$ R10 一月 2013   -24°12' 55.1"  
. }& y3 j3 p/ i$ g. g3 v11 一月 2013   -24°05' 45.2"  
- e0 k  ~* u8 t% W) {- s12 一月 2013   -23°57' 08.7"  
+ r) o( A- p0 M: H  n8 `13 一月 2013   -23°47' 04.8"  
' i) r1 Y2 P9 U9 M+ F% P14 一月 2013   -23°35' 32.6"  % ]* A, e. ]) h! z; V" q$ e
15 一月 2013   -23°22' 31.5"  6 m' S6 d5 k( s4 p( W
16 一月 2013   -23°08' 00.8"  
# `) `0 o6 ~" h17 一月 2013   -22°51' 59.9"  $ Z" F  i$ `- _! t  |" `
18 一月 2013   -22°34' 28.2"  ; V2 V% N' l6 Q. d1 ?# P4 |
19 一月 2013   -22°15' 25.2"  ! O3 b" n: Y: N5 G$ z. b
20 一月 2013   -21°54' 50.7"  
) S- M% `" a  N+ {, G21 一月 2013   -21°32' 44.2"  : |) {8 D. z" `+ h3 v
22 一月 2013   -21°09' 05.7"  
! F% {7 A+ W+ N4 p23 一月 2013   -20°43' 55.0"  7 L; S. w" e9 t& l. r  @$ C
24 一月 2013   -20°17' 12.3"  
1 t$ A7 c6 p/ D/ H- K3 a9 {25 一月 2013   -19°48' 57.7"  ( t) p5 |2 [9 N! m  D" p
26 一月 2013   -19°19' 11.9"  
2 j) Y: t# q# P% M& j27 一月 2013   -18°47' 55.5"    N+ B" y& ?: I
28 一月 2013   -18°15' 09.5"    k, M' N3 a8 B. G: B
29 一月 2013   -17°40' 55.3"  ; v) S2 q# r# e, q( A. z/ r
30 一月 2013   -17°05' 14.7"  
+ W# d5 Z  r6 }) Z! O2 ]1 Y31 一月 2013   -16°28' 09.9"  " D# o9 I* w" S+ A
01 二月 2013   -15°49' 43.8"  $ K8 T- q! m6 a
02 二月 2013   -15°09' 59.8"  
8 T7 G% `$ B, e03 二月 2013   -14°29' 02.5"  
) Z  u7 K# B0 k. \6 W( }04 二月 2013   -13°46' 56.8"  3 B9 q& l. c1 q) v; [
05 二月 2013   -13°03' 49.3"  
! X& O  N% i2 s% j! A06 二月 2013   -12°19' 47.2"  ! I' S+ E9 `& P$ T8 i  j: Q
07 二月 2013   -11°34' 59.6"  5 W' _9 J& H5 |
08 二月 2013   -10°49' 36.8"  
( i% x# t9 \- Y( @09 二月 2013   -10°03' 50.6"  
+ K5 s* w2 [; e/ S# K* L10 二月 2013   -09°17' 54.8"  / A9 V! T# k1 e
11 二月 2013   -08°32' 04.9"    v# u6 u9 w( z  f
12 二月 2013   -07°46' 38.1"  
# R5 }+ L/ {& }: i  O" C13 二月 2013   -07°01' 53.6"  : h, P; e& @! r* X& i
14 二月 2013   -06°18' 12.3"  
: p; z+ [& D7 U" e, ?; Z15 二月 2013   -05°35' 56.2"  
( {, a, w; `' l16 二月 2013   -04°55' 29.1"  - ?% o% R( E' o4 P% D& Z
17 二月 2013   -04°17' 15.1"  ; \: ]  h+ @8 r, l
18 二月 2013   -03°41' 39.2"  
- f, W6 ]" t* N6 w! r: q- x3 @% C5 C19 二月 2013   -03°09' 06.0"  
, Y) m2 [) g$ q' ^20 二月 2013   -02°39' 59.5"  8 P7 B( i5 {8 b
21 二月 2013   -02°14' 42.3"  9 b4 \/ H! V0 m: S1 M; Y! k7 q6 a) O
22 二月 2013   -01°53' 35.0"  . |* @; v# \6 T) v0 h
23 二月 2013   -01°36' 55.5"  9 e. A: e/ {; I& V& m# L
24 二月 2013   -01°24' 58.1"  ) T3 Y" o- `. }# ?0 Q0 _0 S
25 二月 2013   -01°17' 52.7"  / X# v' X1 g( n) l
26 二月 2013   -01°15' 44.0"  
6 C0 }0 q; H$ ?8 b27 二月 2013   -01°18' 30.8"  
9 X5 \2 L8 |3 B$ z. r# \1 t3 ^28 二月 2013   -01°26' 05.5"  
8 B7 U2 }; y* e01 三月 2013   -01°38' 13.7"  * M# g4 V; O0 _  X" z% h7 M" s
02 三月 2013   -01°54' 34.4"  ! c1 |% P6 i6 E& p& U, l8 p/ O* A9 @
03 三月 2013   -02°14' 40.4"  ! b2 p" o, q+ E' R
04 三月 2013   -02°37' 59.2"  
) O" B3 S8 o4 `6 H1 [1 a8 I, M05 三月 2013   -03°03' 54.3"  $ e( A2 _, Z( Y& J! _
06 三月 2013   -03°31' 47.0"    P* n& `( a0 F4 y0 R! A. U& ]
07 三月 2013   -04°00' 57.8"  
; G* W; E, T6 V1 L, k: O) p08 三月 2013   -04°30' 48.1"  ' G* A0 U- F5 ^5 k2 |
09 三月 2013   -05°00' 41.8"  ! x0 U2 ?7 ~, Y' C
10 三月 2013   -05°30' 06.2"  
, o% L  J7 {, f5 b/ N+ ]11 三月 2013   -05°58' 32.9"  + }4 T6 P5 R; Y* X
12 三月 2013   -06°25' 37.8"  ) a. q4 k7 ~$ y- p% k
13 三月 2013   -06°51' 01.6"  $ }2 E( d% }  I7 j5 x3 ^
14 三月 2013   -07°14' 29.1"  6 c* @) R  Q1 O, {  _
15 三月 2013   -07°35' 49.3"  / t! x! b1 _9 S+ F  C8 g
16 三月 2013   -07°54' 54.2"  ; A" D! p8 n3 J; U% a
17 三月 2013   -08°11' 39.1"  
& G4 F7 ?5 x: B18 三月 2013   -08°26' 01.3"  5 g! e" ^* |$ C7 R8 W) _4 k
19 三月 2013   -08°38' 00.1"  
+ b2 d1 G5 D  l& B( Y$ w20 三月 2013   -08°47' 36.2"  
- P% ^! |! A9 c7 J' i21 三月 2013   -08°54' 51.5"  # T4 l( ~' ?2 s! N
22 三月 2013   -08°59' 48.5"  2 u1 z  ~2 {4 p4 n. R+ _
23 三月 2013   -09°02' 30.3"  6 R: Z8 C0 r+ z  i1 Z4 v$ M- j
24 三月 2013   -09°03' 00.3"  6 v: D. _) A% X) K6 n; \* B" D" l+ q% r
25 三月 2013   -09°01' 22.3"  
; {3 S7 I) ^$ ]2 w/ l5 L26 三月 2013   -08°57' 39.8"  5 F, |4 C' ~6 P3 y. Z) n$ N, E$ N
27 三月 2013   -08°51' 56.7"  
! i1 A2 G( g6 N1 K$ {9 p28 三月 2013   -08°44' 16.7"  
, H' X8 `- h2 x8 [1 E' T29 三月 2013   -08°34' 43.3"  
6 p' r1 {2 N$ b, C7 J+ r/ m30 三月 2013   -08°23' 20.1"" Y/ V+ s9 R+ `; |

7 ]9 R' |+ B. w' V- I  u) ?( m这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。! ^8 {8 ?& j! D
; U* y) Q$ q( N% X9 m; J$ l! ?( U
[ 本帖最后由 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 | 只看该作者

6 L1 s8 C: D7 X! T
水星
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 | 只看该作者
编写指标用 的数据,见附件
3 n: M/ o/ P- J# Y, w2 c

本帖子中包含更多资源

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

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 | 只看该作者
飛狐# d4 z: z9 a# l

6 E6 [0 D! C3 [4 U1 k% T, Tcc:=數據;6 C% I: h6 h7 P5 y5 |$ m: B
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
0 D3 q! |( `4 U4 _vertline(ccsh),colorred;  {high}& Z* o; q1 r9 e) `: `' b0 l; {
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
$ d7 e1 C* I1 Bvertline(ccsL),colorgreen; {low}
7 ?6 A( a& p# @( O6 g1 [7 K
$ c. V4 @+ X" ~" w& V" |[ 本帖最后由 静芸 于 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 发表 1 Q1 q, j) |3 L  V
请问静芸  能改成飞狐公式么?

( [, w% S7 ^, H( K) g3 S* c: `2 D& C2 j
这是飞狐公式
( Y2 K1 P% J+ _- [- A第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 ' C, F( t2 g* m
再请问 怎么读写呢?俺不会
8 I/ [) h; O$ N& i
. w0 _: z4 I3 J4 p
哈,这有些麻烦啊!8 W5 a2 P! p, J" C+ D9 W* ~# c
你把星相数据存在目录C:\Da.txt
; t- L, |8 T# r: Q' {档名是Da.txt% w$ E6 }* ^6 L; j$ b4 D9 j" B
如果存在别的目录,如D:\hhh\Da.txt# v7 {4 K. `6 X; w
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
* K* P  @: y  S/ q; f下面是飞狐公式,我也未试过,你自行试试吧
3 {5 f! ?2 ?0 C/ T( P # M9 E8 l) x$ I; |: q' e- V
FoxDE:=DATE; FoxTE:=TIME;
; q  o( |' x* a; LMyData:=C*0;
7 l. {" v4 B" l+ U1 ]5 o<%. w! h3 x: R; h4 F# I! a0 v& n
MyData =FFL.VarData("MyData")( w5 O- {5 K7 a  K
FoxDE =FFL.VarData("FoxDE")$ x- C6 S7 b1 H) U1 S
FoxTE =FFL.VarData("FoxTE")
% J  w3 _! T/ ]4 h1 u* r& `9 {. R% ^Set fs =CreateObject("Scripting.FileSystemObject")
+ q% g- [# I( [. cSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1), w5 f" N) c$ f7 t- l8 }
MyTxt = wrkfs.ReadLine. t: j/ o! E7 m* i: f) g- f
wrkfs.close# m8 j0 Y) Y4 L, N1 ?" H
TxtStr=MyTxt( t. S  j( n3 V1 ?( z# @# D
TxtAry = Split(TxtStr, ",", -1, 1)3 b9 W* i8 q. [  a- M; _+ J
GetDE=CLNG(TxtAry(0))
. N1 w- H( @/ g8 t/ m% CGetTE=CLNG(TxtAry(1))8 C! D# ~5 e& W( x
GetVV=CSNG(TxtAry(2))- R) `2 X/ T" d3 u
for i=0 to ubound(MyData)' ?$ P; Q6 {! a% `4 c( J) {: c
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then( {$ q' a% |* p& o$ \8 p
MyData(i)=GetVV' S6 B3 u8 a, e8 x5 x  \# @
end if
' \! }3 S9 E6 `' a! m2 e  ^next" @! L3 Q1 s: {
FFL.VarData("MyData")=MyData/ k" L; ]3 ?: Y( x- ]/ R
%>
1 l" `8 [5 ~# S1 Q, J7 J  [% ^2 ^, O9 {$ U6 @$ ~1 s& Z
cc:=MyData;
2 l5 d$ d0 v( Z( t5 ^: `1 _+ x& D) @ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
2 A0 w6 ^1 R* [: ~4 |+ {, vvertline(ccsh),colorred;  {high}
5 A. D" ~) r& v; n6 ZccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
+ }, n( n; ^* yvertline(ccsL),colorgreen; {low}
" e- v# f* U* [% t4 b
" ?! F0 i  Q/ R# g) W[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
4 @, d6 o5 }6 w5 y! r7 @
5 @6 M0 l& Y) p: F我刚试一下。。。出现错误。。。静云帮忙看看。。。' @$ Z7 [- k' |& `7 u( {5 ^7 i  q
等我发图
0 t- f, p( z: l% K( E3 e
: _# _+ T$ `( J1 t5 A' t$ R9 Y! }
  s  J: [8 A6 E" R6 `6 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 发表
3 _% j: z: S" [, K7 {' v/ z太好了。我试试。。。万分感谢
  n( e$ y  L4 D$ \9 M9 l* J: p+ Y8 R4 P' s6 l! U
我刚试一下。。。出现错误。。。静云帮忙看看。。。1 ]5 Q: ]; D8 ?7 ?$ g
等我发图, ]) b& ]5 o2 \9 k
110666

, r) G$ K4 f5 s
* R* ~; I; e5 S5 e8 k& O再试, 这读数据公式不是我编的: [! f' _: ]5 `, _2 V
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then, C$ N; j  L% v* f1 s; N  ~
6 v5 C3 r- h* t& g! i

+ e( ?( P% {9 H8 V: L+ X3 {: a% U0 h' R) ]' i7 g$ b& c% M
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者

* h$ V0 R3 O! @1 T) D2 n, e% \( B& A( b% y
还是不行。。。能通过测试,但一运行就出现这个错误:
) I% D* d, b3 C9 n见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 * h( B" O, G5 `3 n$ A4 g
110668* w2 F9 Q0 G* ]: L0 q

, R$ A; r) O+ C4 L. {还是不行。。。能通过测试,但一运行就出现这个错误:6 s  E' o* R# r8 \' _, D7 _( @5 v$ M
见图。。。

$ k6 L' r. v2 m3 X" J3 t. K
' y5 Q' j6 ~1 O4 y) @可能是数据檔的问题
& n  C+ L9 S" K, c2 M1 w# h! j2 g7 z5 U数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
- q9 y* g$ g5 h6 y5 O* R原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。( ~) D5 E7 K: k$ w0 h8 _4 R" A9 I
直接程序计算declination值数据然后显示
# ]6 d, s7 M( ]9 f
" S- R! e. W8 ]* p- w% v" L
8 y/ }& R/ e6 A% L  y$ {) m, c
* F) m4 K2 o5 M: Y; m) o[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

3 |' C' k" v9 k+ N; V" V1 W$ j6 u/ @! a  }- e& E, ~1 Y! f/ d
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。# P* e$ s" ]1 Y$ K$ ?& E; w
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 6 j$ O) e/ T2 \9 x# ]) M7 _
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。$ w% q9 `% M8 A) ?7 T! J; R
我是不是用错了? 有其他办法吗?
2 \, `/ ?" P# X* Z

9 u  g! B0 v/ Z: ~) R: A- m你好, 向下$ k: \+ m8 p! u* s# i
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 发表 ' X& U: Z  ?! N+ y  R3 ]

/ i0 ]: {" C$ H; I8 p! j
, l  L/ t% i9 q5 p( j你好, 向下
: f# t! ]; u' e/ Q" J& V+ d  overtline(cross(0,cc)),coloryellow;

' C8 ]$ z6 @/ i
  H; Y5 y( l4 O4 e谢谢,可以了。7 ^8 c: X' G- V3 Y( F1 \+ z: a

! q2 ?+ u! U# J# M! r
原帖由 kaiser88 于 2013-12-18 19:34 发表
' @* I5 u% d% i1 Che110 请问你公式怎么做的 我的也一样报错

  Z* q/ L( I, R$ M: g2 B, F! ?, a+ N( I
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
% a( L' l; h; m( [' {0 D
$ D! f! U0 D8 G( N  ]prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册

本版积分规则

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

GMT+8, 2026-10-12 09:07 , Processed in 0.161603 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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