波神凯线飞狐版 - 分析家公式网

分析家公式网,提供指标公式,股票软件用户登录 |

首页 ┆ 软件中心 ┆ 备用域名gspt.com ┆ 公式教程 ┆ 软件分类

当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：波神凯线飞狐版

软件名称：[B]波神凯线飞狐版[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2009-08-23 16:31:32
软件简介:

{----------------------波神凯线源码----------------------------------}
INPUT:最近天(5,1,360),测量(1,1,4);
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
当前月:=FRACPART(ROUND(当前日期/100)/100)*100;
月:=MONTH;日:=DAY;
VERTLINE(月=1 AND ( 日=25)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=3 AND ( 日=20)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=5 AND ( 日=12)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=6 AND (日=14 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=19 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=6 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=18 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=10 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=11 AND ( 日=28)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=12 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=1 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=2 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=3 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=4 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=5 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=6 AND ( 日=6 OR 日=21)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=10 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=11 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=12 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
N:=if(sysparam(1)=datacount,最近天,datacount-sysparam(1)+1);
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
    HH[I]:=HH[DATACOUNT];
    LL[I]:=LL[DATACOUNT];
END;
TMP:=SETLBOUND(hh,DATACOUNT-VN+1);
TMP:=SETLBOUND(ll,DATACOUNT-VN+1);
KKH:=BARSLAST(H=HH);
KKL:=BARSLAST(L=LL);
N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0));
N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0));
多空:=IF(N低日>N高日,2,1),LINETHICK0;
DATE1:=IF(多空=1,N低日,N高日);
hh:=ref(h,BARSLAST(DATE1=DATE));
HH2:=IF(ref(h,barslast(DATE1=DATE))<REF(H,BARSLAST(DATE1=DATE)-1),ref(H,BARSLAST(DATE1=DATE)-1),IF(ref(h,barslast(DATE1=DATE))<REF(H,BARSLAST(DATE1=DATE)-2),REF(H,BARSLAST(DATE1=DATE)-2),ref(H,BARSLAST(DATE1=DATE)-1)));
LL2:=IF(ref(l,barslast(DATE1=DATE))>REF(l,BARSLAST(DATE1=DATE)-1),ref(l,BARSLAST(DATE1=DATE)-1),IF(ref(l,barslast(DATE1=DATE))>REF(l,BARSLAST(DATE1=DATE)-2),REF(l,BARSLAST(DATE1=DATE)-2),ref(l,BARSLAST(DATE1=DATE)-1)));
hh31:=ref(o,BARSLAST(DATE1=DATE));
hh32:=ref(c,BARSLAST(DATE1=DATE));
hh3:=min(hh31,hh32);
LL3:=max(hh31,hh32);
HH4:=if(多空=1,REF(L,barslast(DATE=N低日)),REF(H,barslast(DATE=N高日)));
LL4:=if(多空=1,REF(H,barslast(barpos=sysparam(1))),REF(L,barslast(barpos=sysparam(1))));
LLOW:=ref(LOW,BARSLAST(DATE1=DATE));
H1:=STRTONUM(NUMTOSTR(hh,2));
H2:=STRTONUM(NUMTOSTR(HH2,2));
L2:=STRTONUM(NUMTOSTR(LL2,2));
h3:=STRTONUM(NUMTOSTR(Hh3,2));
L3:=STRTONUM(NUMTOSTR(LL3,2));
H4:=STRTONUM(NUMTOSTR(HH4,2));
L4:=STRTONUM(NUMTOSTR(LL4,2));
L1:=STRTONUM(NUMTOSTR(LLOW,2));
LL1:=if(测量=1,H1-L1,IF(测量=2 AND 多空=1,H2-L1,IF(测量=2 AND 多空<>1,H1-L2,IF(测量=3 and 多空=1,H3-L1,IF(测量=3 and 多空<>1,H1-L3,IF(测量=4 and 多空=1,L4-H4,H4-L4))))));
LL:=STRTONUM(NUMTOSTR(LL1,2)),linethick0;
VERTLINE(BARPOS=SYSPARAM(1) AND 多空=1 AND 测量=4 AND H>=REF(H,1) AND H>=REFX(H,1) AND H>REF(H,2) AND H>REFX(H,2) ),COLORRED,LINEDOT;
DRAWTEXT(BARPOS=SYSPARAM(1) AND 多空=1 AND 测量=4 AND H>=REF(H,1) AND H>=REFX(H,1) AND H>REF(H,2) AND H>REFX(H,2),H*1.05,'←'),COLORYELLOW;
VERTLINE(BARPOS=SYSPARAM(1) AND 多空<>1 AND 测量=4 AND L<=REF(L,1) AND L<=REFX(L,1) AND L<REF(L,2) AND L<REFX(L,2) ),COLORRED,LINEDOT;
DRAWTEXT(BARPOS=SYSPARAM(1) AND 多空<>1 AND 测量=4 AND L<=REF(L,1) AND L<=REFX(L,1) AND L<REF(L,2) AND L<REFX(L,2),H*1.05,'←'),COLORYELLOW;
VERTLINE(DATE=DATE1),COLORFFAAAA,LINETHICK2;
DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n始\n \n线'),COLORFFFFFF;
IF 多空=1 THEN BEGIN
开门线:     PARTLINE(DATE>N低日,LL*1.508 + L1),LINETHICK2,COLOREE99FF;;
     PARTLINE(DATE>N低日,LL*2+ L1),COLOR9999FF,LINEDOT;
