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

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：
; ~+ l; ], W5 }" K% o  @) q2 \
, T: j* ~$ e& h9 e* I9 N8 A0 _- d7 h. ]
/ M* U6 m3 ?% `5 T
( U1 B& W  o( @$ C# u
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的* P/ U/ r. V: S: t8 F, j4 N
/ p  y6 f7 M6 O0 |. P- |  v+ c* I
7 V. g& V3 @) Z: _
：9 y: ^# }$ Y9 Q  r
1.根据给定的数值，画出这样的曲线
, U. k5 R" i8 Z4 I2.分别在曲线的每个拐点出画一竖线6 S! c+ {/ r& o% V% }5 M* d( ]  H# Q
3.在零值画一竖线/ m0 c1 {' a6 \( M9 S! ^
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。+ A1 G9 _! f/ ]' B8 g
6 |% o2 `. [2 x: \

* g+ g( l1 q7 J$ o  t5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。- j7 Y4 A) s* D6 R* m
8 @" y* I, K6 T7 C" K! }; p
数据样本：从星相软件导出的：! r4 h9 f, u; Q* n. |
% k3 p7 G" c" S+ f  R/ r
01 一月 2013   -24°14' 58.7"  ( l7 l; w' s! |7 ~0 I4 c8 J9 I
02 一月 2013   -24°20' 05.2"  $ n, E% p: \2 v. Z* U
03 一月 2013   -24°23' 54.3"  
: |5 Y3 k3 ~) ]" S# }04 一月 2013   -24°26' 24.8"  ' p, x2 y7 n& w+ |& Y7 r
05 一月 2013   -24°27' 35.6"  
  ?/ C' g& N, w5 |# ?! f06 一月 2013   -24°27' 25.5"  
