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

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

 找回密码
 手机注册

手机动态码快速登录

手机号快速注册登录

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

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

[复制链接]
logoslogos
跳转到指定楼层
1#
发表于 2013-12-12 16:41:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助会编写指标的朋友，共同实现一个星相的交易工具：* i9 H) c8 J7 \* v
0 x9 T+ t  h$ \$ m5 L$ c

- ^* k4 M' ?  \- s" y
7 |' w, D. N1 b. c/ \: E( T: J% g/ D6 i: k+ ]/ o6 _# Q
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
# x1 Q- r% F6 B
( s- d9 G3 ]0 i, ^: t2 y2 L- m+ c) S) f
：
5 T( l+ B" _$ l( T6 t1.根据给定的数值，画出这样的曲线9 F% t* [% o+ S  }3 J  a
2.分别在曲线的每个拐点出画一竖线
) v/ C3 j0 ~2 u- P- r5 ~: T3.在零值画一竖线
0 z3 k( a( J" ]' Z4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。# C2 z2 |; d% H# X- v  v! C
4 e& S8 `" R0 q, r# S2 l) U

" Y; V. i/ x+ q! ~5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。
' }+ P9 r6 u. J& ~# F
2 f/ J  P7 S' x+ u7 {数据样本：从星相软件导出的：+ ^' O9 W5 |" f* Q8 M& D: }

& Q& u  A* l4 v" [01 一月 2013   -24°14' 58.7"  , ~0 r5 c& ~8 \( g# ~: K
02 一月 2013   -24°20' 05.2"  
' b" A7 o9 ?; G7 G4 q( I03 一月 2013   -24°23' 54.3"  / q) N' R  N3 ~/ K5 m! r6 [# J
04 一月 2013   -24°26' 24.8"  
9 F' K% V2 Z5 [% ?$ c05 一月 2013   -24°27' 35.6"  / |3 S% X& |, V: n  s$ D5 w% ^* l
06 一月 2013   -24°27' 25.5"  ) O/ D9 L* ~4 {
07 一月 2013   -24°25' 53.3"  7 S3 Y6 N% K! ^( E5 X
08 一月 2013   -24°22' 58.2"  : ~" A( t, o# I8 ~. i9 V- C* E& O
09 一月 2013   -24°18' 39.1"  
5 @& u. I1 f) K. p10 一月 2013   -24°12' 55.1"  
3 Z( N7 ?3 E* l5 i) J3 n1 N1 K11 一月 2013   -24°05' 45.2"  - D+ ?8 }$ r" K* [
12 一月 2013   -23°57' 08.7"  / p; l3 n' Z$ e( x" `% Y
13 一月 2013   -23°47' 04.8"  ' P$ `8 _! }7 z, C) B. P
14 一月 2013   -23°35' 32.6"  7 h4 P4 R1 O4 V( ~/ g
15 一月 2013   -23°22' 31.5"  
: `# X2 A+ ]3 v. N1 L  e% q16 一月 2013   -23°08' 00.8"  / d; D1 Z6 L" p& ]5 m  O
17 一月 2013   -22°51' 59.9"  & i* @% x) F* f% g7 ]* {
18 一月 2013   -22°34' 28.2"  
7 h1 ?3 H1 h* }! Q5 k3 q- D8 S( n/ k19 一月 2013   -22°15' 25.2"  8 [+ }" e  f3 W: T& P# d
20 一月 2013   -21°54' 50.7"  * T6 [6 ^; ~# x0 a/ B+ D9 K( h' Q4 i
21 一月 2013   -21°32' 44.2"  & o* x# h( N8 r8 l5 k0 f2 w
22 一月 2013   -21°09' 05.7"  
" f, r: d9 m+ R9 O' X; @23 一月 2013   -20°43' 55.0"  " Y1 @: u6 V0 q. U% i
24 一月 2013   -20°17' 12.3"  
4 T. ~% X: b  f) |/ C25 一月 2013   -19°48' 57.7"  
; L: j+ v" ~4 R+ |: _26 一月 2013   -19°19' 11.9"  
" E2 l. x4 s* z1 M  g6 I8 n27 一月 2013   -18°47' 55.5"  
( E- L8 x& |7 g% P1 E6 y/ m28 一月 2013   -18°15' 09.5"  
# q7 v* ?) _" ]6 Z6 U29 一月 2013   -17°40' 55.3"  
0 ]) @, ]. n) O; h! }30 一月 2013   -17°05' 14.7"  
  r9 c5 b6 r/ m8 e/ [0 L% _31 一月 2013   -16°28' 09.9"  ( s: U, q- U  r# q
01 二月 2013   -15°49' 43.8"  
) q( T) @0 r% q- j. r02 二月 2013   -15°09' 59.8"  
( f' L7 W1 ^: R# O03 二月 2013   -14°29' 02.5"  
$ ^. l) N8 N8 i, u04 二月 2013   -13°46' 56.8"  5 q5 K6 Q2 G4 N$ @
05 二月 2013   -13°03' 49.3"  * M# [0 v$ ~) t' R% a/ f/ f9 A. H6 o
06 二月 2013   -12°19' 47.2"  ! v& t& F' z% ]* V& Y
07 二月 2013   -11°34' 59.6"  ' G+ z- e# M% Z0 w& Z
08 二月 2013   -10°49' 36.8"  
3 S$ {4 N( A( I9 p/ t09 二月 2013   -10°03' 50.6"  
+ ]6 l0 [5 [2 ^- a9 N# H10 二月 2013   -09°17' 54.8"  5 A2 f2 r- o% l1 w& D0 K  P6 z
11 二月 2013   -08°32' 04.9"  
7 ~5 E! h- L+ ]) X5 c: l4 o12 二月 2013   -07°46' 38.1"  
) O1 o! B/ ^$ X8 n* ^13 二月 2013   -07°01' 53.6"  , Q) ?. @8 L; c
14 二月 2013   -06°18' 12.3"  
1 E, _; {8 ^( V% u* _9 O" |$ A15 二月 2013   -05°35' 56.2"  % ?5 G; Y1 |8 S: I; ^
16 二月 2013   -04°55' 29.1"  
5 p4 T: ]! G. U# d17 二月 2013   -04°17' 15.1"  
/ D" O& g( ]/ z+ G8 Q18 二月 2013   -03°41' 39.2"  
8 G" z$ N4 w0 M" y! y3 w. m19 二月 2013   -03°09' 06.0"  " J2 y" e) ?0 D0 x  p; @7 f' K
20 二月 2013   -02°39' 59.5"  
/ T0 G- o& S$ g! h7 D8 \21 二月 2013   -02°14' 42.3"  
/ h) N0 x, F( k4 L/ e22 二月 2013   -01°53' 35.0"  
& D8 ?/ i; x5 ^3 W23 二月 2013   -01°36' 55.5"  : L; c% R; y. ]5 f5 T. p
24 二月 2013   -01°24' 58.1"  
. B# L3 G* ^; e  }) C- H; l2 M25 二月 2013   -01°17' 52.7"  ; q' k; W$ p6 p  t
26 二月 2013   -01°15' 44.0"    h% g3 F( h3 f% F  |7 @1 `3 W
27 二月 2013   -01°18' 30.8"  
+ D  D7 C) V  P4 q6 m/ G9 c; l28 二月 2013   -01°26' 05.5"  
  A6 N4 d2 B1 O01 三月 2013   -01°38' 13.7"  5 L2 @0 h) Q& B4 @& n$ h6 ~
02 三月 2013   -01°54' 34.4"  + d, z) ]8 D" B8 x7 @+ C
03 三月 2013   -02°14' 40.4"    a, }$ b, L5 Q( R5 F9 s
04 三月 2013   -02°37' 59.2"  ' I  {+ q1 C# _1 Y) N. @% u! w/ S
05 三月 2013   -03°03' 54.3"  
$ Q  t! B9 l* F! S' D3 g06 三月 2013   -03°31' 47.0"  ; W9 x* y0 S' \6 s' ]
07 三月 2013   -04°00' 57.8"    b' g* a, f" P( O6 K
08 三月 2013   -04°30' 48.1"  ' d/ m8 {- B6 B. O  l% I
09 三月 2013   -05°00' 41.8"  
- Q4 {" a1 v: U4 e' ?10 三月 2013   -05°30' 06.2"  
% r' x( r3 W1 ~* u11 三月 2013   -05°58' 32.9"  
" S# T, ]3 ?% i! q3 E& L1 ]12 三月 2013   -06°25' 37.8"  
* U& X1 h4 |9 v7 @13 三月 2013   -06°51' 01.6"  
3 h% d( R1 }1 v8 d' m  ~14 三月 2013   -07°14' 29.1"  , @: E- _- f& L* z6 `; |
15 三月 2013   -07°35' 49.3"  
- |2 y* s9 ^% l( g' I16 三月 2013   -07°54' 54.2"  
6 C+ e. w+ o: _& D9 Z; U2 w17 三月 2013   -08°11' 39.1"  
) a2 F, E8 q# Y9 S+ \18 三月 2013   -08°26' 01.3"  + P7 M% G3 N7 Y3 s1 E5 R0 O
19 三月 2013   -08°38' 00.1"  9 Q) d( S& H7 V# w1 ^* o
20 三月 2013   -08°47' 36.2"  
7 r4 a+ ?# x6 e& X+ w. z21 三月 2013   -08°54' 51.5"  
9 B% C% ]5 y8 _5 C$ r22 三月 2013   -08°59' 48.5"  2 g. G( R2 d  `$ l8 e# y: \+ g
23 三月 2013   -09°02' 30.3"  
1 ?3 p$ Y& D5 ^" A! Y/ }: |24 三月 2013   -09°03' 00.3"  
! v1 r8 k9 u0 g1 u1 b25 三月 2013   -09°01' 22.3"  
1 k6 s% N2 s' {, u& b+ m7 z26 三月 2013   -08°57' 39.8"  2 I% x( X% p" \  t. D' x
27 三月 2013   -08°51' 56.7"  1 J! S+ k( b! |1 n8 v: y* g
28 三月 2013   -08°44' 16.7"  3 `( h# }7 I, p; ~: C2 q% J* `" s
29 三月 2013   -08°34' 43.3"  . e" ]5 {9 A0 O! _. T7 G
30 三月 2013   -08°23' 20.1"
6 ~: ?5 a( R; c' S' f2 s
" h8 S& G+ b- g  }, `这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。; P* T; \9 f9 j$ v/ z- s  }" U" W
! p! O, ~3 G: s5 e' i" j
[ 本帖最后由 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 | 只看该作者

! [! P1 j& p8 B2 N# q  a9 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 | 只看该作者
编写指标用 的数据，见附件
1 j' `/ Y6 i" ^+ t  b, @

本帖子中包含更多资源

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

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 | 只看该作者
飛狐1 y+ k; b3 @7 V( w2 I# q
3 n, X1 z8 Q' c. ~9 m1 k: E7 A
cc:=數據;5 |( `5 o$ d2 t. Z' J) Q
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);! t& ?# H5 w9 u6 |! r) H
vertline(ccsh),colorred;  {high}. O: d7 ~3 U* ^2 o
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);3 C# b/ w, w' x3 {
vertline(ccsL),colorgreen; {low}! R5 l8 h6 f8 k* Q

+ U/ w! a: b* u0 a" H[ 本帖最后由 静芸 于 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 发表
8 c1 r6 Y( @# y; `$ X5 W请问静芸  能改成飞狐公式么？

- Q1 m- O& }7 y" d+ R+ a8 E" l
7 m( m8 J5 I3 |/ b+ N3 E这是飞狐公式
4 C' G8 U0 k  ~: I0 W6 N第一列的"数据"要用读进来的星象数据取代
回复 支持 反对

举报

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

举报

静芸
13#
发表于 2013-12-17 12:58:08 | 只看该作者
原帖由 kaiser88 于 2013-12-17 12:35 发表
' ~5 r3 X8 w: K+ U  ]. J再请问 怎么读写呢？俺不会

& E2 L1 T$ z% v# r- ^- j2 v/ S$ U0 o2 C" J
哈,这有些麻烦啊!
* A$ V5 K1 @  {7 w+ U4 ^你把星相数据存在目录C:\Da.txt
4 Q7 s4 G/ T) c/ y档名是Da.txt
2 ?5 L) Y; t" @如果存在别的目录,如D:\hhh\Da.txt8 H4 O$ q) }6 X5 v) t0 o$ G
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt$ [. H- p6 c0 _2 a6 K5 K. a4 F( S8 V
下面是飞狐公式,我也未试过,你自行试试吧0 l3 a* p% {9 w
- l+ g( G' V6 s8 V
FoxDE:=DATE; FoxTE:=TIME;
3 d1 u, p7 g1 z" K+ E7 D8 H% W% v0 ^MyData:=C*0;
7 ^3 c; N& B8 y% z6 ^2 k) ~<%
; m2 `" n# f& S  U1 c' VMyData =FFL.VarData("MyData")" _: e( G. _: y! M: y# e; ~9 a
FoxDE =FFL.VarData("FoxDE")
' o5 `. U# Y6 r4 _) |5 |8 D% WFoxTE =FFL.VarData("FoxTE")
+ {( e8 y" I3 o" p. USet fs =CreateObject("Scripting.FileSystemObject")
/ G2 u) ?: H) {Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)3 i% ]) p5 g5 f8 e" u
MyTxt = wrkfs.ReadLine5 A, @; F: H2 o8 d
wrkfs.close
+ ?" G9 X" k, ?3 ZTxtStr=MyTxt0 W) S$ W$ o3 E8 O/ a
TxtAry = Split(TxtStr, ",", -1, 1). a- L, r( w7 i7 q  o
GetDE=CLNG(TxtAry(0))* f0 w& p0 _2 |. L1 C( {
GetTE=CLNG(TxtAry(1))
$ I& J, r2 X5 _, }$ X  ^" S: p8 [GetVV=CSNG(TxtAry(2))3 D; W1 t  E' M5 X
for i=0 to ubound(MyData)) p- n+ {% N8 I# w
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then3 j# V% J- K2 x& G
MyData(i)=GetVV
+ I# v1 i0 e# l8 @  Cend if7 ]2 Z7 U$ g- V& G+ w- k
next7 @% v, S" w7 x& x" N( p
FFL.VarData("MyData")=MyData4 _3 `! w& Z2 ]* n! I+ W
%>( y& m9 A  I( z" Z* A( g1 g
0 L# g% Q6 A5 X/ F+ |
cc:=MyData;# I7 s4 b* B; R* d
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
! t1 G' z8 W- X+ n) a/ kvertline(ccsh),colorred;  {high}2 G/ }: V( R  q: S% y( S3 |7 s" ~- ^8 j
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
/ R6 D: i8 m- V. C$ g5 A$ Rvertline(ccsL),colorgreen; {low}; p+ a9 V0 N' |. z3 d$ m
# h7 Q& m, G+ ?0 j3 \% Q/ O* G% P
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
回复 支持 反对

举报

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

举报

logoslogos
15#
 楼主| 发表于 2013-12-17 19:53:41 | 只看该作者
太好了。我试试。。。万分感谢
& y0 |+ }2 z7 V7 Z- K
! ]5 z  f! n. z1 W8 O4 d0 f5 x; [我刚试一下。。。出现错误。。。静云帮忙看看。。。' R4 R7 C" y' w. w
等我发图
% v/ i: G6 u: V$ C
( E9 j; N! |3 V. Z2 b5 |3 _! @+ Y8 w: b& J- E. `. I
[ 本帖最后由 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 发表
. H1 o' s4 g& L  ~8 R太好了。我试试。。。万分感谢
  y) R9 U* I% t* Q8 _0 d9 G$ }( P0 G0 f
我刚试一下。。。出现错误。。。静云帮忙看看。。。
8 K" u! e8 w& s% V等我发图4 ^$ b7 c$ f3 F- a8 }  g
110666

7 R( @3 @6 K# q2 [
+ d8 v, y/ G9 {* U+ U+ r& w2 N- G0 N再试, 这读数据公式不是我编的
3 x3 C2 L5 s6 ^  B- b% V, Fif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
  [# F0 a5 E8 ?7 ~$ _9 b4 U, T  x1 B- h- h# p
3 X$ L- q/ T' ~( P8 i- [. ^4 n
7 P2 F4 S; W  n3 C3 P2 S
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

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

, X+ B8 W& s, u1 {3 q! i5 d1 A7 @( u7 t+ ?6 F/ x
还是不行。。。能通过测试，但一运行就出现这个错误：
) @# n% p$ g) H& k4 V& T见图。。。

本帖子中包含更多资源

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

x
回复 支持 反对

举报

静芸
20#
发表于 2013-12-17 23:30:18 | 只看该作者
原帖由 logoslogos 于 2013-12-17 21:55 发表
1 p3 W8 m4 [7 L+ ?3 n. h1106683 _2 z9 p6 a# U- O) x% h

" F8 {! k4 l0 `7 n! V还是不行。。。能通过测试，但一运行就出现这个错误：; k$ z8 ~2 P# }6 |3 {5 F
见图。。。

$ G+ q# y  i8 ~, I3 O
6 w3 U$ Q6 `6 r% u/ |# D5 |: r可能是数据檔的问题& D2 o9 i3 F4 p: I5 m
数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行6 j0 z8 i& A; z5 e4 a- }
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
回复 支持 反对

举报

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

举报

He110
22#
发表于 2013-12-18 15:59:29 | 只看该作者
应该不用导入数据吧。。。
& l" E3 n6 E8 z' d* j9 z直接程序计算declination值数据然后显示" C' @' O! U6 M+ K0 {' Z

4 M0 l$ Y. e/ T! C. R; R% N$ S1 v6 E, L* M5 u
' |6 {, x. E0 y  m+ B0 }9 @
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
回复 支持 反对

举报

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

2 W" e- e# |6 r5 j( M) z% Z3 y& K+ f1 @8 G& Y7 f! g) h. J
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
回复 支持 反对

举报

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

举报

静芸
25#
发表于 2013-12-18 19:03:25 | 只看该作者
原帖由 He110 于 2013-12-18 18:09 发表
( A5 n% [6 H, D  M4 @( R& J3 ]+ T, Z请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。, g, [( N3 g9 o
我是不是用错了？ 有其他办法吗？

4 O: ?8 g( E5 N3 r+ }- n- y0 t! ~4 \4 c! @3 v, E* D
你好, 向下! W* E5 M" T# E9 I8 K
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 发表 ( Q, f+ W" E6 e% X5 z
; x% v0 |! r8 \6 i! b: a# v; C

+ G6 e8 _( s% `7 L你好, 向下6 l' t+ [5 m: n1 l; o" V; s
vertline(cross(0,cc)),coloryellow;

9 W7 _; o  o( y- A8 R7 e6 e: Z3 ~. @+ [! N. g$ R7 S
谢谢，可以了。
1 |5 p) I+ E: }7 B+ I
4 Z2 @5 M* z0 h6 }
原帖由 kaiser88 于 2013-12-18 19:34 发表
5 y6 j; X' M8 w+ r! Dhe110 请问你公式怎么做的 我的也一样报错

* Z/ a: `4 F/ {+ V9 D* T; C+ y
) L2 u( ~; ]/ F' O5 t' q5 O* \我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
回复 支持 反对

举报

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兄的这么平滑。。。( |! @+ p6 c5 A7 U7 A* d$ ]+ f

; D* r0 Y; x3 m. H! @% \prayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
回复 支持 反对

举报

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

本版积分规则

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

GMT+8, 2026-9-4 00:15 , Processed in 0.366143 second(s), 20 queries .

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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