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

标题: 共享一个星相交易工具，求助会编写指标的朋友 [打印本页]
作者: logoslogos    时间: 2013-12-12 16:41
标题: 共享一个星相交易工具，求助会编写指标的朋友
求助会编写指标的朋友，共同实现一个星相的交易工具：
0 S6 l, V. W- {! d8 t[attach]110649[/attach]: A$ Q: G1 i3 Q$ |6 a" {% [

# a5 ]! ]; S! P3 ^4 d6 Y( S
0 g( y" }' ~# t. l" {
2 F, x$ N6 Z" c# [+ Q/ U) t% f6 D8 T这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的
" Z* g& c2 Y+ H# p* Y
/ O& ~* Z0 g! X8 a# b$ T: s9 K+ W' v
：
6 \/ ~6 e. T. h/ f% g1.根据给定的数值，画出这样的曲线( l8 `* w; b5 W" K
2.分别在曲线的每个拐点出画一竖线9 Y3 t1 t5 e; a5 U6 b
3.在零值画一竖线+ p0 k/ \% a0 @5 F( V, M" J
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。" L: t0 v. n6 a9 r
  ]/ r6 z- V" {! ^5 r
) q9 g# ^7 E/ F/ _' `- c# `1 b+ q- ~( u
5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。4 Y: T2 \; ?5 N8 ^
8 @3 S2 Y9 D, M6 ^
数据样本：从星相软件导出的：
# o) t4 M3 i* W# m9 v. g$ o8 E  r' T9 M; }8 ^" Q0 A
01 一月 2013   -24°14' 58.7"  
* H6 c; F+ S: L( P- E02 一月 2013   -24°20' 05.2"  
4 D% }! ~1 m9 ~0 n* R7 V03 一月 2013   -24°23' 54.3"  . C# K. K6 [; ]
04 一月 2013   -24°26' 24.8"  ' R0 B6 f% d) t9 z9 C7 g9 h
05 一月 2013   -24°27' 35.6"  2 \1 }7 O. Z1 |& H
06 一月 2013   -24°27' 25.5"  " \5 F5 e8 ^; o, k; M& R
07 一月 2013   -24°25' 53.3"  
2 F; V& c6 k/ p. s' }7 o08 一月 2013   -24°22' 58.2"  
. d2 m8 d" D! U, E- ?5 s09 一月 2013   -24°18' 39.1"  
" Z9 k1 g" `1 z10 一月 2013   -24°12' 55.1"  ; B( x$ U$ O  W( @- ^
11 一月 2013   -24°05' 45.2"  
6 N( k' e" @' J2 A% P8 K12 一月 2013   -23°57' 08.7"  
& D, Q+ n) y& ]2 N; O" u13 一月 2013   -23°47' 04.8"  9 |4 Q1 |% O# Z* O
14 一月 2013   -23°35' 32.6"  # ?/ s& t+ X7 C- v
15 一月 2013   -23°22' 31.5"  . K2 ?) ^3 k- `2 G9 n0 w
16 一月 2013   -23°08' 00.8"  2 {4 v! c9 j1 ]6 Y# P- o. r
17 一月 2013   -22°51' 59.9"  & Z' r) ~# t" g5 \+ L
18 一月 2013   -22°34' 28.2"  , }0 @4 l" S/ [* _
19 一月 2013   -22°15' 25.2"  - @) I8 z! t2 j, L' t* `7 L* R! X
20 一月 2013   -21°54' 50.7"  $ j$ D. R5 {) A6 P$ a# c
21 一月 2013   -21°32' 44.2"  2 e. m& `4 ]5 P% I
22 一月 2013   -21°09' 05.7"  
. D: [* L* n9 w% \7 G23 一月 2013   -20°43' 55.0"  8 ]1 B* T$ P( K5 z" r0 v
24 一月 2013   -20°17' 12.3"  
: y2 }+ a8 t; k25 一月 2013   -19°48' 57.7"  
( E: _% j" O" s26 一月 2013   -19°19' 11.9"  
% ^, H9 f) I& a# W% l27 一月 2013   -18°47' 55.5"  
6 x' }: D- R5 o' s1 i8 H7 B28 一月 2013   -18°15' 09.5"  4 k" x+ d0 x6 }- u& q+ z
29 一月 2013   -17°40' 55.3"  / ?4 D: z; G$ j6 J
30 一月 2013   -17°05' 14.7"  3 j+ a5 x: R* \
31 一月 2013   -16°28' 09.9"  , X& e/ f6 y$ }" j" f
01 二月 2013   -15°49' 43.8"  
* i, J& `  s- v3 `3 @" T( w, A- `02 二月 2013   -15°09' 59.8"  
7 U2 D3 J. p9 [  H2 b% N5 l$ B6 V! W03 二月 2013   -14°29' 02.5"  / [! J$ a1 t$ H1 h5 ?
04 二月 2013   -13°46' 56.8"  . L5 X/ \: Z/ M# o) h* f4 l
05 二月 2013   -13°03' 49.3"  2 E; x! V# N  b6 i/ n6 H& b0 m2 T
06 二月 2013   -12°19' 47.2"  4 G1 E" x, v8 ~* @4 E! }& e' p) d; M' v
07 二月 2013   -11°34' 59.6"  
5 i2 x) ]2 Y0 L& @08 二月 2013   -10°49' 36.8"  7 F( f4 }/ n: o" M6 A& d7 ?
09 二月 2013   -10°03' 50.6"  
# @1 }8 M( y" @9 U$ _10 二月 2013   -09°17' 54.8"  
3 ?( c) l4 ]' @, N11 二月 2013   -08°32' 04.9"  
" }- k0 n* F, N12 二月 2013   -07°46' 38.1"  ' y8 B% _5 U! |$ Z
13 二月 2013   -07°01' 53.6"  
2 }5 `/ a4 Z; `14 二月 2013   -06°18' 12.3"  3 Q5 v1 Y9 |* N5 m7 u  ^# C
15 二月 2013   -05°35' 56.2"  
0 ]( C, l9 l, b. |( z16 二月 2013   -04°55' 29.1"  . O1 x( j9 l3 ^4 h6 c/ o
17 二月 2013   -04°17' 15.1"  
- w3 J+ e3 s  V! `3 N1 @18 二月 2013   -03°41' 39.2"  
, A+ Y3 y) \, b+ ]5 o19 二月 2013   -03°09' 06.0"  
: x3 p. N* o% k( W+ z( C2 j/ m20 二月 2013   -02°39' 59.5"  
- p. b) k: C: @* Y9 A21 二月 2013   -02°14' 42.3"  9 j: f8 A' d8 a! G' L
22 二月 2013   -01°53' 35.0"  
) {8 z) q$ J2 D, E4 h& s! ^5 V23 二月 2013   -01°36' 55.5"  + A7 m! R! \+ ]1 b. ]9 _
24 二月 2013   -01°24' 58.1"  - q0 s  e8 G& |; J
25 二月 2013   -01°17' 52.7"  
0 W9 ^( A) |8 q( {5 [3 @( A' u26 二月 2013   -01°15' 44.0"  ! A8 A1 D2 h3 b. c4 R! a
27 二月 2013   -01°18' 30.8"  
" s" }" r0 b' C9 n& V0 o! q9 T28 二月 2013   -01°26' 05.5"  - Q0 o) R: l6 K5 t& v+ Y
01 三月 2013   -01°38' 13.7"  
. H& f  T2 C; c! `, Q9 R. X  _02 三月 2013   -01°54' 34.4"  " F' L, ?# e/ \5 V
03 三月 2013   -02°14' 40.4"  0 p8 s# ]1 g* e0 [2 v- B: o
04 三月 2013   -02°37' 59.2"  
% M) {- G2 R% W. Z! {05 三月 2013   -03°03' 54.3"  % T, }# \7 d: ?: M% V% O) L
06 三月 2013   -03°31' 47.0"  
. c( x$ R* F0 @8 Q3 Q07 三月 2013   -04°00' 57.8"  
* _: W- S- A4 T2 ~# {08 三月 2013   -04°30' 48.1"  " h4 {, A: T5 x% r; n- ^& Q
09 三月 2013   -05°00' 41.8"  
0 _; z; x8 q- H0 `( S10 三月 2013   -05°30' 06.2"  , D5 w2 j) Q1 V% y  T
11 三月 2013   -05°58' 32.9"  6 v* a3 N5 f# {. p- ?
12 三月 2013   -06°25' 37.8"  
$ v  L8 _3 R4 p) t" m13 三月 2013   -06°51' 01.6"  
& e- f$ u0 S  |4 ?6 l14 三月 2013   -07°14' 29.1"  6 j$ z. T0 ^/ |3 U- B
15 三月 2013   -07°35' 49.3"  . V2 j  ~9 c) P: U7 S: p* B9 L) B
16 三月 2013   -07°54' 54.2"  8 D3 h; A5 y/ a$ F# Y* I
17 三月 2013   -08°11' 39.1"  * h- q! {, B" Z2 k) u4 B. U8 C
18 三月 2013   -08°26' 01.3"  ) Z3 N- C# v0 l- W
19 三月 2013   -08°38' 00.1"  
& ^% ^: i+ l+ g20 三月 2013   -08°47' 36.2"  
( b- a5 ?; D( j4 K5 Z! I2 b21 三月 2013   -08°54' 51.5"  
4 y* u* t. [( }  V, y0 J* V2 r22 三月 2013   -08°59' 48.5"  * V5 b2 j2 P2 t% d. _0 U! c3 q% s
23 三月 2013   -09°02' 30.3"  ( y& [) p2 b; w5 c& x: P
24 三月 2013   -09°03' 00.3"  
7 c+ p% E1 v. c. ^) p25 三月 2013   -09°01' 22.3"  8 g2 V. u$ o; Z! L
26 三月 2013   -08°57' 39.8"  & j# \7 [9 @8 ]( c& T/ T% X
27 三月 2013   -08°51' 56.7"  
8 c+ U2 v8 d9 N/ G28 三月 2013   -08°44' 16.7"  
4 v; ?+ F% s0 I8 o. Z6 I" L29 三月 2013   -08°34' 43.3"  1 E# H& \8 u( n4 p9 F8 _
30 三月 2013   -08°23' 20.1"& D6 z4 d9 ~3 V$ B

+ ^7 J: T2 d% q- N5 Z  B- b这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。& o  k$ x2 V9 f! g( s: I% J- u
& O9 ^6 i2 O$ L9 {
[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]
作者: 子傻    时间: 2013-12-12 18:16
.gif" smilieid="273" border="0" alt="" />
作者: tom123    时间: 2013-12-13 00:23
[attach]110651[/attach]
. N: O3 l* ^2 C9 X
水星
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
作者: tom123    时间: 2013-12-13 02:12
[attach]110652[/attach]
作者: logoslogos    时间: 2013-12-13 21:34
编写指标用 的数据，见附件  C. A9 z& }( j1 h2 J- M
[attach]110653[/attach]
作者: skywater    时间: 2013-12-14 19:50
最好变成飞狐的好
作者: logoslogos    时间: 2013-12-16 22:15
最好变成飞狐的好..
作者: kaiser88    时间: 2013-12-17 09:51
作者: 静芸    时间: 2013-12-17 12:22
飛狐
4 ?! T/ `6 |! X' t$ x- f- h) u* C2 f6 J/ I
cc:=數據;
0 a/ [4 [% W0 u' b+ d' X0 X% pccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);' `% d. u4 D( P: h, e1 }- z' g+ A
vertline(ccsh),colorred;  {high}
* ^2 ?( [4 j4 d, i. V% RccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
/ L: Q* y. k# t, a5 @, ivertline(ccsL),colorgreen; {low}
) D3 Q* x) w7 {4 l: F7 r
3 m* A" j' M& a  [[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
作者: kaiser88    时间: 2013-12-17 12:28
请问静芸  能改成飞狐公式么？
作者: 静芸    时间: 2013-12-17 12:32
原帖由 kaiser88 于 2013-12-17 12:28 发表
& \3 c. c0 t4 J& \' V请问静芸  能改成飞狐公式么？

( v  ]5 ?9 n& |8 o5 [, V: B$ ^, H4 I7 \' c( p- j, G
这是飞狐公式
/ C8 z! E( q( F: i7 m/ ~# X第一列的"数据"要用读进来的星象数据取代
作者: kaiser88    时间: 2013-12-17 12:35
再请问 怎么读写呢？俺不会
作者: 静芸    时间: 2013-12-17 12:58
原帖由 kaiser88 于 2013-12-17 12:35 发表
8 r( l6 j& p' Y0 |* k! v再请问 怎么读写呢？俺不会
' I* A4 _/ n% l! h
, e4 y: Z: U9 D% {# B) H
哈,这有些麻烦啊!
0 p5 _& O1 }7 K8 _$ B& `2 F+ ^你把星相数据存在目录C:\Da.txt
: c4 T' ~# d8 B& `# U" f4 X3 T档名是Da.txt$ T% I+ T" q, u7 Z9 v
如果存在别的目录,如D:\hhh\Da.txt
, \0 o3 R4 ?) I# W- w/ b那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
; J! @: ~* e4 j; W5 r% }; I下面是飞狐公式,我也未试过,你自行试试吧8 a! l/ F7 e$ j" W  z
- y3 T* S( J% C. C8 j
FoxDE:=DATE; FoxTE:=TIME;7 ?! b! e+ q! i5 \+ j5 Y& I4 x1 H
MyData:=C*0;4 v  @1 ?6 M8 l7 F) d4 G
<%
- A: ~& R0 r$ OMyData =FFL.VarData("MyData")- q- o/ u+ S, Z8 W! H% m
FoxDE =FFL.VarData("FoxDE")3 O: @" k; b8 R
FoxTE =FFL.VarData("FoxTE")
' g& q& \% O+ P7 USet fs =CreateObject("Scripting.FileSystemObject")
. x6 X9 Y0 o- iSet wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
7 P3 c* o$ N5 M, [) s1 O6 q" CMyTxt = wrkfs.ReadLine) q" R! h% W. h! o) k' J
wrkfs.close6 e/ w5 N4 E1 n9 Y% s" @
TxtStr=MyTxt
+ t1 R+ _( d/ Q1 ITxtAry = Split(TxtStr, ",", -1, 1)9 c5 G0 j  V# h) G1 g/ K
GetDE=CLNG(TxtAry(0))$ `' m$ G9 ]5 n% ]2 z/ ^1 z. ^
GetTE=CLNG(TxtAry(1)). Y# Z& L8 J8 t  @( N
GetVV=CSNG(TxtAry(2))9 s+ A" G1 C. w6 x, W& }
for i=0 to ubound(MyData)/ G5 a+ J' N2 ?( U' `3 N
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
, i& f& d0 w9 {5 l" P1 AMyData(i)=GetVV
: H3 F* c( J! }' r* [1 {end if: s! \# v, W3 r9 A6 H  O
next! o) y; H  v' K7 D
FFL.VarData("MyData")=MyData& w6 U, g  f$ m
%>2 u. V- @8 D1 O% Y- V
' O( `- i! t$ X9 U# ], @6 h3 @
cc:=MyData;4 G! p' {: y  w3 L$ c
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);! q9 f! J. v/ y9 @
vertline(ccsh),colorred;  {high}
* O: l; G% G* T% ^  I$ ?ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
6 `" b" V% L/ T4 [% Kvertline(ccsL),colorgreen; {low}' q7 E6 U; W) H7 q( P
+ d% p0 z* r8 F0 ~
[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
作者: kaiser88    时间: 2013-12-17 13:07
作者: logoslogos    时间: 2013-12-17 19:53
太好了。我试试。。。万分感谢
7 O1 L( r6 ^  d9 x: H+ Z. i
' g3 x# [+ R% d- L1 K我刚试一下。。。出现错误。。。静云帮忙看看。。。
4 Q! q, _: |. a- s等我发图) a# ~7 a) |$ z3 ]! v( l% F
[attach]110666[/attach]* B4 S/ p6 }" ^5 `! Y2 I7 k- E
9 b5 ?+ ^4 C) \7 W! v3 c. ^4 Q& p7 D
[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]
作者: logoslogos    时间: 2013-12-17 20:12
静云帮忙修改一下。。。多谢！
作者: prayer    时间: 2013-12-17 21:20
非常感谢静芸MM提供的实例
作者: 静芸    时间: 2013-12-17 21:28
原帖由 logoslogos 于 2013-12-17 19:53 发表
6 _0 [& v) @8 V5 e2 p' U/ f5 v/ B; Q* O太好了。我试试。。。万分感谢: s" N" T5 A  K
, S# d( s% }7 |  |  u2 q
我刚试一下。。。出现错误。。。静云帮忙看看。。。
# d+ }+ F" ~% ]+ ?+ N等我发图
4 x% h. e& C7 Q% Q1 }110666

+ W0 H$ P$ z  t9 q3 B. b) W) Z* W- l0 y* J3 G
再试, 这读数据公式不是我编的
5 p3 i: M( K) l  `) I3 K& w+ H* bif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
  B% S( H$ z/ S- n/ \) d/ M: t# H/ x: J7 T! r5 r4 H
[attach]110667[/attach]9 p3 U& z! N1 t8 S5 H4 [. f' i
  [$ \8 R( k; c8 x& _# D( ~, |
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]
作者: logoslogos    时间: 2013-12-17 21:55
[attach]110668[/attach]
0 M1 |8 _0 D* _. k) K3 ?
" K* c5 [0 m! D7 E还是不行。。。能通过测试，但一运行就出现这个错误：
+ |" t4 l  q6 X# I4 C# i0 q; h见图。。。
作者: 静芸    时间: 2013-12-17 23:30
原帖由 logoslogos 于 2013-12-17 21:55 发表
0 z' Q" e0 k# W& [9 B9 u7 B1106686 O0 g$ S( \2 [; K+ p- @/ G

/ T" F# I  M0 K" B还是不行。。。能通过测试，但一运行就出现这个错误：( K8 j- d$ H( J7 j' f8 g
见图。。。
$ \3 M+ A( G0 i

8 B% ?! T3 I; `" _5 W可能是数据檔的问题
( r# q0 \, r- @; F; @9 A数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
! I% @% P5 v+ V原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
作者: logoslogos    时间: 2013-12-18 10:08
好的，理解了。一样感谢。。
作者: He110    时间: 2013-12-18 15:59
应该不用导入数据吧。。。
# L7 H' m7 {; k+ w' \8 ?) t直接程序计算declination值数据然后显示/ u# v  \$ @. S/ P( }; z7 L

3 j5 f  C2 P4 \% _$ E  M
1 q- E9 W7 J5 x
  x" ]! u, T8 A6 F0 }3 p6 w' l[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
作者: He110    时间: 2013-12-18 17:02
. j4 L2 M/ u! C
4 M5 p8 r+ h3 h6 v
[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
作者: He110    时间: 2013-12-18 18:09
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。3 v" {3 b! r, I
我是不是用错了？ 有其他办法吗？
作者: 静芸    时间: 2013-12-18 19:03
原帖由 He110 于 2013-12-18 18:09 发表 1 w' r2 I5 @* r& _' a+ W8 S/ j
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
3 A7 [3 l' R* H3 w5 S) W* C我是不是用错了？ 有其他办法吗？

8 A. a& V; g' r! y: b2 _4 ]- C/ d2 T$ F; @; n2 i7 Q/ ~: J
你好, 向下
9 b9 `' R$ H- K2 z2 F' r) U/ qvertline(cross(0,cc)),coloryellow;
作者: kaiser88    时间: 2013-12-18 19:34
he110 请问你公式怎么做的 我的也一样报错
作者: He110    时间: 2013-12-18 20:20
原帖由 静芸 于 2013-12-18 19:03 发表
# d. D; I5 c: Q
% F0 l$ k& ~" W+ s: s' y
, E1 `4 V/ ^. R" W, {你好, 向下
2 W4 A. W, ]! ^" Nvertline(cross(0,cc)),coloryellow;
: }- |5 \: o. i; J# s7 p" @
: t# e: q- y% U# E& j8 w  K2 p
谢谢，可以了。+ _' G* N/ A' R

0 C4 ], j# d$ f" |9 n2 K: ]5 f2 x" x# S
原帖由 kaiser88 于 2013-12-18 19:34 发表
4 Q. {, v% Q% a* @. e; O, S3 nhe110 请问你公式怎么做的 我的也一样报错
2 A1 J3 C0 ~; a5 ?% G- i2 E% m

  {7 \4 j5 n* D- ~" o7 j7 d% H我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
作者: prayer    时间: 2013-12-18 20:42
你好He110，请问如何直接程序计算declination值数据，有直接的公式吗？
作者: tom123    时间: 2013-12-18 23:48
交流[attach]110675[/attach]
作者: He110    时间: 2013-12-19 10:15
tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。
/ `2 K& A# U7 c, p4 G
4 K1 h4 X) @. a1 h/ J6 aprayer，可以通过瑞士星历表sweph获得数据，你自己baidu下
作者: He110    时间: 2013-12-19 10:21
没注意到tom的图是自然日
作者: logoslogos    时间: 2013-12-19 10:24
明确的指示作用。。很好的工具
作者: logoslogos    时间: 2013-12-19 10:25
应用到股指上，才显示威力。。。各位发财
作者: He110    时间: 2013-12-19 10:27
奇怪，改了下公式在主图上不能显示。。。
作者: prayer    时间: 2013-12-19 19:06
好的，谢谢He110
作者: prayer    时间: 2013-12-19 19:07
作者: logoslogos    时间: 2018-12-10 23:11
哪位朋友帮忙看一下这个公式。。总是报错。。现在重新需要这个公式。多谢



欢迎光临 【阳光飞狐__与财富同行】 (http://bbs.88158.cn/) Powered by Discuz! X3.2