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

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

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

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：
' h/ ^1 T) N8 f' T9 O8 i$ K
9 t3 Z1 @! ^: E
4 F  j7 n4 e! |: j
9 G6 P8 A1 _3 o, E2 f, z7 E0 {( B3 Z8 H+ O1 r
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
; F& W* k- [6 [0 w: q+ A
2 V8 x1 |. g- c) l/ E4 W
. u  F( D# _  ?：
* [# [& f# I  Z. ]$ a' x+ S. }1.根据给定的数值，画出这样的曲线
" Y( _* V- Z2 u2.分别在曲线的每个拐点出画一竖线
9 T2 m4 [* V6 Z4 N( s  V3.在零值画一竖线0 w+ D' m4 N7 ~
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
3 a1 h5 U2 z0 e6 q% u/ ~/ ^5 n* j. K
' T6 V/ |' z+ ?% A7 c6 ]
( i* D* o% g! v) X5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。
8 P. x8 E. f1 [; e
0 P: I$ [+ g. D4 ^1 ]: Q: e数据样本：从星相软件导出的：1 i* S+ r6 l' V% t9 ?2 S
+ d* \6 n9 X' G
01 一月 2013   -24°14' 58.7"  
( H  v$ J, }2 K% k9 t, J9 C7 o02 一月 2013   -24°20' 05.2"    z; v$ Q. D$ f* p8 N  e
03 一月 2013   -24°23' 54.3"  
5 d* G; W) \' F7 Y( i3 t04 一月 2013   -24°26' 24.8"  2 T' I* J; ]( |4 e1 `7 C1 d* u
05 一月 2013   -24°27' 35.6"  ! u' E- |9 c: f
06 一月 2013   -24°27' 25.5"  
' J; {# N3 }: d/ U1 k! c5 a07 一月 2013   -24°25' 53.3"  9 v8 [$ b2 Q- M/ p9 ~3 j4 h
08 一月 2013   -24°22' 58.2"  3 {. `  i$ t6 ~, b
09 一月 2013   -24°18' 39.1"  ' e, }$ F& y1 t% l( q' V
10 一月 2013   -24°12' 55.1"  4 L! D6 v" X8 s
11 一月 2013   -24°05' 45.2"  : A+ i8 P1 }5 O! m' b  T$ b/ t* b8 `
12 一月 2013   -23°57' 08.7"  
0 A+ z5 R1 g" R7 ?( v* {13 一月 2013   -23°47' 04.8"  5 Z  ~: i. B# N/ f
14 一月 2013   -23°35' 32.6"  7 R5 G2 K; ]$ |! O; S; W
15 一月 2013   -23°22' 31.5"  
3 p- V$ p. v  j7 R! w9 E4 n4 x16 一月 2013   -23°08' 00.8"  " ]; j! J; {" B- }
17 一月 2013   -22°51' 59.9"  # Q9 p6 }% T7 u8 J0 @
18 一月 2013   -22°34' 28.2"  
, l- V, \  i! l$ z19 一月 2013   -22°15' 25.2"  5 G6 ~$ B. b6 ~! ?* Y% |& r
20 一月 2013   -21°54' 50.7"  + m' }+ F7 y4 k9 y8 `
21 一月 2013   -21°32' 44.2"  
$ @7 A5 A% K. }3 a22 一月 2013   -21°09' 05.7"  " \8 H6 z; ]& S5 g4 s8 |
23 一月 2013   -20°43' 55.0"  " ~7 J: _* Q$ _
24 一月 2013   -20°17' 12.3"  / R4 |4 P$ F- n/ M9 V& a8 ^
25 一月 2013   -19°48' 57.7"  # S/ \4 M3 }1 L( v0 Q
26 一月 2013   -19°19' 11.9"  
: E' c$ q3 I" I+ d" K8 I27 一月 2013   -18°47' 55.5"  $ i2 o  m, d, ]( r% I
28 一月 2013   -18°15' 09.5"  
  |2 }, \- ~. ]4 [7 k5 h  I# D* s29 一月 2013   -17°40' 55.3"  
) y7 C4 ^4 ?( e! c7 D( X2 i30 一月 2013   -17°05' 14.7"  
& t& g/ J# q/ d% c3 a9 N31 一月 2013   -16°28' 09.9"  & U8 Z; e- M! v5 A( u
01 二月 2013   -15°49' 43.8"  
6 J2 X! C/ J6 a8 U) Z( ]02 二月 2013   -15°09' 59.8"  ( X6 O; ?; L4 |* a7 @, O- [
03 二月 2013   -14°29' 02.5"  
6 o; E# k! x) m& ?$ V! h04 二月 2013   -13°46' 56.8"  
; q; c! w8 w$ ~- Y05 二月 2013   -13°03' 49.3"  
& z2 U0 V2 d3 [  V) D- @1 ?. H06 二月 2013   -12°19' 47.2"  
* b. M6 ?/ _# i( q7 R07 二月 2013   -11°34' 59.6"  5 c. G( Y, [4 I' K
08 二月 2013   -10°49' 36.8"  
; V3 }/ M  J7 N* p09 二月 2013   -10°03' 50.6"  & d+ Q; i, Y# q6 O2 t+ X3 O
10 二月 2013   -09°17' 54.8"  
* T5 y+ [8 B5 H9 `2 u11 二月 2013   -08°32' 04.9"  
- s7 [: m3 z; c( y# Z5 |6 t12 二月 2013   -07°46' 38.1"  
! K) c$ S) B. ?: Y; g3 N13 二月 2013   -07°01' 53.6"  
+ r) h, U5 f" u) l14 二月 2013   -06°18' 12.3"  
- m7 l& Z" g) x( ?% D" ]15 二月 2013   -05°35' 56.2"  
9 v$ ]1 i" z  ]. I3 u, @16 二月 2013   -04°55' 29.1"  ' R3 l* w4 {* m4 E) G0 ?/ v
17 二月 2013   -04°17' 15.1"  : B) t0 C; E& O7 k$ \2 S
18 二月 2013   -03°41' 39.2"  
% B8 G5 w# I  M. e19 二月 2013   -03°09' 06.0"  6 Q$ [6 @1 N9 R3 o. ?& ~
20 二月 2013   -02°39' 59.5"  
' f, g5 S# T4 s21 二月 2013   -02°14' 42.3"  
. o4 o$ p. \( d% t, C22 二月 2013   -01°53' 35.0"  & K( r" J( P0 H# ^4 L# I; ]$ G
23 二月 2013   -01°36' 55.5"  
$ }$ L+ M6 b( C1 L# B% b+ f24 二月 2013   -01°24' 58.1"  
- x9 q) f; |7 Q( z25 二月 2013   -01°17' 52.7"  ) z! v3 h) e' k- z6 ^
26 二月 2013   -01°15' 44.0"  * c3 [! H5 A) W
27 二月 2013   -01°18' 30.8"  
6 T6 y5 _, d" _/ q28 二月 2013   -01°26' 05.5"  : y, p7 i& Y: ~- U
01 三月 2013   -01°38' 13.7"  1 H% `# E/ p. @* n; @  q; }
02 三月 2013   -01°54' 34.4"  
  Y% }; i# o7 l, Z3 U0 k1 s03 三月 2013   -02°14' 40.4"  
1 F& J9 }) F' b04 三月 2013   -02°37' 59.2"  # u, ]9 ^' [; X# I4 H. W
05 三月 2013   -03°03' 54.3"  9 N5 }9 y1 X# r% s* a9 Z7 X6 s
06 三月 2013   -03°31' 47.0"  4 a4 K5 J' ]" R( m
07 三月 2013   -04°00' 57.8"  
8 h' L8 R3 r- ]1 d8 r# j. d08 三月 2013   -04°30' 48.1"  
$ b0 X3 w' ]( r/ Q09 三月 2013   -05°00' 41.8"  * f; k7 B7 G5 v$ O2 `* X
10 三月 2013   -05°30' 06.2"  
" \6 J- `! |2 R$ `11 三月 2013   -05°58' 32.9"  ' l3 j% U, E7 T; Z5 R$ C
12 三月 2013   -06°25' 37.8"  
/ V: s: w0 Z) b% U2 d13 三月 2013   -06°51' 01.6"  1 ?- G( b0 g6 M: I( p
14 三月 2013   -07°14' 29.1"  
3 v5 I8 @1 {; s4 X15 三月 2013   -07°35' 49.3"  
0 B1 W! j2 x7 `, r9 ]16 三月 2013   -07°54' 54.2"  
6 l4 q! Y, g/ H- R* L& ^4 f( u+ g17 三月 2013   -08°11' 39.1"  
2 R$ p; N* _- T7 N" n" `18 三月 2013   -08°26' 01.3"  
+ Z+ x& C" J+ n; B9 x19 三月 2013   -08°38' 00.1"  ! h# n5 `- f7 r( c0 x8 b* `" Q
20 三月 2013   -08°47' 36.2"  
2 K( n- d. N" H7 ]( o21 三月 2013   -08°54' 51.5"  
; F/ ^3 w. r* P22 三月 2013   -08°59' 48.5"  
7 A/ S' R/ P* r& a1 {# m2 T$ ^& N2 G23 三月 2013   -09°02' 30.3"  
& u$ W: U7 l' g) k24 三月 2013   -09°03' 00.3"  
& Q, w7 k0 V! F25 三月 2013   -09°01' 22.3"  7 Q3 k+ p+ @0 y
26 三月 2013   -08°57' 39.8"  4 I6 w8 h+ M" ~2 N( D* a5 Y$ B
27 三月 2013   -08°51' 56.7"  
- e- m1 w" s' Q9 @28 三月 2013   -08°44' 16.7"  
/ F7 V) e7 v# J. c& K( \# v29 三月 2013   -08°34' 43.3"  
" t' B3 J5 k9 L& q- K# M5 ]30 三月 2013   -08°23' 20.1"
4 ]6 O' y( J8 P% H0 S4 K- l" M# p- ]: ~
这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
9 b, L0 y) U+ ^3 x! B* ~4 i) K4 Y" c
[ 本帖最后由 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 ~% c3 G# G3 Y2 C1 ]# m
水星
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 | 只看该作者
编写指标用 的数据，见附件% g& z  e9 }$ @4 T9 U; ]

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
4 F) _6 l; k0 k  R" ^: G9 b( W* Y4 T" m) j5 S5 `
cc:=數據;9 v+ d* C8 J! n, u% x
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);9 `! v" W0 y  r- O- Y7 k" m, N1 r6 z
vertline(ccsh),colorred;  {high}; D$ e4 B4 K) s1 q; Y* o
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
0 k8 G" o0 @1 n8 a* N2 z. Jvertline(ccsL),colorgreen; {low}
+ k4 b4 Y" Z! u" \# b8 x
! K* n) M" t* L6 h8 z7 @6 S# C9 e+ x8 m[ 本帖最后由 静芸 于 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 发表
/ x% N9 T6 l9 m' H8 q请问静芸  能改成飞狐公式么？