0 Z5 G. B) ^0 y& b6 K3 B07 一月 2013   -24°25' 53.3"  2 k9 z6 ~! d% z: m2 H" c% \7 s/ t* Y2 T
08 一月 2013   -24°22' 58.2"    N# Z8 F, Y$ ~% k& u9 z+ v
09 一月 2013   -24°18' 39.1"  9 S* v6 i; C) l! `( y
10 一月 2013   -24°12' 55.1"  * R% F9 ~8 m( _. U/ |  \+ J- [
11 一月 2013   -24°05' 45.2"  * F1 \0 y8 i+ b; {/ k4 r1 l# h! ~
12 一月 2013   -23°57' 08.7"  
( I0 G4 q, G. C4 S+ K& ?3 @1 B13 一月 2013   -23°47' 04.8"  ( D3 n7 G* l  F! o2 X, @1 n6 x5 \
14 一月 2013   -23°35' 32.6"  & U  f$ H% T/ n0 J7 t
15 一月 2013   -23°22' 31.5"  5 }/ a3 b! i$ Z' `" G2 k
16 一月 2013   -23°08' 00.8"  
2 t) w4 i$ L6 z* Y17 一月 2013   -22°51' 59.9"  ( f4 }" G! ]2 H
18 一月 2013   -22°34' 28.2"  # v* B% q  v, w. L: [% c! w
19 一月 2013   -22°15' 25.2"  
+ `" u: R! j8 ?$ T* w+ O5 [20 一月 2013   -21°54' 50.7"  
4 N$ k5 m3 I0 t/ q; D; m! m) J$ a21 一月 2013   -21°32' 44.2"  
! X) N/ t, t; G$ ?; h. z; [9 @22 一月 2013   -21°09' 05.7"  4 Y9 V2 p% O% K- e0 o- G) F
23 一月 2013   -20°43' 55.0"  
6 J4 a  x( J3 t" K24 一月 2013   -20°17' 12.3"  $ o/ w+ C- m+ c. @
25 一月 2013   -19°48' 57.7"  $ @* [! ?  A7 h# c7 X' r
26 一月 2013   -19°19' 11.9"  
& H& s$ i* G6 S1 o1 D1 e27 一月 2013   -18°47' 55.5"  
" d. I  x! s3 [7 a28 一月 2013   -18°15' 09.5"  
% L- }( a  y3 z0 N, h6 \$ y29 一月 2013   -17°40' 55.3"  
+ Q  u  p2 m4 w  l- x30 一月 2013   -17°05' 14.7"  
  R- l& K, b6 f, Q% o" |31 一月 2013   -16°28' 09.9"  
+ ]. I1 D" X: ]  }- e+ j7 z- ]/ Y+ N01 二月 2013   -15°49' 43.8"  
+ K$ N8 R& F7 V$ B' z# D$ u02 二月 2013   -15°09' 59.8"  
- I. a( }! @" b4 c. `03 二月 2013   -14°29' 02.5"  $ a& L! S6 N% v" L' a6 V
04 二月 2013   -13°46' 56.8"  
( b6 v' z; m2 ~) y/ V+ [05 二月 2013   -13°03' 49.3"  8 b, m  `8 r! d# M6 [& Q
06 二月 2013   -12°19' 47.2"  
  h% i  Q, c% T& W3 l4 ^' F5 h3 {07 二月 2013   -11°34' 59.6"  3 C; W8 [, n2 ]: f6 v: f
08 二月 2013   -10°49' 36.8"  : b0 N, t( P, x! k/ w
09 二月 2013   -10°03' 50.6"  
" l2 n' [( P& R- m. t, W10 二月 2013   -09°17' 54.8"  
; O$ L0 j4 v: @11 二月 2013   -08°32' 04.9"  
- J2 Y7 M( U" p* Q12 二月 2013   -07°46' 38.1"  1 R: W5 g* R- G5 C/ H; ?
13 二月 2013   -07°01' 53.6"  
. r# s% c: {0 Z; e9 |4 p$ |14 二月 2013   -06°18' 12.3"  
8 ?- |: G& O5 M: P1 K9 k) c  n3 S4 C15 二月 2013   -05°35' 56.2"  
' I3 ~6 F- y$ a3 C16 二月 2013   -04°55' 29.1"  2 K& l+ K( O0 d; f+ r
17 二月 2013   -04°17' 15.1"  ( U1 `) q+ o9 G! d! I; {
18 二月 2013   -03°41' 39.2"  
7 _; N4 ^) J; x1 h$ Z0 @19 二月 2013   -03°09' 06.0"  6 }' e' U2 F" H4 o( ^
20 二月 2013   -02°39' 59.5"  
5 p- x" k& E, |( Z# ]9 m* i21 二月 2013   -02°14' 42.3"  
) _" d3 C/ `+ W. r22 二月 2013   -01°53' 35.0"  
' x5 V- k0 D8 f6 F0 Y( J23 二月 2013   -01°36' 55.5"  
1 H7 }& s' C' y+ ?* y24 二月 2013   -01°24' 58.1"  ( K  ]4 v' O/ t% o
25 二月 2013   -01°17' 52.7"  
0 c6 G1 ^0 t  g# n1 }26 二月 2013   -01°15' 44.0"  
) y: K# f( A4 `2 L2 L; V2 x8 d27 二月 2013   -01°18' 30.8"  ; Y9 c9 [2 o  q2 ?9 u& ?1 Q# R
28 二月 2013   -01°26' 05.5"  
$ Z$ `. A  E- K+ v0 _% g! W01 三月 2013   -01°38' 13.7"  . M3 h. `+ U% g0 F  Y
02 三月 2013   -01°54' 34.4"  8 N- N6 a. x2 Q+ l
03 三月 2013   -02°14' 40.4"  
5 D5 h' L# |+ ]) S3 U3 S, O04 三月 2013   -02°37' 59.2"  
# a0 ~. I# B* j& b# o05 三月 2013   -03°03' 54.3"  
. t4 {. x* H9 v& S06 三月 2013   -03°31' 47.0"  7 I2 S+ s6 r, o
07 三月 2013   -04°00' 57.8"  ) y; b( ]3 [% x, f; n4 x1 L
08 三月 2013   -04°30' 48.1"  
4 S4 `# G6 N# {* I09 三月 2013   -05°00' 41.8"  
% r) _' k$ @& G. }9 z  V6 Y4 |  _( d10 三月 2013   -05°30' 06.2"    ~. |) h; n* }$ N$ }$ E
11 三月 2013   -05°58' 32.9"  9 e) h6 A1 O; ]
12 三月 2013   -06°25' 37.8"  
, S/ P/ d' W. k6 k4 s13 三月 2013   -06°51' 01.6"  
) C/ ^4 r1 d% J/ c' N. B. ?14 三月 2013   -07°14' 29.1"  $ {/ V: i& B( c; [
15 三月 2013   -07°35' 49.3"  
9 p6 |& I3 k4 M0 M16 三月 2013   -07°54' 54.2"  
' M3 d+ R  Z3 A: Z& x17 三月 2013   -08°11' 39.1"  + N7 S  s) m. A0 K6 a; d
18 三月 2013   -08°26' 01.3"  
+ r5 u0 t2 S1 o19 三月 2013   -08°38' 00.1"  & t9 Q- S  N* l5 |; J* V. Y
20 三月 2013   -08°47' 36.2"  
3 ]7 v! [0 v8 R! r& c8 p- _21 三月 2013   -08°54' 51.5"  5 D, S2 }. \8 k* _0 a* ]9 C
22 三月 2013   -08°59' 48.5"  
  F. s. m3 ^. B9 f# q  o, ~; _23 三月 2013   -09°02' 30.3"  ( g% D$ @! ^1 W8 j1 N. T9 f
24 三月 2013   -09°03' 00.3"  9 q5 ]" J5 Y; H5 `
25 三月 2013   -09°01' 22.3"  9 l( \% e  e3 \4 k7 T
26 三月 2013   -08°57' 39.8"  
" _4 l* _4 F: y1 x  E8 O27 三月 2013   -08°51' 56.7"  ! b: a7 A3 `* J5 V
28 三月 2013   -08°44' 16.7"  4 ~0 N5 v3 P( _# T0 c
29 三月 2013   -08°34' 43.3"  8 B0 h9 v3 u2 I' b( `7 g# u' ?9 C
30 三月 2013   -08°23' 20.1"2 T  |! C/ C6 |4 e

. L1 W; N1 F/ }- h3 k1 _4 a0 X6 q这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。1 z$ U7 W2 c3 K# U' G

