阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:3 |$ M: s* P$ [9 p

7 K2 w# U+ K9 L% t5 r. M- A- J  a

2 W3 n( U8 O4 {7 j( R( ]0 y  x+ L9 l
0 E. \  P2 `$ K& j2 `, v0 c: i/ D
& D9 I) V, ^: D/ x# T! P2 D3 N# w
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的
0 H% k4 E# |% H8 v# h! \$ s; {* [# t4 M7 }! O& ]

, c; Z7 c2 r  ]( b% M+ b8 q  x, }5 p) h4 @: A+ H9 |6 a% G
1.根据给定的数值,画出这样的曲线
# n" c. ^6 x) F/ j5 M2.分别在曲线的每个拐点出画一竖线8 L4 G# S1 z% S
3.在零值画一竖线/ r7 t! C5 e$ y  |# _$ v" R
4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。! g" f5 s3 b6 h' q5 x
+ q# o  e0 r: i  s1 G
) M" Z& Q; |( }, H7 j5 D
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。
- [9 o* k  t. e7 h7 f6 H8 K
" y' ~* b+ m2 i5 B( k6 z% j# w数据样本:从星相软件导出的:4 v2 s; r1 b5 i
7 }' f9 D) R+ P
01 一月 2013   -24°14' 58.7"  / a8 K0 T5 v' o
02 一月 2013   -24°20' 05.2"  
! L! ?+ \4 k' L0 ?  ]% ]1 E5 P03 一月 2013   -24°23' 54.3"  
9 `% |) E2 X9 [9 x04 一月 2013   -24°26' 24.8"  
; Q1 d( `4 J* f, C# b; \; ~: p: w05 一月 2013   -24°27' 35.6"  , p7 G& f; D3 _+ n" \
06 一月 2013   -24°27' 25.5"  ) O  z8 b4 s1 a4 X8 `$ t. S
07 一月 2013   -24°25' 53.3"  2 z. M- W8 C1 Q8 k% O9 X
08 一月 2013   -24°22' 58.2"  
& j6 y+ V+ Y; }* u8 V09 一月 2013   -24°18' 39.1"  7 i" c- A* o) o
10 一月 2013   -24°12' 55.1"  
: }. P, p9 F* D3 K0 u( t11 一月 2013   -24°05' 45.2"  + C7 [! z2 r  y. j) N4 a' m
12 一月 2013   -23°57' 08.7"  # [/ H5 I4 t- \% z& Z
13 一月 2013   -23°47' 04.8"  4 H) |7 O0 S" _$ P7 H
14 一月 2013   -23°35' 32.6"  
$ L3 i3 B% `  p; l) |& q" m15 一月 2013   -23°22' 31.5"  
+ |: c& a% [0 P3 J  |. f9 i) v16 一月 2013   -23°08' 00.8"  
1 @0 t) m9 _3 [17 一月 2013   -22°51' 59.9"  9 k6 W; L! k1 w) k) ~* s  @
18 一月 2013   -22°34' 28.2"  " J3 \8 X( l/ Y, S  s  c; r
19 一月 2013   -22°15' 25.2"  - r9 ^8 Y. L- }
20 一月 2013   -21°54' 50.7"  
* ?0 J1 U- y2 @0 E8 k21 一月 2013   -21°32' 44.2"  
0 Z6 b& `$ k0 g) x22 一月 2013   -21°09' 05.7"  
& w' X( W" T# V6 \; h% Z23 一月 2013   -20°43' 55.0"  $ g2 p! }. l* ?9 z0 D+ r# l6 o+ W6 q6 J
24 一月 2013   -20°17' 12.3"  ' x" s, B" ?% `% @5 ^# m
25 一月 2013   -19°48' 57.7"  
5 b3 i  C& N2 R9 n5 C26 一月 2013   -19°19' 11.9"  
; i1 t" n4 g7 n# X8 O) O27 一月 2013   -18°47' 55.5"  
: [4 r' i" f$ {6 N8 a  B' G28 一月 2013   -18°15' 09.5"    |# `) o1 u' {, R9 S
29 一月 2013   -17°40' 55.3"  
$ o2 }2 b' |) J6 K4 a" c30 一月 2013   -17°05' 14.7"  3 S3 b+ [# g' P/ e3 x8 Q+ K8 u# E
31 一月 2013   -16°28' 09.9"  
7 s' F; S: g( x/ R" K3 v* C01 二月 2013   -15°49' 43.8"  6 c7 z3 ]# ^: a
02 二月 2013   -15°09' 59.8"  1 b; Y, B/ ^+ q9 |* s# c
03 二月 2013   -14°29' 02.5"  6 z5 c7 ]/ [- V, \( m2 w- A
04 二月 2013   -13°46' 56.8"  
+ W: E/ `( M6 ?9 `6 x; {: q, I5 y05 二月 2013   -13°03' 49.3"  
, d1 i9 u+ a* B' x  X% ~# F06 二月 2013   -12°19' 47.2"  
8 ?7 C& L+ I. s+ {3 ?( p2 _07 二月 2013   -11°34' 59.6"  + O3 R, i: w7 u8 f/ @1 o3 r7 t" [
08 二月 2013   -10°49' 36.8"  0 c' ?7 W& Y8 _" Z7 j! N
09 二月 2013   -10°03' 50.6"  
. V7 M. j" c2 W) I2 j5 _10 二月 2013   -09°17' 54.8"  " L' E7 M! k9 s
11 二月 2013   -08°32' 04.9"  # Z& t3 A; J2 [- X9 H# }) }
12 二月 2013   -07°46' 38.1"  
3 B! h7 z: y; F- ^13 二月 2013   -07°01' 53.6"  1 U: E3 l8 \: Q8 Z& N/ V' M
14 二月 2013   -06°18' 12.3"  
6 L6 L  X9 @8 C0 _' D5 M15 二月 2013   -05°35' 56.2"  
  c5 O# u( A+ v& A" I# a16 二月 2013   -04°55' 29.1"  
# k( V# }5 \$ n7 `17 二月 2013   -04°17' 15.1"  ' c+ S; t& H3 R" l8 }
18 二月 2013   -03°41' 39.2"  ( x9 f. |, q. m- m
19 二月 2013   -03°09' 06.0"  2 X; S) k9 e. I, ]9 Y% f7 }7 X
20 二月 2013   -02°39' 59.5"  : N; ^- z* ^1 p
21 二月 2013   -02°14' 42.3"  
' ?" c& K/ w( j( S2 B1 W! O22 二月 2013   -01°53' 35.0"  8 P1 \+ x+ o: i% Q
23 二月 2013   -01°36' 55.5"  
4 S1 l7 n' @! K, {6 P24 二月 2013   -01°24' 58.1"  
8 q5 \( Q, c: ^! }6 w25 二月 2013   -01°17' 52.7"  
. o; e6 }7 A% ?) D& Y/ L26 二月 2013   -01°15' 44.0"  
) T% Q* k. P$ H6 [* ]2 A  L27 二月 2013   -01°18' 30.8"  
: E9 {" u; O7 C/ a1 W28 二月 2013   -01°26' 05.5"  . n; S3 K; Q# y  a5 k
01 三月 2013   -01°38' 13.7"  
! @: b/ ^0 p' z6 O- u6 y' J7 m% R5 l- O02 三月 2013   -01°54' 34.4"  
* n! Y; s: d% Q2 ]% a, T0 j. P03 三月 2013   -02°14' 40.4"  3 h" H! A1 q9 H: _0 I  v& m
04 三月 2013   -02°37' 59.2"  , f0 P/ t# e! V" O) u" H- }6 P
05 三月 2013   -03°03' 54.3"  / u) o  K% w1 Z) [( z- Q
06 三月 2013   -03°31' 47.0"  1 w( T) W6 P. l2 U4 x& Z' t7 v
07 三月 2013   -04°00' 57.8"  9 t+ I( o7 j+ R; C6 e6 M, z. R* _# d
08 三月 2013   -04°30' 48.1"  ( _+ ]8 {- `8 e
09 三月 2013   -05°00' 41.8"  
9 d! i2 F- `% m0 P5 E! j" P10 三月 2013   -05°30' 06.2"  
) p" Y$ \0 H# C/ s5 ]- [11 三月 2013   -05°58' 32.9"  
# v8 p2 \, \' v+ o7 f12 三月 2013   -06°25' 37.8"  
* r3 \# Q  }6 b2 e9 J3 y13 三月 2013   -06°51' 01.6"  5 K+ l' n2 [7 r* G  R* l% [4 U
14 三月 2013   -07°14' 29.1"  : B9 D" z# n' I- `, P2 \
15 三月 2013   -07°35' 49.3"  
" i) s. }) }* {7 E7 b, I" U/ }1 k16 三月 2013   -07°54' 54.2"  ) [$ U' e9 V6 _, a  E
17 三月 2013   -08°11' 39.1"  1 E6 k9 ^& K8 L3 u+ m( O
18 三月 2013   -08°26' 01.3"  9 K6 Y) ^) Z2 R, t" w
19 三月 2013   -08°38' 00.1"  - ?% S6 L3 e8 ?( W+ g2 L: \0 D# Y
20 三月 2013   -08°47' 36.2"  ; x  M+ l# O! N" B8 d
21 三月 2013   -08°54' 51.5"  
6 D  c  R3 c" K& m* h22 三月 2013   -08°59' 48.5"  
* c4 ^$ `7 \* O. a23 三月 2013   -09°02' 30.3"  3 C% q4 O" Y2 K8 Q/ L: b9 G1 j* V2 Q  y
24 三月 2013   -09°03' 00.3"    o9 M6 j/ ?0 L/ O% u5 z
25 三月 2013   -09°01' 22.3"  
: J3 I( f5 c5 i26 三月 2013   -08°57' 39.8"  
8 ]6 i2 B. X$ \% v, p& G27 三月 2013   -08°51' 56.7"  
4 q3 n8 r. l8 {, z28 三月 2013   -08°44' 16.7"  6 h5 I3 X2 j6 Z+ C  ^+ l7 }4 j
29 三月 2013   -08°34' 43.3"  9 E; n) c6 B( Y6 {
30 三月 2013   -08°23' 20.1"
' x' Y! B7 r/ c0 g
! O+ ^) h3 k7 n8 g, w5 K5 z这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
5 _2 ^1 c9 q9 Z9 ?' W1 c+ O4 T# P7 h, }0 z; I0 \0 Y8 w
[ 本帖最后由 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 _9 k% m/ U
水星
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 | 只看该作者
编写指标用 的数据,见附件" a$ c5 N: e9 o9 W, D# g

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
4 j9 d( G' n2 G5 q) T- z! w9 P% C! c1 h0 C
cc:=數據;
( G7 ], E& z6 [- b' _ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);/ t' G2 S+ {  n7 j( z' A5 f
vertline(ccsh),colorred;  {high}: Z, L* `5 v4 v- k
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);, S9 D* _. V' j0 N
vertline(ccsL),colorgreen; {low}
: L5 F4 h- K! s( a, }; |" l- t$ D6 R2 O( F
[ 本帖最后由 静芸 于 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 发表 # x% o/ ^* j% r8 M8 j, b8 `
请问静芸  能改成飞狐公式么?

# i+ j' E0 x0 H( n: j
) g9 y, b! F$ X4 `9 b这是飞狐公式9 A+ ?# x) ^  v6 g3 }
第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
' q* m  s: e8 o: S再请问 怎么读写呢?俺不会
3 @7 N0 b8 x, C$ t

- T7 s8 |9 T/ s# a( i% s5 r,这有些麻烦啊!$ S& ~+ @6 }% i
你把星相数据存在目录C:\Da.txt
, d: _- D8 o, U' M0 G1 b% ]- K; P) Y档名是Da.txt
+ T7 I, C2 D% P* N; C7 o如果存在别的目录,D:\hhh\Da.txt
& H6 e; u1 o8 P/ M' g' h  ~那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
4 p9 P7 n4 \) y9 J: c下面是飞狐公式,我也未试过,你自行试试吧
& c3 e! V( I: C) d% z9 |" m6 f/ H 9 R/ p; }5 s* Y; d
FoxDE:=DATE; FoxTE:=TIME;
. ^: b+ R0 o$ s# I2 E& _) {MyData:=C*0;
1 S7 e* H% L6 ?" y! M# }<%
* m3 z% g+ e6 d- u) E1 \9 tMyData =FFL.VarData("MyData"), o" z0 k" V$ J& l- ]- G
FoxDE =FFL.VarData("FoxDE")
2 G+ X# y0 s8 a) s  `) AFoxTE =FFL.VarData("FoxTE")
( H: G  Z2 r/ m5 J7 I  O3 xSet fs =CreateObject("Scripting.FileSystemObject"), s2 o8 v! b$ O. [
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)+ m8 r6 e3 J7 r+ p
MyTxt = wrkfs.ReadLine
* P! B* Q4 f3 g! w( h) q4 Dwrkfs.close4 N0 X1 d' Q" O3 i6 w4 m" a2 T
TxtStr=MyTxt4 i* _: ^& Q4 i2 c, F5 ]
TxtAry = Split(TxtStr, ",", -1, 1)
! ~# R! @- r0 uGetDE=CLNG(TxtAry(0))# X+ _# y6 A. \3 j0 f
GetTE=CLNG(TxtAry(1))2 X# k3 b; u) {! I& g8 M9 B# A
GetVV=CSNG(TxtAry(2))& I1 y7 E5 H' u# d7 ^" g
for i=0 to ubound(MyData)/ k3 |* F) {1 M3 f. u5 @
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
0 W: [7 V* m) rMyData(i)=GetVV
9 P/ S; Q& u/ _1 r. uend if
" h2 W- N9 {- ?7 ?( rnext/ N- q$ Q8 ^1 M1 f/ |4 ~' W
FFL.VarData("MyData")=MyData
) j! K0 x. d- ^. s2 B%>( F/ T  e' T/ k, R! p
- b( b  |4 F+ }# z; H
cc:=MyData;
$ K" M5 T. r$ d+ z, m' h5 j' fccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);: i/ x7 E" Q" y. @4 @2 ?# p, v" t
vertline(ccsh),colorred;  {high}
$ p3 b8 ]! e9 o; J* ^# @7 FccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);, K1 O4 q/ X5 t/ u  t
vertline(ccsL),colorgreen; {low}
2 L- `  e; M- y- ?+ Z5 t" H% u# A( E" d
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
$ s0 U& R( d6 i& ~$ `4 n$ I/ ^: r. j1 H  e# {8 C+ z1 n
我刚试一下。。。出现错误。。。静云帮忙看看。。。
$ U5 p4 s% d& [  }7 H等我发图  V1 s6 S8 U, J6 c. q

