阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
, Q% k- p, k" n, [4 l  o" i
0 u/ j) t8 r& m9 l2 |

$ L( k$ U- c) _) b' `! F8 o6 F9 o8 J2 D+ I" A& T
/ W% _. w. D; |6 H1 Z9 d0 E
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
# o" C; l9 X0 X0 m% I( v, [. P2 w. _* _6 q/ d+ i! `2 U

5 N8 O! P4 {( d! L2 Z7 C! m1 S) e' U7 l6 z1 k
1.根据给定的数值,画出这样的曲线
! x' b# b* Q. h- X) h2.分别在曲线的每个拐点出画一竖线- U4 Q. J9 ]" ~1 F( a
3.在零值画一竖线
6 h# Y& t- x  F( T; J, S4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。
% p* O# k. X: l' \/ i% d% B! p5 m. c; H+ N, @6 n0 i
; q9 f) }. c: n$ W4 B+ P9 c
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
8 I3 |0 C3 y/ [! E1 F1 T2 n% Y9 ?2 `% X7 c( c2 U$ ^
数据样本:从星相软件导出的:
  s0 ~1 N0 F; X# A# E+ J0 B' y% z; q( v9 G
01 一月 2013   -24°14' 58.7"  ; \7 m: b( x2 _  P. S7 `
02 一月 2013   -24°20' 05.2"  
1 @3 S$ `  N0 C' T03 一月 2013   -24°23' 54.3"  & F3 q0 k5 z$ c7 `6 |; r1 z; _. p
04 一月 2013   -24°26' 24.8"  ' U3 ^/ D* h- ?+ \4 @) D! Z. ?
05 一月 2013   -24°27' 35.6"  
- }& ?3 L2 \% Q) W3 {9 y06 一月 2013   -24°27' 25.5"  % R( W: X. o( ?# m% c
07 一月 2013   -24°25' 53.3"  & y) [* Y! [2 H0 Q
08 一月 2013   -24°22' 58.2"  
: T3 n. V' S  g* Y09 一月 2013   -24°18' 39.1"  ( Z" Z8 j! S5 q, O, ]! t6 R$ I
10 一月 2013   -24°12' 55.1"  
" a7 k2 X" W" Q2 O1 {) t6 j11 一月 2013   -24°05' 45.2"  
1 G7 F1 k+ n6 z  Z: P12 一月 2013   -23°57' 08.7"  
, X/ ^% }$ y: _, W" H( ?13 一月 2013   -23°47' 04.8"  
4 a: u4 m8 N# l; f5 t14 一月 2013   -23°35' 32.6"  6 r6 }; m+ \6 i/ c
15 一月 2013   -23°22' 31.5"  ; T2 y3 [+ z0 O2 M; |. z
16 一月 2013   -23°08' 00.8"  
0 O- e! B% @- B( s# R17 一月 2013   -22°51' 59.9"    h6 H) F) d* a3 r  z" G$ W! j
18 一月 2013   -22°34' 28.2"  1 X* q. e& y- V: H; H& j
19 一月 2013   -22°15' 25.2"  0 _8 b( b6 ^6 K8 K# w' @: ~
20 一月 2013   -21°54' 50.7"  ; K' s  a$ [; Q0 w- N& K
21 一月 2013   -21°32' 44.2"  
& I! b6 B; z2 n: R( p  E; X22 一月 2013   -21°09' 05.7"  9 p- f3 ]7 C% v7 A
23 一月 2013   -20°43' 55.0"  % Y6 p4 Q9 P) s! W
24 一月 2013   -20°17' 12.3"  
% W& O( o* Q' }/ S3 m9 E- V- \25 一月 2013   -19°48' 57.7"  / L5 G: k* c& _/ S- o* ^- N
26 一月 2013   -19°19' 11.9"  ( H# ^/ J- v& X( Y; G& y
27 一月 2013   -18°47' 55.5"  6 U# s) z. @  `9 [3 z% R7 J
28 一月 2013   -18°15' 09.5"  
7 t, u' A$ G- X% P29 一月 2013   -17°40' 55.3"  
+ ?; S9 R: e) h6 v7 x( h9 d30 一月 2013   -17°05' 14.7"  
& I: Q, p) m4 U. R% B, U31 一月 2013   -16°28' 09.9"  
* w8 C4 k1 S1 B/ p" z- B9 J3 g( \01 二月 2013   -15°49' 43.8"  + ?! K0 I  \- ]' `& Q( w- h
02 二月 2013   -15°09' 59.8"  . i8 r+ {9 S- m& z' F8 o  v
03 二月 2013   -14°29' 02.5"  3 G- k, G: [8 w
04 二月 2013   -13°46' 56.8"  # U  B) V% X, I' J6 [2 Z
05 二月 2013   -13°03' 49.3"  9 M5 l; i9 |& I) G9 ~5 y) W, _
06 二月 2013   -12°19' 47.2"  
' m1 E, j! ~, K* ^$ R7 j3 n7 }07 二月 2013   -11°34' 59.6"  
/ [5 [% ^" f* q" ?% B- T08 二月 2013   -10°49' 36.8"  & ~5 \& L9 }- p
09 二月 2013   -10°03' 50.6"  : l6 G9 N0 p/ U! O6 |; @4 H
10 二月 2013   -09°17' 54.8"  8 P7 A1 ?! o+ u( ?
11 二月 2013   -08°32' 04.9"  . M" d6 e8 v- @! z, I$ G* v1 a
12 二月 2013   -07°46' 38.1"  ) A5 N0 e3 A( C! Y2 E
13 二月 2013   -07°01' 53.6"  5 j% L& X" a  W& }
14 二月 2013   -06°18' 12.3"  
) C, _, B5 |) Y: k) w. N15 二月 2013   -05°35' 56.2"  
3 l* H' l) g1 K0 j  G0 o6 P16 二月 2013   -04°55' 29.1"  3 W; D$ o1 a; w  ~
17 二月 2013   -04°17' 15.1"  
) |$ J9 O: @: z( I' E18 二月 2013   -03°41' 39.2"  * G: f7 ~, R1 Q8 X
19 二月 2013   -03°09' 06.0"  
  X# l# F& a& R# r' U20 二月 2013   -02°39' 59.5"  
8 D' P- _  f* _( ?, @; k2 g% I$ L. c3 w21 二月 2013   -02°14' 42.3"  8 d* U( L( {! Y% [& C
22 二月 2013   -01°53' 35.0"  
- S4 V) ?( r7 t23 二月 2013   -01°36' 55.5"  
, @6 ?9 E6 a( P24 二月 2013   -01°24' 58.1"  
2 ~( u( \$ `9 B/ a( X% B& i25 二月 2013   -01°17' 52.7"  6 U4 k2 S( k7 f) W1 g+ B
26 二月 2013   -01°15' 44.0"  ) r/ ^/ `9 [& z) w  U) a3 w
27 二月 2013   -01°18' 30.8"  
# d) T) X/ a7 |28 二月 2013   -01°26' 05.5"  2 B5 {) J9 S9 X, u* j
01 三月 2013   -01°38' 13.7"  ) `& y0 L8 A- i5 D  S! ~4 R
02 三月 2013   -01°54' 34.4"  
! ]; m/ ?% N4 J/ |% C. S/ L03 三月 2013   -02°14' 40.4"  2 B/ p3 h& n$ `: m5 |* C0 n. u. u4 G
04 三月 2013   -02°37' 59.2"  : v% ]; s/ C' |" g
05 三月 2013   -03°03' 54.3"  
/ }0 f! r+ Z, d2 {/ G. _' T06 三月 2013   -03°31' 47.0"  
) D2 J. W3 B2 ?07 三月 2013   -04°00' 57.8"  
* {5 H7 c- {; K, o08 三月 2013   -04°30' 48.1"  8 [+ r3 Y; ]/ f/ v3 `
09 三月 2013   -05°00' 41.8"  / ^+ B& E/ \: a
10 三月 2013   -05°30' 06.2"  
; I, Q+ e/ I7 E8 T3 P$ o11 三月 2013   -05°58' 32.9"  7 U' F  t& h9 q9 y; S
12 三月 2013   -06°25' 37.8"  # O& v! ~- G  d8 v. u% V! t4 Z5 [+ o
13 三月 2013   -06°51' 01.6"  
; n. z2 ^: q8 ~14 三月 2013   -07°14' 29.1"  
5 s% @- B7 z8 b0 f6 r, R, _& ~# S15 三月 2013   -07°35' 49.3"  $ I0 \+ T. f* y3 ]4 p. ~5 R+ a" M' V6 n
16 三月 2013   -07°54' 54.2"  7 [6 q" @* v/ D+ S5 N! D1 o5 {
17 三月 2013   -08°11' 39.1"  
1 ^' a2 P8 I* G' U8 J! y18 三月 2013   -08°26' 01.3"  
6 g" S' m& A/ U  r19 三月 2013   -08°38' 00.1"  6 J7 z; ]$ }/ D$ N
20 三月 2013   -08°47' 36.2"  + G: v$ T( W1 Z6 G8 Y/ _8 ]  S
21 三月 2013   -08°54' 51.5"  
6 R( r( g$ _. R$ q22 三月 2013   -08°59' 48.5"  2 N: R1 G* W1 l# h0 J
23 三月 2013   -09°02' 30.3"  : B. Q2 h8 J3 t, ~3 z. O
24 三月 2013   -09°03' 00.3"  8 O$ D6 w6 ?& g+ L8 q) Q) L
25 三月 2013   -09°01' 22.3"  
# o3 M/ L& J2 v. f1 J26 三月 2013   -08°57' 39.8"  
* _% A0 T% \$ q9 m27 三月 2013   -08°51' 56.7"  
0 z! y( A7 d$ C1 @$ D- ?$ i# F28 三月 2013   -08°44' 16.7"  
8 ?- W6 x: m. Y* b& m; [29 三月 2013   -08°34' 43.3"  
3 U2 a8 m  d8 W' M, o$ f5 S+ G# v30 三月 2013   -08°23' 20.1"
( t8 E/ m/ p7 ~/ {1 v
! R( k5 `# @  K& h/ f. v# @这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
4 L( L* r; L: d6 E+ _
, ^( w5 z$ O% q+ F" A[ 本帖最后由 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 | 只看该作者

3 J3 i% K, n+ g& a6 h( Y
水星
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 | 只看该作者
编写指标用 的数据,见附件
: O7 D  a' ]% Y$ e/ [( l

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
( W3 d/ J: n0 \5 f. X8 D+ r) }' R7 b. O2 E* h" x' q2 I9 ?% G: \5 S
cc:=數據;4 g3 ]9 L0 ^5 k# U
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
/ }9 E3 Z. X; L( R9 mvertline(ccsh),colorred;  {high}- G- D$ s$ W: A. I- `' ?
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);$ e  \/ z( n! f8 i* N: r
vertline(ccsL),colorgreen; {low}
' f5 I2 {8 Q" @- h: O( g5 J
) o7 F4 `: y4 g. E1 M[ 本帖最后由 静芸 于 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 发表
) I0 ~6 x" `: a+ [5 @9 C请问静芸  能改成飞狐公式么?
" z. l8 G! p& a2 l8 M; P. Q- f2 Q' ]
# n/ f/ u. F, h) I
这是飞狐公式1 O1 ~; v% ^4 K0 S4 p2 h9 k' }# h8 q6 J
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
& T/ m7 F# j4 k& n再请问 怎么读写呢?俺不会

' q8 e3 t2 L8 }7 {9 {+ U
$ f$ Q  P6 O' K1 {,这有些麻烦啊!5 o2 T8 z' F! w! W
你把星相数据存在目录C:\Da.txt
2 B- d5 ~8 s9 B1 B% K档名是Da.txt
5 ], i" _0 ?! N如果存在别的目录,D:\hhh\Da.txt
" C+ v+ S7 _& T( C; t& v那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
- _: z. S3 s% i9 d6 A  m4 X下面是飞狐公式,我也未试过,你自行试试吧
* |7 _1 U" \# D5 K3 u. E; C
! R# p. a6 k, E. J& j' K% Q4 eFoxDE:=DATE; FoxTE:=TIME;
) f. q  j5 o% zMyData:=C*0;2 R3 q9 q+ q9 u* d5 ?/ d
<%
/ D4 b' _* q/ ?MyData =FFL.VarData("MyData")4 O' y+ V0 s, C: p# [
FoxDE =FFL.VarData("FoxDE")* t! U/ [3 A$ D  ?# _8 R
FoxTE =FFL.VarData("FoxTE")
" I+ R, C+ |  x4 \. rSet fs =CreateObject("Scripting.FileSystemObject")
  E; ^$ f# p7 o+ ]- }- fSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
' ?: Q, [4 X, l1 Q4 J+ P, I) QMyTxt = wrkfs.ReadLine% h/ T9 G! s/ u' h0 ~/ T
wrkfs.close
! ^: C4 Z1 [& J0 m* V/ u: i4 FTxtStr=MyTxt- z& o0 u6 p! K4 w3 j
TxtAry = Split(TxtStr, ",", -1, 1)
1 K* e" W& P4 u. E0 tGetDE=CLNG(TxtAry(0))7 u8 D+ S/ o4 J2 C; ]
GetTE=CLNG(TxtAry(1))
9 f& m8 D/ n2 \+ XGetVV=CSNG(TxtAry(2))# {0 N5 l2 \1 ^9 V' B: ?- }0 p2 A
for i=0 to ubound(MyData)9 `6 ]& V  C( X* r7 m1 j
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then3 Q) c6 k7 t$ l4 L" s9 X" M4 q/ u
MyData(i)=GetVV
  n8 R1 N3 ~: @% [+ _end if$ J, Y7 J5 \' I: v7 _- J
next
# f2 M8 H( f! f$ g# rFFL.VarData("MyData")=MyData; t+ P* A# S4 G0 [8 m6 D1 `4 }5 N
%>2 P6 `3 h- M6 R2 k! B9 H+ x
7 P' d/ p7 U6 L  j
cc:=MyData;. V; B# v% I, j% y
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
- f4 O5 L+ _6 ?vertline(ccsh),colorred;  {high}+ z( _; Y$ v6 U1 {2 z
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
4 t$ T  V. H5 N! X3 qvertline(ccsL),colorgreen; {low}4 x1 K" ?  i) B

$ F1 p' }1 {2 @# ~, R1 U$ p) r+ f[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
( G6 F; |+ v& ~8 H3 s, R* X' O. C% Z# X6 J
我刚试一下。。。出现错误。。。静云帮忙看看。。。' U* w' G, g7 M  Z" o& L
等我发图% s: G( ~0 H1 A+ g: X: U) D
7 [; h% q- H+ D# y6 F, i

; A$ o, g. E0 t* G! l[ 本帖最后由 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 发表 6 Q3 v  ], L8 c
太好了。我试试。。。万分感谢8 V: r. R. P" t2 M
# }& ^6 h- F$ Z1 Z7 u
我刚试一下。。。出现错误。。。静云帮忙看看。。。
% v7 s& T. ^# C) K# E等我发图& M" [- Q1 ~8 [5 E9 G
110666
3 F- f7 a$ u( t8 X8 ^9 l% N

0 O5 h" y. S1 P7 x. p再试, 这读数据公式不是我编的
# K6 U* T% C1 }# ?. Tif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then+ U8 X+ j( I. q! s3 u5 E; G
0 N. p, b3 F5 n. b. D
6 V! U7 H* ^6 V, F, |: K2 [1 t

/ l7 n) z; |# l% w8 K- B0 \6 a[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

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

3 E3 i6 l% B+ c2 z0 D: P0 g+ T
# x' I/ S' U$ A: d/ [; G2 _  v还是不行。。。能通过测试,但一运行就出现这个错误:
( p# W" N% w0 A8 J& {2 Z% e  U) D/ D0 k见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 6 s# b' `  J9 T/ }1 d
110668
( o& k4 I7 |3 B
! z; p2 x& s8 V3 A还是不行。。。能通过测试,但一运行就出现这个错误:$ L. ?) D- M5 c; L! K9 d7 ^
见图。。。
0 d- o3 `" V9 l& K$ ]
8 N" L& ^' O, y
可能是数据檔的问题
$ n, _: \8 b+ k) e数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
, }6 a; {% ^9 w原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。/ ]  D' G4 h; g0 k" R
直接程序计算declination值数据然后显示
! ?# ?+ K$ ^4 R: P/ X& |
2 \( m3 G( Z; y. r$ Q7 A& Z! z# e  O7 s" }" _! F
) B: Q/ A3 i" J8 h: k+ q4 u& N
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者

% V! h3 F; a5 }1 D; N$ n/ ~( j' N
" A# B1 D0 L# I[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。, J1 e8 b$ L" t0 T$ }3 \
我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 2 x4 f. e% y! H& l
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。: K7 J( ~* L8 _; Q4 P
我是不是用错了? 有其他办法吗?
- |- N$ C0 A5 F

* r' \  ~/ \7 s你好, 向下2 H5 _. F( ^4 B: @' O: [
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 发表 % D5 O! N, Y8 x4 }
5 T6 i1 I9 F( Z4 q" g; E+ G
# m4 B5 f2 B) ^8 v1 _. i$ p
你好, 向下
2 d4 `: K' r" E9 y& V9 b$ h6 dvertline(cross(0,cc)),coloryellow;
7 j2 n7 m- g) ^4 D3 c: q1 y1 d

* i, y+ \) l: ~, r; v, w3 Y谢谢,可以了。
5 L1 X1 J1 C$ |" ~3 R" x6 I! `9 {' N9 i( \
原帖由 kaiser88 于 2013-12-18 19:34 发表 - |' R4 r" C, K( d5 L2 \( _
he110 请问你公式怎么做的 我的也一样报错

6 v3 f. T4 f. b1 o5 k  o
+ K  k  U. M8 x我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
7 L0 g6 j# w- k
, [% ~" d- ?9 w! R: g# R- fprayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-19 03:04 , Processed in 0.189238 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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