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

标题: 共享一个星相交易工具，求助会编写指标的朋友 [打印本页]
作者: logoslogos    时间: 2013-12-12 16:41
标题: 共享一个星相交易工具，求助会编写指标的朋友
求助会编写指标的朋友，共同实现一个星相的交易工具：
1 D. h1 m) k# ~% i7 q7 O- K[attach]110649[/attach]# Q1 R: }/ z1 E- d" l  l: J* e- s
8 {5 {; s" o  s2 h; Z, B

/ B! n3 C4 o9 E1 W9 H/ D& ^' P" u7 [7 b0 |6 ^/ F
这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的( c0 L' o  V9 `

; X) s; G% @, K9 W) S" `' ~
* ^% Z# X2 a% e! D5 r: }# n：+ \$ w% F) n. n+ W: H
1.根据给定的数值，画出这样的曲线
' y9 ~4 |7 I5 `4 Z* C2.分别在曲线的每个拐点出画一竖线: `9 C6 d3 F, I
3.在零值画一竖线3 g9 y( s4 w0 J; _; ]
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。
4 A( Z3 E& @' v) X7 E: _+ E5 }* w* a9 F7 k+ h6 K
! N6 X) m/ J* X+ x( l8 O4 ^
5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。3 }/ h6 b( w! c  A0 I* k
: ~; w0 `& A1 Z3 o7 H0 n0 [
数据样本：从星相软件导出的：* {& E3 c) a" K& x" `$ l5 s" R2 @

6 \& }5 G: R4 F' h01 一月 2013   -24°14' 58.7"  
! Y: j6 d! S8 a, W02 一月 2013   -24°20' 05.2"  
+ e) p! v: \& ^" V03 一月 2013   -24°23' 54.3"  9 D4 u; v9 S8 [. V1 B8 d3 p/ s4 Z
04 一月 2013   -24°26' 24.8"  3 \* m( `  H* I5 M& k
05 一月 2013   -24°27' 35.6"  ) e- f9 K! d- c
06 一月 2013   -24°27' 25.5"  & ]  @. z$ Y% z. k
07 一月 2013   -24°25' 53.3"  8 w# I/ [# d0 N  L# S! P3 w: e
08 一月 2013   -24°22' 58.2"  
" \( J! l; o4 s6 w4 f09 一月 2013   -24°18' 39.1"  # P1 k6 d! v) m; X
10 一月 2013   -24°12' 55.1"  6 \, }& g' q( }, Q6 K$ Y+ c, @
11 一月 2013   -24°05' 45.2"  
8 d* F& T2 ?) O' N: m12 一月 2013   -23°57' 08.7"  
/ L4 V4 U6 r1 S: Z/ I13 一月 2013   -23°47' 04.8"  9 M. Q+ S/ R! r
14 一月 2013   -23°35' 32.6"  
, x6 E( y( A+ F1 j15 一月 2013   -23°22' 31.5"  
. [, V2 K8 F) K5 M  e6 ^16 一月 2013   -23°08' 00.8"  
; ?, M. N% w# H17 一月 2013   -22°51' 59.9"  5 E. ~# C0 i! v' F$ U9 P" M
18 一月 2013   -22°34' 28.2"  
6 j/ d3 Z5 o6 B* p5 k+ r" t19 一月 2013   -22°15' 25.2"  
3 [! D" f$ c" j1 x8 m- m& A20 一月 2013   -21°54' 50.7"  
: p* }4 y4 X, X+ ]+ Z! \21 一月 2013   -21°32' 44.2"  - D6 A3 Q# R3 X& j+ ?, A' [. P. u# M) Q
22 一月 2013   -21°09' 05.7"  : X9 e3 B- i' F2 n. u. l) W/ [3 z' }
23 一月 2013   -20°43' 55.0"  - J8 ~  n4 [% y+ t3 H; I% K& Z# c
24 一月 2013   -20°17' 12.3"  # K  p; c8 K3 y$ s3 n
25 一月 2013   -19°48' 57.7"  , Y  \8 X4 F/ ~& r& i1 ^
26 一月 2013   -19°19' 11.9"  
' P: s; V& N1 \: R$ a0 B27 一月 2013   -18°47' 55.5"  6 ]% A, F# o6 J/ s
28 一月 2013   -18°15' 09.5"  
9 i, M8 ^- X9 y. c29 一月 2013   -17°40' 55.3"  
1 r; m3 S  X! s1 x3 Z30 一月 2013   -17°05' 14.7"  
1 v# {% v( w5 _. ]! `4 F4 r% L31 一月 2013   -16°28' 09.9"    v9 \# S. C9 p
01 二月 2013   -15°49' 43.8"  5 l: U0 P% r. L
02 二月 2013   -15°09' 59.8"  
) `$ }4 Q( [9 E. u) K+ l$ ?& G03 二月 2013   -14°29' 02.5"  
1 @9 C% f2 y  S' F! |04 二月 2013   -13°46' 56.8"  
/ f0 A4 n) z. a7 g05 二月 2013   -13°03' 49.3"  / H. S3 |9 i$ F! H2 B: D# {
06 二月 2013   -12°19' 47.2"    W6 g7 ^; e4 b! I. g& `
07 二月 2013   -11°34' 59.6"  , V3 k- Z5 |! F9 H! }
08 二月 2013   -10°49' 36.8"  
8 c0 X! \0 h& Q' C! H09 二月 2013   -10°03' 50.6"  
3 k, l4 v0 [6 @4 B  A0 ^10 二月 2013   -09°17' 54.8"  
; @) T& @1 b, ?& J7 B11 二月 2013   -08°32' 04.9"  9 K+ t* `2 v( f* R. ]( v
12 二月 2013   -07°46' 38.1"  * P1 D% q4 N3 x$ e" C: {  \
13 二月 2013   -07°01' 53.6"  
9 K2 x8 U0 v% |% [" W6 L& {14 二月 2013   -06°18' 12.3"  ) T4 J+ v1 v, X" m
15 二月 2013   -05°35' 56.2"  ' @$ e4 Z7 Y+ u4 R1 n
16 二月 2013   -04°55' 29.1"  ! j( r7 V2 S# y8 \7 g$ ]
17 二月 2013   -04°17' 15.1"  
/ \( D* ]/ l; {' T18 二月 2013   -03°41' 39.2"  ; P" x) @* G) g5 H: f: o! I) y
19 二月 2013   -03°09' 06.0"  
( a3 X/ v2 `6 y" k8 e7 U1 `, A20 二月 2013   -02°39' 59.5"  8 C7 P" ]/ J$ U% K+ t  V; d( W
21 二月 2013   -02°14' 42.3"  
% w, N. s  x' o/ S$ t$ a# g/ I22 二月 2013   -01°53' 35.0"  & e" p& u5 Z* @+ S4 i, n
23 二月 2013   -01°36' 55.5"  
3 r7 _  @+ `+ e3 i5 }  M24 二月 2013   -01°24' 58.1"  
& a& X1 s3 ^2 i' f- A! w25 二月 2013   -01°17' 52.7"  
5 j) o! Y$ B2 P! L' c3 W4 Y1 P7 @26 二月 2013   -01°15' 44.0"  
  [8 X# I" v1 R+ r27 二月 2013   -01°18' 30.8"  
* T$ [) q9 P. N28 二月 2013   -01°26' 05.5"  
9 H) B& h. B! i+ x3 y$ W01 三月 2013   -01°38' 13.7"  
6 \, u' G  M" g, ~" I02 三月 2013   -01°54' 34.4"  
$ `, ~5 o7 `/ ~5 U2 k! f% p03 三月 2013   -02°14' 40.4"  
' p1 l1 D- `; R4 C9 I6 r04 三月 2013   -02°37' 59.2"  
3 m( e. f) h' H3 m05 三月 2013   -03°03' 54.3"  ' h4 c; r7 [) o* z% g
06 三月 2013   -03°31' 47.0"  
0 }! q$ K* R& U% a: w07 三月 2013   -04°00' 57.8"  1 |0 o9 a; G( \3 y# n, M* p; c# L7 \
08 三月 2013   -04°30' 48.1"  
& A) d% M3 r, T/ h- f4 D# B' y09 三月 2013   -05°00' 41.8"  
( ^1 c" o) d- G4 S10 三月 2013   -05°30' 06.2"  
/ u$ @4 ^% _( i1 z7 a/ L  [' C7 y, w11 三月 2013   -05°58' 32.9"  
/ k6 ~8 ?( Q- U1 U5 S12 三月 2013   -06°25' 37.8"  
0 B2 e4 Q4 ^+ K4 B; ^" z13 三月 2013   -06°51' 01.6"  9 x/ c" w5 A5 [8 s5 U: A4 S
14 三月 2013   -07°14' 29.1"  
/ B9 x- z; {# L: t/ }8 j15 三月 2013   -07°35' 49.3"  
  @8 O: Y5 P& r0 I4 E16 三月 2013   -07°54' 54.2"  
( d2 {0 v/ M. s  M6 O17 三月 2013   -08°11' 39.1"  % ^* Q* m8 [! [7 l
18 三月 2013   -08°26' 01.3"  % H, m  C& S$ \' e& t: T7 t
19 三月 2013   -08°38' 00.1"  
- u1 p5 p3 b2 T* q) X- B20 三月 2013   -08°47' 36.2"  - h* H2 Z; C6 w3 g9 `
21 三月 2013   -08°54' 51.5"  ) r/ y% R& O8 _# K
22 三月 2013   -08°59' 48.5"  . C* A! k; f2 `$ Q* h6 s; P" Y
23 三月 2013   -09°02' 30.3"  8 J/ S/ N& F  C# Y. ]
24 三月 2013   -09°03' 00.3"  ' j2 F: V3 s6 T8 {5 E$ T
25 三月 2013   -09°01' 22.3"  7 E6 S0 `- Z9 ^) t
26 三月 2013   -08°57' 39.8"    X, M% h- J% m0 z1 h# V8 F
27 三月 2013   -08°51' 56.7"  
2 S7 ?6 e' \$ s7 _& W6 Z28 三月 2013   -08°44' 16.7"  / X9 ?" L) T$ |4 G4 N: F/ J
29 三月 2013   -08°34' 43.3"  
  }) Z% F( J: K4 N, M* S30 三月 2013   -08°23' 20.1"
$ \( n+ L' x+ N1 `8 r
9 U0 X- b8 r; Q这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
; J' }5 _8 f3 J1 s2 m( _
4 F4 ^) C- P& {+ X7 j+ ][ 本帖最后由 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]
) B" A' H2 \% o0 j; l
水星
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
编写指标用 的数据，见附件
- R! O* A/ P& L  t9 C' f1 l[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( ]1 H& Y2 I4 {: M2 A  s* v5 q$ Y* I, [, T& {9 R1 o
cc:=數據;; G- v8 e$ a4 S5 n
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
4 G$ a, U3 e+ n5 W; i4 R. z9 [vertline(ccsh),colorred;  {high}
7 g  L% I/ i1 ^8 YccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);$ \8 N. X" o* N0 u( x
vertline(ccsL),colorgreen; {low}
2 E& v7 Z# ~8 a, U' \
/ B+ |# A4 C, B; l: T8 T; P[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]
作者: kaiser88    时间: 2013-12-17 12:28
请问静芸  能改成飞狐公式么？
作者: 静芸    时间: 2013-12-17 12:32
原帖由 kaiser88 于 2013-12-17 12:28 发表
0 S- N& t$ O" ^" ^请问静芸  能改成飞狐公式么？
) E5 v8 r. {" J$ B. C
9 B) e5 i+ {, I& F) m8 m
这是飞狐公式: D7 `1 ^+ v' C, N
第一列的"数据"要用读进来的星象数据取代
作者: kaiser88    时间: 2013-12-17 12:35
再请问 怎么读写呢？俺不会
作者: 静芸    时间: 2013-12-17 12:58
原帖由 kaiser88 于 2013-12-17 12:35 发表
% F0 Y# k+ w6 J/ P% s! t7 \再请问 怎么读写呢？俺不会
) r* m& q( T9 C% I, E

! j" j0 v0 F& A  n) G$ w5 P3 o哈,这有些麻烦啊!/ A$ W9 e' K) \
你把星相数据存在目录C:\Da.txt8 P! o% b' D- Q! U
档名是Da.txt
/ x( ]. m  ?) U3 X) R如果存在别的目录,如D:\hhh\Da.txt- o' \6 W2 k& t4 E) B4 h* g
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt" y5 j6 q2 C4 Y7 K8 ?% Y
下面是飞狐公式,我也未试过,你自行试试吧' y* |  O1 b# l9 U# l: T
8 H% Q5 ~1 U' r2 R
FoxDE:=DATE; FoxTE:=TIME;! ]2 E' K6 J* H* r" L; E9 {; x
MyData:=C*0;; C4 v5 m7 a2 ^9 i- S5 y9 g
<%1 h  {; q. J! T$ s
MyData =FFL.VarData("MyData")
8 N3 P7 k  _  @( N2 B$ b+ T% uFoxDE =FFL.VarData("FoxDE")
6 |5 g' c3 U$ ^  OFoxTE =FFL.VarData("FoxTE")
. p) x- [. i) v0 rSet fs =CreateObject("Scripting.FileSystemObject")% f3 D% c3 A& K! ?/ S5 R0 Y" i& e
Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)  `  D0 o" r9 Y* ]' z
MyTxt = wrkfs.ReadLine
: {% J6 R7 V) |3 q2 w5 f" m' `$ N) Vwrkfs.close6 T7 a4 Q$ R% s8 y9 w0 Z/ u, [
TxtStr=MyTxt& V, v, j  y+ R
TxtAry = Split(TxtStr, ",", -1, 1)0 D7 w0 ~+ z% a. q* V
GetDE=CLNG(TxtAry(0))1 ^$ L$ p6 Y0 y' R$ l- j3 U
GetTE=CLNG(TxtAry(1))! N  h4 d( h7 s! [4 X" d1 U  }
GetVV=CSNG(TxtAry(2))
) s9 Q2 Z- b) m$ k5 \  mfor i=0 to ubound(MyData)2 ?, S* N# H3 G2 ?# l2 i3 f5 e
if FoxDE(i)=GetDE andFoxTE(i)=GetTE then
! c8 Q; _: t4 M0 X: j- `8 {/ tMyData(i)=GetVV
; g7 s: @! y. iend if8 ]1 ^5 d; I9 T8 t  w
next6 ?5 c+ H2 [/ V' P2 N/ r
FFL.VarData("MyData")=MyData# f  W/ A; O# Z
%>: O) |$ \* X7 u& {; E( ^

2 y9 ?- }1 m' q7 L$ r7 D$ ccc:=MyData;5 h9 B" [! k( S9 R; b. P
ccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
$ ?; K$ T7 `, M# K7 c" |  yvertline(ccsh),colorred;  {high}
0 A' v% o/ D6 |- ^) EccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
. N2 w+ |" W+ @- mvertline(ccsL),colorgreen; {low}4 n4 X0 e4 u5 p+ I5 |1 \

$ U" D4 e3 V: P: G  k. K' m+ s$ d[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]
作者: kaiser88    时间: 2013-12-17 13:07
作者: logoslogos    时间: 2013-12-17 19:53
太好了。我试试。。。万分感谢4 T# _! ]# h+ D% P8 B" c

! h( c# f7 P$ Q+ n2 W9 }我刚试一下。。。出现错误。。。静云帮忙看看。。。
$ I. y4 {5 X' \: r" G$ i$ |" ~等我发图
6 E0 S: s" c0 m7 j  C, a; f" B4 T; S, c[attach]110666[/attach]; T; x. ?) Y7 l! q- K
, }8 j8 j5 k2 `2 Q4 g
[ 本帖最后由 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 发表
. @4 ~# j& _  A! {7 o* X太好了。我试试。。。万分感谢8 z, C/ V( h6 g0 ?) C

* |- P! u; z; Y( V. a我刚试一下。。。出现错误。。。静云帮忙看看。。。
8 c- |& X: r; r3 p4 n/ s等我发图! p$ N& \- ?" [
110666

. R5 h3 e. ^- [$ h% Y1 i3 w6 x, j) p) R- v1 x2 p5 m! R. m7 s1 m
再试, 这读数据公式不是我编的
  X: C  P' K, R9 S& pif FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
& Y4 ^7 Y: y. I  S
! q7 \0 D. A9 W5 o! F[attach]110667[/attach]* W5 Z# O, [8 F% T' l) p
' k6 a( k% t% |, e. t) L
[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]
作者: logoslogos    时间: 2013-12-17 21:55
[attach]110668[/attach]3 M5 |3 b6 @, s" f4 q8 K. d" {

) }7 \, f: f9 R  I" Y还是不行。。。能通过测试，但一运行就出现这个错误：
0 S7 T+ D3 L! w+ e, y- K" ^见图。。。
作者: 静芸    时间: 2013-12-17 23:30
原帖由 logoslogos 于 2013-12-17 21:55 发表 ; f3 O( J( [3 |6 n% i
110668
# z1 e4 R4 ~$ s* [5 p7 F3 ~( M; F- t% D
; N( I* k6 p2 u- b5 e还是不行。。。能通过测试，但一运行就出现这个错误：$ B+ P1 Q5 n9 J) W
见图。。。
8 f) D1 l4 L' u4 L" Z5 Y' B
9 r5 H& T! n. C  H" g6 Y' b
可能是数据檔的问题
/ T& p4 l0 q7 N, s* a; T1 i6 h数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
- k7 |! V2 J. i' s原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法
作者: logoslogos    时间: 2013-12-18 10:08
好的，理解了。一样感谢。。
作者: He110    时间: 2013-12-18 15:59
应该不用导入数据吧。。。
# @6 m* c/ h; [3 ~+ l6 ^5 n直接程序计算declination值数据然后显示
  H! E$ L  o% C0 W! C# J/ M
$ o% x) ]6 E7 q$ [* A. T0 M0 }, X6 o- W( C8 q
; F: w/ B8 a- }9 z; F5 W  H' w9 P
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]
作者: He110    时间: 2013-12-18 17:02
% s) J' G0 ?4 j; K

+ W9 ]9 P6 P0 h8 o[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]
作者: He110    时间: 2013-12-18 18:09
请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。3 A/ T/ C9 k, N% U$ t! S
我是不是用错了？ 有其他办法吗？
作者: 静芸    时间: 2013-12-18 19:03
原帖由 He110 于 2013-12-18 18:09 发表
9 `0 {% M& ?0 ]7 S+ p( w请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
8 _7 a' D) T, O2 j. p  G9 `我是不是用错了？ 有其他办法吗？
, v1 u3 x/ z& [# T3 n

( T1 q3 _: b6 A0 x你好, 向下
. ]9 v; m5 ~8 Tvertline(cross(0,cc)),coloryellow;
作者: kaiser88    时间: 2013-12-18 19:34
he110 请问你公式怎么做的 我的也一样报错
作者: He110    时间: 2013-12-18 20:20
原帖由 静芸 于 2013-12-18 19:03 发表 % C: @0 d9 ?- r! x) c0 d% x* q

7 D+ o' M5 k/ M' F
" L8 r$ t! H1 m7 d  o6 p0 a% A# O你好, 向下
# g* ?; V) p* T& q, ~5 g, Bvertline(cross(0,cc)),coloryellow;

% p2 B) b( K  B  k' q* e
8 Z' f$ S9 W% _+ D# s谢谢，可以了。/ u7 d* r6 p0 {; Y7 r

( z. ?# b* Z& U6 Z, M8 B
原帖由 kaiser88 于 2013-12-18 19:34 发表 + d; f3 ^" N2 T& p" F! [
he110 请问你公式怎么做的 我的也一样报错
2 S; ]- n6 a: i6 g
) P0 i+ I& _* x# t& N
我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。
作者: 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兄的这么平滑。。。
& c6 p- F  B& a2 D" v4 h8 U) J' c5 {5 b+ A/ b! r6 `
prayer，可以通过瑞士星历表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