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

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：9 z2 u5 V& ]9 D+ B
3 H' G. o- a4 z+ ?

6 c- m3 t) k. m& P# G4 R3 F4 t) d0 X) p6 i7 _4 n8 G
' Z* j( h: x8 _( r
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
- y: {# i, b, s2 o3 {2 I, a1 ^7 ?9 ]
. e$ j  a% U3 n9 Q" \. [8 O* U6 z0 O5 U+ X
8 x6 G- z! O+ O! V) L4 @2 I4 c1 k：1 d  o6 ]2 J1 n7 }9 k
1.根据给定的数值，画出这样的曲线$ ^  \3 A( t" r: L/ _2 V9 T
2.分别在曲线的每个拐点出画一竖线
- S8 M6 r  A" v3 @; R7 d. O6 N. i3.在零值画一竖线4 k7 F" |4 h3 J# x/ |# ]
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
- \) V* U3 j; ?4 Q% R3 Z9 k8 C- Z5 D' V: ?8 A$ Y

7 T$ x4 o; Y7 Y7 n5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。
& C$ }$ Z6 [4 [4 v- g
3 [+ m7 _, f. F( h数据样本：从星相软件导出的：
) q! U# Y, L. a4 X# ~- @1 Q0 d9 u) X2 z3 Z. y5 d+ F! g
01 一月 2013   -24°14' 58.7"  , k, Q& H7 R3 G$ t5 Y+ D
02 一月 2013   -24°20' 05.2"  
% f( M+ C* ?3 M03 一月 2013   -24°23' 54.3"  " [  t. x' V( Z9 G5 M! b' v* E
04 一月 2013   -24°26' 24.8"  3 E( t( Q/ y" M7 c: \) L* F% l% e, l
05 一月 2013   -24°27' 35.6"  
$ q% ]3 K4 X( U06 一月 2013   -24°27' 25.5"  
+ n  [; r: h- Y3 {* B07 一月 2013   -24°25' 53.3"  
2 J8 ]. z4 C" Y08 一月 2013   -24°22' 58.2"  2 g0 H& N( j$ g
09 一月 2013   -24°18' 39.1"  , y- f% @1 v$ H# H$ |1 w
10 一月 2013   -24°12' 55.1"  . b* }9 I# ^1 `& {# F7 y4 L
11 一月 2013   -24°05' 45.2"  
: b+ c2 i6 g2 C12 一月 2013   -23°57' 08.7"  % }& ?& h$ \; |$ @2 a
13 一月 2013   -23°47' 04.8"  
$ q. u, K1 d% S& |14 一月 2013   -23°35' 32.6"  
  g1 n5 U; C7 P6 [6 T15 一月 2013   -23°22' 31.5"  
  {8 ?2 T; i7 ~' S16 一月 2013   -23°08' 00.8"  2 W  P- A3 G5 d, G; {1 Z" w* [
17 一月 2013   -22°51' 59.9"  * q4 O1 y* I( C# ~  F, `
18 一月 2013   -22°34' 28.2"  
9 y2 u& F4 P7 }& [  F: X! l' S19 一月 2013   -22°15' 25.2"  
' H) k6 o( _! f* {  v, j20 一月 2013   -21°54' 50.7"  ' G5 `/ x( Q: _
21 一月 2013   -21°32' 44.2"  
3 s1 }0 N+ f/ R/ k4 f22 一月 2013   -21°09' 05.7"  % h3 I" Z8 X6 F5 i; H. U
23 一月 2013   -20°43' 55.0"  
( U4 \$ ^1 K6 [' l24 一月 2013   -20°17' 12.3"  ! g0 |% A; [9 B* `  K1 G; n
25 一月 2013   -19°48' 57.7"  8 H/ {* p6 r( H( ~
26 一月 2013   -19°19' 11.9"  . C  S0 X6 W5 ]. ~  R( G& u7 K
27 一月 2013   -18°47' 55.5"  
9 {/ U5 e! F4 H; I4 H28 一月 2013   -18°15' 09.5"  2 D0 v% Q; ^+ j+ G/ r" j
29 一月 2013   -17°40' 55.3"  
; E+ e) w4 O) k- y( c4 k& K1 R30 一月 2013   -17°05' 14.7"  3 ?# [0 F2 G' U9 ]
31 一月 2013   -16°28' 09.9"  
3 x) M+ }  d+ J% P01 二月 2013   -15°49' 43.8"  % v3 u$ J( f' S8 f$ P& Q
02 二月 2013   -15°09' 59.8"  
7 A" g, p" T9 P" s( Z" H! F03 二月 2013   -14°29' 02.5"  7 l* ^% O& i" d) ~7 e3 G4 ~8 l
04 二月 2013   -13°46' 56.8"  ) m: L3 F% F  {4 v9 h
05 二月 2013   -13°03' 49.3"  
4 j0 ^2 ^( A0 z1 z! V06 二月 2013   -12°19' 47.2"  9 S; \7 m& M5 q. U, b
07 二月 2013   -11°34' 59.6"  - I" m6 h( R# B# K  e% ~: z
08 二月 2013   -10°49' 36.8"  
* l8 W7 c  U4 z) q' R  H09 二月 2013   -10°03' 50.6"  
$ }9 E9 t$ x% C2 U! r10 二月 2013   -09°17' 54.8"  ! j5 N8 {' B$ Q0 i* n
11 二月 2013   -08°32' 04.9"  
6 J% a0 }5 x5 o7 E! R) e12 二月 2013   -07°46' 38.1"  
2 J# K8 o; s/ H13 二月 2013   -07°01' 53.6"  ) S) E' s* \5 d4 B% a
14 二月 2013   -06°18' 12.3"  
. l# _% ^, z6 l, `15 二月 2013   -05°35' 56.2"  0 W0 ^+ h8 W; ^7 q' O
16 二月 2013   -04°55' 29.1"  0 y0 k0 _  A( T# l( L& @, W
17 二月 2013   -04°17' 15.1"  
. ]" A8 Y) S" y18 二月 2013   -03°41' 39.2"    F2 f5 W; y- F* U- w4 c# C1 V5 F
19 二月 2013   -03°09' 06.0"  9 l3 c" k0 q9 O$ n& e, D
20 二月 2013   -02°39' 59.5"  
5 ~$ e7 J& W0 _  ~' r  b; ]21 二月 2013   -02°14' 42.3"  : h9 Y5 c1 V$ H4 I4 a
22 二月 2013   -01°53' 35.0"  $ [4 ]3 B+ F5 X( Q9 P: ~" J4 Y
23 二月 2013   -01°36' 55.5"  
* p" O* p$ o* V- E0 ]24 二月 2013   -01°24' 58.1"  
4 f& U6 l4 Z' ~" X0 `) d25 二月 2013   -01°17' 52.7"  ; H% q& R* w+ B0 R' D; j
26 二月 2013   -01°15' 44.0"  
* u$ ?9 S1 ?3 o1 M27 二月 2013   -01°18' 30.8"  
% N3 |$ {6 I! {28 二月 2013   -01°26' 05.5"    ]( `( V  E% ?3 }) t+ B5 T8 F
01 三月 2013   -01°38' 13.7"  1 Y. n; P  K5 d' W- V- `8 ]
02 三月 2013   -01°54' 34.4"  * }1 c/ E# n3 Y: v4 k
03 三月 2013   -02°14' 40.4"  
; I3 s  L) |5 T$ d$ k+ [04 三月 2013   -02°37' 59.2"  
- b  s/ a1 d& \# p% |$ }* S05 三月 2013   -03°03' 54.3"  
6 D: a7 k6 B  W/ |, ]5 ?06 三月 2013   -03°31' 47.0"  
" J- W/ |# w6 z8 F2 A. C7 L07 三月 2013   -04°00' 57.8"  
* t& D/ n$ Z2 N' |3 ~# _08 三月 2013   -04°30' 48.1"  
0 m7 b  L. w: K$ R3 H09 三月 2013   -05°00' 41.8"  
! Y* Q" |/ @' V1 X* \. n3 i1 K10 三月 2013   -05°30' 06.2"  $ _0 U2 H) U5 w+ L6 z1 C1 V+ i
11 三月 2013   -05°58' 32.9"  ! ^- r. ]/ Y; T5 |, a
12 三月 2013   -06°25' 37.8"  
6 y. r# E+ f; j13 三月 2013   -06°51' 01.6"  . w( T! u- }7 a2 O# h/ ?
14 三月 2013   -07°14' 29.1"  
$ y; [. t. u8 v3 Z, C' x1 B15 三月 2013   -07°35' 49.3"  
; u  n* K4 ]3 B: _+ ]! k& B: m2 I0 R16 三月 2013   -07°54' 54.2"  4 [$ x  U4 a4 M9 M
17 三月 2013   -08°11' 39.1"  
9 |" F! ^' u" B4 @6 }& D8 d! P' e18 三月 2013   -08°26' 01.3"  
* d" l6 R$ G. t: c4 \/ P19 三月 2013   -08°38' 00.1"  
: f$ x! Y+ X- ^3 h6 f20 三月 2013   -08°47' 36.2"  
" E  U' Z7 d, [1 a: Z- L21 三月 2013   -08°54' 51.5"  ; Q* f: A2 \4 Y& T' G7 ]; C1 [& O
22 三月 2013   -08°59' 48.5"  
, u* |$ o$ _. X& X9 Q/ E4 \23 三月 2013   -09°02' 30.3"  
+ G3 F( p; e6 z& ^% ~24 三月 2013   -09°03' 00.3"  % U- }8 n+ h* }+ w8 ^/ R
25 三月 2013   -09°01' 22.3"  
, K( }- Y$ |( |! |/ |0 }$ b26 三月 2013   -08°57' 39.8"  
5 I7 H) s5 A: f  a6 O27 三月 2013   -08°51' 56.7"  
' I1 t3 e% i* B# T28 三月 2013   -08°44' 16.7"  
" N, a2 Z6 W, Z. p: H) F' x29 三月 2013   -08°34' 43.3"  ) ~" X  [7 {4 s/ N5 p
30 三月 2013   -08°23' 20.1"
0 Q9 D% K: g3 I" _- K/ g5 M+ B+ B+ e5 t. E
这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
( g9 \3 Z( z( J2 I+ b6 b9 C( T0 h: K" `" [
[ 本帖最后由 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 | 只看该作者

. Y& f, \1 d, k: J
水星
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 | 只看该作者
编写指标用 的数据，见附件7 ]: F- y" g* G& i7 N

本帖子中包含更多资源

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

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 | 只看该作者
飛狐
9 P: e' z9 }; E2 N5 y/ d( g9 M1 [
cc:=數據;
/ ?; ~0 p) i2 s6 eccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);* K7 p$ G8 S7 m9 M% F$ d
vertline(ccsh),colorred;  {high}) v& j+ ^0 @4 c/ i
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
% r# i2 q2 k: Y0 Z! svertline(ccsL),colorgreen; {low}3 k6 g' k0 B, Y5 M  v# {

5 |+ O3 @4 k$ f' p4 \" f# w[ 本帖最后由 静芸 于 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 发表 , E* h/ R0 T" V
请问静芸  能改成飞狐公式么？

5 Z1 k( j0 N4 s$ g+ l1 l3 \- }" o
9 E6 n1 ~' _5 f4 m& s这是飞狐公式
2 |" U& t5 d$ V* e第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

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

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表 9 J7 n  Z5 S4 \' e- i
再请问 怎么读写呢？俺不会

# h( Y2 ?  e6 C5 H# Q1 q1 J0 ?: w( L, `. P
哈,这有些麻烦啊!
, \0 G& h% A! q# I1 Q- L你把星相数据存在目录C:\Da.txt3 h, x2 G+ s2 c$ h" N" _4 R' R
档名是Da.txt7 n6 l* ?: M) U6 X/ {/ l
如果存在别的目录,如D:\hhh\Da.txt
$ a$ Y( L+ D# O; S3 f6 ?那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt0 A. O; O6 ]1 @
下面是飞狐公式,我也未试过,你自行试试吧
9 t: Y( L) {- u3 Q* x
& o3 ]: G% J, J5 _& eFoxDE:=DATE; FoxTE:=TIME;
: a! r7 D3 ^" n2 E$ ?MyData:=C*0;' o# X9 S$ f* l, q: o% z  `# G3 m
<%
: L9 u7 b! p" f3 a& pMyData =FFL.VarData("MyData")  e* e- R( v$ n! @  ?
FoxDE =FFL.VarData("FoxDE")
% b8 ?8 j6 ]) g9 UFoxTE =FFL.VarData("FoxTE")
- {! |7 j* Y" a7 cSet fs =CreateObject("Scripting.FileSystemObject")6 z9 V. M& o# O. K1 x
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
% d: @* D: C2 v% ?MyTxt = wrkfs.ReadLine3 ]- _# h1 a! U9 z2 a* u) G/ k; a2 N
wrkfs.close
. U: H& R. Q8 l: f7 U  C) \- P! tTxtStr=MyTxt" k1 o- p# N5 p0 S
TxtAry = Split(TxtStr, ",", -1, 1)5 j2 S+ _6 ^5 q/ I2 v$ _; N# c! J
GetDE=CLNG(TxtAry(0))
! `( }# K/ L& KGetTE=CLNG(TxtAry(1))
, h7 E; o4 U! }- V* J2 yGetVV=CSNG(TxtAry(2))
- `& _8 O/ o. w  _6 ]3 g/ T! [for i=0 to ubound(MyData)
; A- X4 t/ j+ I. |, A$ L4 Kif FoxDE(i)=GetDE andFoxTE(i)=GetTE then3 ]4 R0 r* f% E# [# d3 C
MyData(i)=GetVV
9 [2 Q3 N7 f, ^/ `4 E2 R  pend if
9 `0 c) T, Y' [: w" g7 Anext- {  n6 m# q% J/ i8 f
FFL.VarData("MyData")=MyData
3 c8 X  j/ `% I" a. g+ I2 s" k%>
( F* f: c) _! t' v# i* g3 X& j9 C4 h
cc:=MyData;
% N0 k% O; K$ ]* N7 J, ^3 Nccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
' k. c- m) ?( A" lvertline(ccsh),colorred;  {high}
4 ^3 ^2 D+ C5 j! ZccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);- U  x7 R) n& ^6 B6 P& N/ e" f+ O
vertline(ccsL),colorgreen; {low}
, ^2 d. p7 |1 H
, t1 `$ j! V7 A" n[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

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

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
6 h7 j5 ^: r8 Z& D2 b/ a
+ Y% K) X, Z* ~! I( Y+ }4 p我刚试一下。。。出现错误。。。静云帮忙看看。。。
/ P7 y! @- m$ W" D7 x8 w: J等我发图
, |& J  X! S+ D( ^* q8 U
0 c& f' j8 l. u) G; Z; ?8 G4 ^6 h! ?3 Y9 ]. ]( a
[ 本帖最后由 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 发表 - D/ S) [  I! {: X
太好了。我试试。。。万分感谢
1 X1 J0 X7 `  ^4 j! ^: H) H8 ~, j7 z) r5 \9 L! [. v
我刚试一下。。。出现错误。。。静云帮忙看看。。。+ t4 Q) [3 l1 P" t" L; t
等我发图
- p6 q7 c) @" k6 g* V0 u1 K( ~; v* _110666

" k" I+ f) c6 f  _0 p7 b8 _3 d4 \+ b6 }
再试, 这读数据公式不是我编的
- P0 M6 U/ k4 E3 F2 jif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then) w1 g9 O; K) M. \
( x* Y5 ?8 j2 B9 _9 `

+ `$ A) |; u2 Q# ]& P6 \' `$ A8 a* D, ]
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

logoslogos
19#
 楼主| 发表于 2013-12-17 21:55:06 | 只看该作者
# t. |" C4 E4 a" e) L( G& H

- ^$ D) n* E- a. }# [: Y) a$ m& o还是不行。。。能通过测试，但一运行就出现这个错误：
, i, _( I: ^3 y) o见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表 ) r$ r% o+ K4 F4 m) l7 |
110668" S( p; F( w" c7 V; w
9 Y6 C9 F2 q6 K) S+ i# [
还是不行。。。能通过测试，但一运行就出现这个错误：
7 ^' u+ x* K/ `5 e8 m  D见图。。。

