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

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：
( Q% J8 y: g3 {& O) ?" \5 r* L) v% P, k. O! X/ `
" S: d  C8 G3 x+ m  w
: K, y3 O! R  z1 p* F4 S3 m. b
% @* c' G/ m: R
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的: X1 B# w# Q( o* T  K! D6 a7 i; _

( Y7 D/ \8 A* b9 }9 l1 x% T" T/ a2 {" |: x! \
：) H0 F! k# H: X2 }  ^4 j4 @' E: i
1.根据给定的数值，画出这样的曲线7 K$ r/ E/ F7 L* D% T+ l$ i/ Q
2.分别在曲线的每个拐点出画一竖线
) r) q! r6 J$ F" V/ E, F3.在零值画一竖线; J# j: q5 C( K$ D1 d; Z
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
! P& i' W! [. Q7 m' ]0 i) Y
9 A( B6 F, |+ v0 b, k2 }) l6 _) n6 ]! }4 p: D8 K
5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。
; U" f+ G) F4 O& g0 o6 N8 c& w" M( `& e% K
数据样本：从星相软件导出的：5 E3 A4 o2 |9 }3 |' h

( ?/ m/ h/ H( O5 {' I5 v5 [01 一月 2013   -24°14' 58.7"  
$ j4 V% g" q1 D02 一月 2013   -24°20' 05.2"  ; ^: z1 z- J- p: [# Y' n. F
03 一月 2013   -24°23' 54.3"  
9 F$ P$ Z+ E2 R* M$ h: \04 一月 2013   -24°26' 24.8"  
. a0 y$ b5 E3 C; b05 一月 2013   -24°27' 35.6"  , z* V" ^" t* }/ Q" ?2 R1 u  O0 r
06 一月 2013   -24°27' 25.5"  
: t+ N% K" `0 g$ P! {. |7 t( M5 V; i07 一月 2013   -24°25' 53.3"  
! n* C2 R2 L) s0 Z" v; ]9 k6 |08 一月 2013   -24°22' 58.2"  
7 C7 Y- J; F  n; [* B' A8 `+ L09 一月 2013   -24°18' 39.1"  
7 O/ w% Z8 w0 x6 k  H1 p; `10 一月 2013   -24°12' 55.1"  * ~* p- e" H: j* M6 C" u+ [) T
11 一月 2013   -24°05' 45.2"  9 B& }. X9 q. O
12 一月 2013   -23°57' 08.7"  
0 I$ p1 Q) W; r- R- i' Z13 一月 2013   -23°47' 04.8"  6 }& s, Y3 G% e' M4 h
14 一月 2013   -23°35' 32.6"  % I- O4 P: V  F) s" [" j
15 一月 2013   -23°22' 31.5"  
+ _* H) B( X4 Q/ I$ i3 _: ^16 一月 2013   -23°08' 00.8"  
1 q% Z5 z5 v' {  A9 R% [17 一月 2013   -22°51' 59.9"  6 x; W) j. r) C2 J( r! q- U
18 一月 2013   -22°34' 28.2"  0 R& D' W& E9 X+ _4 ^
19 一月 2013   -22°15' 25.2"  
/ ?; g) b$ H! [# ~6 q' p/ _20 一月 2013   -21°54' 50.7"  
8 n& J" S- d7 S: w  m, n. P21 一月 2013   -21°32' 44.2"  
6 Q+ H" D% d& m7 z  l22 一月 2013   -21°09' 05.7"  
6 f# s% r" \# H- N& b23 一月 2013   -20°43' 55.0"  
+ s$ P: }( c8 {( z# D24 一月 2013   -20°17' 12.3"  " N) \1 Z8 Q. M2 d+ P8 P; `
25 一月 2013   -19°48' 57.7"  $ i0 `4 p6 j2 x7 s* m
26 一月 2013   -19°19' 11.9"  # I- m- p6 b5 b! U5 e
27 一月 2013   -18°47' 55.5"  
1 P7 H5 v$ w7 ]- k28 一月 2013   -18°15' 09.5"  
( {( O, H+ b' n2 _29 一月 2013   -17°40' 55.3"  
" }8 r1 R* ]. m" k/ P1 d2 @, G30 一月 2013   -17°05' 14.7"  ) A7 _0 M3 v" A/ p; [. |
31 一月 2013   -16°28' 09.9"  
4 s( |! g9 ?$ u1 z5 x& V01 二月 2013   -15°49' 43.8"  
) L' i6 F. p& O. M+ x02 二月 2013   -15°09' 59.8"  
0 S% ?, W6 ^) B- k2 h+ j6 z03 二月 2013   -14°29' 02.5"  
4 @2 t# L3 n% C) t6 y04 二月 2013   -13°46' 56.8"  
# k9 N' Z8 q  q3 j; ^7 F  H$ H05 二月 2013   -13°03' 49.3"  9 E2 B5 Q! y$ h" Z; ~% K0 `* I! u4 U8 O
06 二月 2013   -12°19' 47.2"  
0 j, z$ L$ e5 U% z+ z/ t) G+ O' o07 二月 2013   -11°34' 59.6"  6 W! B$ q; v4 `3 u+ @8 s
08 二月 2013   -10°49' 36.8"  
. R1 t3 [( B, M7 ]09 二月 2013   -10°03' 50.6"  8 U. E4 [' v/ ~* V) v- A
10 二月 2013   -09°17' 54.8"  
  e9 u- k5 g/ g! s  S11 二月 2013   -08°32' 04.9"  5 C9 P  `: b9 F. T
12 二月 2013   -07°46' 38.1"  
; n5 b, P- g" p3 q9 O) H- J% X, e13 二月 2013   -07°01' 53.6"  
3 Z0 b$ A* c' @14 二月 2013   -06°18' 12.3"  ( _4 H) D( \, `7 N" c$ k: P
15 二月 2013   -05°35' 56.2"  - C* T" R( q' E  b; d' _9 z4 [
16 二月 2013   -04°55' 29.1"  ) J5 J1 b+ E+ }% `+ V3 T" \4 E
17 二月 2013   -04°17' 15.1"  + ?' k& F, v: W7 b" {" N: b+ R; x
18 二月 2013   -03°41' 39.2"  
; r4 t; X. X+ S" Y; ]19 二月 2013   -03°09' 06.0"  
! M3 l. n" Y. }: A$ m  L- W. p20 二月 2013   -02°39' 59.5"  % j% I9 O3 Q( x& }  O# v: M
21 二月 2013   -02°14' 42.3"  3 w  T- r# m- q0 f1 S; d. d. t/ [
22 二月 2013   -01°53' 35.0"  
& B/ I+ c! Z- Y23 二月 2013   -01°36' 55.5"  
& D5 p' Z( a0 w% p/ L24 二月 2013   -01°24' 58.1"  
+ a; c. J0 b1 d0 o" D$ D25 二月 2013   -01°17' 52.7"  4 P. p% q' a: r3 H5 U
26 二月 2013   -01°15' 44.0"  + r6 `' V1 ~8 a- U  \9 i
27 二月 2013   -01°18' 30.8"  
5 ~5 k/ L- C+ ?3 z$ L2 ^. \: f28 二月 2013   -01°26' 05.5"  
* D4 {7 q; f( h& X: w01 三月 2013   -01°38' 13.7"  
4 s1 N  n0 ?3 H1 Q* U. @# U4 {0 W02 三月 2013   -01°54' 34.4"  
% c# O* u! ~; D03 三月 2013   -02°14' 40.4"  
; d% d* M# P$ a0 `04 三月 2013   -02°37' 59.2"  5 i. r# V5 Q: h$ f' r
05 三月 2013   -03°03' 54.3"  ( Z* i9 w4 Q3 O- [  P  t) s8 w* C* [
06 三月 2013   -03°31' 47.0"  
" s- N; k" E5 X" n. b6 k( J$ i3 A0 g& @07 三月 2013   -04°00' 57.8"  
) Z" [4 E& l; ^/ E) w( m9 f1 J5 e% s08 三月 2013   -04°30' 48.1"  9 a8 Q- b- G" `5 U* a# ?; b5 T
09 三月 2013   -05°00' 41.8"  9 H& M, k; ?* N6 A
10 三月 2013   -05°30' 06.2"  
% r# T- a' s9 J, q( T11 三月 2013   -05°58' 32.9"  & M5 q) z# X. t6 m! S# W
12 三月 2013   -06°25' 37.8"  
- ~5 l, L' b7 r3 L8 T1 }13 三月 2013   -06°51' 01.6"  1 E/ t  M$ N4 A; S
14 三月 2013   -07°14' 29.1"  
8 N# ?* w) n2 C15 三月 2013   -07°35' 49.3"  
1 W9 U; e$ |) l, R, v* u16 三月 2013   -07°54' 54.2"  # V5 ?9 b3 }2 V) B% T8 I4 _# ~1 c
17 三月 2013   -08°11' 39.1"  8 h1 B5 C' @. j+ |
18 三月 2013   -08°26' 01.3"  % V3 g1 n1 |" [5 g/ z: [% D! b
19 三月 2013   -08°38' 00.1"  " [; _4 J) G3 g: ?, j5 j6 \% z
20 三月 2013   -08°47' 36.2"  
* X. E3 h  u, ^' k/ w21 三月 2013   -08°54' 51.5"  + i; q0 G9 C; A
22 三月 2013   -08°59' 48.5"  7 e  j) E5 g6 C; j5 |
23 三月 2013   -09°02' 30.3"  
$ ?% w8 Y. e: U$ o" f% V4 \24 三月 2013   -09°03' 00.3"  
( @& J$ U' s; Y% r. u. M25 三月 2013   -09°01' 22.3"  ) H% b: [/ J, C- F! w
26 三月 2013   -08°57' 39.8"  ' q7 F) A: q( ?
27 三月 2013   -08°51' 56.7"  / {& N( p7 z; v3 k
28 三月 2013   -08°44' 16.7"  # m! U" g5 Q% F/ R8 ~. Q
29 三月 2013   -08°34' 43.3"  
/ l( W, `" P. C7 L30 三月 2013   -08°23' 20.1"
  u+ h: `* d' I4 d8 _7 e6 t6 X: b/ s5 m' d) U
这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
, h5 z  A5 k7 ~* B* f* Y" N
" ?  m" ^4 _/ f; T- N- [[ 本帖最后由 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 g* j) Q7 m- u% L- h
水星
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 | 只看该作者
编写指标用 的数据，见附件. y# e) Q" d- K* W4 W

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
& ~' c! M; G. c: }5 a# x
8 a# }, f# O3 K$ _) a! X$ scc:=數據;
: Z; v9 A6 t5 n8 H- rccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);; q+ y7 F# @9 }/ d
vertline(ccsh),colorred;  {high}+ }2 B3 I. P% ]1 j3 }1 k
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
! K2 R6 N7 u0 J( w4 J0 o: Vvertline(ccsL),colorgreen; {low}
7 r# ]; X2 P6 Y( ~3 v0 K; t0 _& Z3 m2 j6 |+ z
[ 本帖最后由 静芸 于 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 发表 + s$ [* q3 `* {$ ~2 V7 r$ F
请问静芸  能改成飞狐公式么？

( H1 O% o2 J- Q& ~2 X8 Y0 A$ \& ]3 E( D+ Z" ]
这是飞狐公式
0 v' H* n' d% {4 \第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

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

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
8 s% ~% C; k0 ~再请问 怎么读写呢？俺不会
: ]) _! Q# ^2 ?+ I) R
3 D3 R# P- H& c# V" a
哈,这有些麻烦啊!& `+ T& R0 E+ C' J& Q) n
你把星相数据存在目录C:\Da.txt# n; i5 n  f7 K6 v0 ^
档名是Da.txt
' a# M8 Q) h. k; p- @* x如果存在别的目录,如D:\hhh\Da.txt; S- A' E  d6 ?6 B* b9 V& x
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
* e6 \) k4 Y* o- ?' i7 z/ t下面是飞狐公式,我也未试过,你自行试试吧
; B- N" h5 ]! l1 B- O% t8 o8 Q 6 R! i" Y. L& Z7 m" N; M, M% U* A
FoxDE:=DATE; FoxTE:=TIME;
- I0 g* Z$ t* B; V9 lMyData:=C*0;
7 T1 I0 v( q7 B; ?  R<%
5 H. }1 o' N  L6 IMyData =FFL.VarData("MyData")% s. ?8 o2 S% h3 K' a7 O+ a
FoxDE =FFL.VarData("FoxDE")
* d) l2 h# g% d4 Z% k+ ^FoxTE =FFL.VarData("FoxTE")2 i2 ?" r7 Y) Y- F" |4 T
Set fs =CreateObject("Scripting.FileSystemObject")
, r% |( c: |) U$ O0 L: S: HSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)' g& R1 A% l+ l
MyTxt = wrkfs.ReadLine) r% g  W3 P  W- [6 Z
wrkfs.close
  F1 `' ]/ e, o$ A. jTxtStr=MyTxt
" [2 O& }: K% Y7 GTxtAry = Split(TxtStr, ",", -1, 1)8 ^- G3 g$ T, m* b# y6 l- B' h) e
GetDE=CLNG(TxtAry(0))7 I4 \6 B2 N& {$ I; O* R; X
GetTE=CLNG(TxtAry(1))
8 h; N. X; E$ W1 LGetVV=CSNG(TxtAry(2))
6 e: {3 o' g/ t, d% ~% o" a" A( ~for i=0 to ubound(MyData)7 m" k' f0 |8 @* G1 K
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then& a) V$ g6 O0 A; W$ `
MyData(i)=GetVV5 |$ E8 k" V, o; V& k
end if: _1 w8 k( l0 k, K: `, l7 _( C! r
next
* X9 g1 ~% n' bFFL.VarData("MyData")=MyData( H+ F  q. t2 P$ m. z( Y: b
%>* M' J$ c! i# V7 O4 y9 Z" h
: H) z( v* y% ~$ D3 k$ [
cc:=MyData;
* ^8 t% }# X  |ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
0 j5 c# P+ r4 d0 m, W! Zvertline(ccsh),colorred;  {high}
: o/ q9 U' S* y% H! jccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
* N: A% k% B8 G% t; e! xvertline(ccsL),colorgreen; {low}1 Y4 h+ ]: J* t7 y2 j, m0 t1 s+ ^- T
1 V. Q4 L! |  Y; m# R: a" s, |) \+ A
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

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

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢+ y2 b5 g. d$ ]% B; E! s, I3 x. K
# D  p- `2 B1 g( f! V
我刚试一下。。。出现错误。。。静云帮忙看看。。。
" i: \1 g$ _$ u7 Y. t" V6 ~等我发图
6 N. m: r$ z" E
9 N; _- f+ g2 e+ A) j  ?9 Q+ Y, s  l1 S
[ 本帖最后由 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 发表 ! n  z! ^2 g* j
太好了。我试试。。。万分感谢
1 O" u  U/ Y! ]- L! [9 K
/ Z9 @- v( g0 o$ D我刚试一下。。。出现错误。。。静云帮忙看看。。。
1 k/ X0 D; Q9 q5 A7 O等我发图
$ ]5 I6 t4 v, }! l. g110666

  f, s' h/ G8 I+ J7 s3 S4 D$ s: K& q1 V+ E
再试, 这读数据公式不是我编的
  u; G6 d. U$ }$ Kif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
1 f* J& d- {0 l0 b( R+ \2 {0 j( Q9 D' b2 x
4 D9 o6 N0 l/ Y2 M) K5 `, E; {
  C& o3 f. z) R, c  G' L5 E
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

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

7 Y7 I3 o% [: G0 z. s+ z5 M8 ^9 k  ]; n! l
还是不行。。。能通过测试，但一运行就出现这个错误：5 q$ y- r$ R3 \. h
见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 3 [( J9 }! Y1 r) T1 Y6 o
1106682 @  X! \& ~# a
. O5 a6 C/ ^8 F7 M4 g  [$ u
还是不行。。。能通过测试，但一运行就出现这个错误：
# y+ T4 G: H5 I, X) @  Q, P. o见图。。。
. Z) {! P! _! d# S

1 M9 D% x0 `# ?* n, f: Y! `8 J可能是数据檔的问题
) b6 ^' \" Q& {" E0 g% N$ J8 B数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
& Q/ B/ {4 O2 L) c6 C7 u2 p0 _4 p# w; p原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

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

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。5 W$ E* b; H4 n6 ^9 G# c; T
直接程序计算declination值数据然后显示" n/ E: |4 G0 w) ^' s
1 x* k9 q- ?% O+ i0 ^

: ]8 n2 W6 N; m. `# ?& g% K2 w  r) v8 ]
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

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

3 c8 x- T; r4 U- z) |; O. F
" T7 |9 P$ F+ k3 a- K[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

He110
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
* D0 I$ S+ B0 g- F6 S' ]4 s我是不是用错了？ 有其他办法吗？
回复 支持 反对

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 2 d6 y7 n" D. x+ H3 {0 _
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
* w1 L9 T" a3 Q/ Z* H我是不是用错了？ 有其他办法吗？

" e# Z' f9 C' j) L2 b3 W( D7 [- l4 |* e6 u- K: K6 o
你好, 向下
9 p9 V$ T- d5 _1 ^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 发表   [4 I7 o9 O( e! d( _

6 l: q( S( g: I6 H+ b1 c/ q- E( f2 p" [0 w0 |7 a
你好, 向下
) k) P; q7 ]& }" pvertline(cross(0,cc)),coloryellow;

- }4 q" u+ K& r4 @* B
1 Y; L: P: u- I( ~4 f, o3 R: M谢谢，可以了。
9 [0 h" L+ i# J$ v" m! S$ K4 |2 o! a( l  W1 A! X5 k$ Y
原帖由 kaiser88 于 2013-12-18 19:34 发表 : n, w4 Z: ^- M, l$ X
he110 请问你公式怎么做的 我的也一样报错

; ]. C0 \3 b$ B
( W* x! o8 q2 y+ g9 ~4 I我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

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 D! p% [7 I- z; o
% d8 Z& U: ?' u3 Aprayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

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

本版积分规则

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

GMT+8, 2026-6-3 01:53 , Processed in 0.203116 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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