阳光飞狐
设为首页收藏本站
开启辅助访问 切换到宽版

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

【阳光飞狐__与财富同行】»社区 › ≡≡≡百家争鸣__点亮财富人生≡≡≡ › 『江恩理论交流』 › 共享一个星相交易工具，求助会编写指标的朋友
12下一页
返回列表 发新帖
查看: 5908|回复: 36
打印 上一主题 下一主题

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：9 X: c; N9 F" @5 S* C* @
9 y1 ]+ U+ T+ ]8 C) l: O$ N
% y" C5 b2 j/ G- L* n& a0 O
2 I2 I3 L, k* y/ {

1 b* P, q- b* d. c这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
) t0 B# u' U6 ?& h+ B
) J3 ^, h* g# Q1 |3 W+ Z+ f
) o% N0 ^4 j: N" ^; I' V3 }( u! D：
( q4 [+ _7 \# `7 [& |* h1.根据给定的数值，画出这样的曲线
8 B7 i! P2 A, |4 a1 v, m9 |& g2.分别在曲线的每个拐点出画一竖线8 {' h4 L8 g" L9 b# M
3.在零值画一竖线
( l3 }- c! B7 W$ y+ X5 R4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
7 Z/ K" A: v0 \  @, ~2 B5 x, I. T2 J! C- ?# Q
- }( s  a5 G9 t4 ^8 Z
5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。! F" }8 d0 E8 N6 Q, d: S
- _4 g: A, w' y4 @
数据样本：从星相软件导出的：
9 l4 I7 l* F& g8 M7 J' T) j$ J% L6 {0 e) h' E1 n1 O
01 一月 2013   -24°14' 58.7"  " x) m0 U% Q* a) L
02 一月 2013   -24°20' 05.2"  , Y& m: p3 I# j3 u- h, H# _* E) |% m
03 一月 2013   -24°23' 54.3"  . n, ^" G- ^0 @6 [' r
04 一月 2013   -24°26' 24.8"  
! y6 i! E* c, a/ d" \  Q1 d# D05 一月 2013   -24°27' 35.6"  
+ {  M( T& M  b4 O5 s5 m8 n06 一月 2013   -24°27' 25.5"  
! `3 C6 i. w! C+ k07 一月 2013   -24°25' 53.3"  . g: \2 x; _) V4 D- n$ s$ l) [8 N
08 一月 2013   -24°22' 58.2"  
9 {6 j4 Z; P- v: `) Q% E* y09 一月 2013   -24°18' 39.1"  
2 N: c# I- t0 M$ N" p10 一月 2013   -24°12' 55.1"  : ~" `) C3 H6 X6 R' h3 K; m* q- I
11 一月 2013   -24°05' 45.2"  * r: w0 k  }3 a3 Q9 r  e( ?
12 一月 2013   -23°57' 08.7"  
; P' [7 r, D7 @4 p/ @13 一月 2013   -23°47' 04.8"  
: v9 e3 A* w( p) s14 一月 2013   -23°35' 32.6"  ! R4 ~+ O5 {. X9 s% |2 D; w/ w
15 一月 2013   -23°22' 31.5"  
  I) L$ a5 z! j& [( {16 一月 2013   -23°08' 00.8"  
/ D3 X/ `* H! O) J17 一月 2013   -22°51' 59.9"  2 X8 f0 L; q2 |" M6 g; r4 r
18 一月 2013   -22°34' 28.2"  
9 r, `2 h; y; U4 |8 \+ _19 一月 2013   -22°15' 25.2"  
# X7 |, y7 z' {. U# I- D0 y20 一月 2013   -21°54' 50.7"  
* t$ N( C( w4 k21 一月 2013   -21°32' 44.2"  + |; V! j, c& j' b' i4 v
22 一月 2013   -21°09' 05.7"  . c# r* b; q: R) M2 P. Q
23 一月 2013   -20°43' 55.0"  
( ?9 K) h- I7 s24 一月 2013   -20°17' 12.3"  3 t% b; P) N$ C& `: D+ x" }
25 一月 2013   -19°48' 57.7"  
$ u( n5 N3 [& O( R* ?& b26 一月 2013   -19°19' 11.9"  
' N- h6 K( \" [0 X4 J1 W27 一月 2013   -18°47' 55.5"  8 X7 r9 x0 [! m" \3 X' D$ H1 `
28 一月 2013   -18°15' 09.5"  
7 n! A+ T# q; y6 ~; x9 y5 h0 @29 一月 2013   -17°40' 55.3"  
. T3 J, t* U+ b, S4 b0 I1 n! U30 一月 2013   -17°05' 14.7"  
- |: J) e, V5 r1 Y* |31 一月 2013   -16°28' 09.9"  . J; B3 I% J0 l* u' a, A) a
01 二月 2013   -15°49' 43.8"  % A: v' Q9 M8 t6 a+ q5 E
02 二月 2013   -15°09' 59.8"  
! P8 u" p* S2 y1 Q* t03 二月 2013   -14°29' 02.5"  
7 K0 z6 x6 o+ Y1 }04 二月 2013   -13°46' 56.8"  
9 q* D9 y; D. O4 e, I' K05 二月 2013   -13°03' 49.3"  
2 V% I: _8 f/ d% t; W06 二月 2013   -12°19' 47.2"  
. j7 d7 o1 i1 p0 [07 二月 2013   -11°34' 59.6"  6 E: A; k: H  m1 a
08 二月 2013   -10°49' 36.8"  
) y) ~4 s3 C* G. J/ N$ J7 }9 @4 b* B09 二月 2013   -10°03' 50.6"  
6 r1 G6 O( n; s; @0 S10 二月 2013   -09°17' 54.8"  
2 M# ^. K" f5 @! m6 Z: H2 {11 二月 2013   -08°32' 04.9"  
' X6 e6 U7 z' ^12 二月 2013   -07°46' 38.1"  4 h: q; [; B* l1 w( }
13 二月 2013   -07°01' 53.6"  
, x. C" K4 T' r2 I14 二月 2013   -06°18' 12.3"  
$ x4 E+ a1 x0 a( t15 二月 2013   -05°35' 56.2"  6 H" d4 k; J) x3 \/ q7 c
16 二月 2013   -04°55' 29.1"  , I# S6 U9 b" P. j7 Y
17 二月 2013   -04°17' 15.1"    ~  V8 v  K+ F
18 二月 2013   -03°41' 39.2"  5 p  D& _2 E, v$ c# @6 T
19 二月 2013   -03°09' 06.0"  
, u7 o( ~; o0 P' D5 n( b1 Y20 二月 2013   -02°39' 59.5"  
( p& A; a: ?/ w0 ], k; t% p21 二月 2013   -02°14' 42.3"  $ R' h2 q# X% i" y" @
22 二月 2013   -01°53' 35.0"  & r% M# S2 W' Q( R% B: s9 ^* b
23 二月 2013   -01°36' 55.5"  2 Z5 |/ T4 [, y' _( K
24 二月 2013   -01°24' 58.1"  
6 ^' S7 e4 O& @( f4 x, t, W% b' V25 二月 2013   -01°17' 52.7"  , ?, {" T  f% @
26 二月 2013   -01°15' 44.0"  
7 ?1 I6 I9 Z& v7 h5 O! e7 S: g% f27 二月 2013   -01°18' 30.8"    h7 k3 u2 Q& r
28 二月 2013   -01°26' 05.5"  
' O; w4 @5 f9 Y: \. {01 三月 2013   -01°38' 13.7"  , D& L) u3 I/ v
02 三月 2013   -01°54' 34.4"  2 e3 z; L' S6 k1 _: @" r6 e
03 三月 2013   -02°14' 40.4"  2 O: R+ O& o( U
04 三月 2013   -02°37' 59.2"  
0 i- r" `/ B7 X05 三月 2013   -03°03' 54.3"  
' Z. y+ }3 m6 p06 三月 2013   -03°31' 47.0"  6 K6 v+ h9 G6 F( V2 U
07 三月 2013   -04°00' 57.8"  & S' p) F0 M/ O/ o8 N) h6 x& _
08 三月 2013   -04°30' 48.1"  
$ V8 b/ `& B+ `* x09 三月 2013   -05°00' 41.8"  $ T$ T0 z$ N, e9 A
10 三月 2013   -05°30' 06.2"  
3 @+ B" n+ p2 C6 b1 M5 F11 三月 2013   -05°58' 32.9"  
3 n( J  G$ S! ?- n- l12 三月 2013   -06°25' 37.8"  
" g3 x/ }( h& c8 b& w0 t2 i: I2 [13 三月 2013   -06°51' 01.6"  
0 [2 m2 r/ H# t1 @2 N14 三月 2013   -07°14' 29.1"  * E0 r* g/ m! G) K) n
15 三月 2013   -07°35' 49.3"  & E) Z1 \( H5 Y2 g9 Z: P' F6 |
16 三月 2013   -07°54' 54.2"  2 f+ N. d1 j4 C2 X
17 三月 2013   -08°11' 39.1"  ! B; K9 E' s- P/ a
18 三月 2013   -08°26' 01.3"  ; K3 ]7 h' _* d6 n* j
19 三月 2013   -08°38' 00.1"  " M& b% L& L; q7 N
20 三月 2013   -08°47' 36.2"  
3 D5 T# o: n1 @, s1 X- f21 三月 2013   -08°54' 51.5"  8 V0 L5 H& x) B
22 三月 2013   -08°59' 48.5"  
  I0 E: F, l0 H# t23 三月 2013   -09°02' 30.3"  
3 z! ]2 h( m; C1 P; A' j24 三月 2013   -09°03' 00.3"  
5 f0 O2 d1 f2 H& N( U% S25 三月 2013   -09°01' 22.3"  " J! \# _  C) b# W) Y+ N
26 三月 2013   -08°57' 39.8"  
' H) \3 b0 ]( M5 R2 o0 i27 三月 2013   -08°51' 56.7"  5 `- H3 B( G" S
28 三月 2013   -08°44' 16.7"  " C: M1 F2 \" L# h% c$ H
29 三月 2013   -08°34' 43.3"  
+ O" A  u. p( r  X' V- j. ~. F30 三月 2013   -08°23' 20.1"- a8 }: K  }, C

% J. a- b; ]" o3 ]0 p0 P这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。' _' K) V* z4 \6 \' u
  j8 Q/ K& S% f* H% `7 z$ Z
[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

本帖子中包含更多资源

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

x
回复

举报

子傻
2#
发表于 2013-12-12 18:16:02 | 只看该作者
.gif" smilieid="273" border="0" alt="" />
回复 支持 反对

举报

tom123
3#
发表于 2013-12-13 00:23:14 | 只看该作者

# E* x7 T+ P( b# h' c- N! |! `9 a
水星
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
回复 支持 反对

举报

tom123
4#
发表于 2013-12-13 02:12:54 | 只看该作者

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
5#
 楼主| 发表于 2013-12-13 21:34:08 | 只看该作者
编写指标用 的数据，见附件, E' y+ r6 l' S" j, l0 [4 I

本帖子中包含更多资源

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

x
回复 支持 反对

举报

skywater
6#
发表于 2013-12-14 19:50:30 | 只看该作者
最好变成飞狐的好
回复 支持 反对

举报

logoslogos
7#
 楼主| 发表于 2013-12-16 22:15:31 | 只看该作者
最好变成飞狐的好..
回复 支持 反对

举报

kaiser88
8#
发表于 2013-12-17 09:51:40 | 只看该作者
回复 支持 反对

举报

静芸
9#
发表于 2013-12-17 12:22:14 | 只看该作者
飛狐
2 K9 F# k, z+ |& [/ h9 i7 ?8 n! F1 f" i4 N# K. H, p3 E" o
cc:=數據;
. w* ~; W$ e4 T: F. mccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
+ u+ D; n0 X: ]1 ^3 w" e6 E- }vertline(ccsh),colorred;  {high}* }; R& U9 p6 z
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
; b( T7 }4 I: F4 z( rvertline(ccsL),colorgreen; {low}
& z8 D9 e/ m- b4 w
% w; E/ z; g! m; N+ L[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
回复 支持 反对

举报

kaiser88
10#
发表于 2013-12-17 12:28:27 | 只看该作者
请问静芸  能改成飞狐公式么？
回复 支持 反对

举报

静芸
11#
发表于 2013-12-17 12:32:36 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:28 发表   i0 o4 I7 G' Y" D" Q
请问静芸  能改成飞狐公式么？

) L. g/ Z* s: f' f. k/ X/ }, v$ @7 y. K6 ~
这是飞狐公式
/ @5 c# U0 F% h( N第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

kaiser88
12#
发表于 2013-12-17 12:35:21 | 只看该作者
再请问 怎么读写呢？俺不会
回复 支持 反对

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 ; S: C5 |. z" |$ t! [* d
再请问 怎么读写呢？俺不会
8 O0 @# b+ f- Q1 c5 {) `5 o. Z
; K  M  o5 L! A4 w7 b
哈,这有些麻烦啊!
1 B# ~5 W, o( A/ k3 z你把星相数据存在目录C:\Da.txt: ?: @% F$ R+ }) r. Z' n! R2 J, u8 b
档名是Da.txt- @+ e+ B9 n% G9 D8 h* I) d0 d. N
如果存在别的目录,如D:\hhh\Da.txt; R* F- e! t' q8 v
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt# \1 N! N: Q9 k% S* P# f: V+ Y; R
下面是飞狐公式,我也未试过,你自行试试吧/ I7 ]7 H  s! x, b& j5 g

* _- l" P- I8 _8 ~/ _FoxDE:=DATE; FoxTE:=TIME;
8 ?( o7 B& r+ z& E+ F( @/ {' A- _MyData:=C*0;: ?4 j5 J/ o2 F
<%4 L. {! m* j! z- F) J
MyData =FFL.VarData("MyData"), R. t' J2 K# \9 {, D- D) w) X; C8 w# p
FoxDE =FFL.VarData("FoxDE")
2 s4 E! g6 _8 P( U' mFoxTE =FFL.VarData("FoxTE")' }" ]+ m9 F% e
Set fs =CreateObject("Scripting.FileSystemObject"): ?: R+ Z; W0 J
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)3 K5 w* \  c2 J
MyTxt = wrkfs.ReadLine$ A, P% W, Y( b0 a: T
wrkfs.close% H) i; r& b3 [8 G! W! b+ c
TxtStr=MyTxt0 z: U- [9 r. }* z6 b
TxtAry = Split(TxtStr, ",", -1, 1)! _, M/ C5 I- i* `) S5 }9 ~6 W
GetDE=CLNG(TxtAry(0))
  s+ Q4 q2 {4 x. S0 H! q1 }GetTE=CLNG(TxtAry(1))# |. S) ^* F$ T
GetVV=CSNG(TxtAry(2))% j* Q3 E7 m& ]. M6 o; _1 o
for i=0 to ubound(MyData)- C7 Q. C) c) @9 V! R3 N% a
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then0 r4 |9 s' X3 r: j
MyData(i)=GetVV( q5 a2 h+ f. w5 w5 ~
end if/ U% y5 j  M- X  v
next5 Y* v+ y' v7 Y8 V/ C9 |
FFL.VarData("MyData")=MyData
) N/ o% k9 Y0 N. G$ z" e! l%>
  [; u) c' \& E$ h0 X
- L; Z; n# A" e! l* j/ O- a+ c/ wcc:=MyData;, M, j5 ]3 T! y; z2 J& G' e
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
: s: x0 o8 h9 nvertline(ccsh),colorred;  {high}
+ P& d5 A0 I! y% C9 C  D* I1 lccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);6 |! ?0 K/ ^8 @3 {' p
vertline(ccsL),colorgreen; {low}; H) }" Q/ J$ P

' E  w2 e% z2 R: W) Q# |7 z[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

kaiser88
14#
发表于 2013-12-17 13:07:10 | 只看该作者
回复 支持 反对

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢# u1 v$ Z" d% e' M0 U7 m: n

1 e& z- g9 h9 V; P8 E我刚试一下。。。出现错误。。。静云帮忙看看。。。
" d+ B) o; a4 D) s5 ^7 |& X等我发图
8 b+ }) P! Y1 n$ u' B- \
# ^! R. l+ g' v4 I) G5 t3 Z
! t& e* r4 }5 q4 H& P/ x' M/ U[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
16#
 楼主| 发表于 2013-12-17 20:12:40 | 只看该作者
静云帮忙修改一下。。。多谢！
回复 支持 反对

举报

prayer
17#
发表于 2013-12-17 21:20:26 | 只看该作者
非常感谢静芸MM提供的实例
回复 支持 反对

举报

静芸
18#
发表于 2013-12-17 21:28:23 | 只看该作者
原帖由 logoslogos 于 2013-12-17 19:53 发表 % K' y9 J3 L0 s  Q/ e6 f0 N
太好了。我试试。。。万分感谢
  f7 a' ]( E8 }- u  z9 o9 j* w* c# q/ w" Y0 ^: s" B
我刚试一下。。。出现错误。。。静云帮忙看看。。。
" g6 x6 \; T, S1 U- m2 E等我发图
+ }( `/ u9 v' D+ q110666

- Z: H. K# B5 q) ^: k' C7 d; ?# h$ W. d6 ~+ g1 ]
再试, 这读数据公式不是我编的
( G3 ]" h$ N! A; i- m: Y3 }: fif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
# G" Y2 y$ x3 v& a$ b3 T/ }; _9 o8 [
5 ^, u( b" N) L/ O& s" b( O
% k' ?& E4 _% i  u2 N% z
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
+ s/ t5 ^% \& x5 ?' _
3 }, R* Z6 @) u$ d; u
还是不行。。。能通过测试，但一运行就出现这个错误：
1 U$ `* Z7 w* p% y) V见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 + `6 D. s2 U0 I& U) A( x9 l- n
110668! ]! |& N/ G! S
8 P; e- e' q* c" k5 G, z# Q. \
还是不行。。。能通过测试，但一运行就出现这个错误：
8 j* d2 `! L8 u9 c: z" f( {" p% [见图。。。

+ [6 E! u$ h, J* c+ p$ Y
1 @, n' S2 }) T, ]可能是数据檔的问题6 v# `5 v+ P( \# U4 a# B4 y  p
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
; z# E& j8 r. o2 i. {, f原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

logoslogos
21#
 楼主| 发表于 2013-12-18 10:08:57 | 只看该作者
好的，理解了。一样感谢。。
回复 支持 反对

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。) i& E7 H) @( z  H, {( _6 _
直接程序计算declination值数据然后显示
6 n3 W3 \# Z; ~8 l' O: ?0 d  z9 |& b! S  H8 o, r( X+ n

. G. z6 J+ m8 ^
' P& q! x3 i. I+ F[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

He110
23#
发表于 2013-12-18 17:02:04 | 只看该作者
7 W7 `9 l1 D$ ?+ x7 K" C7 }

! K: [1 Y( T) v; L; X( k6 ]7 Q3 U[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

He110
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
7 {8 u8 G/ F% @8 P我是不是用错了？ 有其他办法吗？
回复 支持 反对

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 + F5 y0 y% G+ z9 l, E' ]0 _6 X
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。3 q3 K% Q* {& h+ b: p, K4 }8 g; j" ~. z
我是不是用错了？ 有其他办法吗？
8 d/ ~8 b. F3 d  v
9 [$ t- v" x4 z6 I
你好, 向下
1 a& f- e2 ~& O6 overtline(cross(0,cc)),coloryellow;
回复 支持 反对

举报

kaiser88
26#
发表于 2013-12-18 19:34:58 | 只看该作者
he110 请问你公式怎么做的 我的也一样报错
回复 支持 反对

举报

He110
27#
发表于 2013-12-18 20:20:50 | 只看该作者
原帖由 静芸 于 2013-12-18 19:03 发表
2 i2 u* p& Y' N; U
+ ?: s: v7 Q  v3 J' u
( X3 ~2 ?. ?- m. M( L8 v你好, 向下
+ V  G' ~" L  ?+ h( ^' {3 tvertline(cross(0,cc)),coloryellow;

$ p1 i/ X8 C' T0 _( B9 D
9 C; |2 {' u: X( b  F谢谢，可以了。. x1 S! |. H1 o  ?0 c& N, ~
* H3 H" I9 i" p' u
原帖由 kaiser88 于 2013-12-18 19:34 发表 ( r# ]: G" g' a7 p3 o$ T3 j0 Q  o
he110 请问你公式怎么做的 我的也一样报错
# o$ z% t/ O* y  H0 F9 ?9 @

$ F) U: s- ]1 }+ q$ y/ n我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

prayer
28#
发表于 2013-12-18 20:42:05 | 只看该作者
你好He110，请问如何直接程序计算declination值数据，有直接的公式吗？
回复 支持 反对

举报

tom123
29#
发表于 2013-12-18 23:48:59 | 只看该作者
交流

本帖子中包含更多资源

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

x
回复 支持 反对

举报

He110
30#
发表于 2013-12-19 10:15:12 | 只看该作者
tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。7 a3 Z. a$ Y9 e1 D

" ?1 X9 `( T& E7 ~prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 手机注册 手机动态码快速登录

本版积分规则

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

GMT+8, 2026-7-18 15:45 , Processed in 0.190850 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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