4 V2 g5 b$ ?5 J; a) C" u4 }5 e
4 w3 l/ z7 H; v+ w可能是数据檔的问题
$ e: U, r, y- S数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
/ H) n$ j. t2 l: \原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

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

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。7 k  v0 [' m$ ~' z! C, i$ }; E
直接程序计算declination值数据然后显示
$ B! W, L/ J, c' [
6 e( A0 o+ u/ L. m% v( s' J; q6 T' I% T2 {% ]' }  x" ^2 _* L

, C$ k& f9 k# z. z; g6 @[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

He110
23#
发表于 2013-12-18 17:02:04 | 只看该作者
# l+ U# u# F7 o/ k

: S& t3 _4 ]0 F1 h[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

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

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
. X& T7 u3 s8 a1 }& \) R请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
9 G6 X. \- V4 g9 @, K1 J我是不是用错了？ 有其他办法吗？
7 K4 G5 `  K/ f* l* U- Z) h

% G0 W' V$ V/ w; [+ s  d8 e你好, 向下7 b, R* R" M. L1 I9 }0 G6 t
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 发表 & T7 e' m9 v9 N7 r( s; ?
+ Q$ z! H! F' x& z

- n6 Y; H5 _: g$ B2 s7 Z你好, 向下) T9 U; ^( Q/ U
vertline(cross(0,cc)),coloryellow;

, @( R8 C0 j/ R$ R9 {; r
" \4 @; S  s. [# Y  u/ B+ c谢谢，可以了。
; F: L7 d! A7 H
; T* K1 q* ~0 T3 h" y5 l
原帖由 kaiser88 于 2013-12-18 19:34 发表 $ a* n6 F. x- d" U2 t* h1 U/ E6 C5 Z
he110 请问你公式怎么做的 我的也一样报错

( y% {3 s! a4 `) d1 t5 `: T0 `3 Q$ M5 i) R( B* H8 v
我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

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兄的这么平滑。。。
) S9 ~! V. M5 k: O, r- G" y  b
4 D5 v4 d" c$ }prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

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

本版积分规则

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

GMT+8, 2026-6-3 00:46 , Processed in 0.177139 second(s), 19 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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