$ E, _) [, j, s! q
% Z( i  c/ [, l' m' i6 i这是飞狐公式4 @- X( }7 W. A" V( _3 x. o
第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

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

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 # N% Y5 f* n% H
再请问 怎么读写呢？俺不会
/ u  g6 f" r9 [) l

/ M/ y/ {, _8 l8 U+ ~哈,这有些麻烦啊!
0 E6 t  I8 s" r) N你把星相数据存在目录C:\Da.txt
- \6 E" o3 ?0 {档名是Da.txt
, v; x5 g/ ^7 H! S, t如果存在别的目录,如D:\hhh\Da.txt! M, w7 A8 f  M$ ]
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt! m2 p  X; n, X1 v. L
下面是飞狐公式,我也未试过,你自行试试吧
/ \2 I5 Q. b+ F0 k , C; e0 I* J' ^8 X# n/ P" ?. M
FoxDE:=DATE; FoxTE:=TIME;7 T+ |( _) \2 E& F$ d7 L. I
MyData:=C*0;+ g- B7 R4 z. G* H
<%% p+ W5 b/ f) d" q  Z$ F& h
MyData =FFL.VarData("MyData")
( j  z2 Z. g! D0 X  gFoxDE =FFL.VarData("FoxDE")  ~* }! e1 u2 f$ N2 T* E% r
FoxTE =FFL.VarData("FoxTE")
3 [+ T3 ]1 A8 L3 U4 QSet fs =CreateObject("Scripting.FileSystemObject")
( Y9 g. G# p, R1 H4 j* _. wSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
1 ]- `% a% _) T: X$ s5 Q5 IMyTxt = wrkfs.ReadLine4 ~! A; [9 k" j3 h# G9 L! @) S
wrkfs.close0 b) e) U" A1 [& ]0 K; W& g
TxtStr=MyTxt
! Z7 A6 M  I% r9 nTxtAry = Split(TxtStr, ",", -1, 1)& x3 N- j9 b. @1 [' L( W8 ]
GetDE=CLNG(TxtAry(0))) x' q8 V$ ]. O+ p
GetTE=CLNG(TxtAry(1))
. ^4 J; h! I7 d9 K# g2 TGetVV=CSNG(TxtAry(2))
5 G. [9 S0 s8 _6 xfor i=0 to ubound(MyData)7 W9 z( k2 _) M
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then( J% [/ a/ n- U/ I
MyData(i)=GetVV
6 O, G7 n) i; Y1 C; Yend if0 A% f1 k! M1 ^& J3 C9 B
next
$ C( j" H6 S/ g7 o! fFFL.VarData("MyData")=MyData* F- S9 p1 I. |8 E/ ]
%>
" r9 M- t0 S( c- ]' V% i7 N% A
; o8 Q1 D5 O- r: s9 jcc:=MyData;
" n- ^) M. n, ]ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);. F' D+ z& b9 {6 Q( c# K" ^& b
vertline(ccsh),colorred;  {high}* {' U6 G7 U# }" R/ l' D7 N6 c. W/ Y
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
+ R0 i/ l( }0 m8 i* z) c8 Y" lvertline(ccsL),colorgreen; {low}
: k  K& o: t+ j+ Z: z) d  N3 h* P$ C" U1 C! J
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

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

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢3 l- r8 _/ |. G6 B$ F% a5 g8 g: r

# ^' Q. U) P8 W; F1 u4 i我刚试一下。。。出现错误。。。静云帮忙看看。。。: t% M, W) V/ R" V8 S4 H, E! l+ |5 I
等我发图
! |" v# B1 R  ]9 H0 |' j' |2 K* r; S- Q" Y* s
: _( F/ f" a7 b8 I' x- o9 ?  D/ P
[ 本帖最后由 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 发表 2 l6 B( }& ]5 B* M. d- D
太好了。我试试。。。万分感谢
& Z" c9 p4 q9 J. G- B5 E' d" J# X) o5 M7 l1 C" ?) L. P) S
我刚试一下。。。出现错误。。。静云帮忙看看。。。
. D" E- D7 P" M- I+ H0 T等我发图5 Q. d: O& f9 s
110666

7 W5 H/ C8 ~# k
: \' @7 e0 n# C! k7 ^" t再试, 这读数据公式不是我编的
3 D' c5 u* w7 i4 \% e& w' L5 ]if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
9 y. L& G5 D+ J
. `: g# w* h$ ~2 }% m7 P1 P" z. S, U+ P" b7 P
0 i. u7 G0 d8 w6 A: e  g. L3 {3 h
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
; z+ K' x  x0 X1 W1 Z
. C; n- m+ z1 A" a, m4 Z5 q
还是不行。。。能通过测试，但一运行就出现这个错误：- k& a  ~1 ~# v( M$ y4 o* X: A5 [9 Y
见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 1 i, J! T1 P0 T/ E, {
1106682 g! m3 r7 B% d- V+ |# @* w" q
0 B3 |5 V& W( G7 g' e# V
还是不行。。。能通过测试，但一运行就出现这个错误：
/ ]  a2 `7 E) |) G% b0 P见图。。。
' W- k& [3 B1 J7 u

, Y7 T. Y' [* s! a& b3 D可能是数据檔的问题
% h( s4 h! u. i7 |数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行8 [2 e. x6 E. }& k7 v
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

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

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。+ A* j8 Y- \6 i# p; A) d( h) g
直接程序计算declination值数据然后显示
/ u: l: V. O  d% K$ C
7 v& ^, l6 h* `: b
: \* w& @! Y8 E) m2 v
! h2 I+ S, T' N$ s  J5 @$ ?[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

He110
23#
发表于 2013-12-18 17:02:04 | 只看该作者
% d& b1 N0 E. N* J, w3 i0 Y

* G! L: u, B/ o+ l8 O- T[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

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

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表 3 g8 R. g/ t4 {' U
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
1 [+ M3 f; x! M# V' H我是不是用错了？ 有其他办法吗？

! V0 y2 q4 A, |- n( M/ t$ |. M; q0 o( G
你好, 向下
9 A5 y9 b# L: l8 D0 Tvertline(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 t  L' g. }6 M  o5 i2 s$ W3 S: g, r

- m' z1 l; M. z, F$ D1 u
- M# x, e# n& u- Y你好, 向下& `, a1 r! P0 I; Y! O; h2 O/ D
vertline(cross(0,cc)),coloryellow;
) `9 e( {& p" d  ~( @, N
( J% K5 j( O& R0 H- U, Y% h
谢谢，可以了。! V$ k, R; f5 C6 b7 n1 g
0 }: o: |# i5 g1 a7 b9 {" [
原帖由 kaiser88 于 2013-12-18 19:34 发表 + k* `0 R0 D) @
he110 请问你公式怎么做的 我的也一样报错

+ o) b4 M( {: A4 P, Q
- G* q: q& |9 S- j. {) t+ r" x我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

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兄的这么平滑。。。
, j; W* M/ X( _& i
* W: \  [. a0 S5 ^prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

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

本版积分规则

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

GMT+8, 2026-10-19 20:21 , Processed in 0.150611 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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