多2线:     PARTLINE(DATE>N低日,LL*2.4 + L1),COLORFFFF99,linethick1;
     PARTLINE(DATE>N低日,LL*3.05+ L1),COLOR99FF99,LINEDOT;
     PARTLINE(DATE>N低日,LL*3.75+ L1),COLORFF9999,LINEDOT;
多5线:     PARTLINE(DATE>N低日,LL*4.15 + L1),COLORMAGENTA,linethick2,LINEDOT;
     PARTLINE(DATE>N低日,LL*4.8+ L1),COLORRED,LINEDOT;
多7线:     PARTLINE(DATE>N低日,LL*5.5+ L1),COLORCYAN,linethick2;
     PARTLINE(DATE>N低日,LL*6.1 + L1),COLORGREEN,LINEDOT;
多关门线: PARTLINE(DATE>N低日,LL*6.9+ L1),LINETHICK2,COLORRED;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.508+0.002,NUMTOSTR(L1+LL*1.508,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2+0.002,NUMTOSTR(L1+LL*2,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.4+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.4,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05+0.002,NUMTOSTR(L1+LL*3.05,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75+0.002,NUMTOSTR(L1+LL*3.75,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.8+0.002,NUMTOSTR(L1+LL*4.8,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.5+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.5,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.1+0.002,NUMTOSTR(L1+LL*6.1,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.9+0.002,NUMTOSTR(L1+LL*6.9,2)),COLORAAAAAA,ALIGN2;
     DRAWTEXT(DATE=DATE1,LL*1.508+ L1+0.002,'多开门'),colorred;
     DRAWTEXT(DATE=DATE1,LL*6.9+ L1+0.002,'多关门'),colorred;
END;
ELSE   BEGIN
空开门线:     PARTLINE(DATE>N高日,H1-LL*1.508),LINETHICK2,COLOREE99FF;
     PARTLINE(DATE>N高日,H1-LL*2),COLOR9999FF,LINEDOT;
空2线:     PARTLINE(DATE>N高日,H1-LL*2.4),COLORFFFF99;
     PARTLINE(DATE>N高日,H1-LL*3.05),COLOR99FF99,LINEDOT;
     PARTLINE(DATE>N高日,H1-LL*3.75),COLORFF9999,LINEDOT;
空5线:     PARTLINE(DATE>N高日,H1-LL*4.15),COLORMAGENTA;
     PARTLINE(DATE>N高日,H1-LL*4.8),COLORRED,LINEDOT;
空7线:     PARTLINE(DATE>N高日,H1-LL*5.5),COLORCYAN;
     PARTLINE(DATE>N高日,H1-LL*6.1),COLORGREEN,LINEDOT;
空关门线:     PARTLINE(DATE>N高日,H1-LL*6.9),LINETHICK2,COLORRED;

[url=http://www.70822.com/soft/sort013/sort02/down-9343.html]波神凯线飞狐版[/url]