: s4 r6 i. _- b# 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 | 只看该作者
6 K* }* ~; M& I
水星
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 | 只看该作者
编写指标用 的数据，见附件
" x! \! B5 S% P2 e- _0 k4 A

本帖子中包含更多资源

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

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 | 只看该作者
飛狐3 J( F& t8 E  y$ _: _" g7 w. |

3 M  m+ R' G5 {6 n; @cc:=數據;
. x* Z5 q" Q, D- W* m& \7 ^ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
  c; I: N- K7 g0 P+ d9 Mvertline(ccsh),colorred;  {high}2 C! q' S3 u8 ~! g2 h' n
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);% U. p" _# M( P8 V6 `2 l, l
vertline(ccsL),colorgreen; {low}0 ^) L7 S2 c9 b+ {. T
" I- M$ Q% }+ v! x
[ 本帖最后由 静芸 于 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 发表 9 M# `' D2 K! |8 D2 V7 K6 s
请问静芸  能改成飞狐公式么？
7 X( t7 |( j" q( G" T
$ _* R! f4 b, K( m0 v* ?
这是飞狐公式) r8 R' P! `9 {6 x2 w
第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

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

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
3 ?* U3 w+ T$ J+ J  ?! ]; v! r5 Y! x再请问 怎么读写呢？俺不会

! X) ~7 r0 k( G- ^9 c8 L; b# ?# L9 e3 @( p8 X% Q% v  |& D
哈,这有些麻烦啊!
6 {4 H! J8 T9 x$ l" @1 I你把星相数据存在目录C:\Da.txt
% p7 j5 e" T. B: a8 {. `; _档名是Da.txt
; M3 T# ^# K# e9 I5 E! x# n+ D如果存在别的目录,如D:\hhh\Da.txt8 ?" d3 ], d) E6 c
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
) y4 g: W3 p/ v# {4 ]' e& L下面是飞狐公式,我也未试过,你自行试试吧, K& i  O8 x5 J; H8 _$ m# X3 ]
4 e3 F8 A3 |$ Z- \
FoxDE:=DATE; FoxTE:=TIME;
, n3 |( D- `1 |& V9 w7 I4 xMyData:=C*0;
9 f6 v, I. T, C2 \. N<%5 g0 B9 Q% w$ C, o, m4 L! D
MyData =FFL.VarData("MyData")
7 {  C& z$ b6 m" L# KFoxDE =FFL.VarData("FoxDE")
$ r; J- O% B9 IFoxTE =FFL.VarData("FoxTE")$ \9 R  `; S( ~
Set fs =CreateObject("Scripting.FileSystemObject")
. N% X, |6 J/ j4 v# j: bSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
8 w( ]3 U" y+ O$ s5 g& a+ Z0 m: \3 `MyTxt = wrkfs.ReadLine
% g9 f+ d: Y; a+ Y. A5 ^wrkfs.close! v7 G/ q' A" `! B2 A6 ~
TxtStr=MyTxt5 o( ^" u+ c- X7 s* z; c" q! o
TxtAry = Split(TxtStr, ",", -1, 1)
" n& e( L0 s% k( n: A" l! M8 GGetDE=CLNG(TxtAry(0))/ Z: G0 G( H0 U' x5 c
GetTE=CLNG(TxtAry(1))4 L4 h3 ^! a6 h( _
GetVV=CSNG(TxtAry(2)); O6 z, N6 c6 c" X- G
for i=0 to ubound(MyData)
- o# \0 Q/ `( E+ x& lif FoxDE(i)=GetDE andFoxTE(i)=GetTE then: Y+ V+ S& P& K& O0 s; T+ Q( z
MyData(i)=GetVV3 @4 Q- l( O4 y- g9 r* E! O0 |
end if$ z! k' v- y8 ]1 ]. t" L
next
8 V% Y) N; U# ?5 \" l( MFFL.VarData("MyData")=MyData5 K- Y% n% K4 z; f
%>
- @9 Q2 h$ P  H8 h3 Y% p- C6 _( i( t0 V; F2 [3 X1 a" y, s
cc:=MyData;
, ]! Z% `3 A) ]ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);9 `# y" {3 {% G$ @( z+ ~5 f# P
vertline(ccsh),colorred;  {high}
8 c; R: [: n/ R" c& K1 u& FccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
8 T  F3 J! |/ B0 K. h6 wvertline(ccsL),colorgreen; {low}
2 k. T9 u' S% O) t; G" h7 E: l  y7 b
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

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

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
, M5 }  F9 p5 p* M5 E
: j8 s/ t5 ^5 t5 W. T5 v; K% ?我刚试一下。。。出现错误。。。静云帮忙看看。。。& F7 ?" q) E% C4 O/ t/ ~
等我发图
9 T! ~7 ~1 F. {% C( T. e& w% C/ q0 w' ^" N: S  r
% b4 M. U! |: P8 A5 l
[ 本帖最后由 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  _4 y. M# u  b! j2 s, Z
太好了。我试试。。。万分感谢
+ H4 a$ z5 }7 M5 M" }6 T% q" {. t# `1 i6 K5 B3 f4 f0 H
我刚试一下。。。出现错误。。。静云帮忙看看。。。* V3 M1 z3 o/ g7 ~6 x
等我发图# D( G- k3 ~: }$ y
110666

$ R( H+ Y1 c0 ~' h1 X' a4 M+ K' ^$ ^* W2 Q* p" F: G4 l- ]0 y7 r; j
再试, 这读数据公式不是我编的9 u, K3 O: f; N
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
: h8 s4 q  t6 u, l( V$ h' }4 K0 J6 K% W4 F0 i
/ _* L* K  m4 ^" r7 ?
# H, {( k. c! X6 i
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

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

$ `# p- a9 l( B0 S7 l+ `& \
( M* O+ V5 m$ ?0 a9 H还是不行。。。能通过测试，但一运行就出现这个错误：7 W+ _2 W8 l0 e) n4 e
见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
* D! c- e- X- c, [110668+ J+ B  O0 g# M, T: w! J, U0 W

' b0 N. h; \+ D还是不行。。。能通过测试，但一运行就出现这个错误：) @) d3 O; j, n7 _  S% M1 N
见图。。。
' d1 X# x0 J9 W+ h' I1 d4 S2 N; U
0 e  e% y; u  E$ g/ c; w
可能是数据檔的问题
8 i7 p9 ~" b+ P" Y数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
/ ]6 N$ G) \! Q* Z& ^原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

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

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。6 U! u; r' l# U  `  ?
直接程序计算declination值数据然后显示
/ J2 |( u, U7 ^( f9 V# g9 e' W4 r6 O# `& l$ i3 }

' k$ b: \: M, z8 S' O
$ `4 V- k* G4 \4 @[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

He110
23#
发表于 2013-12-18 17:02:04 | 只看该作者
& @) `2 E' Y' C; B+ H* Y
% ?1 {8 J, L) I; ?
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

He110
24#
发表于 2013-12-18 18:09:35 | 只看该作者
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。. i, H* V: S' F( f* S: r; A4 w
我是不是用错了？ 有其他办法吗？
回复 支持 反对

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
5 ]( a* `$ F9 r' M3 h' O请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。, ^7 K2 R, c( L$ h
我是不是用错了？ 有其他办法吗？
( B0 Z9 I- @; A# K

4 m+ X0 `0 o% D8 [! [你好, 向下1 u9 O/ S& E8 f; {( E7 {) E
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 发表
' P2 v9 x$ X- H$ w$ T2 E
: G0 S1 E; V( X8 N; Y- P  c- R$ I- f+ u$ n7 [
你好, 向下
! }1 O* Y9 }+ L2 {# X7 B% q$ e6 b" Bvertline(cross(0,cc)),coloryellow;

7 a  z" N& i# d# o- d' j, `6 u$ O7 p% |$ \/ H- d3 ]
谢谢，可以了。7 `2 S8 R) E3 C- m  f3 j" p$ T/ g  X

; n" f: V- T; h: \. Y
原帖由 kaiser88 于 2013-12-18 19:34 发表 4 s! g" o4 N9 @5 {2 u/ K6 h. Z
he110 请问你公式怎么做的 我的也一样报错

2 P6 ]9 a3 I/ Y: r0 m  {: y  g) Q% j! R
我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

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兄的这么平滑。。。' Y$ [7 |5 k! |- ^* y8 w
) K# i! d! N: k) Q  d
prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

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

本版积分规则

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

GMT+8, 2026-9-5 04:59 , Processed in 0.330271 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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