# Y* V2 ]6 M; n4 Q& s7 q
6 }' i: H$ u4 A' V% q0 T. t2 G5 s[ 本帖最后由 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 发表
" E  H* {( S# H7 |太好了。我试试。。。万分感谢( m! f% J. V3 V

+ f9 A2 O, \$ \3 [% _5 i+ p2 E我刚试一下。。。出现错误。。。静云帮忙看看。。。
( M. i$ l+ N9 \# c' e" S等我发图
5 X* H6 X7 ^+ |' `) n% d110666

2 o! W* e% a- w- X- {* H( }- ]* e2 I1 Y0 _% l9 K; }
再试, 这读数据公式不是我编的
: B  f* g6 G0 Y) A, R6 C: R! a1 Jif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
& I4 k  ?$ ?3 r* g: K; e- h0 g* L4 y3 D
+ l1 a+ h  L4 X/ t1 a

$ S* v1 g& [( ^1 r[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
9 h5 z. \5 ^) B+ e; w  H( p

# ]9 }7 c9 z* r还是不行。。。能通过测试,但一运行就出现这个错误:) `# W1 V' ]. h/ P& X
见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 8 r$ x' @" B6 D0 x4 Q
110668
0 a  E1 j1 I3 m; F
/ i$ \7 Q, P2 n4 ^( {还是不行。。。能通过测试,但一运行就出现这个错误:
& K2 e0 R1 L3 C0 @! [# k8 o: N  q  G见图。。。
) e% U! \% t5 l6 d9 f  _. i* O
$ v# l  ?5 q; e2 r! g# C# U
可能是数据檔的问题
1 K, ?6 s- P- r. U6 Y数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行2 Q5 v5 A: Y( z! @
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
8 u3 z* e& e5 L8 B0 h  Q9 k% N直接程序计算declination值数据然后显示
& A3 r2 a& M4 O6 n& V
2 G& {" b* D/ n3 g% u7 W
  W8 u" E) P& R5 {! v1 E9 }- _/ K0 K. a) H; C- T, b
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者
5 S% f) z! p3 M$ P4 r
1 a. m+ p* q; x' _0 M
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
( T, w6 D. ?6 l) r2 l我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 $ r4 H5 ]0 b7 q7 u# K
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
# V' s% W" h  M1 F; i6 q; o% V我是不是用错了? 有其他办法吗?
( L2 H1 R' y: b4 @  @. I

, H$ S, f* U* y你好, 向下; C9 E4 _& G$ `% ]7 L
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 发表 6 r8 {$ B8 q+ Y" Q& F1 t

# {2 I+ I/ ~* q' j, ~: i
3 R0 _1 |/ [+ X1 e5 }! ]你好, 向下7 t, D2 X( Y$ S" t5 M
vertline(cross(0,cc)),coloryellow;

8 \4 F4 _& v2 [# k3 }: B0 P
& j6 a. f6 w$ r1 L谢谢,可以了。4 X, a( W  T. ~; S$ k
9 H' _, n  Y8 u
原帖由 kaiser88 于 2013-12-18 19:34 发表 5 ~6 `% e7 V& F6 N; O
he110 请问你公式怎么做的 我的也一样报错
6 r, n- b7 ]2 ^

) H+ |. z4 Y3 h& K9 q我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
2 ?$ Z3 L- E- @, e9 {' J- c' C/ s. D" s7 N$ F9 f
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-6-3 01:58 , Processed in 0.302871 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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