阳光飞狐

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友,共同实现一个星相的交易工具:
6 l3 Y, h+ v& m. J
" J5 _1 k3 s6 H* S  e
+ f' f/ n1 q) w

  A: L2 E# |/ X. m" K$ Z( G! R
/ V  [$ T* N' d$ p" @; ^9 i
这是一个星相交易工具,指示趋势的改变非常的准确。我想编写一个飞狐的指标(或者文华,博易指标都可以),实现几个目的6 A/ L; W5 j2 Y8 h/ c) S. \! j
  Z* Q$ o% X  R' n% r% _( r3 K
9 Y- `3 n0 H0 R7 B2 }% y

; n! V! u3 m+ Y1.根据给定的数值,画出这样的曲线; ?. T% D5 a$ z, q1 n
2.分别在曲线的每个拐点出画一竖线
' _5 P+ y4 V! x1 X5 O1 G+ v3.在零值画一竖线
6 M7 A* ^5 _* u* o- e4.把每一个波段四分,在一半、四分之一、四分之三的地方分别画一竖线。5 R8 P* |7 ~' h
$ g; t5 i3 W% D2 T8 J9 Y3 f- s4 ~
7 u# K" _, D1 B( d( R& A
5. 画曲线所有的数据,由使用者编辑输入。就是让这个曲线数据可以自由编辑。$ y4 G  p: X8 e1 ^5 h

- ?& S: ~' U3 M3 V. G0 m数据样本:从星相软件导出的:
* @, a0 d% A( h7 |% A# I1 ?7 [0 k. v3 h3 P% s0 v8 I5 {- `
01 一月 2013   -24°14' 58.7"  . R5 _1 M/ K+ j+ D4 H* H
02 一月 2013   -24°20' 05.2"  ; Z6 j: ?" ]) Z5 H0 r0 V$ C
03 一月 2013   -24°23' 54.3"  8 p' ]$ i; o4 C6 q- r
04 一月 2013   -24°26' 24.8"  , e( ]$ p# [; ?* n+ S1 q0 N6 u3 a: `
05 一月 2013   -24°27' 35.6"  8 K. P9 M  G& L0 c
06 一月 2013   -24°27' 25.5"  ( T' E7 v! R+ f7 v
07 一月 2013   -24°25' 53.3"  0 I2 F0 T- c' u3 b* J: D
08 一月 2013   -24°22' 58.2"  : I& G2 O; F+ O" j" ?
09 一月 2013   -24°18' 39.1"  / Q$ _) `' f1 a
10 一月 2013   -24°12' 55.1"  
+ [1 ~4 U# Z% r! Q. w! l11 一月 2013   -24°05' 45.2"  
7 y& _# Y: D. G$ n5 g12 一月 2013   -23°57' 08.7"  # }, `: ^& Q4 e
13 一月 2013   -23°47' 04.8"  " L6 ?, h) R: o! k. K" Q9 k
14 一月 2013   -23°35' 32.6"  
$ a! P  L/ }  d$ o15 一月 2013   -23°22' 31.5"  
) g. G" K# ^" g6 [, B% j- S16 一月 2013   -23°08' 00.8"  
4 Z/ u3 q; M8 H' U7 K% e4 A17 一月 2013   -22°51' 59.9"  
' P" m- F* P3 F# v2 ?18 一月 2013   -22°34' 28.2"  
: [1 |/ g  A- n) j1 m19 一月 2013   -22°15' 25.2"  
( D9 Y; G; B' D& C2 F20 一月 2013   -21°54' 50.7"  
- V( L0 M# |7 S- M21 一月 2013   -21°32' 44.2"  " M, {2 O7 X" s0 h+ b0 v
22 一月 2013   -21°09' 05.7"  
2 h1 S( C9 T' J) q3 @23 一月 2013   -20°43' 55.0"  
, z1 J+ K1 n+ ]/ t# G24 一月 2013   -20°17' 12.3"  
8 `( x1 H; v0 V, v  F7 V9 Q25 一月 2013   -19°48' 57.7"  8 s, ?! H: `+ Q# ^$ c
26 一月 2013   -19°19' 11.9"  1 A) Q+ T2 }2 c. Y/ w
27 一月 2013   -18°47' 55.5"  
0 j, l& L7 p- k9 J- E% c28 一月 2013   -18°15' 09.5"  2 C3 P; w% k9 K* c, h
29 一月 2013   -17°40' 55.3"  1 j- @8 [- e/ D+ G
30 一月 2013   -17°05' 14.7"  ( F5 e; y  N9 n' D
31 一月 2013   -16°28' 09.9"  
! d  b: s0 H# o9 C8 H8 j01 二月 2013   -15°49' 43.8"  $ u4 m# H" U" z6 [0 b( {' |
02 二月 2013   -15°09' 59.8"  2 |) e& n, f8 i1 E7 B
03 二月 2013   -14°29' 02.5"  & u# V% z% i, Q/ d! z8 M7 X& e, R  `  W
04 二月 2013   -13°46' 56.8"  ) E3 ~9 |. e, g- Q; x
05 二月 2013   -13°03' 49.3"  
4 ]1 W3 T  S" j7 a' h6 K/ q06 二月 2013   -12°19' 47.2"  , ?6 ]) a. A2 r6 s6 N0 C" n8 D
07 二月 2013   -11°34' 59.6"  
- {0 G' @5 b6 g' o$ Y1 i$ W, c08 二月 2013   -10°49' 36.8"  / m' a1 Z; B+ V) j% ^& `7 \
09 二月 2013   -10°03' 50.6"  
4 J( |( g2 l( _8 a" W10 二月 2013   -09°17' 54.8"  ' s& r  }6 Y0 r! o& A8 w
11 二月 2013   -08°32' 04.9"  
+ I8 E8 [+ B+ c. h  P. x12 二月 2013   -07°46' 38.1"  * t2 h" V# J: N+ m1 {/ \
13 二月 2013   -07°01' 53.6"  & i: Z( }/ _; J1 R
14 二月 2013   -06°18' 12.3"  
* E; w, n4 I0 V15 二月 2013   -05°35' 56.2"  
0 V; [/ Y' r5 t; B' N4 j16 二月 2013   -04°55' 29.1"  ' V0 t9 Y9 _3 D* u2 P! O2 ]. C& B
17 二月 2013   -04°17' 15.1"  3 p. ~+ s, E7 O9 }) p& t
18 二月 2013   -03°41' 39.2"  
7 O3 ~) o* j; j1 {. u19 二月 2013   -03°09' 06.0"  
9 @0 X. q- i  _6 p: B9 Z6 ^20 二月 2013   -02°39' 59.5"  
2 l3 j" Q/ L! u! B21 二月 2013   -02°14' 42.3"  5 S( R+ i8 c. |& O* o# k
22 二月 2013   -01°53' 35.0"  6 t6 {& ?- S! r' g" ~. n+ ?
23 二月 2013   -01°36' 55.5"  8 D9 \7 Q  _% u9 t
24 二月 2013   -01°24' 58.1"  4 B, r# ]. x: E% J% T
25 二月 2013   -01°17' 52.7"  
& J$ a8 \; i6 L2 l7 u" Q26 二月 2013   -01°15' 44.0"  
4 H& P; S. I. B27 二月 2013   -01°18' 30.8"  7 b# i! U6 G7 G; D
28 二月 2013   -01°26' 05.5"  
/ ]; N# O! Z' y1 k' Z01 三月 2013   -01°38' 13.7"  / V( K. q* I7 N" I1 b  Y2 V+ }* Q! U6 \
02 三月 2013   -01°54' 34.4"  
) K: l- D3 ?- d: [5 I. ~03 三月 2013   -02°14' 40.4"  / k# \& E* h  B' ?5 D$ @
04 三月 2013   -02°37' 59.2"  
2 w; \" o1 V# m3 y1 i8 n05 三月 2013   -03°03' 54.3"  
: N: }% Z5 L. w" i4 z06 三月 2013   -03°31' 47.0"  $ L  m! w" J, u4 i/ F6 K7 _
07 三月 2013   -04°00' 57.8"  
7 W( D% Y8 M' L3 v08 三月 2013   -04°30' 48.1"  
$ x- R6 o& e5 o) Q% |+ q: W8 `09 三月 2013   -05°00' 41.8"  
2 x9 h7 t8 ?6 X5 ?10 三月 2013   -05°30' 06.2"  ' W% j: `& t4 p1 B0 V+ Y/ O) |# k
11 三月 2013   -05°58' 32.9"  
$ W% j3 h& V" x6 C# @% v2 Q12 三月 2013   -06°25' 37.8"  
( @6 M5 D6 s7 m$ L13 三月 2013   -06°51' 01.6"  
5 F+ |  s- |# b* S" N+ H$ H14 三月 2013   -07°14' 29.1"  
! N; u0 ?' R, h( G* Q15 三月 2013   -07°35' 49.3"  ' r! r0 w& W3 h/ Q5 N+ K
16 三月 2013   -07°54' 54.2"  
- T' M% [" j$ n% k$ J# O( d( ^0 k6 K9 N17 三月 2013   -08°11' 39.1"  ) L: q& k2 }8 Y' t; `# z
18 三月 2013   -08°26' 01.3"  
- b; T, k7 I5 O3 A  l& G19 三月 2013   -08°38' 00.1"  
! w/ `  i# y, k7 d4 J20 三月 2013   -08°47' 36.2"  
/ y* A2 f  H  @$ F% o21 三月 2013   -08°54' 51.5"  9 y& ?' {/ v4 }
22 三月 2013   -08°59' 48.5"  
6 V6 S. e6 P3 |1 y2 m6 |/ v23 三月 2013   -09°02' 30.3"  
0 M2 l, B1 w! o" t  Z24 三月 2013   -09°03' 00.3"  
( z' ?1 E, Z; i0 R/ I25 三月 2013   -09°01' 22.3"  
' g8 a5 y1 p4 H! m' h26 三月 2013   -08°57' 39.8"  
6 K+ n6 u6 n$ L# Q27 三月 2013   -08°51' 56.7"  
# P$ q! I, p2 D- S" r7 ]28 三月 2013   -08°44' 16.7"  
) [3 `4 {8 A+ H7 O5 J29 三月 2013   -08°34' 43.3"  " Z8 p. m# \3 m" r2 D% o) [3 }8 d
30 三月 2013   -08°23' 20.1"& _8 ?1 |7 N3 i% _! J+ Y

4 U, c9 v$ R' H# I& f* f+ _这个是水星的declination值,外软有这个指标,但没有我要的竖线,尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
3 t% h7 ]) \- ?% p5 _. {8 B- F9 U9 x% w, 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 | 只看该作者

9 N1 U7 m2 U: J( `
水星
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 | 只看该作者
编写指标用 的数据,见附件
. w. u* Z) X2 [& ?

本帖子中包含更多资源

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

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+ {  J) n4 @! r; O2 |- O5 n
1 b7 E8 f) {# p/ A- B
cc:=數據;3 x7 A# e* u% |
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);1 _; w( d" C9 M/ q, C) U% T
vertline(ccsh),colorred;  {high}
) u, r0 J+ s0 k, N1 X& h1 QccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);# T* H' X7 |- ~! f
vertline(ccsL),colorgreen; {low}
& s& Q( N0 O2 }/ }1 D9 K4 i2 K- A7 c) j5 D
[ 本帖最后由 静芸 于 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 发表
! R0 y" O% [8 ~* @' J请问静芸  能改成飞狐公式么?
$ V7 g1 A$ V! u# p1 a6 B: m1 s
$ y- J  _& Y3 U: _! B- H0 T3 [
这是飞狐公式
6 |# ]7 ^8 i6 |' A第一列的"数据"要用读进来的星象数据取代
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢?俺不会
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 2 t% I1 c' h2 n& R3 B' Q" \
再请问 怎么读写呢?俺不会

# h8 M2 e: F8 h9 @
3 Y) r7 A& ~' m( U,这有些麻烦啊!( s  A' ^/ B* ?" ^- R1 n- @! K
你把星相数据存在目录C:\Da.txt3 }8 h; }! A: X' p7 F3 n  h/ f
档名是Da.txt
6 ]9 S, ?! h$ L7 x% c* u1 R如果存在别的目录,D:\hhh\Da.txt9 p6 w) |! W; j+ L+ M9 S$ t
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt# s  z2 C) ]0 U
下面是飞狐公式,我也未试过,你自行试试吧/ X, A/ Y8 [, V- `

8 w* F  v5 o4 ~! B$ y( X0 ^9 ?FoxDE:=DATE; FoxTE:=TIME;* I8 D: U8 f! D- U6 u/ P4 M
MyData:=C*0;
$ F: k4 `' w2 {4 }/ N6 k<%5 |( ^2 _( {2 _" x4 W% {
MyData =FFL.VarData("MyData")! X0 e  |% b2 w: U
FoxDE =FFL.VarData("FoxDE")
9 T3 t# M9 f* W! l0 [: DFoxTE =FFL.VarData("FoxTE")
; s/ m( B9 g3 F: y9 ?  ISet fs =CreateObject("Scripting.FileSystemObject")' p: v+ ]; r6 e
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
# g" N2 I7 T4 Y$ N; j1 U3 t) r7 Y$ pMyTxt = wrkfs.ReadLine5 W3 A+ d$ ~3 n. f
wrkfs.close
* v  {7 Q" M7 J  yTxtStr=MyTxt* f) j  x8 g% D, a1 |$ i
TxtAry = Split(TxtStr, ",", -1, 1)- z! P7 g5 V) n) _8 Y
GetDE=CLNG(TxtAry(0))
9 p6 D0 b2 x; {GetTE=CLNG(TxtAry(1))3 L* q$ V0 R, `- h8 V
GetVV=CSNG(TxtAry(2))
' g7 e$ p; A9 y6 cfor i=0 to ubound(MyData)/ Z+ H3 S6 e7 [2 u0 g* |
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then* a, r7 Q, B; L+ M, k
MyData(i)=GetVV
3 c# N6 {) @- a9 xend if7 r5 ~2 a) s3 q9 t2 Z
next) s/ a7 G- W4 b3 u7 h3 ?
FFL.VarData("MyData")=MyData
* v& U! O* E0 r& C% T5 Q( X%>* |5 U' o  x& n5 ]

7 L8 ^& t7 D. v* n; V" D
cc:=MyData;7 o8 @8 _9 h( G9 Y( P
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
& M' @. E  M5 d; r. Dvertline(ccsh),colorred;  {high}
$ b3 Y* g0 |$ B* V9 b# Z# Z( L( KccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);6 B1 v0 x' \6 Y, ?
vertline(ccsL),colorgreen; {low}
3 J6 G& a8 y* r9 z  @6 K. E0 y" x3 k" Z3 o6 U* b, H
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
14#
发表于 2013-12-17 13:07:10 | 只看该作者
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢/ E5 m# n& \) u% ]3 U
2 v! H3 Z3 Y8 x: P( a' }, X
我刚试一下。。。出现错误。。。静云帮忙看看。。。8 @, ^% r* H% J1 i! {8 H
等我发图
* y9 u, T" N9 m; S8 C7 `" @' a; U
# ]4 N& _3 P7 @! i2 K# F
+ _4 q% h9 |. g1 q/ q) |[ 本帖最后由 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 发表
% w* w& D# I$ `! N& e+ N! M) I7 z太好了。我试试。。。万分感谢3 a2 w# e+ E% ?# C0 g

, O3 t  n: |4 M我刚试一下。。。出现错误。。。静云帮忙看看。。。
) C  G4 e- n+ w" b/ Q4 H等我发图
/ P' [) |) p' X8 K  W3 l* Z" E110666
  S3 f  h  \. g

; y$ K# m( z/ W( [: x再试, 这读数据公式不是我编的
1 {. l) s. Z- ?9 D4 v# eif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
% D4 N' m/ ?& ~& t4 p
" C% @. q5 E: A9 f, J% d  a8 V: i3 @) Q" \

& o2 }7 D# N. D6 O- {) ]' ~[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
0 C# I) j% n; Z0 ^  u
2 o  W/ g) D& g. @* G
还是不行。。。能通过测试,但一运行就出现这个错误:
/ v- D6 |4 }8 a) h见图。。。

本帖子中包含更多资源

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

x
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
6 W1 n( Q2 N8 S& ~3 E110668* H3 e3 P' E8 K% o/ G( ^2 L
0 A, T! X) j% T/ i6 T' i
还是不行。。。能通过测试,但一运行就出现这个错误:9 n$ V! }  q  B
见图。。。
0 E/ a/ ~: z% ?

6 \. V" n9 M9 k' x可能是数据檔的问题; T. K4 r! ~9 L+ X2 Q" @. P
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
' s: B7 v7 p; |" k: h; j, i原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的,理解了。一样感谢。。
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
- u3 d- f. `, Q4 g直接程序计算declination值数据然后显示
: c5 u0 o7 c- o. O9 _! @7 q4 m
# S" `) T4 H- ~& n! N8 i0 q/ _  h1 D; F8 I% v6 d6 i+ }
# I" o" Q$ P" [+ K; S1 g# M
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
23#
发表于 2013-12-18 17:02:04 | 只看该作者
7 s! W* |0 T" |: j

