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

logoslogos

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




这是一个星相交易工具，指示趋势的改变非常的准确。我想编写一个飞狐的指标（或者文华，博易指标都可以），实现几个目的


：
1.根据给定的数值，画出这样的曲线
8 r( A0 q3 B( u$ C, R, ~2.分别在曲线的每个拐点出画一竖线
3.在零值画一竖线
4.把每一个波段四分，在一半、四分之一、四分之三的地方分别画一竖线。


, U% v* i, B% a: c( B5. 画曲线所有的数据，由使用者编辑输入。就是让这个曲线数据可以自由编辑。
1 k4 R  C  T: `
数据样本：从星相软件导出的：
! l7 S' c7 u: J$ T8 b. N3 S
01 一月 2013   -24°14' 58.7"  
+ p1 J+ b% h- y/ f, d0 g5 U* X02 一月 2013   -24°20' 05.2"  
03 一月 2013   -24°23' 54.3"  
04 一月 2013   -24°26' 24.8"  
7 Z: x& ?4 y: _4 N. I- S! X05 一月 2013   -24°27' 35.6"  
06 一月 2013   -24°27' 25.5"  
07 一月 2013   -24°25' 53.3"  
9 |4 E) j6 {, ^08 一月 2013   -24°22' 58.2"  
09 一月 2013   -24°18' 39.1"  
10 一月 2013   -24°12' 55.1"  
* T1 L3 T' [4 Y' ~" v11 一月 2013   -24°05' 45.2"  
1 F* p& `. w6 _% Y' F12 一月 2013   -23°57' 08.7"  
13 一月 2013   -23°47' 04.8"  
14 一月 2013   -23°35' 32.6"  
* _+ x! Z2 u$ a2 f/ d3 B$ t15 一月 2013   -23°22' 31.5"  
1 U3 ~" F% G+ ~1 \16 一月 2013   -23°08' 00.8"  
17 一月 2013   -22°51' 59.9"  
18 一月 2013   -22°34' 28.2"  
19 一月 2013   -22°15' 25.2"  
20 一月 2013   -21°54' 50.7"  
( W  o  v+ T* M# \21 一月 2013   -21°32' 44.2"  
22 一月 2013   -21°09' 05.7"  
23 一月 2013   -20°43' 55.0"  
% m3 l: a7 D- v24 一月 2013   -20°17' 12.3"  
25 一月 2013   -19°48' 57.7"  
4 ~$ ]) C6 H$ d# t( t% I# |26 一月 2013   -19°19' 11.9"  
+ G) ?, z. E+ h  y27 一月 2013   -18°47' 55.5"  
5 w9 J2 F9 Z% e. ?7 @% |28 一月 2013   -18°15' 09.5"  
3 q4 {: I; d2 Q! G6 ^, ?29 一月 2013   -17°40' 55.3"  
30 一月 2013   -17°05' 14.7"  
$ B7 Z* g. s' J6 d2 F/ k- z31 一月 2013   -16°28' 09.9"  
- i$ {. o% v' G  d01 二月 2013   -15°49' 43.8"  
02 二月 2013   -15°09' 59.8"  
03 二月 2013   -14°29' 02.5"  
04 二月 2013   -13°46' 56.8"  
05 二月 2013   -13°03' 49.3"  
# j" }1 Q- c9 C& k5 L4 R06 二月 2013   -12°19' 47.2"  
' V) \0 m' ]- o5 L8 X7 M07 二月 2013   -11°34' 59.6"  
2 y% B% ]7 e# `. N5 C8 ?08 二月 2013   -10°49' 36.8"  
09 二月 2013   -10°03' 50.6"  
10 二月 2013   -09°17' 54.8"  
, Q% M% U& o/ G& d11 二月 2013   -08°32' 04.9"  
12 二月 2013   -07°46' 38.1"  
, G) O5 O% C! t9 d! D/ ]13 二月 2013   -07°01' 53.6"  
14 二月 2013   -06°18' 12.3"  
15 二月 2013   -05°35' 56.2"  
+ G9 G& ^$ C+ C3 \! ]( A16 二月 2013   -04°55' 29.1"  
17 二月 2013   -04°17' 15.1"  
! G. T  S% [# ?* r18 二月 2013   -03°41' 39.2"  
- Y- s, ^0 T) m0 c6 l+ N6 I19 二月 2013   -03°09' 06.0"  
20 二月 2013   -02°39' 59.5"  
21 二月 2013   -02°14' 42.3"  
/ t: l1 `  i$ p' y* ]22 二月 2013   -01°53' 35.0"  
( a( T- y% ]7 @9 @- g  K23 二月 2013   -01°36' 55.5"  
24 二月 2013   -01°24' 58.1"  
25 二月 2013   -01°17' 52.7"  
26 二月 2013   -01°15' 44.0"  
" N% R2 R7 b0 ^6 |7 p8 A. L$ \27 二月 2013   -01°18' 30.8"  
28 二月 2013   -01°26' 05.5"  
; u# b8 {+ l; y01 三月 2013   -01°38' 13.7"  
. z' v- T3 b) M9 W& G02 三月 2013   -01°54' 34.4"  
03 三月 2013   -02°14' 40.4"  
2 ^8 E# v' V- b& K04 三月 2013   -02°37' 59.2"  
+ V( @1 v& }/ w05 三月 2013   -03°03' 54.3"  
$ _; E! u- V2 w% P6 p06 三月 2013   -03°31' 47.0"  
2 [3 X/ r6 |  p  k# p" v  Q7 w07 三月 2013   -04°00' 57.8"  
5 H1 ]" H2 ^) W' t$ ~08 三月 2013   -04°30' 48.1"  
* X4 d5 c7 H/ }# E8 i! q09 三月 2013   -05°00' 41.8"  
10 三月 2013   -05°30' 06.2"  
11 三月 2013   -05°58' 32.9"  
12 三月 2013   -06°25' 37.8"  
13 三月 2013   -06°51' 01.6"  
14 三月 2013   -07°14' 29.1"  
15 三月 2013   -07°35' 49.3"  
, r# I3 |: l8 R$ a16 三月 2013   -07°54' 54.2"  
17 三月 2013   -08°11' 39.1"  
18 三月 2013   -08°26' 01.3"  
; d' ~& l6 n, w- r7 Q/ |1 J19 三月 2013   -08°38' 00.1"  
20 三月 2013   -08°47' 36.2"  
21 三月 2013   -08°54' 51.5"  
  ^% p  h2 D' h* q/ O; a% O22 三月 2013   -08°59' 48.5"  
9 w$ Y, ?0 Z: P5 |* k/ j23 三月 2013   -09°02' 30.3"  
" l" ^( z7 s$ k24 三月 2013   -09°03' 00.3"  
25 三月 2013   -09°01' 22.3"  
- q7 p7 [. H3 T( n  c; d# a! h26 三月 2013   -08°57' 39.8"  
27 三月 2013   -08°51' 56.7"  
, t: Q& B8 S. n7 N1 [/ y# k28 三月 2013   -08°44' 16.7"  
29 三月 2013   -08°34' 43.3"  
30 三月 2013   -08°23' 20.1"

这个是水星的declination值，外软有这个指标，但没有我要的竖线，尤其是把曲线四分的地方更需要指标的帮助。肉眼看不出准确。
+ d+ C" Y* m( K7 Y# `
: s3 S4 Q# z# G# p5 l+ P0 ]2 R[ 本帖最后由 logoslogos 于 2013-12-12 16:48 编辑 ]

logoslogos

哪位朋友帮忙看一下这个公式。。总是报错。。现在重新需要这个公式。多谢

prayer

prayer

好的，谢谢He110

He110

奇怪，改了下公式在主图上不能显示。。。

logoslogos

应用到股指上，才显示威力。。。各位发财

logoslogos

明确的指示作用。。很好的工具

He110

没注意到tom的图是自然日

He110

tom兄是叠加了其他几个星星吗？ 我的数据就没有tom兄的这么平滑。。。
& Q# l) G: g( w1 n9 M
8 D( E7 Y) |5 e, K5 r, @* U; j/ F) iprayer，可以通过瑞士星历表sweph获得数据，你自己baidu下

