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

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：
( o* @/ V. C( K9 v  s+ O2 M$ `5 \  E6 ~, v
  L! v. R5 Y) T2 d" D
4 s1 U- B+ s2 z
2 d0 A# O1 r3 V  p0 N4 Z
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的/ h8 x3 n$ t1 m8 P" t
. ~, N$ I( ^* t( h, t4 o

4 v, v5 N/ |. J; @. y5 Q# E：0 i0 X1 X1 {* L* y
1.根据给定的数值，画出这样的曲线) l0 G* Z6 v" P: b. G( u
2.分别在曲线的每个拐点出画一竖线" L( M. H1 `( U
3.在零值画一竖线& e2 `7 q, Q* Q4 Q4 V/ w3 T
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。! z1 I4 g0 E2 x, \5 `+ d0 \
# f$ \3 d; v1 I9 I6 u9 \
) M+ I8 r7 O( N9 }
5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。, a6 B3 M! O+ Z1 M9 P: q) |8 d

) E* F2 W# R2 T0 ~8 @4 `0 Q数据样本：从星相软件导出的：
4 O4 t" }: e5 r" o0 h% {: a. L( N" u" G; v' m6 ?( L) J& @
01 一月 2013   -24°14' 58.7"  
! n5 K& F) O3 e" z6 T$ X; w9 {7 b02 一月 2013   -24°20' 05.2"  $ S# D* I" s  ~4 M5 B5 P5 j
03 一月 2013   -24°23' 54.3"  
$ j/ ^' p& f' @6 l04 一月 2013   -24°26' 24.8"  " |! D! o( ^0 ~; ~1 N8 O
05 一月 2013   -24°27' 35.6"  
& i$ G, i! u* b6 f9 |; |06 一月 2013   -24°27' 25.5"  
- k0 X; \/ L: U0 K3 r07 一月 2013   -24°25' 53.3"  0 t) y& P, z1 y0 C) U' Q* [3 R
08 一月 2013   -24°22' 58.2"  . p+ \0 w: y4 ^6 y+ s$ o
09 一月 2013   -24°18' 39.1"  
9 n8 I- `4 c9 [. s' a10 一月 2013   -24°12' 55.1"  / ^0 T6 _- P- v/ ?7 j
11 一月 2013   -24°05' 45.2"  ) m0 O6 `3 y9 S, T
12 一月 2013   -23°57' 08.7"  % W. B. ~2 H* \+ C% B2 R  i! Y  w
13 一月 2013   -23°47' 04.8"  / P) a+ A( H) o/ |$ a9 [
14 一月 2013   -23°35' 32.6"  
9 n3 V1 _  d: U8 j, v15 一月 2013   -23°22' 31.5"  
0 z, Z8 f3 g9 {  Q$ Z# a16 一月 2013   -23°08' 00.8"  % W  U+ r8 b1 F1 E% D" p4 G
17 一月 2013   -22°51' 59.9"  
0 @5 n: j! J/ N* {% \* C; F18 一月 2013   -22°34' 28.2"  4 Y- W2 K' {8 T- l6 E
19 一月 2013   -22°15' 25.2"  6 b7 o+ Z8 j# D6 C6 Z. e
20 一月 2013   -21°54' 50.7"  : w% [- @4 @" z- Q
21 一月 2013   -21°32' 44.2"  * L  t6 |& h4 r8 {6 h: R
22 一月 2013   -21°09' 05.7"  1 V& l3 b; [% d, A+ h
23 一月 2013   -20°43' 55.0"  
" D( O7 S# {4 n. g24 一月 2013   -20°17' 12.3"  $ O7 n7 s2 a: q) O% Q+ k/ S+ M
25 一月 2013   -19°48' 57.7"  ) f; e7 D1 O1 H& }
26 一月 2013   -19°19' 11.9"  
% Y, z$ X  ^; @' [27 一月 2013   -18°47' 55.5"  6 F9 ~' L/ \2 y5 `  M' w% f
28 一月 2013   -18°15' 09.5"  
' B/ d! r, P$ p  o5 N5 G4 m/ A29 一月 2013   -17°40' 55.3"  + I1 D6 m2 {' v+ N- W# T
30 一月 2013   -17°05' 14.7"  ; ]0 A! h7 a# Q; k$ G
31 一月 2013   -16°28' 09.9"  
1 o% q- S7 u3 {0 j! M, C& e01 二月 2013   -15°49' 43.8"  
, @3 W! j* ^/ T% \5 c3 f# f02 二月 2013   -15°09' 59.8"  
8 M  K0 e3 @/ p& }/ m03 二月 2013   -14°29' 02.5"  . L1 t! F. d% F' f$ F+ q# _
04 二月 2013   -13°46' 56.8"  
4 R0 s1 Z0 i: V; T7 T& O05 二月 2013   -13°03' 49.3"  " H* g" N+ x; {0 ]
06 二月 2013   -12°19' 47.2"  ! j9 z! t$ C6 k/ o
07 二月 2013   -11°34' 59.6"  - ^( [* x8 F; U& ^2 S
08 二月 2013   -10°49' 36.8"  + I: k. c6 C' O+ K
09 二月 2013   -10°03' 50.6"  
/ }$ M/ [. q% K" t! y! {- w1 S10 二月 2013   -09°17' 54.8"  
5 m3 E% m, a- l1 E11 二月 2013   -08°32' 04.9"  & U2 A* Q/ `. e+ N9 [
12 二月 2013   -07°46' 38.1"  ' y4 l- _4 Y/ F& ?0 M* |% P. D
13 二月 2013   -07°01' 53.6"  
& `$ j* ~3 k7 \14 二月 2013   -06°18' 12.3"  
2 Z: M) ~, Z  ^/ t$ a' ~- v7 z8 v15 二月 2013   -05°35' 56.2"  : X6 }- I' B/ h8 U4 q
16 二月 2013   -04°55' 29.1"  
  `- L7 x0 d6 l% m( k17 二月 2013   -04°17' 15.1"  ) u0 u9 Z0 x2 p( W9 T8 M0 A) f
18 二月 2013   -03°41' 39.2"  # a) f! N. V0 Q
19 二月 2013   -03°09' 06.0"  
- J' A6 u3 K8 Q3 w, e$ \20 二月 2013   -02°39' 59.5"  
, k' e' O+ e% _3 e" E) }21 二月 2013   -02°14' 42.3"  
' ^5 t6 \' N% C- I! A5 c* O; [22 二月 2013   -01°53' 35.0"  
! ]4 H. b4 G" ?* Z/ Y23 二月 2013   -01°36' 55.5"  # j8 r2 c3 o+ U6 X2 M0 ~1 J
24 二月 2013   -01°24' 58.1"  
9 [: L' Z7 Z/ ?. f  D25 二月 2013   -01°17' 52.7"  
7 }7 p6 S: L: m2 f8 a1 h# F26 二月 2013   -01°15' 44.0"  ) n: b. O+ i9 l6 X6 Y6 D/ q
27 二月 2013   -01°18' 30.8"  & T+ |9 y, K# D. L- g! R( f
28 二月 2013   -01°26' 05.5"  $ W3 h& L  y8 g: _8 t0 c' `/ |/ {
01 三月 2013   -01°38' 13.7"  7 F& w7 z; }3 V- T, L6 v1 }4 W
02 三月 2013   -01°54' 34.4"  4 r! K4 E( e. Y1 q, z2 w/ ?1 J
03 三月 2013   -02°14' 40.4"  
8 u' Y! I  M# r: q$ }4 Y8 g04 三月 2013   -02°37' 59.2"  
8 \: c7 [* }( B+ g5 t05 三月 2013   -03°03' 54.3"    Q/ a! v) V: Q9 G
06 三月 2013   -03°31' 47.0"    N" z- o8 }  @/ J1 f9 L& d
07 三月 2013   -04°00' 57.8"  
- O5 e' b1 j; Y) }2 P  P3 \! V0 W08 三月 2013   -04°30' 48.1"  
* K. N% w) s* R/ B* y. p0 E8 r09 三月 2013   -05°00' 41.8"  8 E2 p  t1 Z* Y& ]; h  q8 i$ }' ?
10 三月 2013   -05°30' 06.2"  2 t3 q+ \- Y. p* y, B
11 三月 2013   -05°58' 32.9"  
& Y) f; f# _5 J1 N- F12 三月 2013   -06°25' 37.8"  
; b  A& R2 A" u3 W# z: o, e' ?  ]13 三月 2013   -06°51' 01.6"  ' O( `0 r) q( d# r* @
14 三月 2013   -07°14' 29.1"  
7 Q" G/ V* G7 M, ?) U15 三月 2013   -07°35' 49.3"  
& f5 i3 X2 I% U16 三月 2013   -07°54' 54.2"  
( x( o9 K, w, ^' Z17 三月 2013   -08°11' 39.1"  
3 b, X$ z! v9 S/ H% k4 A: z18 三月 2013   -08°26' 01.3"  # Z  I6 ?1 g, z1 i+ l; J8 `+ R
19 三月 2013   -08°38' 00.1"  & V2 h0 g- |8 o1 z
20 三月 2013   -08°47' 36.2"    N9 m, J4 J9 A
21 三月 2013   -08°54' 51.5"  
1 w6 `3 v% r2 E# O; t22 三月 2013   -08°59' 48.5"  # N$ p: v% d* g
23 三月 2013   -09°02' 30.3"  
+ n7 r6 A! c4 M# T! [6 h1 ^" n24 三月 2013   -09°03' 00.3"  
$ F" B( C* m; }5 ], T6 z25 三月 2013   -09°01' 22.3"  
% h% Q$ b1 O: h! Y' |8 Z26 三月 2013   -08°57' 39.8"  , q) m5 [. m  f2 k
27 三月 2013   -08°51' 56.7"  8 _3 b) Z0 Y  N" r3 H
28 三月 2013   -08°44' 16.7"  
0 Q4 ~- B% D& |8 z9 V1 C6 P! L29 三月 2013   -08°34' 43.3"  
! n! e+ E3 X* b  ]30 三月 2013   -08°23' 20.1"& S7 ?5 U0 _7 Q4 w% d5 b2 e
2 n2 {) ?. E" V' f
这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
' }3 b/ X+ i& k  |
* Q. {* u! F& L  M[ 本帖最后由 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 | 只看该作者

3 R6 V! H$ E1 k/ D: J, A# R" r/ X9 b: 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
回复 支持 反对

举报

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

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
5#
 楼主| 发表于 2013-12-13 21:34:08 | 只看该作者
编写指标用 的数据，见附件( E* y& o6 p- h3 O

本帖子中包含更多资源

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

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 | 只看该作者
飛狐/ ]" N/ I9 n3 {& \+ U
5 A* m+ _' @6 ~5 k$ }: G
cc:=數據;
# j/ y9 |+ o0 S5 i( Eccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);! j. N7 M+ i8 O6 U/ k9 \
vertline(ccsh),colorred;  {high}" U3 X* y: g7 M' l( Q, a7 X3 V
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
$ a7 O& o" }/ kvertline(ccsL),colorgreen; {low}
! q7 |3 C- Y  l% v, c" i9 I1 G+ x. b6 L6 Z: C$ f
[ 本帖最后由 静芸 于 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 发表 7 u) U0 S9 ?* j. {& |5 o
请问静芸  能改成飞狐公式么？
* g' b8 _# t' W
9 J( i, o% p6 @
这是飞狐公式
( ^! f) s6 Q" t( b. R第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

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

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 & W5 s6 S0 I* c% Z7 C' B0 W
再请问 怎么读写呢？俺不会
7 G/ n3 p6 i3 V5 q( C0 A- t3 T
; {( H. l) |" f! U
哈,这有些麻烦啊!6 Y! w. J1 e4 e( P
你把星相数据存在目录C:\Da.txt
3 z/ z$ a* l# H档名是Da.txt. d) C) w6 Y; `$ _2 ?8 @
如果存在别的目录,如D:\hhh\Da.txt9 r# r- }; a1 e/ P3 s# M
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
) W+ v& ]$ ]- a2 H4 H下面是飞狐公式,我也未试过,你自行试试吧
0 y+ U" h- o( g$ i ( W& `1 X: ^6 i& W
FoxDE:=DATE; FoxTE:=TIME;# G4 t) e; s% m7 e9 N
MyData:=C*0;
  a3 O/ b! \1 T$ f- {9 D) T<%$ x. n* i6 N/ a( {
MyData =FFL.VarData("MyData")7 R/ S; k! `9 l( M& {- P
FoxDE =FFL.VarData("FoxDE")
) M: f! w: N( w2 K4 VFoxTE =FFL.VarData("FoxTE")& @" [+ U3 f0 O) U" @
Set fs =CreateObject("Scripting.FileSystemObject")
; x- M) Q7 J  |$ S2 L, nSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)6 c- `1 U3 e% I: k# w/ y
MyTxt = wrkfs.ReadLine; I# ]4 ]: w/ P1 L
wrkfs.close) e2 u+ \3 s5 i% U  S) ^$ @  I7 z5 E
TxtStr=MyTxt
; r1 f9 X1 F2 ?TxtAry = Split(TxtStr, ",", -1, 1)
# l$ Z2 D. e7 B, Y; VGetDE=CLNG(TxtAry(0))& H$ w/ h& f( N1 m% L$ _. t
GetTE=CLNG(TxtAry(1))* n! q1 i( y; L; k
GetVV=CSNG(TxtAry(2))
/ c2 {6 V; k5 i. t% X4 Q( cfor i=0 to ubound(MyData)
# |5 r  ?2 M+ r" c% Kif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
' m5 k4 k- u( v! d4 r1 a$ s) {MyData(i)=GetVV4 T9 h3 ?+ I$ s8 O& F
end if3 [0 r3 O- Y3 f" i) N; C' `1 s
next
! Q' m/ V! K% Z* ^FFL.VarData("MyData")=MyData
6 h" g* z  H! H  C9 v, o) H%>
$ `3 O+ ?4 o# R6 {0 j/ o5 x: G% W8 F
cc:=MyData;8 D3 V" j$ R: k. X8 P- L
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
4 ~3 X2 Y6 o$ @vertline(ccsh),colorred;  {high}
" k8 \6 |7 f9 HccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
8 V6 b% b! T4 E5 ^vertline(ccsL),colorgreen; {low}% @7 l! O7 J, O6 I4 b, h
2 }6 @) d5 o- @6 p* {8 W
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

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

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢* R7 \+ h8 {+ `% p% k: x0 Q' m8 s* Q

: ]4 p5 d: F, p: W/ o6 m6 \& A; i我刚试一下。。。出现错误。。。静云帮忙看看。。。
& b" R7 E# o7 B等我发图+ ~/ w. k5 b. u  y) K0 A# Z0 q
$ ?1 L. b3 {- L( M/ ^
* W, ?* B8 z# F5 B
[ 本帖最后由 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 发表 ' a! x5 F: N* S9 R+ G
太好了。我试试。。。万分感谢
# p, N) i9 F  v+ u$ M5 O$ [* W9 u3 s1 q% _1 t' |5 h
我刚试一下。。。出现错误。。。静云帮忙看看。。。
) Q' ^. u' R9 W2 y等我发图
" v- o. S! I& g) b$ U110666

+ o  q/ u# b4 p1 C# p$ M% D8 x3 _# j5 M7 L4 _7 n0 x* m! W3 h: w! H
再试, 这读数据公式不是我编的. A* T) C- h2 u+ `# u) F8 v
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then  _0 I0 T5 I# Q3 `3 }4 d

% ]1 D! E9 S$ t5 Q! g
% h$ Y0 V& H  Z2 k( Y6 M# o1 `1 h: T' W) U# q- x9 R, F  T
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

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

" i( e* G) a0 Y! Y
' }+ r5 B) T0 Z+ j还是不行。。。能通过测试，但一运行就出现这个错误：: t) J! a9 l& Y. v
见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
8 D5 E3 s' E4 E0 M( H+ V; P110668
: }8 E  D5 c( \' b' d( A( A
- Z3 d9 ^9 [  n+ r& H3 A9 A还是不行。。。能通过测试，但一运行就出现这个错误：
! g) L2 l6 m; z6 c见图。。。
( s* p1 B- `1 P5 T% m+ `

0 F( Q6 O  h; n1 q, r& ~0 d可能是数据檔的问题+ b4 |& ?7 C5 J9 c7 F- N$ J
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
  F1 d* p: Q; c8 N: Q3 v原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

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

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。% Z2 {. Y( A! C3 I8 p
直接程序计算declination值数据然后显示
& k' h9 K/ y6 Y% c, h' l! q
  f7 Z; _2 a: r- |1 W9 n1 u! O4 x5 F

2 X/ t8 N- i0 z* m9 e' L[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

He110
23#
发表于 2013-12-18 17:02:04 | 只看该作者

8 W) N5 |9 ]) c3 o
2 P& W$ Y0 Z2 ~/ L4 |' `2 S$ g[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

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

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 9 M2 ^3 W# P2 X( h% |4 [
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。) [+ g7 r, |: o/ C1 Z
我是不是用错了？ 有其他办法吗？

4 T2 u+ w' p; k% B% r4 G, S3 r; ~) ]2 v* s- h  U9 U7 O
你好, 向下. E' C0 F+ Q, s3 [' \
vertline(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 发表
7 \( m7 e- W- v; Q, i1 O
9 r5 w1 x5 J& E( S# s5 @* F- J
" Q7 g3 \; ^% T你好, 向下
  R4 Z5 \, A! y1 a. Dvertline(cross(0,cc)),coloryellow;
+ p& K4 l$ L/ S6 M) a# Y
  O7 Q& ?, _  v# i; g. U$ {. C# C
谢谢，可以了。8 D/ E- l& \) K" S9 @

8 P3 {- `. v/ y0 }$ s6 N9 ~
原帖由 kaiser88 于 2013-12-18 19:34 发表
3 B- A( y5 Y& m- Qhe110 请问你公式怎么做的 我的也一样报错

/ R3 B  ^5 s) S; y, @" r, j
0 Z( D) m) j/ H' _7 f8 G/ w9 h我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

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兄的这么平滑。。。
! d( S$ Y* |# E5 V# I6 {
; d- x' }* }5 M7 Yprayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

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

本版积分规则

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

GMT+8, 2026-9-4 06:03 , Processed in 0.193910 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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