6 A, q- {( B* T* T7 ?' ?3 O[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
( G# {5 Q, W. W5 g/ q我是不是用错了? 有其他办法吗?
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
& T( a1 A7 D4 ?请问静芸,穿越0线我用的这句:vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示,但向下穿越不显示。
4 L# k$ Z# @4 O- p/ z我是不是用错了? 有其他办法吗?

( \- t3 B2 `) T8 g' E& I6 `7 _% o* y2 ], f9 j9 y3 G
你好, 向下0 W& P  ^& V4 e( A6 l# S
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 发表
" A* z# c0 |: p3 h9 A; O7 \9 [( W( ^. h7 d; t0 U6 q/ M
; j" H# `$ {3 \) F
你好, 向下; |" \2 I/ |) R. Y  c; N( D
vertline(cross(0,cc)),coloryellow;

! ^. ]- `: i$ L( b3 r7 L& k# p* _# p( O- Q' Z, [
谢谢,可以了。: s/ R. }1 P$ T. i* M" F; u+ W% P

4 d3 ]. m7 h  Z9 J8 [! k+ ~
原帖由 kaiser88 于 2013-12-18 19:34 发表
- o. m( ~. X' L; A7 k& s! \he110 请问你公式怎么做的 我的也一样报错

  `4 N# w4 t+ b+ C1 V) G% V# A. d
我使用了静芸的公式;但数据部分不是读文件,程序自动计算的。
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兄的这么平滑。。。
! a8 `; J( h! D& c  M2 W) x+ p# ]7 i" P  y' J
prayer,可以通过瑞士星历表sweph获得数据,你自己baidu下
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-9-4 04:01 , Processed in 0.329296 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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