tom123

交流

prayer

你好He110，请问如何直接程序计算declination值数据，有直接的公式吗？

He110

原帖由 静芸 于 2013-12-18 19:03 发表

) |( z$ l0 I! P  ?4 L7 s
你好, 向下
7 {: W" w' c7 e3 Avertline(cross(0,cc)),coloryellow;

谢谢，可以了。
6 l0 c) p) T" L$ T  Q' s

原帖由 kaiser88 于 2013-12-18 19:34 发表
he110 请问你公式怎么做的 我的也一样报错

1 ]; t" v- f4 X5 `  F4 y6 d9 ?
7 H" r# R5 X6 w$ M我使用了静芸的公式；但数据部分不是读文件，程序自动计算的。

kaiser88

he110 请问你公式怎么做的 我的也一样报错

静芸

原帖由 He110 于 2013-12-18 18:09 发表
- F3 i: I! F8 K$ i. k" B请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
我是不是用错了？ 有其他办法吗？

) d7 m. B# A4 c你好, 向下
& y: `% y: r3 _% @vertline(cross(0,cc)),coloryellow;

He110

请问静芸，穿越0线我用的这句：vertline(cross(cc,0)),colorblue;  结果是向上穿越可以显示，但向下穿越不显示。
我是不是用错了？ 有其他办法吗？

He110

[ 本帖最后由 He110 于 2013-12-18 18:15 编辑 ]

He110

应该不用导入数据吧。。。
& |, [: F" y5 {. P$ D/ Q2 ]直接程序计算declination值数据然后显示

5 K( n) y  Y6 B' v$ [& O
: b5 u6 D3 l) p* U. }, c
[ 本帖最后由 He110 于 2013-12-18 17:26 编辑 ]

logoslogos

好的，理解了。一样感谢。。

静芸

原帖由 logoslogos 于 2013-12-17 21:55 发表
110668

/ ]( }7 f6 q6 @$ u/ l& Z) s还是不行。。。能通过测试，但一运行就出现这个错误：
4 _1 @3 x# w$ _6 P0 b, A( \4 k见图。。。

# x/ d$ s9 R3 ?, a: w
: p7 k. w% {1 Y; x; b, G可能是数据檔的问题
7 S) G; m* @$ g数据檔Da.txt须放置在c:\,且数据檔内只能放置一个数据,也就是只放置一行
原设计人怎样安排数据檔格式, 我也不知道, 必须数据檔格式正确, 在正确读入后,后面的VBS指令才会正确执行,若试不行,我也再没法

logoslogos

$ f8 {7 |# |& `7 R
还是不行。。。能通过测试，但一运行就出现这个错误：
3 o" X% ?/ Z( F5 b: y/ `! k. @见图。。。

静芸

原帖由 logoslogos 于 2013-12-17 19:53 发表
2 k1 f% G( c! [  O. ?6 i- S太好了。我试试。。。万分感谢

我刚试一下。。。出现错误。。。静云帮忙看看。。。
等我发图
110666

再试, 这读数据公式不是我编的
if FoxDE(i)=GetDE and  FoxTE(i)=GetTE then
6 S) i5 M/ v: y) w1 R

& @7 ~; W3 N% W( n; W; R' v
5 v" L  ~2 j6 ]1 x[ 本帖最后由 静芸 于 2013-12-17 21:44 编辑 ]

prayer

非常感谢静芸MM提供的实例

logoslogos

静云帮忙修改一下。。。多谢！

logoslogos

太好了。我试试。。。万分感谢

我刚试一下。。。出现错误。。。静云帮忙看看。。。
等我发图
( f: e. }1 n- M$ a: e% S

6 j2 B" M' }$ P+ m[ 本帖最后由 logoslogos 于 2013-12-17 20:03 编辑 ]

kaiser88

静芸

原帖由 kaiser88 于 2013-12-17 12:35 发表
' N# t1 V/ s: q1 j& d& ?再请问 怎么读写呢？俺不会

5 J$ O3 h2 ~. N, I/ s1 `
哈,这有些麻烦啊!
你把星相数据存在目录C:\Da.txt
4 z& n3 l0 V7 G4 c1 c: {: S9 G* E; W档名是Da.txt
2 W, J, G% I+ K4 A" e" @6 Y' l. T% q如果存在别的目录,如D:\hhh\Da.txt
那必须把这目录D:\hhh\Da.txt取代公式中第八列的C:\Da.txt
下面是飞狐公式,我也未试过,你自行试试吧

8 |/ C+ i) m9 sFoxDE:=DATE; FoxTE:=TIME;
MyData:=C*0;
3 s: N9 S1 v) o1 m<%
; U$ w4 s( {7 ~MyData =FFL.VarData("MyData")
FoxDE =FFL.VarData("FoxDE")
+ f& {& i6 l- N& ?FoxTE =FFL.VarData("FoxTE")
Set fs =CreateObject("Scripting.FileSystemObject")
3 \, i/ Y+ t8 `5 h' `. [Set wrkfs =fs.OpenTextFile("C:\Da.txt", 1)
MyTxt = wrkfs.ReadLine
' U8 Q( @- {* E; Nwrkfs.close
6 a' x) ]% T4 U# v7 ^1 tTxtStr=MyTxt
% b9 D5 V& n0 J( H: q. Z' |TxtAry = Split(TxtStr, ",", -1, 1)
0 Q2 P/ e, e4 jGetDE=CLNG(TxtAry(0))
) O) [- o' e' EGetTE=CLNG(TxtAry(1))
' z2 F7 Y; O) ~/ c/ pGetVV=CSNG(TxtAry(2))
3 `4 c4 A: r5 D6 nfor i=0 to ubound(MyData)
9 n3 a1 z# @; v. f) ?* jif FoxDE(i)=GetDE andFoxTE(i)=GetTE then
, R  {3 S! f! i; E8 ]* gMyData(i)=GetVV
9 A. U8 f5 o- e: s5 {7 v3 ?end if
% V9 c# [/ B% unext
" F2 n. _: c  h$ b+ @2 kFFL.VarData("MyData")=MyData
%>
4 N5 [3 \- U" Z- @) Y6 ~
; q0 m$ l6 q) B" kcc:=MyData;
4 |- l3 C- t7 ]2 q5 [; pccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
& x( ?2 R9 C% vvertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

. i1 G8 H* X- E, M+ C: \, A* ^[ 本帖最后由 静芸 于 2013-12-17 13:00 编辑 ]

kaiser88

再请问 怎么读写呢？俺不会

静芸

原帖由 kaiser88 于 2013-12-17 12:28 发表
请问静芸  能改成飞狐公式么？

+ R9 n  n  l/ c
这是飞狐公式
第一列的"数据"要用读进来的星象数据取代

kaiser88

请问静芸  能改成飞狐公式么？

静芸

飛狐

cc:=數據;
/ F" d( z* q  [) Iccsh:=filter(backset(cc<ref(cc,1) and ref(cc,2)<ref(cc,1),2),1);
' j* v4 l7 w( O% S) jvertline(ccsh),colorred;  {high}
ccsL:=filter(backset(cc>ref(cc,1) and ref(cc,2)>ref(cc,1),2),1);
vertline(ccsL),colorgreen; {low}

[ 本帖最后由 静芸 于 2013-12-17 12:29 编辑 ]